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 Command2_Click
Sleep 500
Case "2"
Call Command3_Click
Sleep 500
Case "3"
Call Command4_Click
Sleep 500
Case "4"
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 "{alt+空格+N}"
Sleep j
Case "j"
M.SendKeys "{alt+空格+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 "^X"
Sleep j
Case "C"
M.SendKeys "^D"
Sleep j
Case "D"
M.SendKeys "^N"
Sleep j
Case "E"
M.SendKeys "^O"
Sleep j
Case "F"
M.SendKeys "{CTRL+空格}"
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 "{WIN+ R}"
Sleep j
Case "K"
M.SendKeys "{Shift + Tab}"
Sleep j
Case "L"
M.SendKeys "{Ctrl+tab}"
Sleep j
Case "M"
M.SendKeys "{CTRL+Shift}"
Sleep j
Case "N"
M.SendKeys "{ALT+F4}"
Sleep j
Case "O"
M.SendKeys "{ALT+Enter}"
Sleep j
Case "P"
M.SendKeys "^{Esc}"
Sleep j
Case "Q"
M.SendKeys "^{ALT+DELETE}"
Sleep j
Case "R"
M.SendKeys "{SHIFT+DELETE}"
Sleep j
Case "S"
M.SendKeys "^S"
Sleep j
Case "T"
M.SendKeys "{SHIFT+F10}"
Sleep j
Case "U"
M.SendKeys "^{F4}"
Sleep j
Case "V"
M.SendKeys "{ALT+空格键}"
Sleep j
Case "W"
M.SendKeys "{Ctrl+W}"
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
数字执行机器人程序源代码 2023-3-15-10-58.zip
148 浏览量
2023-03-24
09:33:19
上传
评论
收藏 144KB ZIP 举报
数字执行机器人程序源代码 2023-3-15-10-58.zip （20个子文件） 
数字执行机器人程序源代码 2023-3-15-10-58 
数字执行机器人程序代码2023-3-13-20-35.txt 3KB
MSSCCPRJ.SCC 203B 数字执行机器人程序.vbw 48B
数字执行机器人程序源代码 - 副本.zip 24KB 数字执行机器人程序.frm 8KB a.ico 50KB c.ico 50KB 数字执行机器人程序.frx 33KB 新vb数字执行机器人软件代码.txt 4KB 数字执行机器人程序 
数字执行机器人程序.exe 28KB 数字执行机器人软件使用帮助.txt 2KB 数字执行机器人程序.exe 88KB 数字执行机器人程序.vbp 778B 1676728736730.ico 50KB 数字执行机器人程序代码2023-3-15-10-57.txt 4KB 数字执行机器人软件使用帮助.txt 2KB b.ico 50KB 数字执行机器人程序.zip 8KB 028f2bb6e7f1f3fe4ef2fe143113ebe4.ico 50KB 数字执行机器人程序源代码2023-3-13-20-36.zip 10KB资源评论
