vb6.0版本SendMessage键盘按键参数和代码

按键 代码
SHIFT +
CTRL ^
ALT %

a是tab切换焦点和切换控件，

b是enter换行或进入或确定，
c是 空格，
d是Esc是取消或停止或关闭，
e是CTRL+A即^A是全选，
f是CTRL+C即^C是复制，
g是CTRL+V即^V是粘贴，

h是Alt+tab即%{tab}是切换窗口，
Alt+++tab即%+{tab}是切换上一个窗口，

i是alt+空格+N是最小化窗口，
j是alt+空格+X是最大化窗口，
k是F1是显示帮助，
l是F2是重命名文件，
m是F3是查找或搜索，
n是F4是另存为或“地址”栏列表，
o是F5是刷新，
p是F6是在窗口或桌面上循环切换子菜单，
q是F7是DoS下专用功能，
r是F8是Windows 启动选项，
s是F9是Excel 中计算公式，
t是F10是激活菜单栏，
u是F11是切换全屏，
v是F12是Word 里另存文档，
w是BackSpace是删除左侧一个字符或返回上一页，
x是Home是移至行首，
y是End是移至行尾，
z是win是打开开始菜单，
A是DELETE是删除右侧一个字符，
B是CTRL+X即^X是剪切，
C是CTRL+D即^D是删除，
D是CTRL+N即^N是新建，
E是CTRL+O即^O是打开，
F是CTRL+空格是中英文输入切换
G是win+D是显示桌面，
H是win+E是打开资源管理器，
I是win+M是最小化所有窗口，
J是win+R是运行，

win+i是设置.

K是Shift+tab是在选项之间向后移动，
L是Ctrl + Tab是切换到下一选项卡，
M是CTRL+Shift即CTRL+Shift是输入法切换，
N是ALT+F4是关闭当前文件或者关闭计算机，
O是ALT+Enter是打开文件属性，
P是CTRL+Esc即^{Esc}是开始菜单，
Q是CTRL+ALT+DELETE是打开任务管理器，
R是SHIFT+DELETE是永久删除所选项，
S是CTRL+S即^S是保存文档，
T是SHIFT+F10是选中文件的右菜单或显示所选项的快捷菜单，
U是CTRL+F4即^{F4}是关闭当前窗口，
V是ALT+空格键是显示程序"控制"菜单，
W是Ctrl+W是关闭文档，
X是CTRL+Z即^Z是撤销，
Y是CTRL+Y即^Y是恢复，
Z是CTRL+F11即^{F11}是隐藏或显示菜单栏。

Private Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
Private Const WM_SETTEXT = &HC
Const EM_REPLACESEL = &HC2

’ 声明Sleep函数
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
Text1.text = “C:\Users\28261\Desktop\文本框密码登录程序.exe”
End Sub

Private Sub Command1_Click()

Dim z As Object
Set z = CreateObject(“WScript.Shell”)

Call Command3_Click
'暂停一段时间，以确保目标目录已打开
Sleep 3000

z.SendKeys (“{DOWN 15}”)
Sleep 500

Call Command2_Click
'暂停一段时间，以确保目标目录已打开
Sleep 3000

Dim S As String
S = Text1.Text
Shell S, vbNormalFocus
Sleep 3000

'打开目标目录
shell “explorer.exe C:\Users\28261\Desktop”, vbNormalFocus
Sleep 3000

' 打开目标目录
Shell "explorer.exe C:\Users\28261\Documents", vbNormalFocus
' 暂停一段时间，以确保目标目录已打开
Sleep 3000

z.SendKeys (“{DOWN 2}”)
Sleep 500

End Sub

Private Sub Command1_Click
Dim m As Object
Set m = CreateObject(“WScript.Shell”)

'打开目标程序
Shell “密码登录程序.exe”, vbNormalFocus
Sleep 3000

Dim S As String
S = Text1.Text
Shell S, vbNormalFocus
Sleep 3000

m.SendKeys"{tab}"
Sleep 300

m.SendKeys"03"
Sleep 300

m.SendKeys"{tab 2}"
Sleep 300

m.SendKeys"{Enter}"
Sleep 300

m.SendKeys"{ }"
Sleep 300

m.SendKeys"{Esc}"
Sleep 300

m.SendKeys"^A"
Sleep 300

m.SendKeys"^C"
Sleep 300

m.SendKeys"^V"
Sleep 300

m.SendKeys"%{tab}"
Sleep 300

m.SendKeys"%+{tab}"
Sleep 300

m.SendKeys"{alt+空格+N}"
Sleep 300

m.SendKeys"{alt+空格+X}"
Sleep 300

m.SendKeys"{F1}"
Sleep 300

m.SendKeys"{F2}"
Sleep 300

m.SendKeys"{F3}"
Sleep 300

m.SendKeys"{F4}"
Sleep 300

m.SendKeys"{F5}"
Sleep 300

