锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net发送功能键 vb发送按键

IT技术ByVal

VB.net的快捷键1． F12：转到定义；Shift F12：转到引用
2． F5：启动；Ctrl F5：开始执行（不调试）；Shift F5：停止调试
3． F7：查看代码；Shift F7：查看视图设计器
4． Ctrl Alt L：解决方案资源管理器
5． Ctrl Alt J：对象浏览器
6． F4：显示属性窗口
7． Ctrl Alt X：工具箱
8． Ctrl Alt C类视图
9． Alt Enter：查看属性
10．F10：逐过程调试
11．F11：逐语句调试
12．Ctrl B：新断点
13．Ctrl Shift F9：清除所有断点
14．Ctrl Shift B生成解决方案
15．Shift Alt Enter：全屏
16．大纲显示：Ctrl M, Ctrl M：切换大纲显示展开；Ctrl M, Ctrl L：切换所有大纲显示；Ctrl M,Crtl P停止大纲显示；Ctrl M, Ctrl O：折叠到定义
17．智能感知：Ctrl＋J：列出成员；Ctrl Shift 空格：参数信息； Ctrl K,Ctrl I：快速信息；Alt 右箭头键：完成单词
vb 如何向后台发送组合键ctrl enter首先，你必须获取到目标窗口的Hwnd ， 然后分二步:
'第一步，建立一个模块Module1.bas,复制下面代码到模块中，并保存
'===Module1.bas代码====
Option
Explicit
Private
Declare
Function
SetForegroundWindow
Lib
"user32"
(ByVal
hwnd
As
Long)
As
Long
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
Private
Declare
Sub
Sleep
Lib
"kernel32"
(ByVal
dwMilliseconds
As
Long)
Private
Declare
Sub
keybd_event
Lib
"user32"
(ByVal
bVk
As
Byte,
ByVal
bScan
As
Byte,
ByVal
dwFlags
As
Long,
ByVal
dwExtraInfo
As
Long)
Private
Const
WM_SETFOCUS
=
H7
Private
Const
KEYEVENTF_EXTENDEDKEY
=
H1
Private
Const
KEYEVENTF_KEYUP
=
H2
Public
Sub
KeyDown(ByVal
vKey
As
Long)
'用keybd_event模拟按下键盘
keybd_event
vKey,
0,
KEYEVENTF_EXTENDEDKEY,
End
Sub
Public
Sub
KeyUp(ByVal
vKey
As
KeyCodeConstants)
'用keybd_event模拟松开键盘
keybd_event
vKey,
0,
KEYEVENTF_EXTENDEDKEY
Or
KEYEVENTF_KEYUP,
End
Sub
Public
Function
SendKeyToWnd(MainWnd
As
Long,
vbkey,
Shift)
As
Boolean
SetForegroundWindow
MainWnd'把目标窗口置前
SendMessage
MainWnd,
WM_SETFOCUS,
0,
0
'选中按钮
If
Shift
Then
KeyDown
Shift
'复合键
KeyDown
vbkey
'普通键
Sleep
100
KeyUp
vbkey
If
Shift
Then
KeyUp
Shift
End
Function
'第二步，函数调用：在你的工程内添加文件 ， 选择刚才保存的文件Module1.bas，然后在调用处输入以下代码即可 。
SendKeyToWnd
hwnd,
vbKeyZ,
vbKeyMenu
‘向hwnd对应的窗口发送ALT Z命令
VB怎么向指定进程发送按键消息　实现方法如下vb.net发送功能键：
1、如果有窗口vb.net发送功能键，使用API sendmessage 函数向主窗口发送消息 。
2、使用键盘Hook模拟发送一个全局按键消息 。
3、打开进程vb.net发送功能键，使用汇编注入输入函数
vb.net 组合键Ctrl Enter怎样发送看了很多这方便的解决方案，很多都是一大段代码，版本也有差别，既然有可能别人用得起我也用不起 。
我用一种最简单的方法，只要思路对所有人都能用得起 。
其实非常简单 ， 就是获取键值，Ctrl Enter的健值是10，是不是思路一下就通了 。以下是源码：
【vb.net发送功能键 vb发送按键】Private Sub 聊天输入框_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles 聊天输入框.KeyPress
If Asc(e.KeyChar) = 发送快捷键值 Then
发送消息过程()
End If
End Sub
源内容出处：
VB.NET新手求助 在WIN7 64位系统下 向其它窗口发送组合键中[ALT]不起作用 求解!!!!一口气间全部到手
我并不是说 ， 前者体现了后者的
精神真等等理；
但是我确认损失其中之一是很困难的，
一旦你拥有了两者 。
巨大的耳语与咳嗽传自
星期日人潮涌簇，风琴蹙额的宽阔的厅堂
VB.net 怎么制作按键连发功能用API函数，以下代码Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Const WS_EX_LAYERED = H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_ALPHA = H2
Private Const LWA_COLORKEY = H1Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMosT = -1
Private Const SWP_NOMOVE = H2
Private Const SWP_NosIZE = H1
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_KEYDOWN = H100
Const WM_KEYUP = H101
Const WM_CHAR = H102
Const VK_F1 = H70
Private Sub SendF1(hwnd)'调用这个过程即可对目标窗体发送F1键
Call PostMessage(hwnd, WM_KEYDOWN, VK_F1, 0)
Call PostMessage(hwnd, WM_KEYUP, VK_F1, 0)
End Sub这里是发送F1的实例，各个按键对应的虚拟键码，要到网上查
vb.net发送功能键的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb发送按键、vb.net发送功能键的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：包含xcode有flutter开发工具吗的词条

    下一篇：无人直播礼物互动，无人直播收益