键盘答题器

我在玩诛仙游戏发现有些键盘答题器竟然有病毒 于是自己写了一个，由于许多YY会有提前答案所以加了个自动答题功能这样就不需要时刻看题目刷新了而且速度更快 在此和大家分享下 有不足的地方望高收不吝赐教 我已经把程序上传了http://download.csdn.net/source/2389501觉得好的朋友可以下去用 鄙视盗游戏号的人毕竟大家玩游戏是为了开心的 结果被盗号了好不容易得来的东西全没了 还开心个P啊

 

 Option Explicit
   
  Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
  Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
   Const MOUSEEVENTF_LEFTDOWN = &H2
   Const MOUSEEVENTF_LEFTUP = &H4
  Private Type POINTAPI
          X   As Long
          Y   As Long
  End Type
  Dim z     As POINTAPI
  Dim a  As POINTAPI
  Dim b     As POINTAPI
  Dim c     As POINTAPI
  Dim d     As POINTAPI
 
Private Sub Command1_Click()
 Timer1.Enabled = True
 Text1.SetFocus
End Sub

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

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKey5 Then
Check1.Value = 1
ElseIf KeyCode = vbKeyEscape Then
End
End If
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then
Text1.Text = "X:" & Str(z.X) & ",Y:" & Str(z.Y)
a = z
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF2 Then
Text2.Text = "X:" & Str(z.X) & ",Y:" & Str(z.Y)
b = z
Text3.SetFocus
End If
End Sub

Private Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF3 Then
Text3.Text = "X:" & Str(z.X) & ",Y:" & Str(z.Y)
c = z
Text4.SetFocus
End If
End Sub

Private Sub Text4_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF4 Then
Text4.Text = "X:" & Str(z.X) & ",Y:" & Str(z.Y)
d = z
Text5.SetFocus
End If
End Sub

Private Sub Text5_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKey1 Then
 SetCursorPos a.X, a.Y
 mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
 Text5.Text = "1"
ElseIf KeyCode = vbKey2 Then
 SetCursorPos b.X, b.Y
 mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
 Text5.Text = "2"
ElseIf KeyCode = vbKey3 Then
 SetCursorPos c.X, c.Y
 mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
 Text5.Text = "3"
ElseIf KeyCode = vbKey4 Then
 SetCursorPos d.X, d.Y
 mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
 Text5.Text = "4"
Else
Text5.Text = Right(Text5.Text, 1)
End If
End Sub

Private Sub Timer1_Timer()
GetCursorPos z
Me.Caption = "X:" & Str(z.X) & ",Y:" & Str(z.Y)
If Text5.Text <> "" Then
 Text5.SetFocus
 If Check1.Value = 1 Then
   Text5.SetFocus
   Timer2.Enabled = True
   Timer3.Enabled = True
 End If
End If
End Sub

Private Sub Timer2_Timer()
 Dim daan
  daan = Text5.Text
    If daan = "1" Then
     SendKeys "1"
    ElseIf daan = "2" Then
     SendKeys "2"
    ElseIf daan = "3" Then
     SendKeys "3"
    ElseIf daan = "4" Then
     SendKeys "4"
    Else
     Text5.Text = ""
    End If
End Sub

Private Sub Timer3_Timer()
Timer2.Enabled = False
Timer3.Enabled = False
Check1.Value = 0
End Sub