Lag Genorater[VB6]

[davidwp]

Ok I am trying to make a program that when i hit F11 it will make my ping/latency rise and when i hit F12 it will go back to normal....
right now when i press f11 and f12 nothing happens... and i have to hit those before i can even use the buttens.... if there is all ready a program like this lemme know

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function PostMessage Lib "user32" _
Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal szClass$, ByVal szTitle$) As Long
Private Const WM_CLOSE = &H10

Private Sub Command1_Click(Index As Integer)
If GetAsyncKeyState(vbKeyF12) Then
Shell ("ping 27.27.27.27 -l 65000")
End If
End Sub

Private Sub Command2_Click(Index As Integer)
If GetAsyncKeyState(vbKeyF11) Then
Dim hWnd, retval As Long
Dim WinTitle As String
WinTitle = "c:\WINDOWS\system32\ping.exe" '<- Title of Window
hWnd = FindWindow(vbNullString, WinTitle)
retval = PostMessage(hWnd, WM_CLOSE, 0&, 0&)
End If
End Sub

Private Sub Timer1_Timer()
Shell ("cmd")
End Sub