workthread.pas

网络游戏神迹脱机外挂PASCAL源码

unit WorkThread;
{---------无影开发小组敬告：-------------------}
{        外挂研究无罪，开放源码有理！           }
{ 希望以此献给各位想研究外挂的朋友一窥外挂之容 }
{    本代码只供研究之用，不得用于非法用途      }
interface
uses
  Classes,Windows,SysUtils,Dialogs,GameCode,Move,LoopAttack;
type
  TMyThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  public
  constructor Create(CreateSuspended: Boolean);
  end;
var
  WThread : TMyThread;
  TFlag   : Integer=0;

procedure SetTFlag(fvalue:Integer);

implementation
{ TMyThread }

procedure SetTFlag(fvalue:Integer);
begin
TFlag:=fvalue;
end;

constructor TMyThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
  Priority := tpLower	;
end;

procedure TMyThread.Execute;
begin
 //OutputDebugString('ThreadStart');
 while 1=1 do
  begin
  case TFlag of
    0:
     begin
     //Sleep(5000);
     //OutputDebugString('Thread working');
     end;
    1:
     begin
     OutputDebugString('WalkStart');
     TFlag:=MoveToPoint(TagPoint);
     end;
    2:
     begin
     OutputDebugString('AttackStart');
     TFlag:=LoopAtk;
     DBGOut('LoopAtk:TFlag:=%d',[TFlag]);
     end;
    3:
     begin
     OutputDebugString('PatrolStart!!!!!');
     TFlag:=PatrolMov;
     DBGOut('PatrolMov:TFlag:=%d',[TFlag]);
     end;
    end;
  end;
end;
end.