【精易模块】网页 _访问支持socks4代理

试说心雨

如图，这是网页访问设置代理的部分
只要把内容中的"http="修改为"socks="就可以使用socks4的代理了

  

子程序名	返回值类型	公开	备 注
网页_访问	字节集		使用WinInet的API方式访问网页
参数名	类 型	参考	可空	数组	备 注
网址	文本型				完整的网页地址,必须包含http://或者https://
访问方式	整数型				0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
提交信息	文本型				POST专用
提交Cookies	文本型				设置提交时的cookie
返回Cookies	文本型				返回的Cookie
附加协议头	文本型				一行一个请用换行符隔开,建议填写常量值或文本值,防止因传参引发错误
返回协议头	文本型				返回的协议头
禁止重定向	逻辑型				默认不禁止网页重定向
字节集提交	字节集				提交字节集数据
代理地址	文本型				代理地址，格式为:ip:port,例如:8.8.8.8:88
代理类型	逻辑型				设置代理类型,假为http(s)代理,真为socks4代理
是否自动合并更新Cookie	逻辑型				默认为真，自动合并更新
是否补全必要协议头	逻辑型				当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
是否处理协议头大小写	逻辑型				将协议头中的键名首字母处理为大写  默认为真

变量名	类 型	静态	数组	备 注
局_Internet句柄	整数型
局_Internet连接句柄	整数型
局_HTTP请求句柄	整数型
局_计次	整数型
局_字节集	字节集
局_访问方式	文本型
局_User_Agent	文本型
局_返回协议头	文本型		0
局_页面内容	字节集
局_请求标记	整数型
局_重定向地址	文本型
局_HTTPS	逻辑型
bAutoDecode	整数型
局_附加协议头	文本型

如果真 (是否为空 (是否自动合并更新Cookie))
是否自动合并更新Cookie ＝ 真

如果真 (是否为空 (是否补全必要协议头))
是否补全必要协议头 ＝ 真

如果真 (是否为空 (是否处理协议头大小写))
是否处理协议头大小写 ＝ 真

局_附加协议头 ＝ 附加协议头
如果真 (是否处理协议头大小写)
局_附加协议头 ＝ 网页_处理协议头 (局_附加协议头)

' 局_访问方式 ＝ 选择 (访问方式 ＝ 1, “POST”, “GET”)
如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
访问方式 ＝ 0
局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
如果真 (到小写 (取文本左边 (网址, 8)) ＝ “https://”)
局_HTTPS ＝ 真

判断 (寻找文本 (局_附加协议头, “User-Agent:”, , 真) ≠ -1)
局_User_Agent ＝ 删首尾空 (文本_取出中间文本 (局_附加协议头 ＋ #换行符, “User-Agent:”, #换行符, , ))
如果真 (局_User_Agent ＝ “”)
局_User_Agent ＝ 内部_协议头取值 (局_附加协议头)

局_User_Agent ＝ “Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”

判断 (代理地址 ＝ “”)
局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 1, 字符 (0), 字符 (0), 0)
判断 (局_HTTPS)  ' 用于解决win7下https协议代理无效问题
局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 3, 代理地址, “”, 0)
如果 (代理类型)
局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 3, “SOCKS=” ＋ 代理地址, “”, 0)
局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 3, “http=” ＋ 代理地址, “”, 0)



如果真 (局_Internet句柄 ＝ 0)
' InternetCloseHandle (局_Internet句柄)
返回 ({  })
局_Internet连接句柄 ＝ InternetConnectA (局_Internet句柄, 网页_取域名 (网址), 网页_取端口 (网址), 字符 (0), 字符 (0), 3, 0, 0)
如果真 (局_Internet连接句柄 ＝ 0)
' InternetCloseHandle (局_Internet连接句柄)
InternetCloseHandle (局_Internet句柄)
返回 ({  })

局_请求标记 ＝ 位或 ( #INTERNET_FLAG_RELOAD, #INTERNET_COOKIE_THIRD_PARTY )
如果真 (取反 (是否为空 (提交Cookies)))
局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_NO_COOKIES )

如果真 (禁止重定向)
局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_NO_AUTO_REDIRECT )

判断 (局_HTTPS)
局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_SECURE )
局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTPS )

