足球游戏_中国足彩网¥体育资讯$

vb 判断联网
来源:易贤网 阅读:1697 次 日期:2014-08-26 09:36:16
温馨提示:易贤网小编为您整理了“vb 判断联网”,方便广大网友查阅!

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

’该方法简单好用,非常推荐

中国足彩网信息请查看IT技术专栏

中国足彩网信息请查看网络编程
下一篇:vb 禁止右击
易贤网手机网站地址:vb 判断联网
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!

2025国考·省考课程试听报名

  • 报班类型
  • 姓名
  • 手机号
  • 验证码
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 足球游戏_中国足彩网¥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65099533/13759567129 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标