外挂是怎么执行和实现冒险岛无敌状态的.
下面外挂源程序的主窗口代码:
窗口区有两个Timer和两个Check,两个Timer的Interval = 100
1000/1秒.这是主要的控件.
第一个Timer的代码,因为Timer的Interval 取值是 100 ,所以每100毫秒执行一次Timer代码.
先看这段:
Private Sub Timer1_Timer()
'用if判断语句判断是否按下了键盘F11
If MyHotKey(vbKeyF11) Then
'If Check1.Value Then '再次用if判断Check1是否已经选取.Value取值有0 , 1 , 2;
Check1被选取成立就执行wudi的代码
If Check1.Value Then
'这里是wudi代码,作者把它放到Module1模块里 ,作者把执行wudi的代码简单化了.其实也可以这么写,便于理解[Aall wudi()], 函数Aall调用wudi()
wudi
End if
'如果if判断成立,也就是按下了F12就执行下一段代码.
ElseIf MyHotKey(vbKeyF12) Then
If Check2.Value Then
gongji
End If
Else
End If
End Sub
第二个Timer的代码,Interval 取值同样是 100 .
Private Sub Timer2_Timer()
'定义ID , Gamehwnd1
Dim ID As Long, Gamehwnd1 As Long
'查找冒险
下面外挂源程序的主窗口代码:
窗口区有两个Timer和两个Check,两个Timer的Interval = 100
1000/1秒.这是主要的控件.
第一个Timer的代码,因为Timer的Interval 取值是 100 ,所以每100毫秒执行一次Timer代码.
先看这段:
Private Sub Timer1_Timer()
'用if判断语句判断是否按下了键盘F11
If MyHotKey(vbKeyF11) Then
'If Check1.Value Then '再次用if判断Check1是否已经选取.Value取值有0 , 1 , 2;
Check1被选取成立就执行wudi的代码
If Check1.Value Then
'这里是wudi代码,作者把它放到Module1模块里 ,作者把执行wudi的代码简单化了.其实也可以这么写,便于理解[Aall wudi()], 函数Aall调用wudi()
wudi
End if
'如果if判断成立,也就是按下了F12就执行下一段代码.
ElseIf MyHotKey(vbKeyF12) Then
If Check2.Value Then
gongji
End If
Else
End If
End Sub
第二个Timer的代码,Interval 取值同样是 100 .
Private Sub Timer2_Timer()
'定义ID , Gamehwnd1
Dim ID As Long, Gamehwnd1 As Long
'查找冒险