m.SendKeys"{F6}"
Sleep 300

m.SendKeys"{F7}"
Sleep 300

m.SendKeys"{F8}"
Sleep 300

m.SendKeys"{F9}"
Sleep 300

m.SendKeys"{F10}"
Sleep 300

m.SendKeys"{F11}"
Sleep 300

m.SendKeys"{F12}"
Sleep 300

m.SendKeys"{BackSpace}"
Sleep 300

m.SendKeys"{Home}"
Sleep 300

m.SendKeys"{End}"
Sleep 300

m.SendKeys"{win}"
Sleep 300

m.SendKeys"{DELETE}"
Sleep 300

m.SendKeys"^X"
Sleep 300

m.SendKeys"^D"
Sleep 300

m.SendKeys"^N"
Sleep 300

m.SendKeys"^O"
Sleep 300

m.SendKeys"{CTRL+空格}"
Sleep 300

m.SendKeys"{WIN+D}"
Sleep 300

m.SendKeys"{WIN+ E}"
Sleep 300

m.SendKeys"{WIN+ M}"
Sleep 300

m.SendKeys"{WIN+ R}"
Sleep 300

m.SendKeys"{WIN+ I}"
Sleep 300

m.SendKeys"{Shift + Tab}"
Sleep 300

m.SendKeys"{Ctrl+tab}"
Sleep 300

m.SendKeys"{CTRL+Shift}"
Sleep 300

m.SendKeys"{ALT+F4}"
Sleep 300

m.SendKeys"{ALT+Enter}"
Sleep 300

m.SendKeys"^{Esc}"
Sleep 300

m.SendKeys"^{ALT+DELETE}"
Sleep 300

m.SendKeys"{SHIFT+DELETE}"
Sleep 300

m.SendKeys"^S"
Sleep 300

m.SendKeys"{SHIFT+F10}"
Sleep 300

m.SendKeys"^{F4}"
Sleep 300

m.SendKeys"{ALT+空格键}"
Sleep 300

m.SendKeys"{Ctrl+W}"
Sleep 300

m.SendKeys"^Z"
Sleep 300

m.SendKeys"^Y"
Sleep 300

m.SendKeys"^{F11}"
Sleep 300

End Sub

Private Sub Command1_Click()

' 打开文本文件
ShellExecute Me.hWnd, "Open", "C:\Users\28261\Desktop\查找文件并输入内容程序源代码\空.txt", vbNullString, vbNullString, vbNormalFocus

Sleep 300

End Sub

Private Sub Command2_Click()
’ 打开应用程序
filePath = “C:\Users\28261\Desktop\查找文件并输入内容程序源代码\文本框密码登录程序.exe”
ShellExecute Me.hWnd, “Open”, filePath, vbNullString, vbNullString, vbNormalFocus
End Sub

Private Sub Command3_Click()
Dim filePath As String
Dim fileContent As String

' 获取文件路径和内容
filePath = "C:\Users\28261\Desktop\查找文件并输入内容程序源代码\空.txt"
fileContent = Text1.text

' 打开文本文件
ShellExecute Me.hWnd, "Open", filePath, vbNullString, vbNullString, vbNormalFocus

End Sub

以下待测试

            ' 发送 Backspace 键消息
            SendMessage Me.hWnd, WM_KEYDOWN, VK_BACK, 0
            SendMessage Me.hWnd, WM_KEYUP, VK_BACK, 0




            ' 发送 Enter 键消息
            SendMessage Me.hWnd, WM_KEYDOWN, VK_RETURN, 0
            SendMessage Me.hWnd, WM_KEYUP, VK_RETURN, 0


           ' 发送焦点向下移（Down）键消息
            SendMessage Me.hWnd, WM_KEYDOWN, VK_DOWN, 0
            SendMessage Me.hWnd, WM_KEYUP, VK_DOWN, 0


            ' 发送 Delete 键消息
            SendMessage Me.hWnd, WM_KEYDOWN, VK_DELETE, 0
            SendMessage Me.hWnd, WM_KEYUP, VK_DELETE, 0

vbKeyControl 0x11 CTRL 键
vbKeyC 67 字母 C 键

’ 发送 Ctrl+C键消息
SendMessage Me.hWnd, WM_KEYDOWN, VK_Control, 0
SendMessage Me.hWnd, WM_KEYUP, VK_Control, 0
SendMessage Me.hWnd, WM_KEYDOWN, VK_C, 0
SendMessage Me.hWnd, WM_KEYUP, VK_C, 0

’ 发送 Ctrl+C键消息
SendMessage Me.hWnd, WM_KEYDOWN, VK_Control, 0
SendMessage Me.hWnd, WM_KEYDOWN, VK_C, 0
SendMessage Me.hWnd, WM_KEYUP, VK_C, 0
SendMessage Me.hWnd, WM_KEYUP, VK_Control, 0