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

于 2024-06-23 07:05:13 发布
阅读量493 收藏 6
点赞数 15
文章标签： .net 计算机外设
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_32257509/article/details/139892191
版权

按键 代码
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}是隐藏或显示菜单栏。

Imports System.IO
Imports System.Runtime.InteropServices

Public Class Form1
<DllImport(“user32.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 34

        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)

    Next
End Sub




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

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

Private Sub Command1_Click()

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

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

Private Sub Command1_Click

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

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

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

SendKeys.Send"03"
'等待一段时间，确保程序已经成功打开
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+空格+N}"
'等待一段时间，确保程序已经成功打开
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"{F3}"
'等待一段时间，确保程序已经成功打开
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"^N"
'等待一段时间，确保程序已经成功打开
Threading.Thread.Sleep(200)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

SendKeys.Send"{Ctrl+W}"
'等待一段时间，确保程序已经成功打开
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

EYYLTV
关注
  • 15
    点赞
  • 踩
  • 6
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
VB之SendKeys键盘模拟
weixin_34130389的博客
01-07 1979
VB SendKeys语句详解 大家在VB6中都用过sendkeys，幕通过发送键盘的事件间接地控制外部程序，是有遥控之说。我在VB7中却发现这个不能用了， 也就不了了之，后来一次在查阅MSDN的时候竟看到了这个，是以尝试了一下，竟然旧貌新颜，还是一样好用。主要是在system.winforms族中找到sendkeys 使用方法同VB6键:一般的字符键如...
VB6中SendKeys的基本应用[VB6中SendKeys的基本应用]-精品源代码
10-11
VB6中SendKeys的基本应用[VB6中SendKeys的基本应用]-精品源代码
VB6中SendKeys的基本应用
Jzh的专栏
12-19 1397
SendKeys 模拟键盘操作，将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行，  其使用格式为：object.SendKeys string  “object”：表示WshShell对象  “string”：表示要发送的按键指令字符串，需要放在英文双引号中。  1.基本键  　　一般来说，要发送的按键指令都可以直接用该按键字符本身来表示，例如要发送字母“x”，使用“WshSh
功能强大的SendMessage函数
shawls的专栏
06-04 1434
 功能强大的SendMessage函数　Windows API（应用程序接口）是Windows系列软件为程序开发人员提供的火力强大的“武器库”，在这个武器库中，有很多极具威力的武器，SendMessage就是其中之一，它的功能非常丰富，灵活使用这个函数，会给编程工作带来很多便利。本文以Visual Basic为例，结合几个具体的例子介绍该函数的功能。一、Send
