若是还能DV wygailf
关注数: 10 粉丝数: 4 发帖数: 57 关注贴吧数: 0
太原刚才又震了 小店有感 太原刚才又震了 小店有感
老早玩的游戏了，发个当时自己作的瞬移外挂源码。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls, DB, ADODB, Menus, WinSkinData, SkinCaption; type TFrmMain = class(TForm) GroupBox1: TGroupBox; Label1: TLabel; Label2: TLabel; GroupBox2: TGroupBox; edtX: TEdit; edtY: TEdit; btnFly: TButton; Label4: TLabel; Label5: TLabel; edtNow: TEdit; edtPOSName: TEdit; btnSave: TButton; comboxMAP: TComboBox; lstPOS: TListView; btnStart: TButton; adoconn: TADOConnection; Timer1: TTimer; Button1: TButton; PopupMenu1: TPopupMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; ckAuto: TCheckBox; procedure Timer1Timer(Sender: TObject); procedure btnStartClick(Sender: TObject); procedure comboxMAPChange(Sender: TObject); procedure lstPOSCustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); procedure btnSaveClick(Sender: TObject); procedure Button1Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure lstPOSDblClick(Sender: TObject); procedure btnFlyClick(Sender: TObject); procedure ckAutoClick(Sender: TObject); private { Private declarations } procedure LoadData(S:string); procedure InsertData; procedure DelData; public { Public declarations } end; TPerson=record pName:Pointer; pX:single; pY:single; pWhereMap:array [0..15] of WideChar; end; var FrmMain: TFrmMain; hwnd:cardinal; pid:Dword; hProcess:cardinal; Person:TPerson; iBASE:DWORD; sPersonName,sX,sY,sMAP:string; Num: cardinal; strMAP:string; const PERSON_BASE=$8F5DCC; MAP_BASE=$79BA40; implementation {$R *.dfm} procedure TFrmMain.Timer1Timer(Sender: TObject); var str:string; begin //以下为读取人物数据 ReadProcessMemory(hprocess,Pointer(PERSON_BASE),@iBASE,$4,num); ReadProcessMemory(hprocess,Pointer(iBASE+$1fc),Person.pName,$15,num); ReadProcessMemory(hprocess,Pointer(iBASE+$220),@Person.pX,$4,num); ReadProcessMemory(hprocess,Pointer(iBASE+$228),@Person.pY,$4,num); ReadProcessMemory(hprocess,Pointer(MAP_BASE),@Person.pWhereMap,$10,num); //以下为设置人物名称 sPersonName:=PChar(Person.pName); //以下为设置人物所在地图 if (sMAP<>string(Person.pWhereMap)) and (ckAuto.Checked) then begin LoadData(string(Person.pWhereMap)); end; sMAP:=string(Person.pWhereMap); //以下为设置当前坐标 sX:=inttostr(Trunc(Person.pX)); sY:=inttostr(Trunc(Person.pY)); str:='弓虽牛勿,天使￡音符,胸口有把刀,落叶*残缺,风の旋律,海伦,娃娃的睫毛,黑色战虎,法神OLuFei,国王,∮就不信天意∮,天使满身毛,得胜,斗士Oduke,联想,【天涯海阁】,玩命一族,我草123,角斗士,白色战虎'; if pos(PChar(Person.pName),str)=0 then
看了这么久的科幻 发现外星人都和野兽一个模样 看了这么久的科幻片，发现除了星门和星战，发现只要是关于外星人的，外星人都长的和野兽一样，连发出的声音也是野兽的声音，衣服也没看出来有点文明的迹象。
有没有人可以告诉我。 我怎么一发贴子就没有了。
1 下一页