数字操作机器人软件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