用VB发送组合键代码
sdgaojian的专栏
12-05 2669
发送Ctrl+A键 keybd_event VK_Ctrl, MapVirtualKey(VK_Ctrl, 0), 0, 0   '按下Ctrl键 PostMessage hwnd,WM_KEYDOWN，VK_A，MakeKeyLparam(VK_A,WM_KEYDOWN)  '按下A键 Sleep 500    '延时500毫秒 PostMessage hwnd,WM_UP，VK_A，M
VB.NET里的SendMessage键盘按键参数和代码.txt
06-15
VB.NET里的SendMessage键盘按键参数和代码
SendMessage键盘按键参数和代码.txt
最新发布
06-19
SendMessage键盘按键参数和代码
VB.net进行通信实例.zip
08-28
在VB.NET中，可以指定接收消息的窗口句柄（HWND）、消息类型（WM_常量）、wParam和lParam参数，来实现数据的发送和接收。 5. **示例应用** - 在本实例中，`FindWindow`可能被用来定位目标应用程序的主窗口，`...
官方VB.net WM_COPYDATA进行进程间资源共享的例子
06-19
以上代码展示了如何使用VB.NET通过`SendMessage`和`WM_COPYDATA`实现进程间的字符串数据共享。不过，需要注意的是，这种方法仅适用于ASCII字符串，如果需要传递复杂类型或Unicode字符串，需要进行额外的处理。同时，...
在vb.net里怎样用API函数和keybd_event函数在其它程序的文本框里输入内容.txt
06-15
### 在VB.NET中使用API函数和keybd_event函数在其他程序的文本框内输入或粘贴内容 在VB.NET开发环境中，有时我们需要实现自动化操作，比如在其他应用程序（如记事本）的文本框内输入或粘贴内容。这可以通过调用...
跨进程通信SendMessage - VB.NET
04-23
跨进程通信SendMessage - VB.NET, WM_SETTEXT, WM_GETTEXT
vb进程间通信 SendMessage
12-31
ProcessSend进程程序运行后，查找ProcessReceive进程窗体上文字内容开头为“句柄1：”的 控件（TextBox控件），从中得到另一个TextBox控件的句柄hwnd，用SendMessage发送消息 更改hwnd的文字。 ProcessSend与c#的ProcessReceive程序通讯正常，但与vb的ProcessReceive程序通讯， 只能接收到前面48个字节的数据。 哪位把程序改改！
vb屏幕键盘
10-27
请使用 长城特粗圆体 字体界面会更美观 退出实际上是打开 百度手写输入法
SendMessage之模拟按键
11-23
SendMessage之模拟按键，组合键，vb键盘模拟必不可少。
VB软键盘-屏幕键盘附源码详解.rar
07-10
VB软键盘源码，蓝色风格，一个屏幕键盘制作实例，附有详细的技术说明，在一些对应用程序安全要求较高的场合，使用屏幕键盘进行输入就显得很重要了，这个源码的例子很详细的说明了如何实现小键盘，推荐下载。
WIN7系统下，VB6中的sendkeys命令无法使用，提示“实时错误70 拒绝的权限”
热门推荐
fsm_hawking的专栏
11-09 1万+
<br />WIN7系统下，VB6中的sendkeys命令无法使用，提示“实时错误70 拒绝的权限”<br /> <br />解决方法：Windows 7 UAC漏洞，关闭Windows 7 UAC的VBS。
VB6之SendMessage模拟拖放事件
weixin_30341745的博客
12-04 338
原文链接：http://hi.baidu.com/coo_boi/item/e1e0f5ab45bddbdd5af191df 网上找了个C++的翻一下，原文链接：http://www.cnblogs.com/zhujian198/archive/2009/07/14/1523426.html Private Declare Function FindWindow Lib "user...
vb.net SendMessage
08-31
在 VB.NET 中，您可以使用 SendMessage 函数来发送消息给其他窗口。该函数位于 user32.dll 动态链接库中，因此您首先需要导入该库。 下面是一个示例代码，演示如何使用 SendMessage 函数： ```vb Imports System.Runtime.InteropServices Public Class Form1 ' 导入 SendMessage 函数 <DllImport("user32.dll", CharSet:=CharSet.Auto)> _ Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr End Function ' 定义常量 Private Const WM_COPYDATA As Integer = &H4A Private Const WM_CLOSE As Integer = &H10 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' 找到目标窗口的句柄 Dim targetWindowHandle As IntPtr = FindWindow(Nothing, "目标窗口标题") ' 创建要发送的字符串 Dim messageText As String = "Hello, world!" ' 将字符串转换为字符数组 Dim messageBytes As Byte() = System.Text.Encoding.Unicode.GetBytes(messageText) ' 分配内存并复制字符数组 Dim messageData As IntPtr = Marshal.AllocHGlobal(messageBytes.Length) Marshal.Copy(messageBytes, 0, messageData, messageBytes.Length) ' 准备 COPYDATASTRUCT 结构体 Dim copyData As New COPYDATASTRUCT() copyData.dwData = IntPtr.Zero copyData.cbData = messageBytes.Length copyData.lpData = messageData ' 将 COPYDATASTRUCT 结构体封装为指针 Dim copyDataPtr As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(copyData)) Marshal.StructureToPtr(copyData, copyDataPtr, False) ' 发送消息 SendMessage(targetWindowHandle, WM_COPYDATA, Me.Handle, copyDataPtr) ' 释放内存 Marshal.FreeHGlobal(messageData) Marshal.FreeHGlobal(copyDataPtr) End Sub ' COPYDATASTRUCT 结构体定义 <StructLayout(LayoutKind.Sequential)> _ Private Structure COPYDATASTRUCT Public dwData As IntPtr Public cbData As Integer Public lpData As IntPtr End Structure End Class ``` 在上面的示例中，您需要将 "目标窗口标题" 替换为您要发送消息的窗口的标题。您还可以根据您的需求调整消息的内容和格式。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

EYYLTV

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值