摘要: 引用:http://topic.csdn.net/t/20040513/12/3062643.htmlPrivate Const FLAG_ICC_FORCE_CONNECTION = &H1Private Declare Function InternetCheckConnection Lib "wininet.dll " Alias "InternetCheckConnectionA " (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As 阅读全文
posted @ 2011-12-08 16:03 镇水古月 阅读(248) 评论(0) 推荐(0) 编辑
摘要: 引用:http://apps.hi.baidu.com/share/detail/14791249使用 Internet Transfer 控件Internet Transfer 控件实现了两种广泛使用的 Internet 协议: 超文本传送协议(HyperText Transfer Protocol)(HTTP) 和文件传送协议(File Transfer Protocol) (FTP)。使用 Internet Transfer 控件可以通过 OpenURL 或 Execute 方法连接到任何使用这两个协议的站点并检索文件。可能的用途在应用程序中添加 FTP 浏览器。创建自动从公共 FTP 阅读全文
posted @ 2011-12-08 15:53 镇水古月 阅读(786) 评论(0) 推荐(0) 编辑
摘要: 引用:On Error Resume Next '有错误就接重新开始Inet1.AccessType = 2 Inet1.RequestTimeout = 60 Inet1.Proxy = "HTTP=" & "59.74.42.152" & ":" & "8080" Inet1.OpenURL (" http://www.baidu.com/")MsgBox Val(Mid(Trim(Inet1.GetHeader), 10, 3)) If Err Then I 阅读全文
posted @ 2011-12-08 13:46 镇水古月 阅读(360) 评论(0) 推荐(0) 编辑
摘要: 引用:http://hi.baidu.com/xietao1233/blog/item/7074ab4b4386cdf582025cb6.html添加 c:/windows/system32/msinet.ocxInet控件也叫Internet Transfer 控件,这个控件封装了http协议以及ftp协议,使用起来非常方便。所以大家经常使用。然而大家通常使用的只是其部分功能,接下来我们讲一下它的全部详细功能,看过之后你也许会有眼前一亮的感觉。会猛然觉得我们之前懂得的只是皮毛。闲话少说,下面开讲:Internet Transfer 控件实现了两种广泛使用的 Internet 协议:超文本传送 阅读全文
posted @ 2011-12-08 11:04 镇水古月 阅读(1165) 评论(0) 推荐(0) 编辑
摘要: 引用:http://school.cfan.com.cn/soft/sys/2006-08-18/1155878337d13185.shtml 前言常言道,攘外必先安内,服务器的正常运作,是开展一切工作的基础。而在网络安全问题日益凸现的今天,监控服务器的健康状况成了管理人员的必修课。然而,通过手工操作效率过于低下。想到骇客帝国中帅呆了的Agent史密斯,其本质就是一个高级的软件机器人,那么我们能不能编写一套程序,让程序就像Agent史密斯一样自动去监视服务器的健康状况,一旦发现问题就自动通知我们呢?要编写这么一个软件机器人,我们只要通过程序定时测试网站是否正常运行即可。其实原理并不复杂,因为. 阅读全文
posted @ 2011-12-08 10:39 镇水古月 阅读(370) 评论(0) 推荐(0) 编辑