传奇装备持久测试

[General]
Description=装备持久测试
BeginHotkey=36
BeginHotkeyMod=8
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=35
StopHotkeyMod=8
RunOnce=1
EnableWindow=
Enable=0
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=

[Script]
base=5867464:dzk=0:basex=base:basey=base
Plugin mir=Window.Find(0,"legend of mir2")
Rem 搜索地址
Plugin ID=Memory.Read32Bit(Mir,base)
Plugin Hp=Memory.Read16Bit(Mir,ID+76)
Plugin HHp=Memory.Read16Bit(Mir,ID+216)
If dzk=0
dzk=1:basex=basex-1:base=basex
Else
dzk=0:basey=basey+1:base=basey
EndIf
MessageBox hp&hhp
EndScript
Plugin mir=Window.Find(0,"legend of mir2")
Plugin t=Memory.ReadString(mir,base,20)
//Plugin t=Memory.FindString(mir,"魔龙西郊",100000,99999999,1)
MessageBox t
EndScript
MessageBox t
EndScript
//base=5867464
rwbase=5867464
bgbase=5867609
zbbase=5874713
7104
Rem 1
Plugin mir=Window.Find(0,"legend of mir2")
Plugin ID=Memory.Read32Bit(Mir,base)
Plugin Hp=Memory.Read16Bit(Mir,ID+76)
Plugin HHp=Memory.Read16Bit(Mir,ID+216)
If HHP=122 and HP=413
MessageBox base
Else
base=base+1
Goto 1
EndIf
EndScript
Plugin Mir2=Window.MousePoint()
MessageBox 可以了
Plugin Window.SendKeyDown(Mir2,13)
Plugin Window.SendKeyUp(Mir2,13)
Plugin Window.SendString(Mir2,"死人了！")
Plugin Window.SendKeyDown(Mir2,13)
Plugin Window.SendKeyUp(Mir2,13)
EndScript
Plugin BGKM5.KeyDownE(参数1,参数2)
Sub 包裹物品计算
Rem 计算包裹
VBS dim hero,t,wp,heroname,s,jcyb,jcy,mfyb,mfy,sjjs,sjjb,hsfs,bgkw
Plugin Mir2=Window.Find(0,"legend of mir2")
hero=5863513:t=0:jcyb=0:jcy=0:mfyb=0:mfy=0:sjjs=0:sjjb=0:hsfs=0:bgkw=0
t=now
For 46
Plugin HeroName=Memory.ReadString(Mir2,Hero,72)
wp=cstr(HeroName)
Plugin wp=DBSoft.WordSelect(wp,0)
If wp<>""
s=instr(wp,"金创药")
If s>0
s=instr(wp,"包")
If s>0
jcyb=jcyb+1
Else
jcy=jcy+1
EndIf
Else
s=instr(wp,"魔法药")
If s>0
s=instr(wp,"包")
If s>0
mfyb=mfyb+1
Else
mfy=mfy+1
EndIf
EndIf
EndIf
If wp="随机传送卷"
sjjs=sjjs+1
ElseIf wp="随机传送卷包"
sjjb=sjjb+1
EndIf
s=instr(wp,"护身符")
If s>0
hsfs=hsfs+1
EndIf
Else
bgkw=bgkw+1
EndIf
hero=hero+64
EndFor
t=DateDiff("s",t,now)
MessageBox "魔法药["&mfy&"]魔法药包["&mfyb&"]金创药["&jcy&"]金创药包["&jcyb&"]随机传送卷["&sjjs&"]随机床送卷包["&sjjb&"]护身符["&hsfs&"]包裹空位["&bgkw&"]

