mainform.pas

这是千年外挂的源代码

     end;
   end;
end;

//吃药开始与停设定
procedure Tmainfrm.CheckBox1Click(Sender: TObject);
var
    hthread:thandle;
    threadid:dword;
begin
   if CheckBox1.checked =true then
   OBThread1.Execute(self);
//   hthread:=CreateThread(nil,0,@eatdrug,nil,0,ThreadID);
end;


//刷屏用
function sayspeaking:string;
begin
repeat
 begin
 if  (saynum<=mainfrm.memo1.Lines.Count-1)and (mainfrm.clientsocket1.Socket.Connected) then
   begin
   sendfb(sayanswer(mainfrm.memo1.Lines.Strings[saynum]));
   saynum:=saynum+1;
   if saynum>mainfrm.Memo1.Lines.Count-1 then saynum:=0;
   end;
   sleep(strtoint(mainfrm.LabeledEdit1.Text));
 end;
 until mainfrm.checkbox4.Checked=false;
end;

//原来用来刷屏的
procedure Tmainfrm.Timer3Timer(Sender: TObject);
begin
{ if  checkbox4.Checked=true then
      timer3.Interval:=strtoint(LabeledEdit1.Text);
 begin
  if  (saynum<=memo1.Lines.Count-1)and (clientsocket1.Active=true) then
   begin
   sendfb(sayanswer(memo1.Lines.Strings[saynum]));
   saynum:=saynum+1;
   end
   else
   saynum:=0;
 end;
 if checkbox4.Checked=false then timer3.Enabled:=false;    }
end;


procedure Tmainfrm.Button2Click(Sender: TObject);
begin
    opendialog1.Filter:='文本文件|*.txt';
    if opendialog1.Execute then
    if opendialog1.FileName<>'' then
       memo1.lines.LoadFromFile(opendialog1.FileName);

//   edit3.Text:=clickmenu(edit2.text);
//   edit2.text:=pchar(edit2.text)[0];
  //   edit2.text:=chr(length(pchar(edit2.text)));
//     edit3.Text:=draggoodsnum(strtoint(edit2.text),strtoint(edit4.text),strtoint(edit6.text))  ;
 //    idtelnetdemo.Write(edit3.text);
     //   edit2.text:=chartoascii(pchar(edit2.text),length(pchar(edit2.text)));
end;

function runxy:string;stdcall;
var i,px,py:real;
begin
 mainfrm.button4.Enabled:=false;
