[فوری] پروکسی

[kalhor1900]

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

[lord_viper]

پروکسی اینترنت اکسپلورر تو کلید رجیستری به ادرس زیر هست
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.

[kalhor1900]

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

[lord_viper]

تو کتابخانه 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;