新手破解路之献给和我一样正在努力的菜鸟。你是最棒的
查看数: 10424 | 评论数: 71 |
提示：支持键盘翻页&-左 右-&
下载了 没看见附件&&楼主 你是想要怎样
交下作业然后求教：下
但是点击里面的试题还是提示我 需要注册！ 请问下 我哪里没有操作到位呢！
本帖最后由 sundai 于
16:33 编辑
交下作业顺便请教下！
提示是可以了。 但是使用的时候还是会跳到&&请注册这里，我在继续捣鼓，请看到的人 告知下！谢谢
看不懂啊，师兄
搜索UNICODE关键字出现“注册码不正确”句子的地方有三个
中文搜索引擎, 条目 591
地址=009D09CA
反汇编=mov dword ptr ss:[ebp-0x11C],photosho.
文本字符串=注册码不正确！
中文搜索引擎, 条目 775
地址=009EFAE3
反汇编=mov dword ptr ss:[ebp-0x110],photosho.
文本字符串=注册码不正确！
中文搜索引擎, 条目 781
地址=009F09F1
反汇编=mov dword ptr ss:[ebp-0xC4],photosho.
文本字符串=注册码不正确，请仔细检查后重新输入！
为什么只用nop&&009F09F1和009D09CA两个呢？
学习是必要的。
到处要CB啊
教程也发个出来让我们新手看看看
不错 不错 支持了哈 谢谢分享
破解过程应该分享一下啊。
免责声明：吾爱破解论坛所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的；不得将上述内容用于商业或者非法用途，否则，一切后果请用户自负。本站信息来自网络，版权争议与本站无关。您必须在下载后的24个小时之内，从您的电脑中彻底删除上述内容。如果您喜欢该程序，请支持正版软件，购买注册，得到更好的正版服务。
( 沪ICP备号 )
Powered by Discuz! X3.2
Comsenz Inc.取自广海，还以广海，完美仙魔无界辅助工具delphi全源码(高手略过，献给和我一样的新手们)|::::广海游戏:::: - ★广海社区★ -
授人以鱼不如授人以渔 - Powered by phpwind
查看完整版本: [--
取自广海，还以广海，完美仙魔无界辅助工具delphi全源码(高手略过，献给和我一样的新手们)
目前为止，开发出功能：&1、读取人物信息&2、自动加血加蓝（含MM用技能加血）&3、自动打怪（支持距离，支持怪物名）&3、自动技能（含物理攻击）&4、死亡回城&5、妖精宠物加血加忠诚&6、显示背包物品&7、配置自动记录&基址今天还能用，经测试本人已用本工具辅助升至48级，嘿嘿&注明：本人系生手，编码可能有些混乱，但大都均有注解，本人英文水平很差，很多变量是拼音加英文，大家将就点&&&&以下系源码：&模块&//////////////////////////////源码开始///////////////////////////&&&&interface&&uses&&&Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,&&&Dialogs, ExtCtrls, StdCtrls, CheckLst, ComCtrls, MPlayer,MMSYSTEM, Grids,&&&DBGrids, math, StrUtils,unitjy,IniF&&type&&&TForm1 = class(TForm)&&&&&Timer1: TT&&&&&Timer5: TT&&&&&PageControl1: TPageC&&&&&TabSheet1: TTabS&&&&&GroupBox1: TGroupB&&&&&Label9: TL&&&&&Label11: TL&&&&&Label13: TL&&&&&Label10: TL&&&&&Edit1: TE&&&&&ComboBox1: TComboB&&&&&Edit2: TE&&&&&ComboBox2: TComboB&&&&&CheckBox1: TCheckB&&&&&GroupBox2: TGroupB&&&&&Label12: TL&&&&&Label14: TL&&&&&CheckBox2: TCheckB&&&&&Edit3: TE&&&&&ComboBox3: TComboB&&&&&GroupBox3: TGroupB&&&&&GroupBox4: TGroupB&&&&&TabSheet2: TTabS&&&&&GroupBox6: TGroupB&&&&&StringGrid1: TStringG&&&&&GroupBox7: TGroupB&&&&&Label8: TL&&&&&CheckBox3: TCheckB&&&&&Edit4: TE&&&&&TabSheet3: TTabS&&&&&GroupBox5: TGroupB&&&&&TabSheet4: TTabS&&&&&GroupBox8: TGroupB&&&&&GroupBox9: TGroupB&&&&&Label15: TL&&&&&Label16: TL&&&&&Label17: TL&&&&&Label18: TL&&&&&Label19: TL&&&&&ComboBox4: TComboB&&&&&CheckBox4: TCheckB&&&&&Edit5: TE&&&&&Edit6: TE&&&&&ComboBox5: TComboB&&&&&StringGrid2: TStringG&&&&&StringGrid3: TStringG&&&&&StringGrid4: TStringG&&&&&StringGrid5: TStringG&&&&&Label1: TL&&&&&Edit7: TE&&&&&Label2: TL&&&&&Label3: TL&&&&&ComboBox6: TComboB&&&&&Label4: TL&&&&&ComboBox7: TComboB&&&&&CheckBox5: TCheckB&&&&&CheckBox6: TCheckB&&&&&CheckBox7: TCheckB&&&&&CheckBox8: TCheckB&&&&&TabSheet5: TTabS&&&&&StringGrid6: TStringG&&&&&GroupBox10: TGroupB&&&&&Edit8: TE&&&&&Label5: TL&&&&&Label6: TL&&&&&Edit9: TE&&&&&Button3: TB&&&&&CheckBox9: TCheckB&&&&&Button1: TB&&&&&Button2: TB&&&&&Label7: TL&&&&&Edit10: TE&&&&&Label20: TL&&&&&ComboBox8: TComboB&&&&&Label21: TL&&&&&CheckBox10: TCheckB&&&&&procedure Timer1Timer(Sender: TObject);&&&&&procedure Timer5Timer(Sender: TObject);&&&&&procedure FormActivate(Sender: TObject);&&&&&procedure Button3Click(Sender: TObject);&&&&&procedure Button1Click(Sender: TObject);&&&&&procedure Button2Click(Sender: TObject);&&&&private&&&&&{ Private declarations }&&&public&&&&&{ Public declarations }&&&&const&w2i_base:dword=$9D5A0C;&var&&&Form1: TForm1;&&&hw:&&&pid:&&&h:&&&tt: C&&&myinifile:T&&&selfname2,gwname2,jnname,itemNname,dmitem_name2,cw_name:array[0..32]&&&i,i1,i2,i3,i4,i5,i6,i7,i8,i9,ii1,a:&&&zb_x,zb_y,zb_z,dtjdz,jdz,jdz1,nhp,nhpmax,zy,jy,jymax,itemNtmpname,nmp,nmpmax,lev,itemNnummax,selfname1,nmoney,itemNid,bagbase,itemNtype,bagaddress,bagNadd,bagcap,itemNnum:&&&mubiao1,gwbase,gwsz,gwmax,gwfirst,gwszid,gwzz,gwzl,gwname1,gwname,gwid:&&&gwhpmax,gwhp,gwjl,jlnum,jnfirst,yxjnnum,jnid,hptime,mptime,cwsptime:&&&hpxp,hpzp,hpdp,hpjz,hpwm,hpxphx,hpzphx,hpdphx,mpxp,mpzp,mpdp,mpjz,mpwm,mpxphl,mpzphl,mpdphl,ask:&&&dmitem_base,dmitem_base2,dmitem_count,dmitem_maxcount,dmitem_firstadd,dmitem_jl,dmitem_add,dmitem_sysid,dmitem_id,dmitem_num,dmitem_name1:&&&cw_base,cw_base2,cw_sn,cw_gz,cw_hp,cw_lv,cw_zcd,cw_name1:&&&qq,hsy,zmy,qqs:&&&keyinput,keypass2:&&&zb_x3,zb_y3,zb_z3,dmitem_zbx,dmitem_zby,dmitem_zbz:&implementation&&{$R *.dfm}&type&&&&&&&&&&&&&&&&&&&&////////数据记录，带参数CALL传定义参数/////& Tuseitemto=packed record& itemid,itemadd,gwid,jnid_rec,dmitem_id1,dmitem_sysid,cwadd:&&useitemto=^T&&type userarray=&&///////split函数所用数组类型//////&&&&///////////////////////排序过程///////////////////////////&procedure Quicksort(Grid:TStringG var List:&&&&&min, max,sortcol,datatype: Integer);&&var&&&med_value :&&&hi, lo, i : I&&&&function compare(val1,val2:string):&&&var&&&&&int1,int2:&&&&&float1,float2:&&&&&errcode:&&&begin&&&&&case datatype of&&&&&&&0: result:=ANSIComparetext(val1,val2);&&&&&&&1: begin&&&&&&&&&&& int1:=strtointdef(val1,0);&&&&&&&&&&& int2:=strtointdef(val2,0);&&&&&&&&&&& if int1&int2 then result:=1&&&&&&&&&&& else if int1&int2 then result:=-1&&&&&&&&&&& else result:=0;&&&&&&&&&&&&&&&&&2: begin&&&&&&&&&&& val(val1,float1,errcode);&&&&&&&&&&& if errcode&&0 then float1:=0;&&&&&&&&&&& val(val2,float2,errcode);&&&&&&&&&&& if errcode&&0 then float2:=0;&&&&&&&&&&& if float1&float2 then result:=1&&&&&&&&&&& else if float1&float2 then result:=-1&&&&&&&&&&& else result:=0;&&&&&&&&&&&&&&&& else result:=0;&&&&&&&&begin&&&&if (min &= max) then E&&&&i := min + Trunc(Random(max - min + 1));&&&med_value := List;&&&List := List[min];&&&lo :=&&&hi :=&&&while (True) do&&&begin&&&&&&while compare(Grid.cells[sortcol,List[hi]]&&&&&&&&&&&&&&&&&&&&&&&&& ,grid.cells[sortcol,med_value])&=0 do&&&&&&begin&&&&&&&&&hi := hi - 1;&&&&&&&&&if (hi &= lo) then B&&&&&&&&&&if (hi &= lo) then&&&&&begin&&&&&&&List[lo] := med_&&&&&&&B&&&&&&&&&&&List[lo] := List[hi];&&&&&inc(lo);&&&&&while Compare(grid.cells[sortcol,List[lo]],&&&&&&&&&&&&& grid.cells[sortcol,med_value])&0 do&&&&&begin&&&&&&&&&inc(lo);&&&&&&&&&if (lo &= hi)&&&&&&&&&&if (lo &= hi) then&&&&&begin&&&&&&&lo :=&&&&&&&List[hi] := med_&&&&&&&&&&&&&&&&&List[hi] := List[lo];&&&&&&&Quicksort(Grid,List, min, lo - 1,sortcol,datatype);&&&Quicksort(Grid,List, lo + 1, max,sortcol,datatype);&&&&procedure Sortgrid(Grid : TStringG sortcol,datatype:integer);&{& datatype 0：按字符排序&&1：按整型排序&&2：按浮点型排序&}&var&&& i :&&& tempgrid:tstringG&&& list:&begin&&&screen.cursor:=&&&tempgrid:=TStringgrid.create(nil);&&&with tempgrid do&&&begin&&&&&rowcount:=grid.&&&&&colcount:=grid.&&&&&fixedrows:=grid.&&&&&&with Grid do&&&begin&&&&&setlength(list,rowcount-fixedrows);&&&&&for i:= fixedrows to rowcount-1 do&&&&&begin&&&&&&&list[i-fixedrows]:=i;&&&&&&&tempgrid.rows.assign(grid.rows);&&&&&&&&&&quicksort(Grid, list,0,rowcount-fixedrows-1,sortcol,datatype);&&&&&for i:=0 to rowcount-fixedrows-1 do&&&&&begin&&&&&&&rows[i+fixedrows].assign(tempgrid.rows[list])&&&&&&&&&&row:=&&&&&&tempgrid.&&&setlength(list,0);&&&screen.cursor:=&&///////////////////////排序过程结束///////////////////////////&&function split(s:dot:char):&&////split函数///////&var&str:&i,j:&begin&&&i:=1;&&&j:=0;&&&SetLength(str, 255);&&&while Pos(dot, s) & 0 do&&& begin&&&&&str[j]:=copy(s,i,pos(dot,s)-i);&&&&&i:=pos(dot,s)+1;&&&&&s[i-1] := chr(ord(dot)+1);&&&&&j:=j+1;&&&&&& str[j]:=copy(s,i,strlen(pchar(s))-i+1);&&& result:=&&&function arrsort(var a: array of dword):&var&i,i1,i2,j,t,tmp:&a1:&b:&begin&setlength(a1,high(a));&for i1 := 0 to high(a1) do& begin&&&a1[i1]:=a[i1];&&for i := 0 to high(a1) do& begin&&&for j := high(a1) downto i+1 do&&& begin&&&&&if a1 & a1[j] then&&&&& begin&&&&&&&t := a1;&&&&&&&a1 := a1[j];&&&&&&&a1[j] :=&&&&&&&&&&&&for i2:=0 to high(a1) do&begin&b:=b + inttostr(a1[i2]) + ',' ;&&result:=b;&&&procedure jncall(jnid:useitemto); ///////技能CALL,参数(jnid.jnid_rec)技能ID:Dword//////////&var&address:&jnid_call:&begin&address:=pointer($45DE40);&jnid_call:=jnid.jnid_&asm&pushad&push -1&push 0&push 0&mov ecx,[$9D5A0C]&mov ecx,[ecx+$1c]&mov ecx,[ecx+$20]&mov edx,jnid_call&push edx&call address&popad&&&&procedure hcwcall(cwadd:useitemto); ///////唤宠物CALL,参数(jnid.cwadd)宠物在背包中的位置:Dword//////////&var&address:&cwadd_call:&begin&address:=pointer($601610);&cwadd_call:=cwadd.&asm&pushad&mov esi,cwadd_call&push esi&call address&add esp,4&mov al,1&popad&&&&&procedure pgcall(); /////////////普通攻击CALL///////&var&address:&begin&address:=pointer($5FF940);&asm&pushad&call address&popad&&&&procedure backcall(); /////////////死亡回城CALL///////&var&address:&begin&address:=pointer($5FFE00);&asm&pushad&call address&popad&&&&procedure useitem(useitem_call:useitemto); ///////用物CALL，参数useitem_call.itemid物品ID:dword，useitem_call.itemadd:dword物品在背包中的第几格，从0开始////////&var&address:&useitemid,useitemadd:&begin&address:=pointer($5D8DD0);&useitemid:=useitem_call.&useitemadd:=useitem_call.&asm&pushad&mov edx,useitemid&mov eax,useitemadd&mov ecx,[$9D5A0C]&mov ecx,[ecx+$20]&push $1&push edx&push eax&push $0&add ecx,$0ec&call address&popad&& &&procedure xgcall(gwid:useitemto); //////////选怪CALL，参数gwid.gwid怪物ID:dword/////////&var&address:&gwid_call:&begin&address:=pointer($5d9020);&gwid_call:=gwid.&asm&pushad&mov edi,gwid_call&mov eax,[$9D5A0C]&push edi&mov ecx,[eax+$20]&add ecx,$0ec&call address&popad&&&&procedure dmitemcall(dmitem_id:useitemto); /////捡物CALL,参数dmitem_id.dmitemid1地面物品ID:dword,dmitem_id.dmitem_sysid地面物品系统ID:dword///////&var&address:&dmitem_id_call,dmitem_sysid_call:&begin&address:=pointer($5D8FB0);&dmitem_id_call:=dmitem_id.dmitem_id1;&dmitem_sysid_call:=dmitem_id.dmitem_&asm&pushad&mov eax,dmitem_id_call&mov ecx,dmitem_sysid_call&mov edx,[$9D5A0C]&push eax&push ecx&mov ecx,[edx+$20]&add ecx,$0ec&call address&popad&&&&&&function chazy(zyname:integer):&begin& if zyname=0 then&&&begin&&& result:='武侠';&&&end&&&else& if zyname=1 then&&&begin&&& result:='法师';&&&end&&&else&&&if zyname=2 then&&&begin&&& result:='巫师';&&&end&&&else&&&if zyname=3 then&&&begin&&& result:='妖精';&&&end&&&else&&&if zyname=4 then&&&begin&&& result:='妖兽';&&&end&&&else&&&if zyname=5 then&&&begin&&& result:='刺客';&&&end&&&else&&&if zyname=6 then&&&begin&&& result:='羽芒';&&&end&&&else&&&if zyname=7 then&&&begin&&& result:='羽灵';&&&end&&&else&&&begin&&&result:='未知';&&&&&&function hpnametoid(hpname:string): /////查药品ID函数,参数hpname药品名，string/////////&begin& if hpname='小瓶金创药' then&&&begin&&& result:=8617;&&&& if hpname='中瓶金创药' then&&&begin&&& result:=8618;&&&& if hpname='大瓶金创药' then&&&begin&&& result:=8619;&&&& if hpname='小瓶神气丸' then&&&begin&&& result:=8647;&&&& if hpname='中瓶神气丸' then&&&begin&&& result:=8648;&&&& if hpname='大瓶神气丸' then&&&begin&&& result:=8649;&&&&&&if hpname='青草' then&&&begin&&&result:=9757;&&&&&&if hpname='花生油' then&&&begin&&&result:=11580;&&&&&&if hpname='芝麻油' then&&&begin&&&result:=11581;&&&&&&if hpname='清泉水' then&&&begin&&&result:=12842;&&&&&&if hpname='精制金创药' then&&&begin&&&result:=8620;&&&&&&if hpname='完美金创药' then&&&begin&&&result:=8621;&&&&&&if hpname='小瓶活血散' then&&&begin&&&result:=8612;&&&&&&if hpname='中瓶活血散' then&&&begin&&&result:=8613;&&&&&&if hpname='大瓶活血散' then&&&begin&&&result:=8614;&&&&&&if hpname='精制神气丸' then&&&begin&&&result:=8650;&&&&&&if hpname='完美神气丸' then&&&begin&&&result:=8651;&&&&&&if hpname='小瓶还灵水' then&&&begin&&&result:=8642;&&&&&&if hpname='中瓶还灵水' then&&&begin&&&result:=8643;&&&&&&if hpname='大瓶还灵水' then&&&begin&&&result:=8644;&&&&&&&function chaywaddress(ywname:string):&&////查物品在背包中的格子数函数，格子数从0开始,参数ywname物品名:string//////////&begin& hw:=findwindow(nil,'完美世界国际版');& GetWindowThreadProcessId(hw, @pid);& h:=OpenProcess(PROCESS_ALL_ACCESS, false, pid);& ReadProcessMemory(h,pointer(w2i_base),@dtjdz,4,tt);& ReadProcessMemory(h,pointer(dtjdz+$1c),@jdz,4,tt);& ReadProcessMemory(h,pointer(jdz+$20),@jdz1,4,tt);& ReadProcessMemory(h,pointer(jdz1+$c44),@bagbase,sizeof(bagbase),tt);& ReadProcessMemory(h,pointer(bagbase+$10),@bagcap,sizeof(bagcap),tt);& readprocessMemory(h,pointer(bagbase+$C),@bagaddress,sizeof(bagaddress),tt);& for i:=0 to bagcap-1 do&&&begin&&& a:=i*4;&&& ReadProcessMemory(h,pointer(bagaddress+a),@bagNadd,sizeof(bagNadd),tt);&&& ReadProcessMemory(h,pointer(bagNadd+$10),@itemNnum,sizeof(itemNnum),tt);&&& ReadProcessMemory(h,pointer(bagNadd+$8),@itemNid,sizeof(itemNid),tt);&&& ReadProcessMemory(h,pointer(bagNadd+$4),@itemNtype,sizeof(itemNtype),tt);&&& ReadProcessMemory(h,pointer(bagNadd+$18),@itemNnummax,sizeof(itemNnummax),tt);&&&&&if itemNnum&0 then&&&&& begin&&&&&&&ReadProcessMemory(h,pointer(bagNadd+$54),@itemNtmpname,sizeof(itemNtmpname),tt);&&&&&&&ReadProcessMemory(h,pointer(itemNtmpname+$C),@itemNname,20,tt);&&&&&&& if itemNname=ywname then&&&&&&&&&begin&&&&&&&&& result:=i;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&CloseHandle(h);&&&function chacwspaddress(ywname:string):&&////查物品在背包中的格子数函数，格子数从0开始,参数ywname物品名:string//////////&&begin& hw:=findwindow(nil,'完美世界国际版');& GetWindowThreadProcessId(hw, @pid);& h:=OpenProcess(PROCESS_ALL_ACCESS, false, pid);& ReadProcessMemory(h,pointer(w2i_base),@dtjdz,4,tt);& ReadProcessMemory(h,pointer(dtjdz+$1c),@jdz,4,tt);& ReadProcessMemory(h,pointer(jdz+$20),@jdz1,4,tt);& ReadProcessMemory(h,pointer(jdz1+$c44),@bagbase,sizeof(bagbase),tt);& ReadProcessMemory(h,pointer(bagbase+$10),@bagcap,sizeof(bagcap),tt);& readprocessMemory(h,pointer(bagbase+$C),@bagaddress,sizeof(bagaddress),tt);& for i8:=0 to bagcap-1 do&&&begin&&& ReadProcessMemory(h,pointer(bagaddress+i8*4),@bagNadd,sizeof(bagNadd),tt);&&& ReadProcessMemory(h,pointer(bagNadd+$10),@itemNnum,sizeof(itemNnum),tt);&&& ReadProcessMemory(h,pointer(bagNadd+$8),@itemNid,sizeof(itemNid),tt);&&& ReadProcessMemory(h,pointer(bagNadd+$4),@itemNtype,sizeof(itemNtype),tt);&&& ReadProcessMemory(h,pointer(bagNadd+$18),@itemNnummax,sizeof(itemNnummax),tt);&&&&&if itemNnum&0 then&&&&& begin&&&&&&&ReadProcessMemory(h,pointer(bagNadd+$4c),@itemNtmpname,sizeof(itemNtmpname),tt);&&&&&&&ReadProcessMemory(h,pointer(itemNtmpname+$4),@itemNname,20,tt);&&&&&&& if itemNname=ywname then&&&&&&&&&begin&&&&&&&&& result:=i8;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&CloseHandle(h);&&&&function chagwid(gwname:string):&&/////////查怪物ID函数，参数gwname怪物名:array////////////////&var&gw_zbx,gw_zby,gw_zbz:&gwname_fun:&biaozhi,bb,ii,jj:&gwidarr:®wid:&gwidstr:&gwzl:& begin&&&&for&& ii:=1&& to&& form1.StringGrid4.rowcount-1&& do& begin&&&&&&&for&& jj:=0&& to&& form1.StringGrid4.colcount-1&& do&&&&& begin&&&&&&&&& form1.StringGrid4.cells[jj,ii]:='';&&&&&&&&&&&form1.StringGrid4.RowCount:=1;&&&ii1:=0;&&&gwname_fun:=split(gwname,',');&&&hw:=findwindow(nil,'完美世界国际版');&&&GetWindowThreadProcessId(hw, @pid);&&&h:=OpenProcess(PROCESS_ALL_ACCESS, false, pid);&&&ReadProcessMemory(h,pointer(w2i_base),@dtjdz,4,tt);&&&ReadProcessMemory(h,pointer(dtjdz+$1c),@jdz,4,tt);&&&ReadProcessMemory(h,pointer(jdz+$8),@gwbase,sizeof(gwbase),tt);&&&ReadProcessMemory(h,pointer(gwbase+$24),@gwsz,sizeof(gwsz),tt);&&&ReadProcessMemory(h,pointer(gwsz+$24),@gwmax,sizeof(gwmax),tt);&&&ReadProcessMemory(h,pointer(gwsz+$18),@gwfirst,sizeof(gwfirst),tt);&&&setlength(gwidarr,integer(gwmax)+1);&&&setlength(gwidstr,integer(gwmax)+1);&&& for i1:=0 to gwmax-1 do&&&&&begin&&&&& biaozhi:=0;&&&&& bb:=0;&&&&& ReadProcessMemory(h,pointer(gwfirst+(i1*4)),@gwszid,sizeof(gwszid),tt);&&&&&&&if gwszid&0 then&&&&&&& begin&&&&&&&&&ReadProcessMemory(h,pointer(gwszid+$4),@gwzz,sizeof(gwzz),tt);&&&&&&&&&ReadProcessMemory(h,pointer(gwzz+$b4),@gwzl,sizeof(gwzl),tt);&&&&&&&&&ReadProcessMemory(h,pointer(gwzz+$254),@gwname1,sizeof(gwname1),tt);&&&&&&&&&ReadProcessMemory(h,pointer(gwzz+$11c),@gwid,sizeof(gwid),tt);&&&&&&&&&ReadProcessMemory(h,pointer(gwzz+$148),@gwhpmax,sizeof(gwhpmax),tt);&&&&&&&&&ReadProcessMemory(h,pointer(gwzz+$12c),@gwhp,sizeof(gwhp),tt);&&&&&&&&&ReadProcessMemory(h,pointer(gwzz+$278),@gwjl,sizeof(gwjl),tt);&&&&&&&&&ReadProcessMemory(h,pointer(gwname1+$0),@gwname2,100,tt);&&&&&&&&&ReadProcessMemory(h,pointer(gwzz+$3c),@gw_zbx,sizeof(gw_zbx),tt);&&&&&&&&&ReadProcessMemory(h,pointer(gwzz+$44),@gw_zby,sizeof(gw_zby),tt);&&&&&&&&&ReadProcessMemory(h,pointer(gwzz+$40),@gw_zbz,sizeof(gw_zbz),tt);&&&&&&&&&gw_zbx:=round(400+(gw_zbx/10));&&&&&&&&&gw_zby:=round(550+(gw_zby/10));&&&&&&&&&gw_zbz:=round(gw_zbz/10);&&&&&&&&&if (gwname_fun[0]='') then&&&&&&&&&&&begin&&&&&&&&&&& if (gwzl=6) and (abs(zb_x-gw_zbx)&strtoint(form1.Edit7.Text)) and (abs(zb_y-gw_zby)&strtoint(form1.Edit7.Text)) and (abs(zb_z-gw_zbz)&strtoint(form1.Edit7.Text)) then&&&&&&&&&&&&&begin&&&&&&&&&&& form1.StringGrid4.Cells[0,ii1]:=inttostr(gwjl);&&&&&&&&&&& form1.StringGrid4.Cells[1,ii1]:=inttostr(gwid);&&&&&&&&&&& form1.StringGrid4.Cells[2,ii1]:=gwname2;&&&&&&&&&&& form1.StringGrid4.RowCount:=form1.StringGrid4.RowCount+1;&&&&&&&&&&&ii1:=ii1+1;&&&&&&&&&&&&&&&&&&&&&&&&&&&&& if gwname_fun[0] && '' then&&&&&&&&&&&begin&&&&&&&&&&& for i6:=0 to high(gwname_fun) do&&&&&&&&&&&&&begin&&&&&&&&&&&&& if (trim(gwname_fun[i6])=trim(gwname2)) and (gwzl=6) and (abs(zb_x-gw_zbx)&strtoint(form1.Edit7.Text)) and (abs(zb_y-gw_zby)&strtoint(form1.Edit7.Text)) and (abs(zb_z-gw_zbz)&strtoint(form1.Edit7.Text)) then&&&&&&&&&&&&&&&begin&&&&&&&&&&&&&&& form1.StringGrid4.Cells[0,ii1]:=inttostr(gwjl);&&&&&&&&&&&&&&& form1.StringGrid4.Cells[1,ii1]:=inttostr(gwid);&&&&&&&&&&&&&&& form1.StringGrid4.Cells[2,ii1]:=gwname2;&&&&&&&&&&&&&&& form1.StringGrid4.RowCount:=form1.StringGrid4.RowCount+1;&&&&&&&&&&&&&&& ii1:=ii1+1;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& &&&&&&&&&&&&&&&sortgrid(form1.StringGrid4,0,1);&&&result:=form1.StringGrid4.Cells[1,1];&&&CloseHandle(h);&&&&function chajnid(jnname:string):&&&&&&//////////查技能ID函数////////////&var&&&jnname_fun:array[0..32]&&&jnid_fun:&begin&&&hw:=findwindow(nil,'完美世界国际版');&&&GetWindowThreadProcessId(hw, @pid);&&&h:=OpenProcess(PROCESS_ALL_ACCESS, false, pid);&&&ReadProcessMemory(h,pointer(w2i_base),@dtjdz,4,tt);&&&ReadProcessMemory(h,pointer(dtjdz+$1c),@jdz,4,tt);&&&ReadProcessMemory(h,pointer(jdz+$20),@jdz1,4,tt);&&&ReadProcessMemory(h,pointer(jdz1+$1010),@jnfirst,sizeof(jlnum),tt);&&& for i3:=0 to&&jlnum-1 do&&&&&begin&&&&& ReadProcessMemory(h,pointer(jnfirst+i3*$4),@yxjnnum,sizeof(yxjnnum),tt);&&&&& ReadProcessMemory(h,pointer(yxjnnum+$8),@jnid_fun,sizeof(jnid_fun),tt);&&&&& ReadProcessMemory(h,pointer(yxjnnum+$4),@yxjnnum,sizeof(yxjnnum),tt);&&&&& ReadProcessMemory(h,pointer(yxjnnum+$4),@yxjnnum,sizeof(yxjnnum),tt);&&&&& ReadProcessMemory(h,pointer(yxjnnum+$c),@yxjnnum,sizeof(yxjnnum),tt);&&&&& ReadProcessMemory(h,pointer(yxjnnum),@jnname_fun,sizeof(jnname_fun),tt);&&&&&&&if trim(jnname_fun)=trim(jnname) then&&&&&&& begin&&&&&&&&&result:=jnid_&&&&&&&&&&&&&&&& end&&&&&&&&&&result:=0;& CloseHandle(h);&&&{&/////////////////////////////////////带参数注入函数/////////////////////////&参数说明:&InHWND:被注入的窗口句柄&Func:注入的CALL的指针&Param:参数的指针&ParamSize:参数的大小&}&procedure InjectFunc(InHWND: HWND; Func: P Param: P ParamSize: DWORD);&var&&&&&hProcess_N: TH&&&&&ThreadAdd, ParamAdd: P&&&&&hThread: TH&&&&&ThreadID: DWORD;&&&&&lpNumberOfBytes:DWORD;&begin&&&&&GetWindowThreadProcessId(InHWND, @ThreadID);&&&&//获得窗口ID&&&&&hProcess_N := OpenProcess(PROCESS_ALL_ACCESS, False, ThreadID);//打开被注入的进程&&&&&ThreadAdd := VirtualAllocEx(hProcess_N, nil, 4096, MEM_COMMIT, PAGE_READWRITE);&&&&//申请写入代码空间&&&&&WriteProcessMemory(hProcess_N, ThreadAdd, Func, 4096, lpNumberOfBytes); //写入函数地址&&&&&ParamAdd := VirtualAllocEx(hProcess_N, nil, ParamSize, MEM_COMMIT, PAGE_READWRITE);&&&&//申请写入代码参数空间&&&&&WriteProcessMemory(hProcess_N, ParamAdd, Param, ParamSize, lpNumberOfBytes); //写入参数地址&&&&&hThread := CreateRemoteThread(hProcess_N, nil, 0, ThreadAdd, ParamAdd, 0, lpNumberOfBytes); //创建远程线程&&&&&ResumeThread(hThread); //直接运行线程&&&&&CloseHandle(hThread); //关闭线程&&&&&VirtualFreeEx(hProcess_N, ThreadAdd, 4096, MEM_RELEASE);&&&&&VirtualFreeEx(hProcess_N, ParamAdd, ParamSize, MEM_RELEASE); //释放申请的地址&&&&&CloseHandle(hProcess_N); //关闭打开的句柄&&&{&/////////////////////////////////////不带参数注入函数/////////////////////////& 参数说明:&Hid:被注入的窗口句柄&FunName:注入的CALL的指针&}&function FunIn(Hid:FunName:pointer):&&&&/////不带参数注入&var&&&TmpHandle: TH &&&ThreadID: T &&&ThreadAdd:&&&WriteCount: DWORD;&begin&&&ThreadAdd := VirtualAllocEx(hid, nil, 4096, MEM_COMMIT, PAGE_EXECUTE_READWRITE); //在目标进程建立内存空间&&&WriteProcessMemory(hid, ThreadAdd,FunName, 4096, WriteCount); //将要注入的CALL写到上面建立的内存空间中&&&TmpHandle := CreateRemoteThread(hid, nil, 0, ThreadAdd, nil, CREATE_SUSPENDED, ThreadID); //获得注入后线程的句柄ID&&&result:=TmpH //返回句柄ID&&&procedure go();&var&ii,jj:&useitemtoa:T&dmitem_ida:T&pcitem:&pcitemarr:&biaozhi:&useitemtob:T&usejn:T&cw_zcd1:&cw_xl:&zb_xt,zb_yt,zb_zt:&begin& hw:=findwindow(nil,'完美世界国际版');& GetWindowThreadProcessId(hw, @pid);& h := OpenProcess(PROCESS_ALL_ACCESS, false, pid);& ReadProcessMemory(h,pointer(w2i_base),@dtjdz,4,tt);& ReadProcessMemory(h,pointer(dtjdz+$1c),@jdz,4,tt);& ReadProcessMemory(h,pointer(jdz+$20),@jdz1,4,tt);&&& /////////提取人物信息////////////////& ReadProcessMemory(h,pointer(jdz1+$46c),@nhp,sizeof(nhp),tt);& ReadProcessMemory(h,pointer(jdz1+$4ac),@nhpmax,sizeof(nhpmax),tt);& ReadProcessMemory(h,pointer(jdz1+$470),@nmp,sizeof(nmp),tt);& ReadProcessMemory(h,pointer(jdz1+$4b0),@nmpmax,sizeof(nmpmax),tt);& ReadProcessMemory(h,pointer(jdz1+$530),@nmoney,sizeof(nmoney),tt);& ReadProcessMemory(h,pointer(jdz1+$464),@lev,sizeof(lev),tt);& ReadProcessMemory(h,pointer(jdz1+$b00),@mubiao1,sizeof(mubiao1),tt);& ReadProcessMemory(h,pointer(jdz1+$610),@selfname1,sizeof(selfname1),tt);& ReadProcessMemory(h,pointer(selfname1),@selfname2,sizeof(selfname2),tt);& ReadProcessMemory(h,pointer(jdz1+$1014),@jlnum,sizeof(jlnum),tt);& ReadProcessMemory(h,pointer(jdz1+$618),@zy,sizeof(zy),tt);& ReadProcessMemory(h,pointer(jdz1+$474),@jy,sizeof(jy),tt);& ReadProcessMemory(h,pointer(jdz1+$3c),@zb_x3,sizeof(zb_x3),tt);&ReadProcessMemory(h,pointer(jdz1+$44),@zb_y3,sizeof(zb_y3),tt);&ReadProcessMemory(h,pointer(jdz1+$40),@zb_z3,sizeof(zb_z3),tt);& ReadProcessMemory(h,pointer(jdz+$AA4+lev*4),@jymax,sizeof(jymax),tt);& ReadProcessMemory(h,pointer($9D8D84),@ask,sizeof(ask),tt);&& form1.stringgrid5.Cells[0,0]:='角色名';& form1.stringgrid5.Cells[1,0]:=selfname2;& form1.stringgrid5.Cells[0,1]:='级别';& form1.stringgrid5.Cells[1,1]:=inttostr(lev);& form1.stringgrid5.Cells[0,2]:='金币' ;& form1.stringgrid5.Cells[1,2]:=inttostr(nmoney);& form1.stringgrid5.Cells[0,3]:='血量';& form1.stringgrid5.Cells[1,3]:=inttostr(nhp)+'/'+inttostr(nhpmax);& form1.stringgrid5.Cells[0,4]:='魔力' ;& form1.stringgrid5.Cells[1,4]:=inttostr(nmp)+'/'+inttostr(nmpmax);& form1.stringgrid5.Cells[0,5]:='职业' ;& form1.stringgrid5.Cells[1,5]:=chazy(zy);& form1.stringgrid5.Cells[0,6]:='经验' ;& form1.stringgrid5.Cells[1,6]:=inttostr(jy)+'/'+chajymax(lev);&&&form1.stringgrid5.Cells[0,7]:='坐标' ;&&&zb_x3:=400+(zb_x3/10);&&&zb_y3:=550+(zb_y3/10);&&&zb_z3:=zb_z3/10;&&&zb_xt:=split(floattostr(zb_x3),'.');&&&zb_yt:=split(floattostr(zb_y3),'.');&&&zb_zt:=split(floattostr(zb_z3),'.');& form1.stringgrid5.Cells[1,7]:='X:'+zb_xt[0]+'&& Y:'+zb_yt[0]+'&& Z:'+zb_zt[0];& ///////////遍历背包///////////////////& form1.stringgrid2.RowCount:=2;&&&for&& ii:=1&& to&& form1.stringgrid2.rowcount-1&& do& begin&&&&&&&for&& jj:=0&& to&& form1.stringgrid2.colcount-1&& do&&&&& begin&&&&&&&&& form1.stringgrid2.cells[jj,ii]:='';&&&&&&&&&ReadProcessMemory(h,pointer(jdz1+$c44),@bagbase,sizeof(bagbase),tt);&ReadProcessMemory(h,pointer(bagbase+$10),@bagcap,sizeof(bagcap),tt);&readprocessMemory(h,pointer(bagbase+$C),@bagaddress,sizeof(bagaddress),tt);&for i:=0 to bagcap-1 do&begin& a:=i*4;& ReadProcessMemory(h,pointer(bagaddress+a),@bagNadd,sizeof(bagNadd),tt);& ReadProcessMemory(h,pointer(bagNadd+$10),@itemNnum,sizeof(itemNnum),tt);& ReadProcessMemory(h,pointer(bagNadd+$8),@itemNid,sizeof(itemNid),tt);& ReadProcessMemory(h,pointer(bagNadd+$4),@itemNtype,sizeof(itemNtype),tt);& ReadProcessMemory(h,pointer(bagNadd+$18),@itemNnummax,sizeof(itemNnummax),tt);&&& if itemNnum&0 then&&&begin&&&/////////类型0 纺织装备/////////////&&&&&if itemNtype=0 then&&&&& begin&&&&&&&ReadProcessMemory(h,pointer(bagNadd+$dc),@itemNtmpname,sizeof(itemNtmpname),tt);&&&&&&&ReadProcessMemory(h,pointer(itemNtmpname+$C),@itemNname,20,tt);&&&&&&&&&&&form1.stringgrid2.Cells[0,i+1]:=inttostr(i+1);&&&&&&&&&&&form1.stringgrid2.Cells[1,i+1]:=itemN&&&&&&&&&&&form1.stringgrid2.Cells[2,i+1]:=inttostr(itemNnum);&&&&&&&&&&&form1.stringgrid2.Cells[3,i+1]:=inttostr(itemNid);&&&&&&&&&&&form1.stringgrid2.RowCount:=form1.stringgrid2.RowCount+1;&&&&&&&itemNnum:=0;&&&end&&&&//////////////类型8,9 材料,红兰药////////////&&&&else&&&&&if (itemNtype=9) or (itemNtype=8)&&then&&&&& begin&&&&& bobox1.Items.&&&&& bobox2.Items.&&&&&&&ReadProcessMemory(h,pointer(bagNadd+$54),@itemNtmpname,sizeof(itemNtmpname),tt);&&&&&&&ReadProcessMemory(h,pointer(itemNtmpname+$C),@itemNname,20,tt);&&&&&&&&&&&form1.stringgrid2.Cells[0,i+1]:=inttostr(i+1);&&&&&&&&&&&form1.stringgrid2.Cells[1,i+1]:=itemN&&&&&&&&&&&form1.stringgrid2.Cells[2,i+1]:=inttostr(itemNnum);&&&&&&&&&&&form1.stringgrid2.Cells[3,i+1]:=inttostr(itemNid);&&&&&&&&&&&form1.stringgrid2.RowCount:=form1.stringgrid2.RowCount+1;&&&&&&& if (itemNid=8617) then&&&&&&& begin&&&&&&& hpxp:=hpxp+itemN&&&&&&&&&&&&&& if (itemNid=8618) then&&&&&&& begin&&&&&&& hpzp:=hpzp+itemN&&&&&&&&&&&&&& if (itemNid=8619) then&&&&&&& begin&&&&&&& hpdp:=hpdp+itemN&&&&&&&&&&&&&& if (itemNid=8620) then&&&&&&& begin&&&&&&& hpjz:=hpjz+itemN&&&&&&&&&&&&&& if (itemNid=8621) then&&&&&&& begin&&&&&&& hpwm:=hpwm+itemN&&&&&&&&&&&&&& if (itemNid=8612) then&&&&&&& begin&&&&&&& hpxphx:=hpxphx+itemN&&&&&&&&&&&&&& if (itemNid=8613) then&&&&&&& begin&&&&&&& hpzphx:=hpzphx+itemN&&&&&&&&&&&&&& if (itemNid=8614) then&&&&&&& begin&&&&&&& hpdphx:=hpdphx+itemN&&&&&&&&&&&&&& if hpxp&0 then&&&&&&& begin&&&&&&& bobox1.Items.Add('小瓶金创药');&&&&&&&&&&&&&& if hpzp&0 then&&&&&&& begin&&&&&&& bobox1.Items.Add('中瓶金创药');&&&&&&&&&&&&&& if hpdp&0 then&&&&&&& begin&&&&&&& bobox1.Items.Add('大瓶金创药');&&&&&&&&&&&&&& if hpjz&0 then&&&&&&& begin&&&&&&& bobox1.Items.Add('精制金创药');&&&&&&&&&&&&&& if hpwm&0 then&&&&&&& begin&&&&&&& bobox1.Items.Add('完美金创药');&&&&&&&&&&&&&& if hpxphx&0 then&&&&&&& begin&&&&&&& bobox1.Items.Add('小瓶活血散');&&&&&&&&&&&&&& if hpzphx&0 then&&&&&&& begin&&&&&&& bobox1.Items.Add('中瓶活血散');&&&&&&&&&&&&&& if hpdphx&0 then&&&&&&& begin&&&&&&& bobox1.Items.Add('大瓶活血散');&&&&&&&&&&&&&& if (itemNid=8647) then&&&&&&& begin&&&&&&& mpxp:=mpxp+itemN&&&&&&&&&&&&&& if (itemNid=8648) then&&&&&&& begin&&&&&&& mpzp:=mpzp+itemN&&&&&&&&&&&&&& if (itemNid=8649) then&&&&&&& begin&&&&&&& mpdp:=mpdp+itemN&&&&&&&&&&&&&& if (itemNid=8650) then&&&&&&& begin&&&&&&& mpjz:=mpjz+itemN&&&&&&&&&&&&&& if (itemNid=8651) then&&&&&&& begin&&&&&&& mpwm:=mpwm+itemN&&&&&&&&&&&&&& if (itemNid=8642) then&&&&&&& begin&&&&&&& mpxphl:=mpxphl+itemN&&&&&&&&&&&&&& if (itemNid=8643) then&&&&&&& begin&&&&&&& mpzphl:=mpzphl+itemN&&&&&&&&&&&&&& if (itemNid=8644) then&&&&&&& begin&&&&&&& mpdphl:=mpdphl+itemN&&&&&&&&&&&&&&& if mpxp&0 then&&&&&&& begin&&&&&&& bobox2.Items.Add('小瓶神气丸');&&&&&&&&&&&&&& if mpzp&0 then&&&&&&& begin&&&&&&& bobox2.Items.Add('中瓶神气丸');&&&&&&&&&&&&&& if mpdp&0 then&&&&&&& begin&&&&&&& bobox2.Items.Add('大瓶神气丸');&&&&&&&&&&&&&& if mpjz&0 then&&&&&&& begin&&&&&&& bobox2.Items.Add('精制神气丸');&&&&&&&&&&&&&& if mpwm&0 then&&&&&&& begin&&&&&&& bobox2.Items.Add('完美神气丸');&&&&&&&&&&&&&& if mpxphl&0 then&&&&&&& begin&&&&&&& bobox2.Items.Add('小瓶还灵水');&&&&&&&&&&&&&& if mpzphl&0 then&&&&&&& begin&&&&&&& bobox2.Items.Add('中瓶还灵水');&&&&&&&&&&&&&& if mpdphl&0 then&&&&&&& begin&&&&&&& bobox2.Items.Add('大瓶还灵水');&&&&&&&&&&&&&&&&itemNnum:=0;&&&end&///////////////类型15 武器///////////////&&&else&&&&&if itemNtype=15 then&&&&& begin&&&&&&&&ReadProcessMemory(h,pointer(bagNadd+$e4),@itemNtmpname,sizeof(itemNtmpname),tt);&&&&&&&ReadProcessMemory(h,pointer(itemNtmpname+$C),@itemNname,20,tt);&&&&&&&&&&&form1.stringgrid2.Cells[0,i+1]:=inttostr(i+1);&&&&&&&&&&&form1.stringgrid2.Cells[1,i+1]:=itemN&&&&&&&&&&&form1.stringgrid2.Cells[2,i+1]:=inttostr(itemNnum);&&&&&&&&&&&form1.stringgrid2.Cells[3,i+1]:=inttostr(itemNid);&&&&&&&&&&&form1.stringgrid2.RowCount:=form1.stringgrid2.RowCount+1;&&&&&&&itemNnum:=0;&&&end&&&///////////////类型19 特殊道具///////////////&&&else&&&&&if (itemNtype=19) then&&&&& begin&&&&&&&ReadProcessMemory(h,pointer(bagNadd+$4c),@itemNtmpname,sizeof(itemNtmpname),tt);&&&&&&&ReadProcessMemory(h,pointer(itemNtmpname+$C),@itemNname,sizeof(itemNname),tt);&&&&&&&&&&&form1.stringgrid2.Cells[0,i+1]:=inttostr(i+1);&&&&&&&&&&&form1.stringgrid2.Cells[1,i+1]:=itemN&&&&&&&&&&&form1.stringgrid2.Cells[2,i+1]:=inttostr(itemNnum);&&&&&&&&&&&form1.stringgrid2.Cells[3,i+1]:=inttostr(itemNid);&&&&&&&&&&&form1.stringgrid2.RowCount:=form1.stringgrid2.RowCount+1;&&&&&&&&&&&itemNnum:=0;&&&end&&&///////////////类型20 仙石 类型27 宠物食品///////////////&&&else&&&&&if (itemNtype=20) or&&(itemNtype=27) then&&&&& begin&&&&&&&bobox5.Items.C&&&&&&&ReadProcessMemory(h,pointer(bagNadd+$4c),@itemNtmpname,sizeof(itemNtmpname),tt);&&&&&&&ReadProcessMemory(h,pointer(itemNtmpname+$4),@itemNname,sizeof(itemNname),tt);&&&&&&&&&&&form1.stringgrid2.Cells[0,i+1]:=inttostr(i+1);&&&&&&&&&&&form1.stringgrid2.Cells[1,i+1]:=itemN&&&&&&&&&&&form1.stringgrid2.Cells[2,i+1]:=inttostr(itemNnum);&&&&&&&&&&&form1.stringgrid2.Cells[3,i+1]:=inttostr(itemNid);&&&&&&&&&&&form1.stringgrid2.RowCount:=form1.stringgrid2.RowCount+1;&&&&&&&&if (itemNid=9757) then&&&&&&& begin&&&&&&&qq:=qq+itemN&&&&&&&&&&&&&& if (itemNid=11580) then&&&&&&& begin&&&&&&&hsy:=hsy+itemN&&&&&&&&&&&&&& if (itemNid=11581) then&&&&&&& begin&&&&&&&zmy:=zmy+itemN&&&&&&&&&&&&&& if (itemNid=12842) then&&&&&&& begin&&&&&&&qqs:=qqs+itemN&&&&&&&&&&&&&& if qqs&0 then&&&&&&& begin&&&&&&&&&bobox5.Items.Add('清泉水');&&&&&&&&&&&&&& if zmy&0 then&&&&&&& begin&&&&&&&&&bobox5.Items.Add('芝麻油');&&&&&&&&&&&&&& if hsy&0 then&&&&&&& begin&&&&&&&&&bobox5.Items.Add('花生油');&&&&&&&&&&&&&& if qq&0 then&&&&&&& begin&&&&&&&&&bobox5.Items.Add('青草');&&&&&&&&&&&&itemNnum:=0;&&&end&///////////////类型23 特殊道具/////////////////&&&else&&&&&if itemNtype=23 then&&&&& begin&&&&&&&ReadProcessMemory(h,pointer(bagNadd+$54),@itemNtmpname,sizeof(itemNtmpname),tt);&&&&&&&ReadProcessMemory(h,pointer(itemNtmpname+$C),@itemNname,20,tt);&&&&&&&&&&&form1.stringgrid2.Cells[0,i+1]:=inttostr(i+1);&&&&&&&&&&&form1.stringgrid2.Cells[1,i+1]:=itemN&&&&&&&&&&&form1.stringgrid2.Cells[2,i+1]:=inttostr(itemNnum);&&&&&&&&&&&form1.stringgrid2.Cells[3,i+1]:=inttostr(itemNid);&&&&&&&&&&&form1.stringgrid2.RowCount:=form1.stringgrid2.RowCount+1;&&&&&&&itemNnum:=0;&&&end&///////////////类型36 护身符/////////////////&&&else&&&&&if itemNtype=36 then&&&&& begin&&&&&&&ReadProcessMemory(h,pointer(bagNadd+$b8),@itemNtmpname,sizeof(itemNtmpname),tt);&&&&&&&ReadProcessMemory(h,pointer(itemNtmpname+$4),@itemNname,20,tt);&&&&&&&&&&&form1.stringgrid2.Cells[0,i+1]:=inttostr(i+1);&&&&&&&&&&&form1.stringgrid2.Cells[1,i+1]:=itemN&&&&&&&&&&&form1.stringgrid2.Cells[2,i+1]:=inttostr(itemNnum);&&&&&&&&&&&form1.stringgrid2.Cells[3,i+1]:=inttostr(itemNid);&&&&&&&&&&&form1.stringgrid2.RowCount:=form1.stringgrid2.RowCount+1;&&&&&&&itemNnum:=0;&&&end&&&&else&&&begin&&&ReadProcessMemory(h,pointer(bagNadd+$54),@itemNtmpname,sizeof(itemNtmpname),tt);&&&ReadProcessMemory(h,pointer(itemNtmpname+$C),@itemNname,20,tt);&&&&&&&&&&&form1.stringgrid2.Cells[0,i+1]:=inttostr(i+1);&&&&&&&&&&&form1.stringgrid2.Cells[1,i+1]:=itemN&&&&&&&&&&&form1.stringgrid2.Cells[2,i+1]:=inttostr(itemNnum);&&&&&&&&&&&form1.stringgrid2.Cells[3,i+1]:=inttostr(itemNid);&&&&&&&&&&&form1.stringgrid2.RowCount:=form1.stringgrid2.RowCount+1;&&&itemNnum:=0;&&&& &&///////////遍历技能///////////////& ReadProcessMemory(h,pointer(jdz1+$1010),@jnfirst,sizeof(jlnum),tt);& bobox3.Items.& bobox6.Items.& bobox7.Items.& for i2:=0 to&&jlnum-1 do& begin&&& ReadProcessMemory(h,pointer(jnfirst+i2*$4),@yxjnnum,sizeof(yxjnnum),tt);&&& ReadProcessMemory(h,pointer(yxjnnum+$8),@jnid,sizeof(jnid),tt);&&& ReadProcessMemory(h,pointer(yxjnnum+$4),@yxjnnum,sizeof(yxjnnum),tt);&&& ReadProcessMemory(h,pointer(yxjnnum+$4),@yxjnnum,sizeof(yxjnnum),tt);&&& ReadProcessMemory(h,pointer(yxjnnum+$c),@yxjnnum,sizeof(yxjnnum),tt);&&& ReadProcessMemory(h,pointer(yxjnnum),@jnname,sizeof(jnname),tt);&&& bobox3.Items.add(jnname);&&& bobox6.Items.add(jnname);&&& bobox7.Items.add(jnname);&&& if (jnname='清心咒') or (jnname='醍醐灌顶') then&&& begin&&&&&boBox8.Items.Add(jnname);&&&&&/////////遍历地面物品//////////////&i9:=0;&form1.stringgrid1.RowCount:=2;& for&& ii:=1&& to&& form1.stringgrid1.rowcount-1&& do& begin&&&&&&&for&& jj:=0&& to&& form1.stringgrid1.colcount-1&& do&&&&& begin&&&&&&&&& form1.stringgrid1.cells[jj,ii]:='';&&&&&&&&& ReadProcessMemory(h,pointer(jdz+$8),@dmitem_base,sizeof(dmitem_base),tt);& ReadProcessMemory(h,pointer(dmitem_base+$28),@dmitem_base2,sizeof(dmitem_base2),tt);& ReadProcessMemory(h,pointer(dmitem_base2+$14),@dmitem_count,sizeof(dmitem_count),tt);& ReadProcessMemory(h,pointer(dmitem_base2+$24),@dmitem_maxcount,sizeof(dmitem_maxcount),tt);& if dmitem_count&0 then&&&begin&&& ReadProcessMemory(h,pointer(dmitem_base2+$18),@dmitem_firstadd,sizeof(dmitem_firstadd),tt);&&&&&for i4:=0 to (integer(dmitem_maxcount)-1) do&&&&& begin&&&&&&& ReadProcessMemory(h,pointer(dmitem_firstadd+i4*$4),@dmitem_add,sizeof(dmitem_add),tt);&&&&&&&&&if dmitem_add & 0 then&&&&&&&&& begin&&&&&&&&&&&ReadProcessMemory(h,pointer(dmitem_add+$4),@dmitem_add,sizeof(dmitem_add),tt);&&&&&&&&&&&ReadProcessMemory(h,pointer(dmitem_add),@dmitem_num,sizeof(dmitem_num),tt);&&&&&&&&&&&ReadProcessMemory(h,pointer(dmitem_add+$110),@dmitem_id,sizeof(dmitem_id),tt);&&&&&&&&&&&ReadProcessMemory(h,pointer(dmitem_add+$164),@dmitem_name1,sizeof(dmitem_name1),tt);&&&&&&&&&&&ReadProcessMemory(h,pointer(dmitem_add+$10c),@dmitem_sysid,sizeof(dmitem_sysid),tt);&&&&&&&&&&&ReadProcessMemory(h,pointer(dmitem_add+$158),@dmitem_jl,sizeof(dmitem_jl),tt);&&&&&&&&&&&ReadProcessMemory(h,pointer(dmitem_add+$3c),@dmitem_zbx,sizeof(dmitem_zbx),tt);&&&&&&&&&&&ReadProcessMemory(h,pointer(dmitem_add+$44),@dmitem_zby,sizeof(dmitem_zby),tt);&&&&&&&&&&&ReadProcessMemory(h,pointer(dmitem_add+$40),@dmitem_zbz,sizeof(dmitem_zbz),tt);&&&&&&&&&&&ReadProcessMemory(h,pointer(dmitem_name1),@dmitem_name2,sizeof(dmitem_name2),tt);&&&&&&&&&&&i9:=i9+1;&&&&&&&&&&&form1.stringgrid1.Cells[0,i9]:=dmitem_name2;&&&&&&&&&&&form1.stringgrid1.Cells[1,i9]:=inttostr(round(400+(dmitem_zbx/10)));&&&&&&&&&&&form1.stringgrid1.Cells[2,i9]:=inttostr(round(550+(dmitem_zby/10)));&&&&&&&&&&&form1.stringgrid1.Cells[3,i9]:=inttostr(round(dmitem_zbz/10));&&&&&&&&&&&form1.stringgrid1.RowCount:=form1.stringgrid1.RowCount+1;&&&&&&&&&&&/////////遍历宠物, cw_base,cw_sn,cw_gz,cw_hp,cw_lv,cw_zcd//////////////& bobox4.Items.C& form1.stringgrid3.RowCount:=2;& ReadProcessMemory(h,pointer(jdz1+$1000),@cw_base,sizeof(cw_base),tt);&&&&for i7:= 0 to 9 do&&&begin&&& cw_base2:=0;&&& cw_hp:=0;&&& cw_lv:=0;&&& cw_zcd:=0;&&& ReadProcessMemory(h,pointer(cw_base+i7*4+$10),@cw_base2,sizeof(cw_base2),tt);&&& ReadProcessMemory(h,pointer(cw_base2+$38),@cw_hp,sizeof(cw_hp),tt);&&& ReadProcessMemory(h,pointer(cw_base2+$20),@cw_lv,sizeof(cw_lv),tt);&&& ReadProcessMemory(h,pointer(cw_base2+$4),@cw_zcd,sizeof(cw_zcd),tt);&&& ReadProcessMemory(h,pointer(cw_base2+$34),@cw_name1,sizeof(cw_name1),tt);&&& ReadProcessMemory(h,pointer(cw_name1),@cw_name,sizeof(cw_name),tt);&&&&&if cw_lv&0 then&&&&&begin&&&&&&&&&&&form1.stringgrid3.Cells[0,i7+1]:=inttostr(i7+1);&&&&&&&&&&&form1.stringgrid3.Cells[1,i7+1]:=cw_&&&&&&&&&&&form1.stringgrid3.Cells[2,i7+1]:=inttostr(cw_lv);&&&&&&&&&&&form1.stringgrid3.Cells[3,i7+1]:=inttostr(cw_hp);&&&&&&&&&&&form1.stringgrid3.Cells[4,i7+1]:=inttostr(cw_zcd);&&&&&&&&&&&form1.stringgrid3.RowCount:=form1.stringgrid3.RowCount+1;&&&&&&&&bobox4.Items.Add('第'+inttostr(i7)+'个宠物:'+cw_name);&&&&&&&&&&&&&&&///////////////自动加血加蓝/////////////////////////&&&if (form1.checkbox1.Checked) then&&&begin&&& if (bobox1.Text&&'无加血药品') then&&&&&begin&&&&& if ((nhpmax div 100)* strtoint(form1.edit1.Text))&nhp then&&&&&&&begin&&&&&&& if (bobox1.Text='') or (bobox1.text='请选择药品') then&&&&&&&&&begin&&&&&&&&& bobox1.Text:='请选择药品';&&&&&&&&&end&&&&&&&&&else&&&&&&&&&begin&&&&&&&&& hw:=findwindow(nil,'完美世界国际版');&&&&&&&&& useitemtoa.itemid:=bobox1.Text);&&&&&&&&& useitemtoa.itemadd:=bobox1.Text);&&&&&&&&& InjectFunc(hw,@useitem,@useitemtoa,sizeof(useitemtoa));&&&&&&&&&&&&&&&&&&&&&&&&&&&& if (bobox2.Text&&'无加蓝药品') then&&&&&&&begin&&&&&&& if ((nmpmax div 100)* strtoint(form1.edit2.Text))&nmp then&&&&&&&&&begin&&&&&&&&& if (bobox2.Text='') or (bobox2.text='请选择药品') then&&&&&&&&&&&begin&&&&&&&&&&& bobox2.Text:='请选择药品';&&&&&&&&&&&end&&&&&&&&&&&else&&&&&&&&&&&begin&&&&&&&&&&&hw:=findwindow(nil,'完美世界国际版');&&&&&&&&&&&useitemtoa.itemid:=bobox2.Text);&&&&&&&&&&&useitemtoa.itemadd:=bobox2.Text);&&&&&&&&&&&InjectFunc(hw,@useitem,@useitemtoa,sizeof(useitemtoa));&&&&&&&&&&&&&&&&&&&&&&&&&&&& if zy=7 then&&&&&&&begin&&&&&&& boBox8.Text&&'' then&&&&&&&&&begin&&&&&&&&& if ((nhpmax div 100)* strtoint(form1.edit10.Text))&nhp then&&&&&&&&&&&begin&&&&&&&&&&& usejn.jnid_rec:=boBox8.Text);&&&&&&&&&&& hw:=findwindow(nil,'完美世界国际版');&&&&&&&&&&& InjectFunc(hw,@jncall,@usejn,sizeof(usejn));&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&///////////////自动加血加蓝结束//////////////////////&&&&///////////////答题报警///////////////////////////&&&if (form1.checkbox9.Checked) then&&&begin&&& if ask=1 then&&&&&begin&&& SndPlaySound('./bj.wav',SND_ASYNC or SND_LOOP);&&& form1.Timer5.Enabled:=&&& form1.Button2.Visible:=&&& form1.Button1.Visible:=&&& if (form1.CheckBox10.Checked) then&&& begin&&&&&form1.Timer1.Enabled:=&&&&&hw:=findwindow(nil,'完美世界国际版');&&&&&GetWindowThreadProcessId(hw, @pid);&&&&&h := OpenProcess(PROCESS_ALL_ACCESS, false, pid);&&&&&TerminateProcess(h,$FFFFFFFF);&&&&&form1.C&&&&&&&&&&&&&end&&&else&&&begin&&& SndPlaySound(nil,SND_ASYNC);&&&&&&////////////////////答题报警结束///////////&&&&/////////////////////自动捡取物品&&&if (form1.checkbox3.Checked) then&&&begin&&&pcitem:=form1.edit4.T& pcitemarr:=split(pcitem,',');& hw:=findwindow(nil,'完美世界国际版');& GetWindowThreadProcessId(hw, @pid);& h:=OpenProcess(PROCESS_ALL_ACCESS, false, pid);& ReadProcessMemory(h,pointer(w2i_base),@dtjdz,4,tt);& ReadProcessMemory(h,pointer(dtjdz+$1c),@jdz,4,tt);& ReadProcessMemory(h,pointer(jdz+$8),@dmitem_base,sizeof(dmitem_base),tt);& ReadProcessMemory(h,pointer(dmitem_base+$28),@dmitem_base2,sizeof(dmitem_base2),tt);& ReadProcessMemory(h,pointer(dmitem_base2+$14),@dmitem_count,sizeof(dmitem_count),tt);& ReadProcessMemory(h,pointer(dmitem_base2+$24),@dmitem_maxcount,sizeof(dmitem_maxcount),tt);&&&if dmitem_count&0 then&&& begin&&&&&ReadProcessMemory(h,pointer(dmitem_base2+$18),@dmitem_firstadd,sizeof(dmitem_firstadd),tt);&&&&& for i4:=0 to (integer(dmitem_maxcount)-1) do&&&&&&&begin&&&&&&& biaozhi:=0;&&&&&&& ReadProcessMemory(h,pointer(dmitem_firstadd+i4*$4),@dmitem_add,sizeof(dmitem_add),tt);&&&&&&&&&if dmitem_add & 0 then&&&&&&&&& begin&&&&&&&&&&&ReadProcessMemory(h,pointer(dmitem_add+$4),@dmitem_add,sizeof(dmitem_add),tt);&&&&&&&&&&&ReadProcessMemory(h,pointer(dmitem_add),@dmitem_num,sizeof(dmitem_num),tt);&&&&&&&&&&&ReadProcessMemory(h,pointer(dmitem_add+$110),@dmitem_id,sizeof(dmitem_id),tt);&&&&&&&&&&&ReadProcessMemory(h,pointer(dmitem_add+$164),@dmitem_name1,sizeof(dmitem_name1),tt);&&&&&&&&&&&ReadProcessMemory(h,pointer(dmitem_add+$10c),@dmitem_sysid,sizeof(dmitem_sysid),tt);&&&&&&&&&&&ReadProcessMemory(h,pointer(dmitem_name1),@dmitem_name2,sizeof(dmitem_name2),tt);&&&&&&&&&&&ReadProcessMemory(h,pointer(dmitem_add+$158),@dmitem_jl,sizeof(dmitem_jl),tt);&&&&&&&&&&&&&for i5:=0 to (high(pcitemarr)) do&&&&&&&&&&&&& begin&&&&&&&&&&&&&&&if trim(dmitem_name2)=trim(pcitemarr[i5]) then&&&&&&&&&&&&&&& begin&&&&&&&&&&&&&&& biaozhi:=1;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&if biaozhi=0 then&&&&&&&&&&&&& begin&&&&&&&&&&&&&&&if (dmitem_jl&) then&&&&&&&&&&&&&&&&&begin&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&dmitem_ida.dmitem_id1:=dmitem_&&&&&&&&&&&&&&&&&&&dmitem_ida.dmitem_sysid:=dmitem_&&&&&&&&&&&&&&&&&&&InjectFunc(hw,@dmitemcall,@dmitem_ida,sizeof(dmitem_ida));&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& ///////////////////自动捡取物品结束///////////////////////////&&&& /////////////////////妖精宠物保护/////////////////////////&&& if (form1.checkbox4.Checked) then&&& begin&&&&&bobox4.Text&&'' then& begin&&&cw_xl:=bobox4.Text,3,1);&&hw:=findwindow(nil,'完美世界国际版');&GetWindowThreadProcessId(hw, @pid);&h := OpenProcess(PROCESS_ALL_ACCESS, false, pid);&ReadProcessMemory(h,pointer(w2i_base),@dtjdz,4,tt);&ReadProcessMemory(h,pointer(dtjdz+$1c),@jdz,4,tt);&ReadProcessMemory(h,pointer(jdz+$20),@jdz1,4,tt);&ReadProcessMemory(h,pointer(jdz1+$1000),@cw_base,sizeof(cw_base),tt);&ReadProcessMemory(h,pointer(cw_base+strtoint(cw_xl)*4+$10),@cw_base2,sizeof(cw_base2),tt);&ReadProcessMemory(h,pointer(cw_base2+$38),@cw_hp,sizeof(cw_hp),tt);&ReadProcessMemory(h,pointer(cw_base2+$4),@cw_zcd,sizeof(cw_zcd),tt);&if (bobox5.Text&&'') and (bobox5.Text&&'请选择物品') then&&&begin&&& if (form1.edit6.Text&&'') and ((strtoint(form1.edit6.Text))&cw_zcd) then&&&&&&&begin&&&&&&& hw:=findwindow(nil,'完美世界国际版');&&&&&&& useitemtob.itemid:=bobox5.Text);&&&&&&& useitemtob.itemadd:=bobox5.Text);&&&&&&& InjectFunc(hw,@useitem,@useitemtob,sizeof(useitemtob));&&&&&&&&&&&&&&&& if (form1.edit5.Text&&'') and ((strtoint(form1.edit5.Text))&cw_hp) then&&&&&&&begin&&&&&&& hw:=findwindow(nil,'完美世界国际版');&&&&&&& useitemtob.jnid_rec:=$14a;&&&&&&& InjectFunc(hw,@jncall,@useitemtob,sizeof(useitemtob));&&&&&&&&&&&&&&&&&& /////////////////////////妖精宠物保护结束////////////////////////&CloseHandle(h);&&&{&记时器1,读取人物相关信息、遍历背包,遍历技能,遍历地面物品&}&procedure TForm1.Timer1Timer(Sender: TObject);&begin&go();&&&&&////////////////////记时器5,选怪//////////////////////&procedure TForm1.Timer5Timer(Sender: TObject);&var&&&gwid2:&&&gwida:T&&&jnid2,cw_sfcz:&&&homeadd: T&&&jnida:T&&&cw_xl:&begin& if (checkbox2.Checked) then& begin& cw_xl:=bobox4.Text,3,1);& hw:=findwindow(nil,'完美世界国际版');&GetWindowThreadProcessId(hw, @pid);&h := OpenProcess(PROCESS_ALL_ACCESS, false, pid);&ReadProcessMemory(h,pointer(w2i_base),@dtjdz,4,tt);&ReadProcessMemory(h,pointer(dtjdz+$1c),@jdz,4,tt);&ReadProcessMemory(h,pointer(jdz+$20),@jdz1,4,tt);&ReadProcessMemory(h,pointer(jdz1+$1000),@cw_base,sizeof(cw_base),tt);&ReadProcessMemory(h,pointer(cw_base+strtoint(cw_xl)*4+$10),@cw_base2,sizeof(cw_base2),tt);&ReadProcessMemory(h,pointer(cw_base2+$38),@cw_hp,sizeof(cw_hp),tt);&ReadProcessMemory(h,pointer(cw_base2+$4),@cw_zcd,sizeof(cw_zcd),tt);& if (zy=3) then& begin& if (cw_hp&strtoint(form1.Edit5.Text)) then& begin& if chagwid(edit3.Text)&&'' then&&&begin&&&&&&&gwida.gwid:=strtoint64(chagwid(edit3.Text));&&&&&&&if (gwida.gwid&&0) and (mubiao1=0) then&&&&&&& begin&&&&&&&&&hw:=findwindow(nil,'完美世界国际版');&&&&&&&&&InjectFunc(hw,@xgcall,@gwida,sizeof(gwida));&&&&&&&&&gwida.gwid:=0;&&&&&&&&&&&& end& else& begin&&&if chagwid(edit3.Text)&&'' then&&&begin&&&&&&&gwida.gwid:=strtoint64(chagwid(edit3.Text));&&&&&&&if (gwida.gwid&&0) and (mubiao1=0) then&&&&&&& begin&&&&&&&&&hw:=findwindow(nil,'完美世界国际版');&&&&&&&&&InjectFunc(hw,@xgcall,@gwida,sizeof(gwida));&&&&&&&&&gwida.gwid:=0;&&&&&&&&&&&&&&& if combobox3.Text&&'' then&&& begin&&&&&jnida.jnid_rec:=chajnid(combobox3.Text);&&&&& if (mubiao1&&0) and (jnida.jnid_rec&&0) then&&&&&&&begin&&&&&&& hw:=findwindow(nil,'完美世界国际版');&&&&&&& InjectFunc(hw,@jncall,@jnida,sizeof(jnida));&&&&&&&&&&&&&&sleep(400)&&&&&&& if combobox6.Text&&'' then&&& begin&&&&&jnida.jnid_rec:=chajnid(combobox6.Text);&&&&& if (mubiao1&&0) and (jnida.jnid_rec&&0) then&&&&&&&begin&&&&&&& hw:=findwindow(nil,'完美世界国际版');&&&&&&& InjectFunc(hw,@jncall,@jnida,sizeof(jnida));&&&&&&&&&&&&&&sleep(400)&&&&&&& if combobox7.Text&&'' then&&& begin&&&&&jnida.jnid_rec:=chajnid(combobox7.Text);&&&&& if (mubiao1&&0) and (jnida.jnid_rec&&0) then&&&&&&&begin&&&&&&& hw:=findwindow(nil,'完美世界国际版');&&&&&&& InjectFunc(hw,@jncall,@jnida,sizeof(jnida));&&&&&&&&&&&&&&sleep(400)&&&&&&&& if (mubiao1&&0) and (checkbox5.Checked) then&&&&&begin&&&&& hw:=findwindow(nil,'完美世界国际版');&&&&& GetWindowThreadProcessId(hw, @pid);&&&&& h:= OpenProcess(PROCESS_ALL_ACCESS, false, pid);&&&&& homeadd:=funin(h,@pgcall);&&&&& ResumeThread(homeadd);&&&&& sleep(400)&&&&&&&&& if (nhp=0) and (checkbox6.Checked) then&&&&& begin&&&&& checkbox2.Checked:=&&&&& checkbox3.Checked:=&&&&& hw:=findwindow(nil,'完美世界国际版');&&&&& GetWindowThreadProcessId(hw, @pid);&&&&& h:= OpenProcess(PROCESS_ALL_ACCESS, false, pid);&&&&& homeadd:=funin(h,@backcall);&&&&& ResumeThread(homeadd);&&&&&&&&&&&&procedure TForm1.Button3Click(Sender: TObject);&begin& SetWindowText(FindWindow(Nil,PAnsichar(edit8.Text)),PAnsichar(edit9.Text));&&&procedure TForm1.Button1Click(Sender: TObject);&var&zb_x1,zb_y1,zb_z1:S&inifile:&begin&hw:=findwindow(nil,'完美世界国际版');&GetWindowThreadProcessId(hw, @pid);&h := OpenProcess(PROCESS_ALL_ACCESS, false, pid);&ReadProcessMemory(h,pointer(w2i_base),@dtjdz,4,tt);&ReadProcessMemory(h,pointer(dtjdz+$1c),@jdz,4,tt);&ReadProcessMemory(h,pointer(jdz+$20),@jdz1,4,tt);&ReadProcessMemory(h,pointer(jdz1+$3c),@zb_x1,sizeof(zb_x1),tt);&ReadProcessMemory(h,pointer(jdz1+$44),@zb_y1,sizeof(zb_y1),tt);&ReadProcessMemory(h,pointer(jdz1+$40),@zb_z1,sizeof(zb_z1),tt);&form1.StringGrid6.Cells[1,0]:=floattostr(zb_x1/10+400);&form1.StringGrid6.Cells[1,1]:=floattostr(zb_y1/10+550);&form1.StringGrid6.Cells[1,2]:=floattostr(zb_z1/10);&zb_x:=round(400+(zb_x1/10));&zb_y:=round(550+(zb_y1/10));&zb_z:=round(zb_z1/10);&CloseHandle(h);&timer1.Enabled:=&timer5.Enabled:=&button1.Visible:=&button2.Visible:=&label21.Caption:='挂机进行中.....';&label21.Font.Color:=&inifile:='./ini/'+selfname2+'.ini';&myinifile:=Tinifile.Create(inifile);&myinifile.WriteString('辅助配置','加血用红药名',combobox1.Text);&myinifile.WriteString('辅助配置','加血下限',edit1.Text);&myinifile.WriteString('辅助配置','加蓝下限',edit2.Text);&myinifile.WriteString('辅助配置','羽灵加血下限',edit10.Text);&myinifile.WriteString('辅助配置','加蓝用蓝药名',ComboBox2.Text);&myinifile.WriteString('辅助配置','羽灵加血技能',ComboBox8.Text);&myinifile.WriteString('辅助配置','打怪距离',edit7.Text);&myinifile.WriteString('辅助配置','打怪名称',edit3.Text);&myinifile.WriteString('辅助配置','技能1',combobox3.Text);&myinifile.WriteString('辅助配置','技能2',combobox6.Text);&myinifile.WriteString('辅助配置','技能3',combobox7.Text);&myinifile.WriteString('辅助配置','使用宠物',ComboBox4.Text);&myinifile.WriteString('辅助配置','宠物加血下限',edit5.Text);&myinifile.WriteString('辅助配置','加忠诚药品',ComboBox5.Text);&myinifile.WriteString('辅助配置','捡物品排除',edit4.Text);&&&procedure TForm1.Button2Click(Sender: TObject);&begin&timer1.Enabled:=&timer5.Enabled:=&button1.Visible:=&button2.Visible:=&label21.Caption:='挂机停止中......';&label21.Font.Color:=clWindowT&&&procedure TForm1.FormActivate(Sender: TObject);&var&inifile:&begin& hw:=findwindow(nil,'完美世界国际版');& GetWindowThreadProcessId(hw, @pid);& if pid=0 then& begin&&&MessageBox(0,'游戏未打开!','提示',MB_OK);&&&self.C&&&&stringgrid1.Cells[0,0]:='名称';&&&stringgrid1.Cells[1,0]:='坐标X';&&&stringgrid1.Cells[2,0]:='坐标Y';&&&stringgrid1.Cells[3,0]:='坐标Z';&&&&stringgrid2.Cells[0,0]:='序号';&&&stringgrid2.Cells[1,0]:='名称';&&&stringgrid2.Cells[2,0]:='数量';&&&stringgrid2.Cells[3,0]:='物品ID';&&&&&stringgrid3.Cells[0,0]:='序号';&&&stringgrid3.Cells[1,0]:='宠物名字';&&&stringgrid3.Cells[2,0]:='级别';&&&stringgrid3.Cells[3,0]:='生命';&&&stringgrid3.Cells[4,0]:='忠诚度';&&&&stringgrid6.Cells[0,0]:='坐标X';&&&stringgrid6.Cells[0,1]:='坐标y';&&&stringgrid6.Cells[0,2]:='坐标z';&&&go();&&&if zy=7 then&&& begin&&&label7.Visible:=&&&edit10.Visible:=&&&label20.Visible:=&&&combobox8.Visible:=&&&&&&inifile:='./ini/'+selfname2+'.ini';&&&if fileexists(inifile) then&&&begin&&&myinifile:=Tinifile.Create(inifile);&&&if ((myinifile.ReadString('辅助配置','加血下限','加血下限'))&&'加血下限') then&&&begin&&&form1.edit1.Text:=myinifile.ReadString('辅助配置','加血下限','加血下限');&&&&&&if ((myinifile.ReadString('辅助配置','加蓝下限','加蓝下限'))&&'加蓝下限') then&&&begin&&&form1.edit2.Text:=myinifile.ReadString('辅助配置','加蓝下限','加蓝下限');&&&&&&if ((myinifile.ReadString('辅助配置','羽灵加血下限','羽灵加血下限'))&&'羽灵加血下限') then&&&begin&&&form1.edit10.Text:=myinifile.ReadString('辅助配置','羽灵加血下限','羽灵加血下限');&&&&&&if ((myinifile.ReadString('辅助配置','加血用红药名','加血用红药名'))&&'加血用红药名') then&&&begin&&&boBox1.Text:=myinifile.ReadString('辅助配置','加血用红药名','加血用红药名');&&&&&&if ((myinifile.ReadString('辅助配置','加蓝用蓝药名','加蓝用蓝药名'))&&'加蓝用蓝药名') then&&&begin&&&boBox2.Text:=myinifile.ReadString('辅助配置','加蓝用蓝药名','加蓝用蓝药名');&&&&&&if ((myinifile.ReadString('辅助配置','加蓝用蓝药名','羽灵加血技能'))&&'羽灵加血技能') then&&&begin&&&boBox8.Text:=myinifile.ReadString('辅助配置','羽灵加血技能','羽灵加血技能');&&&&&&if ((myinifile.ReadString('辅助配置','打怪距离','打怪距离'))&&'打怪距离') then&&&begin&&&form1.edit7.Text:=myinifile.ReadString('辅助配置','打怪距离','打怪距离');&&&&&&if ((myinifile.ReadString('辅助配置','打怪名称','打怪名称'))&&'打怪名称') then&&&begin&&&form1.edit3.Text:=myinifile.ReadString('辅助配置','打怪名称','打怪名称');&&&&&&if ((myinifile.ReadString('辅助配置','技能1','技能1'))&&'技能1') then&&&begin&&&boBox3.Text:=myinifile.ReadString('辅助配置','技能1','技能1');&&&&&&if ((myinifile.ReadString('辅助配置','技能2','技能2'))&&'技能2') then&&&begin&&&boBox6.Text:=myinifile.ReadString('辅助配置','技能2','技能2');&&&&&&if ((myinifile.ReadString('辅助配置','技能3','技能3'))&&'技能3') then&&&begin&&&boBox7.Text:=myinifile.ReadString('辅助配置','技能3','技能3');&&&&&&if ((myinifile.ReadString('辅助配置','使用宠物','使用宠物'))&&'使用宠物') then&&&begin&&&boBox4.Text:=myinifile.ReadString('辅助配置','使用宠物','使用宠物');&&&&&&if ((myinifile.ReadString('辅助配置','宠物加血下限','宠物加血下限'))&&'宠物加血下限') then&&&begin&&&form1.edit5.Text:=myinifile.ReadString('辅助配置','宠物加血下限','宠物加血下限');&&&&&&if ((myinifile.ReadString('辅助配置','加忠诚药品','加忠诚药品'))&&'加忠诚药品') then&&&begin&&&boBox5.Text:=myinifile.ReadString('辅助配置','加忠诚药品','加忠诚药品');&&&&&&if ((myinifile.ReadString('辅助配置','捡物品排除','捡物品排除'))&&'捡物品排除') then&&&begin&&&form1.edit4.Text:=myinifile.ReadString('辅助配置','捡物品排除','捡物品排除');&&&&&&&&end.&&&&&&模块：&&/////////////源码开始//////////&&&interface&function chajymax(lev1:integer):&implementation&&&function chajymax(lev1:integer):&begin&if lev1=1 then&begin&result:='55'&&if lev1=2 then&begin&result:='220'&&if lev1=3 then&begin&result:='495'&&if lev1=4 then&begin&result:='880'&&if lev1=5 then&begin&result:='1400'&&if lev1=6 then&begin&result:='2010'&&if lev1=7 then&begin&result:='2765'&&if lev1=8 then&begin&result:='3640'&&if lev1=9 then&begin&result:='4635'&&if lev1=10 then&begin&result:='5750'&&if lev1=11 then&begin&result:='7040'&&if lev1=12 then&begin&result:='8400'&&if lev1=13 then&begin&result:='9945'&&if lev1=14 then&begin&result:='11620'&&if lev1=15 then&begin&result:='13500'&&if lev1=16 then&begin&result:='15440'&&if lev1=17 then&begin&result:='17595'&&if lev1=18 then&begin&result:='19890'&&if lev1=19 then&begin&result:='22325'&&if lev1=20 then&begin&result:='25000'&&if lev1=21 then&begin&result:='27825'&&if lev1=22 then&begin&result:='30800'&&if lev1=23 then&begin&result:='34040'&&if lev1=24 then&begin&result:='37440'&&if lev1=25 then&begin&result:='41125'&&if lev1=26 then&begin&result:='44980'&&if lev1=27 then&begin&result:='49140'&&if lev1=28 then&begin&result:='53480'&&if lev1=29 then&begin&result:='58000'&&if lev1=30 then&begin&result:='63000'&&if lev1=31 then&begin&result:='68045'&&if lev1=32 then&begin&result:='73600'&&if lev1=33 then&begin&result:='79365'&&if lev1=34 then&begin&result:='85510'&&if lev1=35 then&begin&result:='92050'&&if lev1=36 then&begin&result:='99000'&&if lev1=37 then&begin&result:=';&&if lev1=38 then&begin&result:=';&&if lev1=39 then&begin&result:=';&&if lev1=40 then&begin&result:=';&&if lev1=41 then&begin&result:=';&&if lev1=42 then&begin&result:=';&&if lev1=43 then&begin&result:=';&&if lev1=44 then&begin&result:=';&&if lev1=45 then&begin&result:=';&&if lev1=46 then&begin&result:=';&&if lev1=47 then&begin&result:=';&&if lev1=48 then&begin&result:=';&&if lev1=49 then&begin&result:=';&&if lev1=50 then&begin&result:=';&&if lev1=51 then&begin&result:=';&&if lev1=52 then&begin&result:=';&&if lev1=53 then&begin&result:=';&&if lev1=54 then&begin&result:=';&&if lev1=55 then&begin&result:=';&&if lev1=56 then&begin&result:=';&&if lev1=57 then&begin&result:=';&&if lev1=58 then&begin&result:=';&&if lev1=59 then&begin&result:=';&&if lev1=60 then&begin&result:=';&&if lev1=61 then&begin&result:=';&&if lev1=62 then&begin&result:=';&&if lev1=63 then&begin&result:=';&&if lev1=64 then&begin&result:=';&&if lev1=65 then&begin&result:=';&&if lev1=66 then&begin&result:=';&&if lev1=67 then&begin&result:=';&&if lev1=68 then&begin&result:=';&&if lev1=69 then&begin&result:=';&&if lev1=70 then&begin&result:=';&&if lev1=71 then&begin&result:=';&&if lev1=72 then&begin&result:=';&&if lev1=73 then&begin&result:=';&&if lev1=74 then&begin&result:=';&&if lev1=75 then&begin&result:=';&&if lev1=76 then&begin&result:=';&&if lev1=77 then&begin&result:=';&&if lev1=78 then&begin&result:=';&&if lev1=79 then&begin&result:=';&&if lev1=80 then&begin&result:=';&&if lev1=81 then&begin&result:=';&&if lev1=82 then&begin&result:=';&&if lev1=83 then&begin&result:=';&&if lev1=84 then&begin&result:=';&&if lev1=85 then&begin&result:=';&&if lev1=86 then&begin&result:=';&&if lev1=87 then&begin&result:=';&&if lev1=88 then&begin&result:=';&&if lev1=89 then&begin&result:=';&&if lev1=90 then&begin&result:=';&&if lev1=91 then&begin&result:=';&&if lev1=92 then&begin&result:=';&&if lev1=93 then&begin&result:=';&&if lev1=94 then&begin&result:=';&&if lev1=95 then&begin&result:=';&&if lev1=96 then&begin&result:=';&&if lev1=97 then&begin&result:=';&&if lev1=98 then&begin&result:=';&&if lev1=99 then&begin&result:=';&&if lev1=100 then&begin&result:=';&&if lev1=101 then&begin&result:=''&&if lev1=102 then&begin&result:=''&&if lev1=103 then&begin&result:=''&&if lev1=104 then&begin&result:=''&&if lev1=105 then&begin&result:=''&&&&end.&&&&&&&
不会找地址 郁闷
没有打包下载的
打包比较方便&&嘎嘎
强烈要求打包
&&楼主是为了你们,锻炼你们的眼力!
确实长！不过值得一看。或许可以解除我的一些疑惑！多谢！
好长..打包吧..楼主哈哈..谢谢啦
谢谢，学习了
支持打包，太长了
直接打包啦，这样看看死人乐。。。。。。。。。。。
直接打包啦，这样看看死人乐。。。。。。。。。。。
看到頭都暈了 但是值得
能转换成E语言不 楼主...期待中哦
怎么没有易语言的呀！
查看完整版本: [--
Powered by
Time 0.174249 second(s),query:2 Gzip enabled
