Private Sub Check1_Click()
If Check1.Value = 1 Then
If hProcess Then
WriteProcessMemory hProcess, ByVal &H45AE59, -846528150, 4, 0&
End If
Else
If hProcess Then
WriteProcessMemory hProcess, ByVal &H45AE59, -846525846, 4, 0&
End If
End If
End Sub
在Timer
加入
If Check1.Value = 1 Then
If hProcess Then
WriteProcessMemory hProcess, ByVal &H45AE59, -846528150, 4, 0&
End If
Else
If hProcess Then
WriteProcessMemory hProcess, ByVal &H45AE59, -846525846, 4, 0&
End If
End If
End Sub
这个吧