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