vb数字操作机器人软件代码

​Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const EM_REPLACESEL = &HC2

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Check1_Click()

If Check1.Value = 1 Then

Text4.Visible = True

ElseIf Check1.Value = 0 Then

Text4.Visible = False

End If

End Sub

Private Sub Command1_Click()

Text1.Text = ""

Text1.SetFocus

Dim S  As String

Dim i, j As Integer

j = Val(Text2.Text)

S = Text3.Text

For i = 1 To Len(S)

Select Case Mid(S, i, 1)

Case "0"

Call Command2_Click

Sleep 500

Case "1"

Call Command3_Click

 Sleep 500

Case "a"

Call keybd_event(9, 0, 0, 0) '按下

Call keybd_event(9, 0, KEYEVENTF_KEYUP, 0) '释放

 Sleep j

Case "b"

Call keybd_event(13, 0, 0, 0) '按下

Call keybd_event(13, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "c"

Call keybd_event(19, 0, 0, 0) '按下

Call keybd_event(19, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "d"

Call keybd_event(27, 0, 0, 0) '按下

Call keybd_event(27, 0, KEYEVENTF_KEYUP, 0) '释放

 Sleep j

Case "e"

Call keybd_event(17, 0, 0, 0) '按下

Call keybd_event(65, 0, 0, 0) '按下

Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(65, 0, KEYEVENTF_KEYUP, 0) '释放

 Sleep j

Case "f"

Call keybd_event(17, 0, 0, 0) '按下

Call keybd_event(67, 0, 0, 0) '按下

Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(67, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "g"

Call keybd_event(17, 0, 0, 0) '按下

Call keybd_event(86, 0, 0, 0) '按下

Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(86, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "h"

Call keybd_event(18, 0, 0, 0) '按下

Call keybd_event(9, 0, 0, 0) '按下

Call keybd_event(18, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(9, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "i"

 Call keybd_event(18, 0, 0, 0) '按下

Call keybd_event(19, 0, 0, 0) '按下

Call keybd_event(78, 0, 0, 0) '按下

Call keybd_event(18, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(19, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(78, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "j"

Call keybd_event(18, 0, 0, 0) '按下

Call keybd_event(19, 0, 0, 0) '按下

Call keybd_event(88, 0, 0, 0) '按下

Call keybd_event(18, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(19, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(88, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "k"

Call keybd_event(112, 0, 0, 0) '按下

Call keybd_event(112, 0, KEYEVENTF_KEYUP, 0) '释放

 Sleep j

Case "l"

Call keybd_event(113, 0, 0, 0) '按下

Call keybd_event(113, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "m"

Call keybd_event(114, 0, 0, 0) '按下

Call keybd_event(114, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "n"

Call keybd_event(115, 0, 0, 0) '按下

Call keybd_event(115, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "o"

Call keybd_event(116, 0, 0, 0) '按下

Call keybd_event(116, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "p"

Call keybd_event(117, 0, 0, 0) '按下

Call keybd_event(117, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "q"

Call keybd_event(118, 0, 0, 0) '按下

Call keybd_event(118, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "r"

Call keybd_event(119, 0, 0, 0) '按下

Call keybd_event(119, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "s"

Call keybd_event(120, 0, 0, 0) '按下

Call keybd_event(120, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "t"

Call keybd_event(121, 0, 0, 0) '按下

Call keybd_event(121, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "u"

Call keybd_event(122, 0, 0, 0) '按下

Call keybd_event(122, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "v"

Call keybd_event(123, 0, 0, 0) '按下

Call keybd_event(123, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "w"

Call keybd_event(8, 0, 0, 0) '按下

Call keybd_event(8, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "x"

Call keybd_event(36, 0, 0, 0) '按下

Call keybd_event(36, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "y"

Call keybd_event(35, 0, 0, 0) '按下

Call keybd_event(35, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "z"

Call keybd_event(18, 0, 0, 0) '按下

Call keybd_event(20, 0, 0, 0) '按下

Call keybd_event(18, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(20, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "A"

Call keybd_event(17, 0, 0, 0) '按下

Call keybd_event(16, 0, 0, 0) '按下

Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(16, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "B"

Call keybd_event(17, 0, 0, 0) '按下

Call keybd_event(88, 0, 0, 0) '按下

Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(88, 0, KEYEVENTF_KEYUP, 0) '释放

 Sleep j

Case "C"

Call keybd_event(17, 0, 0, 0) '按下

Call keybd_event(68, 0, 0, 0) '按下

Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(68, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "D"

Call keybd_event(17, 0, 0, 0) '按下

Call keybd_event(78, 0, 0, 0) '按下

Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(78, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "E"

Call keybd_event(17, 0, 0, 0) '按下

Call keybd_event(79, 0, 0, 0) '按下

Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(79, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "F"

Call keybd_event(17, 0, 0, 0) '按下

Call keybd_event(19, 0, 0, 0) '按下

Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(19, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "G"

Call keybd_event(10, 0, 0, 0) '按下

Call keybd_event(68, 0, 0, 0) '按下

Call keybd_event(10, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(68, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "H"

Call keybd_event(10, 0, 0, 0) '按下

Call keybd_event(69, 0, 0, 0) '按下

Call keybd_event(10, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(69, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "I"

Call keybd_event(10, 0, 0, 0) '按下

Call keybd_event(77, 0, 0, 0) '按下

Call keybd_event(10, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(77, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "J"

Call keybd_event(10, 0, 0, 0) '按下

Call keybd_event(82, 0, 0, 0) '按下

Call keybd_event(10, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(82, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "K"

Call keybd_event(16, 0, 0, 0) '按下

Call keybd_event(9, 0, 0, 0) '按下

Call keybd_event(16, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(9, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "L"

Call keybd_event(17, 0, 0, 0) '按下

Call keybd_event(9, 0, 0, 0) '按下

Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(9, 0, KEYEVENTF_KEYUP, 0) '释放

 Sleep j

Case "M"

Call keybd_event(17, 0, 0, 0) '按下

Call keybd_event(16, 0, 0, 0) '按下

Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(16, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "N"

Call keybd_event(12, 0, 0, 0) '按下

Call keybd_event(115, 0, 0, 0) '按下

Call keybd_event(12, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(115, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "O"

Call keybd_event(12, 0, 0, 0) '按下

Call keybd_event(13, 0, 0, 0) '按下

Call keybd_event(12, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(13, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "P"

Call keybd_event(17, 0, 0, 0) '按下

Call keybd_event(27, 0, 0, 0) '按下

Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(27, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "Q"

Call keybd_event(17, 0, 0, 0) '按下

Call keybd_event(12, 0, 0, 0) '按下

Call keybd_event(46, 0, 0, 0) '按下

Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(12, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(46, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "R"

Call keybd_event(16, 0, 0, 0) '按下

Call keybd_event(46, 0, 0, 0) '按下

Call keybd_event(16, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(46, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "S"

Call keybd_event(17, 0, 0, 0) '按下

Call keybd_event(83, 0, 0, 0) '按下

Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(83, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "T"

Call keybd_event(16, 0, 0, 0) '按下

Call keybd_event(121, 0, 0, 0) '按下

Call keybd_event(16, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(121, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "U"

Call keybd_event(17, 0, 0, 0) '按下

Call keybd_event(115, 0, 0, 0) '按下

Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(115, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "V"

Call keybd_event(12, 0, 0, 0) '按下

Call keybd_event(19, 0, 0, 0) '按下

Call keybd_event(12, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(19, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "W"

Call keybd_event(17, 0, 0, 0) '按下

Call keybd_event(87, 0, 0, 0) '按下

Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(87, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "X"

Call keybd_event(17, 0, 0, 0) '按下

Call keybd_event(90, 0, 0, 0) '按下

Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(90, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "Y"

Call keybd_event(17, 0, 0, 0) '按下

Call keybd_event(89, 0, 0, 0) '按下

Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(89, 0, KEYEVENTF_KEYUP, 0) '释放

Sleep j

Case "Z"

Call keybd_event(17, 0, 0, 0) '按下

Call keybd_event(122, 0, 0, 0) '按下

Call keybd_event(17, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(122, 0, KEYEVENTF_KEYUP, 0) '释放

End Select

Next

End Sub

Private Sub Command2_Click()

Dim S As String

S = Text1.Text

Shell S, vbNormalFocus

End Sub

Private Sub Command3_Click()

Dim S As String

S = Text5.Text

Shell S, vbNormalFocus

End Sub

Private Sub Command4_Click()

Call keybd_event(vbKeyCapital, 0, 0, 0) '模拟按下 'vbKeyCapital=20

Call keybd_event(20, 0, &H2, 0) '模拟弹起键

Call keybd_event(9, 0, 0, 0) '按下

Call keybd_event(9, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(13, 0, 0, 0) '按下

Call keybd_event(13, 0, KEYEVENTF_KEYUP, 0) '释放

Call keybd_event(vbKeyTab, 0, 0, 0) '模拟按下

Call keybd_event(9, 0, &H2, 0) '模拟弹起键

Call keybd_event(vbKeyA, 0, 0, 0) '模拟按下

Call keybd_event(65, 0, &H2, 0) '模拟弹起键

End Sub

Private Sub Form_Load()

Text4.Visible = False

End Sub