没用过 你们懂不？

lingxin5013

Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")　　'这是什么对象？
If WinHttp Is Nothing Then Set WinHttp = CreateObject("WinHttp.WinHttpRequest")　'这是什么对象？
WinHttp.Open "get", "http://www.google.cn".false　'这里get什么意思　false什么意思
WinHttp.Send　'什么意思？

arrArray = WinHttp.ResponseBody '？？？？
msgbox arrArray　　'返回的怎么是乱码　该如何处理？？　　在线等待
Set WinHttp = Nothing

zte_boy

这个对象提供了在网页加载后与服务器进行通信的方法
WinHttp.Open "get", "http://www.google.cn".false
这个是表示指定的链接，第一个参数是方法，Get或Post，false是个参数，它来规定请求是否异步处理，如果是True 表示脚本会在 send() 方法之后继续执行，而不等待来自服务器的响应，false反之
通常都是设置为true，通过onreadystatechange来判断是否执行，直接设置为false，如果请求失败，其他的代码是否执行无关紧要的话，那也是可以的
WinHttp.ResponseBody 这个表示的是返回格式
responseBody：将返回消息作为HTML文档内容
你要msgbox可以设置为WinHttp.responseText

lingxin5013

非常感谢斑竹

lingxin5013

Set WinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
If WinHttp Is Nothing Then Set WinHttp = CreateObject("WinHttp.WinHttpRequest")
WinHttp.Open "get", "http://bbs.51testing.com/forum-69-1.html",false
WinHttp.Send
arrArray = WinHttp.responsetext
msgbox arrArray
Set WinHttp = Nothing
Function RegExpTest(patrn, strng)
   Dim regEx, Match, Matches   ' 建立变量。
   Set regEx = New RegExp   ' 建立正则表达式。
   regEx.Pattern = patrn   ' 设置模式。
   regEx.IgnoreCase = True   ' 设置是否区分大小写。
   regEx.Global = True   ' 设置全局替换。
   Set Matches = regEx.Execute(strng)   ' 执行搜索。
   For Each Match in Matches   ' 遍历 Matches 集合。
      RetStr = RetStr & Match.Value
      RetStr = RetStr &vbCRLF
   Next
   RegExpTest = RetStr
End Function
regpatrn = "(\w+)\(\'(\w+)\'\,\s(\w+)\,\s(\d+)\)\;"
aim=(RegExpTest(regpatrn,arrArray ))

Set fso=createobject("scripting.filesystemobject")
Set text=fso.createtextfile("f:\nothing.txt",true)
text.writeline aim