高手们进来看一下，get方式修改为post

zdl158

这是我在网上找到的一段多线程例子，反复测试发现例子中的get方式提交网页访问占用CPU极低，麻烦高手们帮改为POST 方式的（能用且CPU占用和GET一样低），谢谢！
.版本 2
.子程序 GET, 文本型, 公开, 请将此处修改为post提交方式，谢谢，本人不才，对这些东西不太懂，这段代码程序运行后占用CPU很低！
.参数 url, 文本型
.参数 cookie, 文本型, 可空, 提交的cookie
.参数 Proxy, 文本型, 可空, 设置代理
.参数 session, 文本型, 参考 可空, 返回的全部头信息
.参数 referer, 文本型, 可空
.参数 timeout, 整数型, 可空
.局部变量 http, 对象
.局部变量 变体, 变体型
.局部变量 bin, 字节集
.局部变量 文本, 文本型
CoInitialize (0)
http.创建 (“WinHttp.WinhttpRequest.5.1”, )
http.方法 (“Open”, “GET”, url, 假)
http.方法 (“SetRequestHeader”, “cookie”, cookie)
' http.方法 (“SetRequestHeader”, “Referer”, referer)
http.方法 (“SetRequestHeader”, “User-Agent”, “Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0)”)
http.方法 (“SetProxy”, 2, Proxy)
.' 如果真 (是否为空 (timeout))
    ' timeout ＝ 1500
.如果真结束
' http.方法 (“SetTimeouts”, timeout, timeout, timeout, timeout, timeout)
http.方法 (“Send”, “”)
变体 ＝ http.读属性 (“responseBody”, )
bin ＝ 变体.取字节集 ()
session ＝ http.读文本属性 (“GetAllResponseHeaders”, )
' session ＝ WB_取出中间文本 (session, “Set-Cookie:”, #换行符)
' 调试输出 (session)
文本 ＝ 编码_Utf8到Ansi (bin)
CoUninitialize ()
返回 (文本)

素顏じ亦傾城ジ

有这么好的东西我也要一份..  

Hoibben

老兄，post跟get你都搞不清楚何来修改一说。。。
自己看哈：
http.方法 (“Open”, “GET”, url, 假)

zdl158

我知道，我就是要post方式的，

Doomed1Crack

路过看看。。。