局_HTTP请求句柄 ＝ HttpOpenRequestA (局_Internet连接句柄, 局_访问方式, 网页_取页面地址 (网址), “HTTP/1.1”, 字符 (0), 字符 (0), 局_请求标记, 0)
如果真 (局_HTTP请求句柄 ＝ 0)
' InternetCloseHandle (局_HTTP请求句柄)
InternetCloseHandle (局_Internet连接句柄)
InternetCloseHandle (局_Internet句柄)
返回 ({  })

InternetSetOption (局_HTTP请求句柄, #INTERNET_OPTION_SECURITY_FLAGS, 127872, 4)
如果真 (是否补全必要协议头)
如果真 (局_附加协议头 ＝ “”)
局_附加协议头 ＝ “Accept: */*”

如果真 (寻找文本 (局_附加协议头, “Accept:”, , 真) ＝ -1)
局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “Accept: */*”

如果真 (寻找文本 (局_附加协议头, “Referer:”, , 真) ＝ -1)
局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址

如果真 (寻找文本 (局_附加协议头, “Accept-Language:”, , 真) ＝ -1)
局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”

如果真 (访问方式 ＝ 1)
如果真 (寻找文本 (局_附加协议头, “Content-Type:”, , 真) ＝ -1)
局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”



如果真 (提交Cookies ≠ “”)
判断 (寻找文本 (提交Cookies, “Cookie:”, , 假) ＝ -1)
局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “Cookie: ” ＋ 提交Cookies
局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ 提交Cookies


' 在Vista之后  可以自动解压Gzip
' bAutoDecode ＝ 1
' InternetSetOptionA_传址 (局_HTTP请求句柄, #INTERNET_OPTION_HTTP_DECODING, bAutoDecode, 4)
判断 (访问方式 ＝ 0)
HttpSendRequestA (局_HTTP请求句柄, 局_附加协议头, 取文本长度 (局_附加协议头), 0, 0)
如果真 (字节集提交 ＝ {  })
字节集提交 ＝ 到字节集 (提交信息)
HttpSendRequestA (局_HTTP请求句柄, 局_附加协议头, 取文本长度 (局_附加协议头), 取指针字节集_ (字节集提交), 取字节集长度 (字节集提交))

局_计次 ＝ 0
局_字节集 ＝ 取空白字节集 (1024)
循环判断首 ()
InternetReadFile (局_HTTP请求句柄, 局_字节集, 1024, 局_计次)
局_页面内容 ＝ 局_页面内容 ＋ 取字节集左边 (局_字节集, 局_计次)
循环判断尾 (局_计次 ≠ 0)
返回协议头 ＝ 取空白文本 (5000)
HttpQueryInfoA (局_HTTP请求句柄, 22, 返回协议头, 5000, 0)
' 返回协议头 ＝ 子文本替换 (返回协议头, “Set-Cookie”, “Set-Cookie”, , , 假)
InternetCloseHandle (局_HTTP请求句柄)
InternetCloseHandle (局_Internet连接句柄)
InternetCloseHandle (局_Internet句柄)
局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
返回Cookies ＝ “”
计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
判断 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”


计次循环尾 ()
返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
如果真 (是否自动合并更新Cookie)
如果真 (取反 (是否为空 (提交Cookies)))
返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)

返回 (局_页面内容)