时间"&t
Return
EndScript
EndScript
VBS Hero=16982421
Plugin OneName=Memory.ReadString(Mir2,Hero+64,20)
//Plugin OneItems=Memory.Read16Bit(Mir2,Hero+60)
VBSCall MessageBox("服装名称["&OneName&"]; 持久["&OneItems&"]")
EndScript
VBS Hero=5498836
Plugin HeroID=Memory.Read32Bit(Mir2,Hero)
Plugin HeroCurHp=Memory.Read16Bit(Mir2,HeroID+75)
Plugin t=Memory.FindString(mir2,"布衣",100000,99999999,1)
MessageBox t
EndScript
Sub 检测人物装备持久
VBS Dim OneItems,OneName
Rem 服装持久
Plugin OneName=Memory.ReadString(Mir2,Hero,20)
Plugin OneItems=Memory.Read16Bit(Mir2,Hero+59)
//Gosub 主号装备持久
VBSCall MessageBox("服装名称["&OneName&"]; 持久["&OneItems&"]")
EndScript
Rem 武器持久
Plugin OneName=Memory.ReadString(Mir2,Hero+64,20)
Plugin OneItems=Memory.Read16Bit(Mir2,Hero+64+59)
Gosub 主号装备持久
VBSCall MessageBox("武器名称["&OneName&"]; 持久["&OneItems&"]")
Rem 勋章持久
Plugin OneName=Memory.ReadString(Mir2,Hero+64*2,20)
Plugin OneItems=Memory.Read16Bit(Mir2,One+64*2+59)
Gosub 主号装备持久
VBSCall MessageBox("勋章名称["&OneName&"]; 持久["&OneItems&"]")
Rem 项链持久
Plugin OneName=Memory.ReadString(Mir2,Hero+64*3,20)
Plugin OneItems=Memory.Read16Bit(Mir2,Hero+64*3+59)
Gosub 主号装备持久
VBSCall MessageBox("项链名称["&OneName&"]; 持久["&OneItems&"]")
Rem 头盔持久
Plugin OneName=Memory.ReadString(Mir2,Hero+64*4,20)
Plugin OneItems=Memory.Read16Bit(Mir2,Hero+64*4+59)0
Gosub 主号装备持久
VBSCall MessageBox("头盔名称["&OneName&"]; 持久["&OneItems&"]")
Rem 左手镯持久
Plugin OneName=Memory.ReadString(Mir2,Hero+64*5,20)
Plugin OneItems=Memory.Read16Bit(Mir2,Hero+64*5+59)
Gosub 主号装备持久
VBSCall MessageBox("左手镯名称["&OneName&"]; 持久["&OneItems&"]")
Rem 右手镯持久
Plugin OneName=Memory.ReadString(Mir2,Hero+64*6,20)
Plugin OneItems=Memory.Read16Bit(Mir2,Hero+64*6+59)
Gosub 主号装备持久
VBSCall MessageBox("右手镯名称["&OneName&"]; 持久["&OneItems&"]")
Rem 左戒指持久
Plugin OneName=Memory.ReadString(Mir2,Hero+64*7,20)
Plugin OneItems=Memory.Read16Bit(Mir2,Hero+64*7+59)
Gosub 主号装备持久
VBSCall MessageBox("左戒指名称["&OneName&"]; 持久["&OneItems&"]")
Rem 右戒指持久
Plugin OneName=Memory.ReadString(Mir2,Hero+64*8,20)
Plugin OneItems=Memory.Read16Bit(Mir2,Hero+64*8+59)
Gosub 主号装备持久
VBSCall MessageBox("右戒指名称["&OneName&"]; 持久["&OneItems&"]")
Rem 符持久
Plugin OneName=Memory.ReadString(Mir2,Hero+64*9,20)
Plugin OneItems=Memory.Read16Bit(Mir2,Hero+64*9+54)
Gosub 主号装备持久
VBSCall MessageBox("符名称["&OneName&"]; 持久["&OneItems&"]")
Rem 腰带持久
Plugin OneName=Memory.ReadString(Mir2,Hero+64*10,20)
Plugin OneItems=Memory.Read16Bit(Mir2,Hero+64*10+59)
Gosub 主号装备持久
VBSCall MessageBox("腰带名称["&OneName&"]; 持久["&OneItems&"]")
Rem 靴子持久
Plugin

OneName=Memory.ReadString(Mir2,Hero+64*11,20)
Plugin OneItems=Memory.Read16Bit(Mir2,Hero+64*11+59)
Gosub 主号装备持久
VBSCall MessageBox("靴子名称["&OneName&"]; 持久["&OneItems&"]")
Rem 石头持久
Plugin OneName=Memory.ReadString(Mir2,Hero+64*12,20)
Plugin OneItems=Memory.Read16Bit(Mir2,Hero+64*12+59)
Gosub 主号装备持久
VBSCall MessageBox("石头名称["&OneName&"]; 持久["&OneItems&"]")
Return 检测人物装备持久
Sub 主号装备持久
zbcj=int(OneItems)
zbmc=cstr(OneName)
If zbcj<4100 and zbmc<>"0"
MessageBox 装备持久低！
//Goto 装备修理
EndIf
Return 主号装备持久
For 13
zb=Hero+64*j
ii=zb+59
Plugin HeroName=Memory.ReadString(Mir2,Hero+zb,72)
Plugin HeroItems=Memory.Read16Bit(Mir2,Hero+ii)
j=j+1
t=t&"衣服名称["&Cstr(HeroName)&"]; 持久["&Cstr(HeroItems)&"]"&"/"
EndFor
MessageBox t
//VBSCall MessageBox("衣服名称["&Cstr(HeroName)&"]; 持久["&Cstr(HeroItems)&"]")
EndScript
base=&h005827c0
VBSCall ReadMemory(base,2,v)
Delay 300
VBSCall ReadMemory(v+&4c,2,s)
Delay 300
MessageBox s
EndScript
VBS Hero=18623573:j=0:t=""
For 14
i=hero+64*j
ii=i+59
Plugin HeroName=Memory.ReadString(Mir2,Hero+i,72)
Plugin HeroItems=Memory.Read16Bit(Mir2,Hero+ii)
j=j+1
t=t&"衣服名称["&Cstr(HeroName)&"]; 持久["&Cstr(HeroItems)&"]"&"/"
EndFor
MessageBox t
//VBSCall MessageBox("衣服名称["&Cstr(HeroName)&"]; 持久["&Cstr(HeroItems)&"]")
EndScript