马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 dragon 于 2018-8-30 14:48 编辑
首先, 必须承认: TC很好用.
不过, 自带的一些访问网页的http玩意总感觉不爽.
于是,就找替代的,发现winhttp还是可以的.
上源码(网址那里我发不了,只能用文字代替):
- function start_click()
- for(var i = 0; i < 100; i++)
- traceprint(winhttp("百度网址", "get", "utf-8"))
- end
-
- end
- function winhttp(url, method, charset)
- var http = com("WinHttp.WinHttpRequest.5.1")
- http.Open(method, url, false)
- http.send
- var xmlBody = http.Resp**eBody
- var ObjStream = com("Adodb.Stream")
- ObjStream.Type = 1
- ObjStream.Mode = 3
- ObjStream.Open
- ObjStream.Write(xmlBody)
- ObjStream.Position = 0
- ObjStream.Type = 2
- ObjStream.Charset = charset
- var BytesToBstr = ObjStream.ReadText
- ObjStream.Close
- var ret = BytesToBstr
- return ret
- end
复制代码 干百度100遍 , 好像也没出现有什么问题. 真是完美.
|