数字执行机器人软件代码

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 Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)

Private Sub Check1_Click()

If Check1.Value = 1 Then

Text7.Visible = True

ElseIf Check1.Value = 0 Then

Text7.Visible = False

End If

End Sub

Private Sub Command1_Click()
Dim S As String
S = Text1.Text
Shell S, vbNormalFocus

End Sub

Private Sub Command2_Click()

Dim S As String
Dim i, j As Integer

Dim M As Object
Set M = CreateObject("WScript.Shell")

j = Val(Text3.Text)

S = Text4.Text
For i = 1 To Len(S)

Select Case Mid(S, i, 1)

Case “0”
Call Command1_Click
Sleep 500

Case “1”
Call Command3_Click
Sleep 500

Case “2”
Call Command4_Click
Sleep 500

Case “3”
Call Command5_Click
Sleep 500

Case “a”
m.SendKeys “{tab}”
Sleep j

Case “b”
m.SendKeys “{Enter}”
Sleep j

Case “c”
m.SendKeys “{ }”
Sleep j

Case “d”
m.SendKeys “{Esc}”

Case “e”
m.SendKeys “^A”
Sleep j

Case “f”
m.SendKeys “^C”
Sleep j

Case “g”
m.SendKeys “^V”
Sleep j

Case “h”
m.SendKeys “%{tab}”
Sleep j

Case “i”
m.SendKeys “% N”
Sleep j

Case “j”
m.SendKeys “% X”
Sleep j

Case “k”
m.SendKeys “{F1}”
Sleep j

Case “l”
m.SendKeys “{F2}”
Sleep j

Case “m”
m.SendKeys “{F3}”
Sleep j

Case “n”
m.SendKeys “{F4}”
Sleep j

Case “o”
m.SendKeys “{F5}”
Sleep j

Case “p”
m.SendKeys “{F6}”
Sleep j

Case “q”
m.SendKeys “{F7}”
Sleep j

Case “r”
m.SendKeys “{F8}”
Sleep j

Case “s”
m.SendKeys “{F9}”
Sleep j

Case “t”
m.SendKeys “{F10}”
Sleep j

Case “u”
m.SendKeys “{F11}”
Sleep j

Case “v”
m.SendKeys “{F12}”
Sleep j

Case “w”
m.SendKeys “{BackSpace}”
Sleep j

Case “x”
m.SendKeys “{Home}”
Sleep j

Case “y”
m.SendKeys “{End}”
Sleep j

Case “z”
m.SendKeys “{win}”
Sleep j

Case “A”
m.SendKeys “{DELETE}”
Sleep j

Case “B”
m.SendKeys “^A”
Sleep j

Case “C”
m.SendKeys “^C”
Sleep j

Case “D”
m.SendKeys “^V”
Sleep j

Case “E”
m.SendKeys “{Shift}”
Sleep j

Case “F”
m.SendKeys “{Alt}”
Sleep j

Case “G”
m.SendKeys “{WIN+D}”
Sleep j

Case “H”
m.SendKeys “{WIN+E}”
Sleep j

Case “I”
m.SendKeys “{WIN+M}”
Sleep j

Case “J”
m.SendKeys “+{Tab}”
Sleep j

Case “K”
m.SendKeys “^{Tab}”
Sleep j

Case “L”
m.SendKeys “^{F11}”
Sleep j

Case “M”
m.SendKeys “^O”
Sleep j

Case “N”
m.SendKeys “%{F4}”
Sleep j

Case “O”
m.SendKeys “%{SPACEBAR}”
Sleep j

Case “P”
m.SendKeys “^{Esc}”
Sleep j

Case “Q”
m.SendKeys “^%{DELETE}”
Sleep j

Case “R”
m.SendKeys “+{DELETE}”
Sleep j

Case “S”
m.SendKeys “^S”
Sleep j

Case “T”
m.SendKeys “+{F10}”
Sleep j

Case “U”
m.SendKeys “^{F4}”
Sleep j

Case “V”
m.SendKeys "% "
Sleep j

Case “W”
m.SendKeys “+{F10}”
Sleep j

Case “X”
m.SendKeys “^Z”
Sleep j

Case “Y”
m.SendKeys “^Y”
Sleep j

Case “Z”
m.SendKeys “^{F11}”

End Select
Next
End Sub

Private Sub Command3_Click()
Dim S As String
S = Text2.Text
Shell S, vbNormalFocus

End Sub

Private Sub Command4_Click()
Dim S As String
S = Text5.Text
Shell S, vbNormalFocus

End Sub

Private Sub Command5_Click()
Dim S As String
S = Text6.Text
Shell S, vbNormalFocus

End Sub

Private Sub Form_Load()
Text7.Visible = False
End Sub