吵吵   2011-05-18  阅读:2,456

最进广东省电信的出口对企业做了连接限制,很多国外的网站都访问不了,这个让人很蛋疼啊,为了解决这个问题,只好使用国内的代理进行登录,研究了一下代理ip地址的使用:www.chaochaoblog.com


function ChangeProxy(Addr: string; Bypass, Enabled: Boolean):boolean;
var
Info: INTERNET_PROXY_INFO;
Reg : TRegistry;
begin
Reg := TRegistry.Create;
try Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', False) then

begin
Reg.WriteString('ProxyServer', Addr);
Reg.WriteInteger('ProxyEnable', Integer(Enabled));
if Bypass then Reg.WriteString('ProxyOverride', '')
else Reg.DeleteValue('ProxyOverride'); end; finally
Reg.CloseKey; Reg.Free; end; if (Enabled) then
Info.dwAccessType := INTERNET_OPEN_TYPE_PROXY else
Info.dwAccessType := INTERNET_OPEN_TYPE_DIRECT;www.chaochaoblog.com
Info.lpszProxy := PAnsiChar(Addr);
InternetSetOption(nil, INTERNET_OPTION_PROXY, @Info, SizeOf(Info));
InternetSetOption(nil, INTERNET_OPTION_REFRESH, nil, 0);
InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);

end;

ok,使用方法是取消代理
changeproxy(‘:’,false,false);
使用代理是
changeproxy(‘代理地址:加端口’,true,true);

吵吵微信朋友圈,请付款实名加入:

吵吵 吵吵

发表评论

电子邮件地址不会被公开。 必填项已用*标注