易语言代理访问源码
.版本 2
.子程序 设置IE代理
.参数 代理IP, 文本型
.参数 启用, 逻辑型
.局部变量 op, INTERNET_PROXY_INFO
.局部变量 c, 整数型
.如果 (启用)
op.dwAccessType = #INTERNET_OPEN_TYPE_PROXY
op.lpszProxy = “http=” + 代理IP
op.lpszProxyBypass = “”
InternetSetOptionA2 (0, #INTERNET_OPTION_PROXY, op, 12)
InternetSetOptionA (0, #INTERNET_OPTION_SETTINGS_CHANGED, 0, 0)
写注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer”, op.lpszProxy)
写注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable”, 1)
.否则
op.dwAccessType = #INTERNET_OPEN_TYPE_DIRECT
op.lpszProxy = “”
op.lpszProxyBypass = “”
InternetSetOptionA2 (0, #INTERNET_OPTION_PROXY, op, 12)
InternetSetOptionA (0, #INTERNET_OPTION_SETTINGS_CHANGED, 0, 0)
' 写注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer”, “”)
写注册项 (#现行用户, “Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable”, 0)
易语言代理检测
易语言代理