如题,
我读取游戏人物血量:
ReadProcessMemory hProcess, ByVal &HD0EF3C, adr, 4, 0&
ReadProcessMemory hProcess, ByVal adr + &H45C, hp, 4, 0&
label1.caption = hp
比如读完之后,HP为 30000
那么我想 用计时器检测血量Timer1.Interval = 100'当血量少于50%时,自动加血!
if hp < hp * 50% then
加血
end if还有一种
if val(hp) < val(hp * 50%) then
加血
end if当然这2种都不对了,数据类型不对。
本人数据类型是一片盲目啊。
我改怎样取HP的数值做对比????????
很菜 别见笑 哈哈!!!
我读取游戏人物血量:
ReadProcessMemory hProcess, ByVal &HD0EF3C, adr, 4, 0&
ReadProcessMemory hProcess, ByVal adr + &H45C, hp, 4, 0&
label1.caption = hp
比如读完之后,HP为 30000
那么我想 用计时器检测血量Timer1.Interval = 100'当血量少于50%时,自动加血!
if hp < hp * 50% then
加血
end if还有一种
if val(hp) < val(hp * 50%) then
加血
end if当然这2种都不对了,数据类型不对。
本人数据类型是一片盲目啊。
我改怎样取HP的数值做对比????????
很菜 别见笑 哈哈!!!
解决方案 »
- Visual.Assist.X为什么不能用在vb6中文版上?
- 我用VB写了一个服务程序,在注销再登陆后CPU占用50%?
- 〓〓第一次做VBA,请教个傻瓜问题!!!(在线,答出立刻结帖)
- 如何选中DataGrid中的一行?
- 请online等高人出面!!!!把内存中的声音保存到磁盘上!!
- 在模块里写一个函数,来按字段查询, 急!!!在线等待......问题解决立刻给分,谢谢
- 新手问题(关于报表)
- VB.NET中Word中的内容以图片格式显示在PictureBox中
- 急急急急急!!!请教各位专家,vb工资条打印程序报“打印错误,无效属性值”是什么问题?以前都可以正常打印,是一个针式打印机。
- MSFLEXGRID 控件合并的问题
- Cad VBA 菜单单击如何调用sub过程
- 谁能写出这段巨有创意的VB程序?
当血量少于一半时,不执行下面的代码
为什么呢?
Private Sub Timer2_Timer()
If hp < hp * 0.5 Then
Label52.Caption = "哦客"
End If
End Sub
If hp < hp * 0.5 Then 这个条件永远都不能成立。
另外定义一个变量来存原始的值
Private Sub Timer2_Timer()
If hp < oldhp * 0.5 Then 'oldhp是开始读出的HP,
Label52.Caption = "哦客"
End If
End Sub
//
啊哈,对哦,一个人永远咬不到自己的鼻子,嘿嘿~~光看语法错误了,根本没看逻辑错误,哈哈哈哈~~~楼上正解~~~看来是饿了,啃饼~~~~~~~~~~~~~