vb.0SendMessage键盘按键参数和代码

EYYLTV
11 阅读5分钟

按键 代码 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

avatar
文章
阅读
粉丝