VB XmlHttp 如何判断网络是否接通?
如果无法访问网络则返回不通的信息。
如果无法访问网络则返回不通的信息。
解决方案 »
- 用VB开发VPN拨号端遇到的致命问题
- dim a as new xx 和 dim a as xx set a=new xx 区别
- vb label的Caption的文字实现上下滚动
- 救救救~~如何如何吧TEXT里面的信息
- maskedbox控件如何给它初始值?
- 救场如救火啊!!!!!!!!!!!!!!!!!!!!!!!!!!
- 高手请教?如果在excel的用户窗体中加入datagrid控件?
- 虫虫提问,各路高手请进!!!!!!!!!!!!!
- 问在VB中如何认控件在运行时隐藏起来呢?而属性不变
- VB中导入数值时,数值变成时间,求救,急!
- 如何在运行时让某个菜单不可见
- WebBrowser来显示PPT,但不让用户保存、修改PPT,怎么解决啊,跪求
On Error Resume Next
With CreateObject("Msxml2.XMLHTTP")
.Open "GET", url, False
.Send
CheckURL = """" & url & """ is " & IIf(Len(.responseText) > 0, "a valid ", "an invalid ") & " link£¡"
End With
End FunctionPrivate Sub Command1_Click()
MsgBox CheckURL("http://mail.163.com")
End Sub