4,008
社区成员
发帖
与我相关
我的任务
分享
On Error Resume Next
Set oHTTP = CreateObject("Microsoft.XMLHTTP")
oHTTP.open "GET","http://www.baidu.com/s?wd=%B2%D4%BE%AE%BF%D5&word=%B2%D4%BE%AE%BF%D5&tn=sitehao123",0
oHTTP.send
If Err Then
WScript.Echo "无法打开指定网址!"
Err.Clear
Else
WScript.Echo oHTTP.responseText
End If
Set oHTTP = Nothing