易语言代理访问源码

易语言代理访问源码

.版本 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)

@易语言入门教程