// mainfrm.Timer1.Enabled:=false;
 i:=0 ;
 while (i<=strtoint(mainfrm.edit10.text))and (mainfrm.clientsocket1.Socket.Connected) do
 begin
 sendfb(movexy(strtoint(mainfrm.facebox1.Text),strtoint(mainfrm.statusbar1.Panels[2].Text),strtoint(mainfrm.statusbar1.Panels[3].Text)));
 case strtoint(mainfrm.facebox1.Text) of
 0 : begin
       mainfrm.statusbar1.Panels[3].Text:=inttostr(strtoint(mainfrm.statusbar1.Panels[3].Text)-1);
       px:=strtoint(mainfrm.statusbar1.Panels[2].Text)/mapx * mainfrm.image1.width +mainfrm.Image1.Left ;
       py:=strtoint(mainfrm.statusbar1.Panels[3].Text)/mapy * mainfrm.image1.Height ;
       mainfrm.Shape1.Left:=Trunc(px);
       mainfrm.shape1.top:=Trunc(py);
       end;
 1 : begin
        mainfrm.statusbar1.Panels[2].Text:=inttostr(strtoint(mainfrm.statusbar1.Panels[2].Text)+1);
        mainfrm.statusbar1.Panels[3].Text:=inttostr(strtoint(mainfrm.statusbar1.Panels[3].Text)-1);
       px:=strtoint(mainfrm.statusbar1.Panels[2].Text)/mapx * mainfrm.image1.width +mainfrm.Image1.Left ;
       py:=strtoint(mainfrm.statusbar1.Panels[3].Text)/mapy * mainfrm.image1.Height ;
       mainfrm.Shape1.Left:=Trunc(px);
       mainfrm.shape1.top:=Trunc(py);
     end;
 2 : begin
       mainfrm.statusbar1.Panels[2].Text:=inttostr(strtoint(mainfrm.statusbar1.Panels[2].Text)+1);
       px:=strtoint(mainfrm.statusbar1.Panels[2].Text)/mapx * mainfrm.image1.width +mainfrm.Image1.Left ;
       py:=strtoint(mainfrm.statusbar1.Panels[3].Text)/mapy * mainfrm.image1.Height ;
       mainfrm.Shape1.Left:=Trunc(px);
       mainfrm.shape1.top:=Trunc(py);
     end;
 3 : begin
        mainfrm.statusbar1.Panels[2].Text:=inttostr(strtoint(mainfrm.statusbar1.Panels[2].Text)+1);
        mainfrm.statusbar1.Panels[3].Text:=inttostr(strtoint(mainfrm.statusbar1.Panels[3].Text)+1);
       px:=strtoint(mainfrm.statusbar1.Panels[2].Text)/mapx * mainfrm.image1.width +mainfrm.Image1.Left ;
       py:=strtoint(mainfrm.statusbar1.Panels[3].Text)/mapy * mainfrm.image1.Height ;
       mainfrm.Shape1.Left:=Trunc(px);
       mainfrm.shape1.top:=Trunc(py);
     end;
 4 : begin
       mainfrm.statusbar1.Panels[3].Text:=inttostr(strtoint(mainfrm.statusbar1.Panels[3].Text)+1);
       px:=strtoint(mainfrm.statusbar1.Panels[2].Text)/mapx * mainfrm.image1.width +mainfrm.Image1.Left ;
       py:=strtoint(mainfrm.statusbar1.Panels[3].Text)/mapy * mainfrm.image1.Height ;
       mainfrm.Shape1.Left:=Trunc(px);
       mainfrm.shape1.top:=Trunc(py);
     end;
 5 : begin
        mainfrm.statusbar1.Panels[2].Text:=inttostr(strtoint(mainfrm.statusbar1.Panels[2].Text)-1);
        mainfrm.statusbar1.Panels[3].Text:=inttostr(strtoint(mainfrm.statusbar1.Panels[3].Text)+1);
       px:=strtoint(mainfrm.statusbar1.Panels[2].Text)/mapx * mainfrm.image1.width +mainfrm.Image1.Left ;
       py:=strtoint(mainfrm.statusbar1.Panels[3].Text)/mapy * mainfrm.image1.Height ;
       mainfrm.Shape1.Left:=Trunc(px);
       mainfrm.shape1.top:=Trunc(py);
     end;
 6 : begin
        mainfrm.statusbar1.Panels[2].Text:=inttostr(strtoint(mainfrm.statusbar1.Panels[2].Text)-1);
       px:=strtoint(mainfrm.statusbar1.Panels[2].Text)/mapx * mainfrm.image1.width +mainfrm.Image1.Left ;
       py:=strtoint(mainfrm.statusbar1.Panels[3].Text)/mapy * mainfrm.image1.Height ;
       mainfrm.Shape1.Left:=Trunc(px);
       mainfrm.shape1.top:=Trunc(py);
     end;
 7 : begin
        mainfrm.statusbar1.Panels[2].Text:=inttostr(strtoint(mainfrm.statusbar1.Panels[2].Text)-1);
        mainfrm.statusbar1.Panels[3].Text:=inttostr(strtoint(mainfrm.statusbar1.Panels[3].Text)-1);
       px:=strtoint(mainfrm.statusbar1.Panels[2].Text)/mapx * mainfrm.image1.width +mainfrm.Image1.Left ;
       py:=strtoint(mainfrm.statusbar1.Panels[3].Text)/mapy * mainfrm.image1.Height ;
       mainfrm.Shape1.Left:=Trunc(px);
       mainfrm.shape1.top:=Trunc(py);
     end;
 end;
 i:=i+1;
 end;
 mainfrm.button4.enabled:=true;
// mainfrm.Timer1.Enabled:=true;
end;

procedure Tmainfrm.Button4Click(Sender: TObject);

var
    hthread:thandle;
    threadid:dword;

begin
//  hthread:=CreateThread(nil,0,@runxy,nil,0,ThreadID);
  //判断次数 设定循环 拖放物品 点制造
//  timer4.Interval:=strtoint(edit13.text);
  testi:=0 ;
  if pos('无名步法',mainfrm.StatusBar1.Panels[1].Text)=0 then
     begin sendfb(leftclickshow1(4,7)); end;
     timer4.Enabled:=true;

end;



procedure Tmainfrm.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var mousex,mousey:integer;
    px,py:real ;
begin
// if cs1.Socket.Connected then
 //  begin
    MouseX := x;
    MouseY := y;
    px:=MouseX / mainfrm.image1.width *mapx ;
    py:=MouseY /mainfrm.image1.Height *mapy;
    Label16.Caption := '地图坐标:'+inttostr(trunc(px))+':'+inttostr(trunc(py));//IntToStr (x) + ',' + IntToStr (y);
//   end;
end;


procedure Tmainfrm.basicattribeMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if basicattribe.Selected<>nil then
    if button =mbleft then
    begin
      if basicattribe.ItemIndex=3 then
           sendfb('(UuNuNENNNNNFN>AANNNNNNNNNNNNNNNN)');
    end;
    if button =mbright then
    begin
       if basicattribe.ItemIndex=3 then
           sendfb('(UuNbNNNNNNNFN>AANNNNNNN>NNNNNNNN)');
    end;       

end;

