欢迎您访问电脑配置推荐网 - 最新i3 i5 i7组装电脑配置单推荐报价格
您现在的位置是：首页 > 编程 > 

VS2010旗舰版的VB.ET版本里的SendMessage键盘按键参数和代码

2025-07-15 23:21:06
按键 代码 SHIFT  CTRL ^ ALT % a是tab切换焦点和切换控件， b是enter换行或进入或确定， c是 空格， d是Esc是取消或停止或关闭， e是CTRLA即^A是全选， f是CTRLC即^C是

按键 代码
SHIFT 
CTRL ^
ALT %

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

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

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

i是alt空格是最小化窗口，
j是alt空格X是最大化窗口，
k是F1是显示帮助，
l是F2是重命名文件，
m是F是查或搜索，
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是CTRLX即^X是剪切，
C是CTRLD即^D是删除，
D是CTRL即^是新建，
E是CTRLO即^O是打开，
F是CTRL空格是中英文输入切换
G是winD是显示桌面，
H是winE是打开资源管理器，
I是winM是最小化所有窗口，
J是winR是运行，

wini是设置.

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

Imports System.IO
Imports System.Runtime.InteropServices

Public Class Form1
<DllImport(“user2.dll”, CharSet:=CharSet.Auto)>
Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
End Function

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click


    Dim a

    SendKeys.Send(%{tab})
            	等待一段时间，确保程序已经成功打开
    Threading.Thread.Sleep(1000)


    SendKeys.Send({tab 2})
            	等待一段时间，确保程序已经成功打开
    Threading.Thread.Sleep(200)



    Button4.PerformClick() 	复制按钮



    	粘贴内容
    SendKeys.SendWait(^v) 	 粘贴文本
    Threading.Thread.Sleep(200)


    SendKeys.Send({tab})
            	等待一段时间，确保程序已经成功打开
    Threading.Thread.Sleep(200)



    SendKeys.Send({Enter})
            	等待一段时间，确保程序已经成功打开
    Threading.Thread.Sleep(200)


    SendKeys.Send({Enter})
            	等待一段时间，确保程序已经成功打开
    Threading.Thread.Sleep(200)


    For a = 0 To 4

        SendKeys.Send({tab 2})
                	等待一段时间，确保程序已经成功打开
        Threading.Thread.Sleep(200)


        Button4.PerformClick() 	复制按钮




        SendKeys.Send({Backspace 5}) 	 删除文本
        Threading.Thread.Sleep(200)


        	粘贴内容
        SendKeys.SendWait(^v) 	 粘贴文本
        Threading.Thread.Sleep(200)


        SendKeys.Send({tab})
                	等待一段时间，确保程序已经成功打开
        Threading.Thread.Sleep(200)



        SendKeys.Send({Enter})
                	等待一段时间，确保程序已经成功打开
        Threading.Thread.Sleep(200)


        SendKeys.Send({Enter})
                	等待一段时间，确保程序已经成功打开
        Threading.Thread.Sleep(200)

    ext
End Sub




    Dim hWnd As IntPtr = Shell(C:\Users\Administrator\Desktop\按键密码恢复程序源代码ZQ202-11-16-11-21\登录程序.exe, )
            	等待一段时间，确保程序已经成功打开
    Threading.Thread.Sleep(1000)

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

Private Sub Command1_Click()

Button2.PerformClick()
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send(“{DOW 15}”)
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

Private Sub Command1_Click

打开目标程序
Shell “密码登录程序.exe”, vbormalFocus
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

Dim S As String
S = TextBox1.Text
Shell S, vbormalFocus
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{tab}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send0
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{tab 2}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{Enter}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{ }
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{Esc}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send^A
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send^C
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send^V
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send%{tab}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send%{tab}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{alt空格}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{alt空格X}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{F1}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{F2}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{F}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{F4}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{F5}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{F6}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{F7}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{F8}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{F9}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{F10}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{F11}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{F12}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{BackSpace}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{Home}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{End}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{win}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{DELETE}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send^X
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send^D
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send^
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send^O
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{CTRL空格}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{WID}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{WI E}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{WI M}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{WI R}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{WI I}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{Shift  Tab}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{Ctrltab}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{CTRLShift}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{ALTF4}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{ALTEnter}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send^{Esc}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send^{ALTDELETE}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{SHIFTDELETE}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send^S
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{SHIFTF10}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send^{F4}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{ALT空格键}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send{CtrlW}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send^Z
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send^Y
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

