| 标题 | vb 判断联网 |
| 分类 | 范文、应用文-IT技术专栏-网络编程 |
| 内容 | vb判断联网代码，判断联网是在vb软件中不可或缺的，在搜索了很多的判断联网代码中，这个是在csdn上面找到的简单方便好用。 贴出来跟大家分享 Function islink_fun(url) As Boolean Dim xmlHttp As Object, i, j j = 0 Set xmlHttp = CreateObject("Microsoft.XMLHTTP") xmlHttp.open "GET", url, True xmlHttp.send (Null) i = Now() Do DoEvents Loop Until xmlHttp.ReadyState = 4 Or j = DateDiff("s", i, Now()) > 2 If j = 0 Then If xmlHttp.Responsetext = "" Or IsNull(xmlHttp.Responsetext) Then islink_fun = False Else islink_fun = True End If Else islink_fun = False End If End Function ’vb调用判断联网代码是 If islink_fun("http://www.baidu.com") Then MsgBox "连接" Else MsgBox "没有连接" End If ’该方法简单好用，非常推荐 |
| 随便看 |
|
客官网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。