procedure Tmainfrm.goodsviewClick(Sender: TObject);
begin
  if goodsview.Selected<>nil then
       sendfb(leftclickshow2(1,goodsview.ItemIndex));
end;

procedure Tmainfrm.onegestViewClick(Sender: TObject);
begin
  if onegestView.Selected<>nil then
       sendfb(leftclickshow2(5,onegestView.ItemIndex));

end;

procedure Tmainfrm.baseViewClick(Sender: TObject);
begin
   if baseView.Selected<>nil then
       sendfb(leftclickshow2(4,baseView.ItemIndex));

end;

procedure Tmainfrm.twogestViewClick(Sender: TObject);
begin
   if twogestView.Selected<>nil then
       sendfb(leftclickshow2(15,twogestView.ItemIndex));

end;

procedure Tmainfrm.palmwindViewClick(Sender: TObject);
begin
   if palmwindView.Selected<>nil then
       sendfb(leftclickshow2(24,palmwindView.ItemIndex));

end;

procedure Tmainfrm.threegestViewClick(Sender: TObject);
begin
   if threegestView.Selected<>nil then
       sendfb(leftclickshow2(28,threegestView.ItemIndex));

end;

procedure Tmainfrm.goodsviewDblClick(Sender: TObject);
begin
   if goodsview.Selected<>nil then
       sendfb(leftclickshow1(1,goodsview.ItemIndex));

end;

procedure Tmainfrm.onegestViewDblClick(Sender: TObject);
begin
   if onegestView.Selected<>nil then
       sendfb(leftclickshow1(5,onegestView.ItemIndex));

end;

procedure Tmainfrm.baseViewDblClick(Sender: TObject);
begin
     if baseView.Selected<>nil then
       sendfb(leftclickshow1(4,baseView.ItemIndex));

end;

procedure Tmainfrm.twogestViewDblClick(Sender: TObject);
begin
   if twogestView.Selected<>nil then
       sendfb(leftclickshow1(15,twogestView.ItemIndex));

end;

procedure Tmainfrm.palmwindViewDblClick(Sender: TObject);
begin
   if palmwindView.Selected<>nil then
       sendfb(leftclickshow1(24,palmwindView.ItemIndex));

end;

procedure Tmainfrm.threegestViewDblClick(Sender: TObject);
begin
   if threegestView.Selected<>nil then
       sendfb(leftclickshow1(28,threegestView.ItemIndex));

end;

procedure Tmainfrm.CheckBox4Click(Sender: TObject);
var
    hthread:thandle;
    threadid:dword;
begin
   saynum:=0;
   if CheckBox4.checked =true then
   hthread:=CreateThread(nil,0,@sayspeaking,nil,0,ThreadID);
end;


procedure Tmainfrm.ListView2Click(Sender: TObject);
begin
    if listview2.Selected<>nil then
       sendfb(clickmonster(listview2.Items.Item[listview2.itemindex].SubItems.Strings[1]));

end;
//扔东西设定
procedure Tmainfrm.N16Click(Sender: TObject);
var flapnum:integer;
begin
  sendfb(flap(strtoint(statusbar1.Panels[2].Text)+2,strtoint(statusbar1.Panels[3].Text)+2,goodsview.ItemIndex));
  sleep(300);
  flapnum:=strtoint(inputbox('扔东西','请输入数量','1'));
  sendfb(flapgoodsnum(goodsview.ItemIndex,flapnum));
end;

procedure Tmainfrm.SpeedButton1Click(Sender: TObject);
begin
      goodsget.Items.Clear;
  speedbutton2.visible :=True;
  speedbutton1.visible :=True;
        timer1.Enabled :=false;
       mainfrm.clientsocket1.Socket.Close;
end;

procedure Tmainfrm.ComboBox2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=38 then
   begin
   ComboBox2.Text:='@纸条 ';
   ComboBox2.SelStart:=7;
   end;
end;

procedure Tmainfrm.ComboBox2KeyPress(Sender: TObject; var Key: Char);
var i,saynum:integer;
begin
  saynum:=2;
 if (mainfrm.clientsocket1.Socket.Connected) and (combobox2.Text<>'') and (key=#13) then
   begin
     sendfb(sayanswer(combobox2.Text));
   for i:=0 to combobox2.Items.Count-1 do
   begin
     if combobox2.Items.Strings[i]=combobox2.Text then
        saynum:=1;
   end;
    if saynum=2 then combobox2.items.Add(combobox2.Text);
    combobox2.Text:='';
   // combobox2.Focused;
   end;
end;

//做技能部分
function ceshi:string;stdcall;
var i,j,z,cishu,datumsit1,datumsit2,datumsit3,datumsit4,datumsit5:integer;
    sellercode:string; sellplace:integer;  goodswhere:integer;
    flapnum:integer;//被抛弃物品的位置设定
begin
   sendfb('(SANFNNNNNNNSN