SendKeys.Send^{F11}
等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

End Sub

#感谢您对电脑配置推荐网 - 最新i3 i5 i7组装电脑配置单推荐报价格的认可，转载请说明来源于"电脑配置推荐网 - 最新i3 i5 i7组装电脑配置单推荐报价格

本文地址：http://www.dnpztj.cn/biancheng/1100840.html

相关标签：无
上传时间： 2025-07-15 14:35:02

上一篇：戴尔电脑重装Win10的方法详解

下一篇：microsoft注册服务器32位,win7系统弹出microsoft注册服务器已停止工作的解决方法

推荐阅读

留言与评论（共有 20 条评论）
注册新账号 登录
本站网友 四川消防设备
22分钟前 发表
) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(1000) Private Sub Form_Load() = “C
本站网友 伊利奶粉怎么样
13分钟前 发表
按键 代码 SHIFT  CTRL ^ ALT % a是tab切换焦点和切换控件， b是enter换行或进入或确定， c是 空格， d是Esc是取消或停止或关闭， e是CTRLA即^A是全选， f是CTRLC即^C是复制， g是CTRLV即^V是粘贴， h是Alttab即%{tab}是切换窗口， Alttab即%{tab}是切换上一个窗口， i是alt空格是最小化窗口， j是alt空格X是最大化窗口， k是F1是显示帮助， l是F2是重命名文件， m是F是查或搜索， 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是CTRLX即^X是剪切， C是CTRLD即^D是删除， D是CTRL即^是新建， E是CTRLO即^O是打开， F是CTRL空格是中英文输入切换 G是winD是显示桌面， H是winE是打开资源管理器， I是winM是最小化所有窗口， J是winR是运行， wini是设置. K是Shifttab是在选项之间向后移动， L是Ctrl  Tab是切换到下一选项卡， M是CTRLShift即CTRLShift是输入法切换， 是ALTF4是关闭当前文件或者关闭计算机， O是ALTEnter是打开文件属性， P是CTRLEsc即^{Esc}是开始菜单， Q是CTRLALTDELETE是打开任务管理器， R是SHIFTDELETE是永久删除所选项， S是CTRLS即^S是保存文档， T是SHIFTF10是选中文件的右菜单或显示所选项的快捷菜单， U是CTRLF4即^{F4}是关闭当前窗口， V是ALT空格键是显示程序控制菜单， W是CtrlW是关闭文档， X是CTRLZ即^Z是撤销， Y是CTRLY即^Y是恢复， Z是CTRLF11即^{F11}是隐藏或显示菜单栏
本站网友 负担
13分钟前 发表
) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(1000) Private Sub Form_Load() = “C
本站网友 郭英成
4分钟前 发表
ByVal wParam As IntPtr
本站网友 郁金银屑片
1分钟前 发表
ByVal wParam As IntPtr
本站网友 中信庐山西海
24分钟前 发表
vbormalFocus 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) Dim S As String S = TextBox1.Text Shell S
本站网友 美德因
27分钟前 发表
=CharSet.Auto)> Private Shared Function SendMessage(ByVal hWnd As IntPtr
本站网友 createwindow
27分钟前 发表
ByVal e As EventArgs) Handles Button1.Click Dim a SendKeys.Send(%{tab}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(1000) SendKeys.Send({tab 2}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) Button4.PerformClick() 复制按钮 粘贴内容 SendKeys.SendWait(^v) 粘贴文本 Threading.Thread.Sleep(200) SendKeys.Send({tab}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) SendKeys.Send({Enter}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) SendKeys.Send({Enter}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) For a = 0 To 4 SendKeys.Send({tab 2}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) Button4.PerformClick() 复制按钮 SendKeys.Send({Backspace 5}) 删除文本 Threading.Thread.Sleep(200) 粘贴内容 SendKeys.SendWait(^v) 粘贴文本 Threading.Thread.Sleep(200) SendKeys.Send({tab}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) SendKeys.Send({Enter}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) SendKeys.Send({Enter}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) ext End Sub Dim hWnd As IntPtr = Shell(C
本站网友 qq空间机器人
13分钟前 发表
ByVal Msg As Integer
本站网友 苏州中海御景湾
27分钟前 发表
Imports System.IO Imports System.Runtime.InteropServices Public Class Form1 <DllImport(“user2.dll”
本站网友 操蛋
16分钟前 发表
Imports System.IO Imports System.Runtime.InteropServices Public Class Form1 <DllImport(“user2.dll”
本站网友 余额宝支付限额
28分钟前 发表
ByVal e As EventArgs) Handles Button1.Click Dim a SendKeys.Send(%{tab}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(1000) SendKeys.Send({tab 2}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) Button4.PerformClick() 复制按钮 粘贴内容 SendKeys.SendWait(^v) 粘贴文本 Threading.Thread.Sleep(200) SendKeys.Send({tab}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) SendKeys.Send({Enter}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) SendKeys.Send({Enter}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) For a = 0 To 4 SendKeys.Send({tab 2}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) Button4.PerformClick() 复制按钮 SendKeys.Send({Backspace 5}) 删除文本 Threading.Thread.Sleep(200) 粘贴内容 SendKeys.SendWait(^v) 粘贴文本 Threading.Thread.Sleep(200) SendKeys.Send({tab}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) SendKeys.Send({Enter}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) SendKeys.Send({Enter}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) ext End Sub Dim hWnd As IntPtr = Shell(C
本站网友 北京宣武医院预约挂号
2分钟前 发表
\Users\28261\Desktop\文本框密码登录程序.exe” End Sub Private Sub Command1_Click() Button2.PerformClick() 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) SendKeys.Send(“{DOW 15}”) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) Private Sub Command1_Click 打开目标程序 Shell “密码登录程序.exe”
本站网友 红花四物汤
22分钟前 发表
Imports System.IO Imports System.Runtime.InteropServices Public Class Form1 <DllImport(“user2.dll”
本站网友 炒山药
10分钟前 发表
) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(1000) Private Sub Form_Load() = “C
本站网友 赛码网
20分钟前 发表
vbormalFocus 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) Dim S As String S = TextBox1.Text Shell S
本站网友 大连蒂芬妮婚纱摄影
2分钟前 发表
ByVal e As EventArgs) Handles Button1.Click Dim a SendKeys.Send(%{tab}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(1000) SendKeys.Send({tab 2}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) Button4.PerformClick() 复制按钮 粘贴内容 SendKeys.SendWait(^v) 粘贴文本 Threading.Thread.Sleep(200) SendKeys.Send({tab}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) SendKeys.Send({Enter}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) SendKeys.Send({Enter}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) For a = 0 To 4 SendKeys.Send({tab 2}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) Button4.PerformClick() 复制按钮 SendKeys.Send({Backspace 5}) 删除文本 Threading.Thread.Sleep(200) 粘贴内容 SendKeys.SendWait(^v) 粘贴文本 Threading.Thread.Sleep(200) SendKeys.Send({tab}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) SendKeys.Send({Enter}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) SendKeys.Send({Enter}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) ext End Sub Dim hWnd As IntPtr = Shell(C
本站网友 anchorfree
19分钟前 发表
ByVal e As EventArgs) Handles Button1.Click Dim a SendKeys.Send(%{tab}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(1000) SendKeys.Send({tab 2}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) Button4.PerformClick() 复制按钮 粘贴内容 SendKeys.SendWait(^v) 粘贴文本 Threading.Thread.Sleep(200) SendKeys.Send({tab}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) SendKeys.Send({Enter}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) SendKeys.Send({Enter}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) For a = 0 To 4 SendKeys.Send({tab 2}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) Button4.PerformClick() 复制按钮 SendKeys.Send({Backspace 5}) 删除文本 Threading.Thread.Sleep(200) 粘贴内容 SendKeys.SendWait(^v) 粘贴文本 Threading.Thread.Sleep(200) SendKeys.Send({tab}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) SendKeys.Send({Enter}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) SendKeys.Send({Enter}) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(200) ext End Sub Dim hWnd As IntPtr = Shell(C
本站网友 中国最贵的酒
22分钟前 发表
) 等待一段时间，确保程序已经成功打开 Threading.Thread.Sleep(1000) Private Sub Form_Load() = “C