سورسهاي نمونه آموزشي

[lord_viper]

بستن دسترسی برنامه ها به اینترنت

type

   PMIB_TCPROW       =  ^MIB_TCPROW;

  MIB_TCPROW        =  packed  record

     dwState:       DWORD;

     dwLocalAddr:   DWORD;

      dwLocalPort:   DWORD;

     dwRemoteAddr:  DWORD;

      dwRemotePort:  DWORD;

  end;



  PMIB_TCPTABLE     =   ^MIB_TCPTABLE;

  MIB_TCPTABLE      =  packed record

      dwNumEntries:  DWORD;

     Table:         Array [0..MaxWord] of  MIB_TCPROW;

  end;



function GetTcpTable(Table:Pointer;dwSize:PDWORD;state:Bool  ean):DWORD;stdcall;external 'Iphlpapi.dll';

function SetTcpEntry(pTcpRow:PMIB_TCPROW):DWORD;stdcall;ext  ernal 'Iphlpapi.dll';



procedure BuildandTerminate;

var

dwSize:DWORD;

theTable:PMIB_TCPTABLE;

item:PMIB_TCPROW;

i:Integer;

begin

dwSize:=10;

GetTcpTable(thetable,@dwSize,false);

GetMem(theTable,dwSize);

if GetTcpTable(thetable,@dwSize,false)=ERROR_SUCCESS then

begin

for i:=0 to thetable^.dwNumEntries-1 do

begin

item:=@thetable.table[i];

item.dwState:=12;

SetTcpEntry(item);

end;

FreeMem(theTable);

end;

end;



procedure blockinternet;

begin

SetTimer(Form1.Handle,1,30,@BuildandTerminate);

end;



procedure unblockinternet;

begin

KillTimer(Form1.Handle,1);

end;