.版本 2<br /> <br /> .子程序 网页_访问, 字节集, 公开, 使用WinInet的API方式访问网页<br /> .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://<br /> .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT<br /> .参数 提交信息, 文本型, 可空, POST专用<br /> .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie<br /> .参数 返回Cookies, 文本型, 可空, 返回的Cookie<br /> .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开,建议填写常量值或文本值,防止因传参引发错误<br /> .参数 返回协议头, 文本型, 参考 可空, 返回的协议头<br /> .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向<br /> .参数 字节集提交, 字节集, 可空, 提交字节集数据<br /> .参数 代理地址, 文本型, 可空, 代理地址，格式为:ip:port,例如:8.8.8.8:88<br /> .参数 代理类型, 逻辑型, 可空, 设置代理类型,假为http(s)代理,真为socks4代理<br /> .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新<br /> .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头<br /> .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真<br /> .局部变量 局_Internet句柄, 整数型<br /> .局部变量 局_Internet连接句柄, 整数型<br /> .局部变量 局_HTTP请求句柄, 整数型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_字节集, 字节集<br /> .局部变量 局_访问方式, 文本型<br /> .局部变量 局_User_Agent, 文本型<br /> .局部变量 局_返回协议头, 文本型, , "0"<br /> .局部变量 局_页面内容, 字节集<br /> .局部变量 局_请求标记, 整数型<br /> .局部变量 局_重定向地址, 文本型<br /> .局部变量 局_HTTPS, 逻辑型<br /> .局部变量 bAutoDecode, 整数型<br /> .局部变量 局_附加协议头, 文本型<br /> <br /> <br /> .如果真 (是否为空 (是否自动合并更新Cookie))<br />     是否自动合并更新Cookie ＝ 真<br /> .如果真结束<br /> <br /> .如果真 (是否为空 (是否补全必要协议头))<br />     是否补全必要协议头 ＝ 真<br /> .如果真结束<br /> <br /> .如果真 (是否为空 (是否处理协议头大小写))<br />     是否处理协议头大小写 ＝ 真<br /> .如果真结束<br /> <br /> 局_附加协议头 ＝ 附加协议头<br /> .如果真 (是否处理协议头大小写)<br />     局_附加协议头 ＝ 网页_处理协议头 (局_附加协议头)<br /> .如果真结束<br /> <br /> ' 局_访问方式 ＝ 选择 (访问方式 ＝ 1, “POST”, “GET”)<br /> .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)<br />     访问方式 ＝ 0<br /> .如果真结束<br /> 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)<br /> <br /> .如果真 (到小写 (取文本左边 (网址, 8)) ＝ “https://”)<br />     局_HTTPS ＝ 真<br /> .如果真结束<br /> <br /> .判断开始 (寻找文本 (局_附加协议头, “User-Agent:”, , 真) ≠ -1)<br />     局_User_Agent ＝ 删首尾空 (文本_取出中间文本 (局_附加协议头 ＋ #换行符, “User-Agent:”, #换行符, , ))<br />     .如果真 (局_User_Agent ＝ “”)<br />         局_User_Agent ＝ 内部_协议头取值 (局_附加协议头)<br />     .如果真结束<br /> <br /> .默认<br />     局_User_Agent ＝ “Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”<br /> .判断结束<br /> <br /> .判断开始 (代理地址 ＝ “”)<br />     局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 1, 字符 (0), 字符 (0), 0)<br /> .默认<br />     .判断开始 (局_HTTPS)  ' 用于解决win7下https协议代理无效问题<br />         局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 3, 代理地址, “”, 0)<br />     .默认<br />         .如果 (代理类型)<br />             局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 3, “SOCKS=” ＋ 代理地址, “”, 0)<br />         .否则<br />             局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 3, “http=” ＋ 代理地址, “”, 0)<br />         .如果结束<br /> <br />     .判断结束<br /> <br /> .判断结束<br /> <br /> .如果真 (局_Internet句柄 ＝ 0)<br />     ' InternetCloseHandle (局_Internet句柄)<br />     返回 ({  })<br /> .如果真结束<br /> 局_Internet连接句柄 ＝ InternetConnectA (局_Internet句柄, 网页_取域名 (网址), 网页_取端口 (网址), 字符 (0), 字符 (0), 3, 0, 0)<br /> .如果真 (局_Internet连接句柄 ＝ 0)<br />     ' InternetCloseHandle (局_Internet连接句柄)<br />     InternetCloseHandle (局_Internet句柄)<br />     返回 ({  })<br /> .如果真结束<br /> <br /> 局_请求标记 ＝ 位或 (#INTERNET_FLAG_RELOAD, #INTERNET_COOKIE_THIRD_PARTY)<br /> .如果真 (取反 (是否为空 (提交Cookies)))<br />     局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_NO_COOKIES)<br /> .如果真结束<br /> <br /> .如果真 (禁止重定向)<br />     局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_NO_AUTO_REDIRECT)<br /> .如果真结束<br /> <br /> .判断开始 (局_HTTPS)<br />     局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_SECURE)<br /> .默认<br />     局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTPS)<br /> .判断结束<br /> <br /> 局_HTTP请求句柄 ＝ HttpOpenRequestA (局_Internet连接句柄, 局_访问方式, 网页_取页面地址 (网址), “HTTP/1.1”, 字符 (0), 字符 (0), 局_请求标记, 0)<br /> .如果真 (局_HTTP请求句柄 ＝ 0)<br />     ' InternetCloseHandle (局_HTTP请求句柄)<br />     InternetCloseHandle (局_Internet连接句柄)<br />     InternetCloseHandle (局_Internet句柄)<br />     返回 ({  })<br /> .如果真结束<br /> <br /> InternetSetOption (局_HTTP请求句柄, #INTERNET_OPTION_SECURITY_FLAGS, 127872, 4)<br /> <br /> .如果真 (是否补全必要协议头)<br />     .如果真 (局_附加协议头 ＝ “”)<br />         局_附加协议头 ＝ “Accept: */*”<br />     .如果真结束<br /> <br />     .如果真 (寻找文本 (局_附加协议头, “Accept:”, , 真) ＝ -1)<br />         局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “Accept: */*”<br />     .如果真结束<br /> <br /> <br />     .如果真 (寻找文本 (局_附加协议头, “Referer:”, , 真) ＝ -1)<br />         局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址<br />     .如果真结束<br /> <br />     .如果真 (寻找文本 (局_附加协议头, “Accept-Language:”, , 真) ＝ -1)<br />         局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”<br />     .如果真结束<br /> <br />     .如果真 (访问方式 ＝ 1)<br />         .如果真 (寻找文本 (局_附加协议头, “Content-Type:”, , 真) ＝ -1)<br />             局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> .如果真 (提交Cookies ≠ “”)<br />     .判断开始 (寻找文本 (提交Cookies, “Cookie:”, , 假) ＝ -1)<br />         局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “Cookie: ” ＋ 提交Cookies<br />     .默认<br />         局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ 提交Cookies<br />     .判断结束<br /> <br /> .如果真结束<br /> <br /> <br /> ' 在Vista之后  可以自动解压Gzip<br /> ' bAutoDecode ＝ 1<br /> ' InternetSetOptionA_传址 (局_HTTP请求句柄, #INTERNET_OPTION_HTTP_DECODING, bAutoDecode, 4)<br /> <br /> .判断开始 (访问方式 ＝ 0)<br />     HttpSendRequestA (局_HTTP请求句柄, 局_附加协议头, 取文本长度 (局_附加协议头), 0, 0)<br /> .默认<br />     .如果真 (字节集提交 ＝ {  })<br />         字节集提交 ＝ 到字节集 (提交信息)<br />     .如果真结束<br />     HttpSendRequestA (局_HTTP请求句柄, 局_附加协议头, 取文本长度 (局_附加协议头), 取指针字节集_ (字节集提交), 取字节集长度 (字节集提交))<br /> .判断结束<br /> <br /> 局_计次 ＝ 0<br /> 局_字节集 ＝ 取空白字节集 (1024)<br /> .循环判断首 ()<br />     InternetReadFile (局_HTTP请求句柄, 局_字节集, 1024, 局_计次)<br />     局_页面内容 ＝ 局_页面内容 ＋ 取字节集左边 (局_字节集, 局_计次)<br /> .循环判断尾 (局_计次 ≠ 0)<br /> 返回协议头 ＝ 取空白文本 (5000)<br /> HttpQueryInfoA (局_HTTP请求句柄, 22, 返回协议头, 5000, 0)<br /> ' 返回协议头 ＝ 子文本替换 (返回协议头, “Set-Cookie”, “Set-Cookie”, , , 假)<br /> InternetCloseHandle (局_HTTP请求句柄)<br /> InternetCloseHandle (局_Internet连接句柄)<br /> InternetCloseHandle (局_Internet句柄)<br /> 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )<br /> 返回Cookies ＝ “”<br /> .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)<br />     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)<br />         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)<br />             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”<br />         .默认<br />             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”<br />         .判断结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)<br /> .如果真 (是否自动合并更新Cookie)<br />     .如果真 (取反 (是否为空 (提交Cookies)))<br />         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (局_页面内容)

附上我自己修改后的代码

aoshaozhu

怎么设置账号密码

fanguanglei

支持开源~！感谢分享

317870889

3333333333333333333

a3221134

要好好发挥发攻防

askdfewiewqi

@镜之空 大佬，SOCKS5需要账号密码验证，怎么加入呢

vosia

感谢前辈分享

试说心雨

貌似也能支持SOCKS5代理