数字执行机器人程序源代码2023-3-12-22-10.zip

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 Command1_Click() Dim z As String z = Text1.Text Shell z, 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 "a" Call Command1_Click Sleep 500 Case "0" m.SendKeys "{tab}" Sleep j Case "1" m.SendKeys "{Enter}" Sleep j Case "2" m.SendKeys "{ }" Sleep j Case "3" m.SendKeys "{Esc}" Case "4" m.SendKeys "^A" Sleep j Case "5" m.SendKeys "^C" Sleep j Case "6" m.SendKeys "^V" Sleep j Case "7" m.SendKeys "%{tab}" Sleep j Case "8" m.SendKeys "{win＋M}" Sleep j Case "9" m.SendKeys "{win+tab}" Sleep j End Select Next End Sub