主题：VB如何读取网站数值？
chinall
[专家分：0] 发布于 2011-05-15 18:19:00
VB如何读取网站数值？
我要读取 http://www.xxx.com/ip.asp?u=123 后返回的值
我不想用WebBrowser去实现，因为取到这个值我只是用于条件判断所有。
回复列表 （共2个回复）
沙发
孙瑞 [专家分：590] 发布于 2011-05-25 19:06:00
？？？不懂你问题的意思
板凳
海军527725 [专家分：20] 发布于 2011-06-09 12:06:00
Private Function GetHtmlStr1$(StrUrl$, RefUrl$, strS As String) ' 获取源码
Dim stime, ntime
Dim XmlHttp
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "POST", StrUrl, True
XmlHttp.setRequestHeader "Referer", RefUrl
XmlHttp.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
XmlHttp.send (strS)
stime = Now '获取当前时间
While XmlHttp.readyState <> 4
DoEvents
ntime = Now '获取循环时间
If DateDiff("s", stime, ntime) > 6 Then GetHtmlStr1 = "": Exit Function '判断超出3秒即超时退出过程
Wend
'GetHtmlStr = StrConv(XmlHttp.ResponseBody, vbUnicode)
GetHtmlStr1 = XmlHttp.responseText
Set XmlHttp = Nothing
End Function
这段代码就能实现你想要的功能
我来回复
您所在位置：