4,009
社区成员




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