function TabKeyFunc(lpHwnd:HWND):bool;stdcall;external 'SOOK.dll' name 'TabKeyFunc';
function NormalAttackFunc(lpHwnd:HWND):bool;stdcall;external 'SOOK.dll' name 'NormalAttackFunc';
function ZazenFunc(lpHwnd:HWND):bool;stdcall;external 'SOOK.dll' name 'ZazenFunc';
function UnZazenFunc(lpHwnd:HWND):bool;stdcall;external 'SOOK.dll' name 'UnZazenFunc';
function SendKeyFunc(lpHwnd:HWND;Key:Integer):bool;stdcall;external 'SOOK.dll' name 'SendKeyFunc';
implementation
uses Unit1;
{$R *.dfm}
procedure TForm2.wmnchittest(var msg:twmnchittest);
begin
inherited;
if (htclient=msg.result) then msg.result:=htcaption;
end;
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Form1.Close;
Form2.Close;
SetWindowText(MyHwnd, 'Element Client');
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
If (MP < strtoint(edit2.text))then
begin
Timer2.Enabled:=True;
end
else
Timer2.Enabled:=False;
If (HP < strtoint(edit1.text))then
begin
Timer3.Enabled:=True;
end
else
Timer3.Enabled:=False;
end;
procedure TForm2.Edit4Change(Sender: TObject);
begin
timer5.Interval:=strtoint(edit4.text)
end;
procedure TForm2.BitBtn12Click(Sender: TObject);
var
a1:integer;
begin
if listbox1.Count<10 then
begin
a1:=integer(IDID);
if a1<0 then listbox1.Items.Add(inttostr(a1));
end;
end;
procedure TForm2.BitBtn13Click(Sender: TObject);
begin
listbox1.DeleteSelected;
end;
procedure TForm2.BitBtn6Click(Sender: TObject);
var a1:string;
begin
if listbox2.Count<10 then
begin
a1:=trim(Edit17.Text);
Edit17.Text:='';
if a1>'' then listbox2.Items.Add(a1);
end;
end;
procedure TForm2.BitBtn7Click(Sender: TObject);
begin
listbox2.DeleteSelected;
end;
procedure TForm2.BitBtn14Click(Sender: TObject);
begin
bitbtn15.Enabled:=true;
bitbtn14.Enabled:=false;
end;
procedure TForm2.BitBtn15Click(Sender: TObject);
begin
timer2.Enabled:=false;
bitbtn15.Enabled:=false;
bitbtn14.Enabled:=true;
end;
procedure TForm2.TmrXunGuaiTimer(Sender: TObject);
begin
If (IDID=0) Then
begin
Label16.Caption:= '选怪中。。';
label16.Color:=RGB(230,0,0);
myhwnd:=findwindow(nil,'Element Client');
if myhwnd<>0 then
begin
if TabKeyFunc(myhwnd) then
TmrGJ.Enabled:= False;
sleep(100);
If (IDID <> 0) Then
TmrXunGuai.Enabled := False;
TmrGJ.Enabled:= True;
sleep(100);
end;
end;
end;
procedure TForm2.TmrGJTimer(Sender: TObject);
begin
Label16.Caption:= '选怪【OK】';
label16.Color:=RGB(0,168,0);
myhwnd:=findwindow(nil,'Element Client');
if myhwnd<>0 then
begin
if NormalAttackFunc(myhwnd) then
myhwnd:=findwindow(nil,'Element Client');
if myhwnd<>0 then
begin
SendKeyFunc(myhwnd,GetKeys(ComboBox2.Text));
SendKeyFunc(myhwnd,GetKeys(ComboBox3.Text));
SendKeyFunc(myhwnd,GetKeys(ComboBox4.Text));
SendKeyFunc(myhwnd,GetKeys(ComboBox5.Text));
end;
end;
end;
procedure TForm2.BitBtn17Click(Sender: TObject);
begin
form1.oo1.Enabled:=true;
form1.N2.Enabled:=true;
form1.N3.Enabled:=true;
procedure TForm2.Timer3Timer(Sender: TObject);
begin
myhwnd:=findwindow(nil,'Element Client');
if myhwnd<>0 then
begin
SendKeyFunc(myhwnd,GetKeys(ComboBox1.Text));
end;
end;
procedure TForm2.Timer4Timer(Sender: TObject);
begin
myhwnd:=findwindow(nil,'Element Client');
if myhwnd<>0 then
begin
SendKeyFunc(myhwnd,GetKeys(ComboBox6.Text));
end;
end;
procedure TForm2.Edit3Change(Sender: TObject);
begin
timer4.Interval:=strtoint(edit3.text)
end;
procedure TForm2.Timer5Timer(Sender: TObject);
begin
begin
myhwnd:=findwindow(nil,'Element Client');
if myhwnd<>0 then
begin
SendKeyFunc(myhwnd,GetKeys(ComboBox7.Text));
end;
end;
end;
function TabKeyFunc(lpHwnd:HWND):bool;stdcall;external 'SOOK.dll' name 'TabKeyFunc';
function NormalAttackFunc(lpHwnd:HWND):bool;stdcall;external 'SOOK.dll' name 'NormalAttackFunc';
function ZazenFunc(lpHwnd:HWND):bool;stdcall;external 'SOOK.dll' name 'ZazenFunc';
function UnZazenFunc(lpHwnd:HWND):bool;stdcall;external 'SOOK.dll' name 'UnZazenFunc';
function SendKeyFunc(lpHwnd:HWND;Key:Integer):bool;stdcall;external 'SOOK.dll' name 'SendKeyFunc';
implementation
uses Unit1;
{$R *.dfm}
procedure TForm2.wmnchittest(var msg:twmnchittest);
begin
inherited;
if (htclient=msg.result) then msg.result:=htcaption;
end;
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Form1.Close;
Form2.Close;
SetWindowText(MyHwnd, 'Element Client');
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
If (MP < strtoint(edit2.text))then
begin
Timer2.Enabled:=True;
end
else
Timer2.Enabled:=False;
If (HP < strtoint(edit1.text))then
begin
Timer3.Enabled:=True;
end
else
Timer3.Enabled:=False;
end;
procedure TForm2.Edit4Change(Sender: TObject);
begin
timer5.Interval:=strtoint(edit4.text)
end;
procedure TForm2.BitBtn12Click(Sender: TObject);
var
a1:integer;
begin
if listbox1.Count<10 then
begin
a1:=integer(IDID);
if a1<0 then listbox1.Items.Add(inttostr(a1));
end;
end;
procedure TForm2.BitBtn13Click(Sender: TObject);
begin
listbox1.DeleteSelected;
end;
procedure TForm2.BitBtn6Click(Sender: TObject);
var a1:string;
begin
if listbox2.Count<10 then
begin
a1:=trim(Edit17.Text);
Edit17.Text:='';
if a1>'' then listbox2.Items.Add(a1);
end;
end;
procedure TForm2.BitBtn7Click(Sender: TObject);
begin
listbox2.DeleteSelected;
end;
procedure TForm2.BitBtn14Click(Sender: TObject);
begin
bitbtn15.Enabled:=true;
bitbtn14.Enabled:=false;
end;
procedure TForm2.BitBtn15Click(Sender: TObject);
begin
timer2.Enabled:=false;
bitbtn15.Enabled:=false;
bitbtn14.Enabled:=true;
end;
procedure TForm2.TmrXunGuaiTimer(Sender: TObject);
begin
If (IDID=0) Then
begin
Label16.Caption:= '选怪中。。';
label16.Color:=RGB(230,0,0);
myhwnd:=findwindow(nil,'Element Client');
if myhwnd<>0 then
begin
if TabKeyFunc(myhwnd) then
TmrGJ.Enabled:= False;
sleep(100);
If (IDID <> 0) Then
TmrXunGuai.Enabled := False;
TmrGJ.Enabled:= True;
sleep(100);
end;
end;
end;
procedure TForm2.TmrGJTimer(Sender: TObject);
begin
Label16.Caption:= '选怪【OK】';
label16.Color:=RGB(0,168,0);
myhwnd:=findwindow(nil,'Element Client');
if myhwnd<>0 then
begin
if NormalAttackFunc(myhwnd) then
myhwnd:=findwindow(nil,'Element Client');
if myhwnd<>0 then
begin
SendKeyFunc(myhwnd,GetKeys(ComboBox2.Text));
SendKeyFunc(myhwnd,GetKeys(ComboBox3.Text));
SendKeyFunc(myhwnd,GetKeys(ComboBox4.Text));
SendKeyFunc(myhwnd,GetKeys(ComboBox5.Text));
end;
end;
end;
procedure TForm2.BitBtn17Click(Sender: TObject);
begin
form1.oo1.Enabled:=true;
form1.N2.Enabled:=true;
form1.N3.Enabled:=true;
procedure TForm2.Timer3Timer(Sender: TObject);
begin
myhwnd:=findwindow(nil,'Element Client');
if myhwnd<>0 then
begin
SendKeyFunc(myhwnd,GetKeys(ComboBox1.Text));
end;
end;
procedure TForm2.Timer4Timer(Sender: TObject);
begin
myhwnd:=findwindow(nil,'Element Client');
if myhwnd<>0 then
begin
SendKeyFunc(myhwnd,GetKeys(ComboBox6.Text));
end;
end;
procedure TForm2.Edit3Change(Sender: TObject);
begin
timer4.Interval:=strtoint(edit3.text)
end;
procedure TForm2.Timer5Timer(Sender: TObject);
begin
begin
myhwnd:=findwindow(nil,'Element Client');
if myhwnd<>0 then
begin
SendKeyFunc(myhwnd,GetKeys(ComboBox7.Text));
end;
end;
end;