- 注册时间
- 2011-3-10
- 最后登录
- 1970-1-1
该用户从未签到
|
Dim Hwnd,JTime
Dim base,tmph,bas,tmp,id,mod1,mod2
Dim dydxue,dymxue,dyzt
Dim dxue,dlan,mxue,mlan,jingyan_dq,dengji,qian
Dim NowTime
Dim zj_mxue,zj_mlan,zj_dxue,zj_dlan
Dim dy_dxue,dy_mxue
Dim jin,yin,tong
Dim zj_jingyan,zj_dengji,zj_dqian
Dim xue_nember,lan_nember
Sub Main() '脚本主程序,请在此下写入主程序代码
Hwnd = HApp.GetAcceptHwnd()
HApp.SendKeyPress Hwnd,"2"
Delay zt_time * 1000
If neicun = "指针A" Then
base = "12F824"
End If
If neicun = "指针B" Then
base = "8D24F4"
End If
base = HMEM.ReadMEMEX(Hwnd,"&h" & base,3)
base = base + 36 '获得2级指针
tmph = gethex(hex(base))
base = HMEM.ReadMEMEX(Hwnd,tmph & hex(base),3)
id = base + 1948 '获得id
id = HMEM.ReadMEMEX(Hwnd,tmph & hex(id),3)
base = base + 316 '获得ECX
tmph = gethex(hex(base))
base = HMEM.ReadMEMEX(Hwnd,tmph & hex(base),3)
base1 = base + 40 '获得MAX
base2 = base + 28 '获得选中人物首地址
tmph = gethex(hex(base))
base1 = HMEM.ReadMEMEX(Hwnd,tmph & hex(base1),3)
base2 = HMEM.ReadMEMEX(Hwnd,tmph & hex(base2),3)
'Mod运算-----------------------------------------------
mod1 = id mod base1
base = base2 + mod1 * 4 '获得偏移后地址
tmph = gethex(hex(base))
base = HMEM.ReadMEMEX(Hwnd,tmph & hex(base),3)
base = base + 4
tmph = gethex(hex(base))
base = HMEM.ReadMEMEX(Hwnd,tmph & hex(base),3)
dydxue = base + 600
dymxue = base + 624
dyzt = base + 284
tmph = gethex(hex(base))
'以上是选中人物部分-------------------------------------
If neicun = "指针A" Then
bas = "12F824"
End If
If neicun = "指针B" Then
bas = "8D24F4"
End If
bas = HMEM.ReadMEMEX(Hwnd,"&h" & bas,3)
bas = bas + 36 '获得2级指针
tmp = gethex(hex(base))
bas = HMEM.ReadMEMEX(Hwnd,tmp & hex(bas),3)
dxue = bas + 600
dlan = bas + 604
mxue = bas + 624
mlan = bas + 628
jingyan_dq = bas + 608
dengji = bas + 592
qian = bas + 728
tmp = gethex(hex(base))
基址全部+4了~但是一运行马上就停止了,看看哪里出错了 |
|