ايران ويج

سلام خدمت اساتید
کسی برنامه غیرفعال کردن پروکسی اینترنت اکسپلورر رو داره؟؟؟

پروکسی اینترنت اکسپلورر تو کلید رجیستری به ادرس زیر هست
HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings

2 تا کلید هست با نامهای
ProxyEnable
ProxyServer
با حذف ایند کلید پروکسی غیر فعال میشه

کد: 
uses

registry;

Procedure SetProxy();

var

  Reg : TRegistry;

begin

  Reg := TRegistry.Create;

  Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings',False);

  Reg.WriteString('ProxyServer','');

  Reg.WriteBool('ProxyEnable',False);

  Reg.CloseKey;

  Reg.Free;

  InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, 0, 0);

end;

begin

Procedure SetProxy();

end.

اقا ممنون
یه سوال دیگ چجوری میشه مک ادرس مودم adsl رو بدست اوردش؟؟؟

تو کتابخانه jvcl هم کتابخانه برای گرفتن مک ادرس هست
توابع winsock

کد: 
unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Winsock;

const

iphlpapilib = 'iphlpapi.dll';

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

function SendArp(ipaddr:ulong;

temp:dword;

ulmacaddr:pointer;

ulmacaddrleng:pointer) : DWord; StdCall;

var

Form1: TForm1;

implementation

{$R *.DFM}

function SendARP; external iphlpapilib name 'SendARP';

function GetMacAddr(const IPAddress: string): string;

var

lDestIP:ulong;

lMacAddr:array[0..5] of byte;

lPhyAddrLen:ulong;

begin

lDestIP:=inet_addr(PChar(IPAddress));

lPhyAddrLen:=length(lMacAddr);

sendarp(lDestIP,0,@lMacAddr,@lPhyAddrLen...

Result:=format('%2.2x-%2.2x-%2.2x-%2.2x-...

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

label1.caption:=GetMacAddr(edit1.text);

end;

end.

کد: 
uses winsock,...

...

Function sendarp(ipaddr:ulong;

                 temp:dword;

                 ulmacaddr:pointer;

                 ulmacaddrleng:pointer) : DWord; StdCall;

implementation

{$R *.dfm}

Function sendarp; External 'Iphlpapi.dll' Name 'SendARP';

procedure TForm1.Button1Click(Sender: TObject);

var

  myip:ulong;

  mymac:array[0..5] of byte;

  mymaclength:ulong;

  r:integer;

begin

  myip:=inet_addr(PChar('192.168.1.1'));

  mymaclength:=length(mymac);

  r:=sendarp(myip,0,@mymac,@mymaclength);

  label1.caption:='errorcode:'+inttostr(r);

  label2.caption:=format('%2.2x:%2.2x:%2.2x:%2.2x:%2.2x:%2.2x',[mymac[0],mymac[1],mymac[2],mymac[3],mymac[4],mymac[5]]);

end;

kalhor1900

lord_viper

kalhor1900

lord_viper