易语言教程_易语言源码_易语言写挂_易语言论坛_看流星社区

 找回密码
 注册
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
赞助广告位 请点击这里联系站长 QQ20209081
赞助广告位 请点击这里联系站长 QQ20209081
赞助广告位 请点击这里联系站长 QQ20209081
查看: 2022|回复: 3

轩辕传奇挂机辅助源码。

[复制链接]
发表于 2013-1-25 09:52:18 | 显示全部楼层 |阅读模式
这游戏 其实就是 后台模拟按键的

  1. Private Sub Command1_Click()
  2. Timer2.Enabled = True
  3. End Sub

  4. Private Sub Command2_Click()
  5. Timer2.Enabled = False
  6. End Sub

  7. Private Sub Command3_Click()

  8. If Timer3.Enabled = False Then

  9. Timer3.Enabled = True

  10. Else

  11. Timer3.Enabled = False

  12. End If

  13. End Sub

  14. Private Sub Form_Load()

  15. SkinH_Attach '更换皮肤

  16. Timer1.Interval = 1000
  17. Timer2.Enabled = False

  18. End Sub

  19. Private Sub Timer1_Timer()



  20. Label7.Caption = a.读取内存4字节长整数("XYClient.exe", "[0106B5B4]+18]+A8]+1A0") '当前血
  21. Label8.Caption = a.读取内存4字节长整数("XYClient.exe", "[0106B5B4]+18]+A8]+198") '最大血

  22. Label9.Caption = a.读取内存4字节长整数("XYClient.exe", "[0106B5B4]+18]+A8]+1A4") '当前蓝
  23. Label10.Caption = a.读取内存4字节长整数("XYClient.exe", "[0106B5B4]+18]+A8]+19C") '最大蓝

  24. Label11.Caption = a.读取内存4字节长整数("XYClient.exe", "[0106B5B4]+18]+A8]+1A8") '等级

  25. Label12.Caption = a.读取内存1字节("XYClient.exe", "[0106B5B4]+18]+A8]+98]+60") '选怪标志

  26. End Sub

  27. Private Sub Timer2_Timer()


  28. If Val(Label7.Caption) < Val(Label8.Caption) * (Val(Combo1.Text) / 100) And Check1.Value = 1 Then  '血
  29. PostKey Spy控件1.窗口句柄, vbKey2   '8号格子红药
  30. End If

  31. '=======================================

  32. If Val(Label7.Caption) < Val(Label8.Caption) * (Val(Combo1.Text) / 100) And Check1.Value = 1 Then '蓝
  33. PostKey Spy控件1.窗口句柄, vbKey3    '9号格子红药
  34. End If

  35. '=======================================

  36. If Label12.Caption = "1" Then
  37.         PostKey Spy控件1.窗口句柄, vbKey1   '按1键攻击
  38.         PostKey Spy控件1.窗口句柄, vbKey1   '按2键攻击
  39.         PostKey Spy控件1.窗口句柄, vbKey1   '按3键攻击
  40. '=======================================
  41.         PostKey Spy控件1.窗口句柄, vbKey8   '8号格子红药
  42.         PostKey Spy控件1.窗口句柄, vbKey9   '9号格子红药
  43.   Else
  44.         PostKey Spy控件1.窗口句柄, vbKeyTab  'Tal选怪
  45.   End If

  46. '=======================================

  47. End Sub

  48. Private Sub Timer3_Timer()
  49. a.修改内存4字节长整数 "XYClient.exe", "[0106B5B4]+18]+A8]+1A0", 9999
  50. a.修改内存4字节长整数 "XYClient.exe", "[0106B5B4]+18]+A8]+198", 9999
  51. End Sub
复制代码
发表于 2013-10-17 20:15:49 | 显示全部楼层
貌似用的是vb梦工厂的dll。不错!
发表于 2013-11-15 13:16:45 | 显示全部楼层
看看 学习学习!!
发表于 2014-8-19 20:22:01 | 显示全部楼层
11111111111111111111111111111
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
*滑动验证:
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|看流星社区  |网站地图

GMT+8, 2018-10-19 22:33 易语言论坛 易语言导航

Powered by 看流星社区 X3.2

©2011-2016 最好的辅助编程技术论坛

快速回复 返回顶部 返回列表