Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyEnd) Then
Text1.Text = ("Halo is Closing.")
TerminerProcessus ("Halo.exe")
Else
End If
If GetAsyncKeyState(vbKeyHome) Then
Text1.Text = ("Halo is now Restarting.")
TerminerProcessus ("Halo.exe")
Shell "C:\Program Files\Microsoft Games\Halo\halo.exe", vbNormalFocus
Else
End If
End Sub
Heres the error message i get when it is NOT in my halo folder.

I have a module in it to which allows me to hotkey.. so tell me if you need that


Sign In
Create Account


Back to top









