.版本 2 .程序集 程序集1 .子程序 _启动子程序, 整数型 _调试子程序 () 返回 (0) .子程序 _调试子程序 Winhttp新手使用指南 () .子程序 Winhttp新手使用指南 .局部变量 http, WinHttpR .局部变量 str, 文本型 ' Winhttp 就两大步骤 Open Send ' Open 打开/设置你要访问的目标网站信息 ' Send 发送访问请求 达到HTTP/HTTPS访问 ' 当然了 在Open之前 你可能需要做一些准备工作比如 设置一些属性 比如：设置代理 设置是否允许重定向 设置超时 等 ' 在Open之后 你也可以继续设置一些准备工作 比如：添加协议头 设置代理 设置Cookie信息 设置是否允许重定向 等 ' 一切准备工作就绪后 就可以Send发送请求了 在Send的时候 可以把POST数据设置进去 进行提交 ' Send之后 就来到了愉快的获取各种返回信息的状态了 ' 获取返回的文本 返回协议头 Cookie 状态吗等等都可以 ' 辣么 我们来举个例子吧 http.Auto (真) ' 设置自动补全必要协议头模式 开启 http.SetTimeouts (5000, 5000, 5000, 10000) ' 设置访问超时 http.Open (“POST”, “https://www.baidu.com/”) ' 请求类型 GET,POST,HEAD 等 http.SetReferer (“//www.qq.com”) ' 设置 来路 协议头 http.SetContentType (“application/x-www-form-urlencoded”) ' 设置提交数据类型 POST专用协议头 http.SetCookie (“BAIDUID=1234567; aaa=123”) ' 设置 提交Cookie http.Send (“POST1=123&post2=456”) ' 提交时加入了POST数据 输出调试文本 (http.GetResponseTextUtf8ToAnsi ()) ' 输出 返回文本 输出调试文本 (#换行符) 输出调试文本 (http.GetAllResponseHeaders ()) ' 输出 返回所有协议头 输出调试文本 (#换行符) 输出调试文本 (http.GetAllResponseCookies ()) ' 输出 返回所有Set-Cookie信息 输出调试文本 (#换行符) 输出调试文本 (http.GetStatus ()) ' 输出 返回状态码 ' 这时候就会有人说了 访问个HTTP 要写最起码3行代码 怎样真的好吗？ ' 从代码执行效率上来讲 要比你用一个子程序搞定要省资源 ' 从开发效率上来讲 虽然你一个子程序搞定 但是后期维护时候 要各种展开子程序 蛋疼不已 并没有以上这种方式 便于理解 便于修改 ' 所以强烈建议新手习惯下这样的概念和用法 .子程序 Winhttp多线程使用注意事项 .局部变量 http, WinHttpW .局部变量 投票, 某网站投票 ' Winhttp支持多线程使用 但 不支持跨线程使用 ' 跨线程使用概念 ' 如果你把 winhttp对象 声明在了 程序集/全局 那就是跨线程使用 ' 两条线程共用一个程序集变量a 线程1要a执行Send 线程2却要a执行Open 那你说a内部的Cookies归哪条线程 直接乱套了 ' 正确的姿势是 把winhttp声明在局部 或是作为其他类的私有成员声明在局部 投票.登录 (“Useraaa”, “Passbbb”) 投票.投票 (“2333”)