刺激战场
六合彩
贵宾厅
  • 2057阅读
  • 1回复

发布一个经过修改的clsASM和一个完整的modASM,完全可用 [复制链接]

上一主题 下一主题
离线啊冲
 

只看楼主 倒序阅读 使用道具 楼主  发表于: 2014-05-13
modASM 部分代码如下:完整两个文件打包请下载附件  


复制代码
  1. Option Explicit
  2. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
  3. Private Function Float2Int(Ans As Single) As Long '浮点转整形
  4.     CopyMemory Float2Int, Ans, 4
  5. End Function
  6. Sub CallNormalAttack()
  7. Dim asm As New clsASM  '无效果普通攻击,49版
  8. Const Address = &H5A4400
  9. With asm                            '  asm
  10.     .Pushad                        '  pushad
  11.     .Mov_EAX Address                '  Mov EAX,&H5A2170
  12.     .Call_EAX                      '  call pointer(eax)
  13.     .Popad                          '  popad
  14.     .ret
  15. End With                            '  end
  16. asm.inject GameProcId
  17. asm.Run_ASM GameProcId, 0
  18. asm.free GameProcId, 0
  19. End Sub
  20. Sub CallZazen()
  21. Dim asm As New clsASM  '打坐,49版
  22. Const Address = &H5A4A80
  23. With asm                            '  asm
  24.     .Pushad                        '  pushad
  25.     .Mov_EAX Address                '  Mov EAX,&H5A2170
  26.     .Call_EAX                      '  call pointer(eax)
  27.     .Popad                          '  popad
  28.     .ret
  29. End With                            '  end
  30. asm.inject GameProcId
  31. asm.Run_ASM GameProcId, 0
  32. asm.free GameProcId, 0
  33. End Sub
  34. Sub CallUnZazen()
  35. Dim asm As New clsASM  '停止打坐,49版
  36. Const Address = &H5A4A40
  37. With asm                            '  asm
  38.     .Pushad                        '  pushad
  39.     .Mov_EAX Address                '  Mov EAX,&H5A2170
  40.     .Call_EAX                      '  call pointer(eax)
  41.     .Popad                          '  popad
  42.     .ret
  43. End With                            '  end
  44. asm.inject GameProcId
  45. asm.Run_ASM GameProcId, 0
  46. asm.free GameProcId, 0
  47. End Sub



http://qiannao.com/file/common/49be9439/
善者 慈悲心常在 无怨无恨 以苦为乐
默认压缩密码www.hifyl.com
文件分享密码问题:http://www.hifyl.com/read-htm-tid-4444.html
离线nopara

只看该作者 沙发  发表于: 2016-12-13
谢谢分享!!!!!
快速回复
限100 字节
如果您在写长篇帖子又不马上发表,建议存为草稿
 
上一个 下一个