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