feiyang025 发表于 2013-1-25 09:52:18

轩辕传奇挂机辅助源码。

这游戏 其实就是 后台模拟按键的
Private Sub Command1_Click()
Timer2.Enabled = True
End Sub

Private Sub Command2_Click()
Timer2.Enabled = False
End Sub

Private Sub Command3_Click()

If Timer3.Enabled = False Then

Timer3.Enabled = True

Else

Timer3.Enabled = False

End If

End Sub

Private Sub Form_Load()

SkinH_Attach '更换皮肤

Timer1.Interval = 1000
Timer2.Enabled = False

End Sub

Private Sub Timer1_Timer()



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

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

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

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

End Sub

Private Sub Timer2_Timer()


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

'=======================================

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

'=======================================

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

'=======================================

End Sub

Private Sub Timer3_Timer()
a.修改内存4字节长整数 "XYClient.exe", "+18]+A8]+1A0", 9999
a.修改内存4字节长整数 "XYClient.exe", "+18]+A8]+198", 9999
End Sub

efeel 发表于 2013-10-17 20:15:49

貌似用的是vb梦工厂的dll。不错！

chenteng 发表于 2013-11-15 13:16:45

看看 学习学习!!

gnoluohz 发表于 2014-8-19 20:22:01

11111111111111111111111111111
页: [1]
查看完整版本: 轩辕传奇挂机辅助源码。