TC使用winhttp访问网页

dragon

首先, 必须承认: TC很好用.
不过, 自带的一些访问网页的http玩意总感觉不爽.
于是,就找替代的,发现winhttp还是可以的.
上源码(网址那里我发不了,只能用文字代替):

1. function start_click()
   
2.     for(var i = 0; i < 100; i++)
   
3.         traceprint(winhttp("百度网址", "get", "utf-8"))
   
4.     end
   
5.    
   
6. end
   
7. function winhttp(url, method, charset)
   
8.     var http = com("WinHttp.WinHttpRequest.5.1")
   
9.     http.Open(method, url, false)
   
10.     http.send
    
11.     var   xmlBody = http.Resp**eBody
    
12.     var ObjStream = com("Adodb.Stream")
    
13.     ObjStream.Type = 1
    
14.     ObjStream.Mode = 3
    
15.     ObjStream.Open
    
16.     ObjStream.Write(xmlBody)
    
17.     ObjStream.Position = 0
    
18.     ObjStream.Type = 2
    
19.     ObjStream.Charset = charset
    
20.     var BytesToBstr = ObjStream.ReadText
    
21.     ObjStream.Close
    
22.     var ret = BytesToBstr
    
23.     return ret
    
24. end

复制代码

干百度100遍 , 好像也没出现有什么问题. 真是完美.

dragon

var xmlBody = http.Resp**eBody
这里很奇怪
respo nsebody