永发信息网

VB后台发送按键和鼠标(会的进,不会的免了)

答案:1  悬赏:0  手机版
解决时间 2021-12-16 17:00
Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Private Const WM_KEYUP = &H101‘定义普通按键抬起常量
Private Const WM_CHAR = &H102
Private Const WM_KEYDOWN = &H100‘定义普通按键按下常量
。。。。。。。。。。。
PostMessage& hwd, WM_KEYDOWN, vbKeyReturn, 0 '这是按下enter键
PostMessage hwd, WM_KEYUP, vbKeyReturn, 0 '这是弹起enter按键
这是代码的一部分代码,先声明定义有关按键常量,再向窗口句柄hwd发送。
问题:ALT+N组合键怎么声明按键常量(其中ALT是系统按键)?
会的才回答 不好意思,本人小菜。不要误人子弟

向后台发送组合键ALT+N,要先声明常量,怎么声明?晕倒
最佳答案
你的问题是不是只要系统识别你的ALT+N的快捷键?那用下面的代码··我试验过了好用的··
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

Const WM_SETHOTKEY = &H32
Const HOTKEYF_ALT = &H4

Private Sub Form_Load()
Dim wHotkey As Integer
wHotkey = (HOTKEYF_ALT) * &H100 + Asc("N")
Call SendMessage(Me.hwnd, WM_SETHOTKEY, wHotkey, 0)
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
时钟追及问题
海飞丝洗发水日期是t开头的,是哪里生产的?
北京理工大学徐特立英才班培养出来的人读完本
为什么步步高X6手机不能用OTG转接头读不了内
一片绿叶的回忆:一片绿叶有什么样的象征和意
王者荣耀五排怎么感觉比单排难打
手指甲后面起皮是什么原因导致?
无资金无地点,注册一个注册资金50w的公司多
求教大神,unturned3.12如何组队
我在小学附近开一家汉堡店,刚开始几天生意还
从广州东山口出发往禅城南庄绿岛湖交通指引
用古诗怎么形容被人看不起后来大翻身的话
芳草西二街地址在哪,我要去那里办事
2016年退伍军人什么时候报名考公务员
买酒送车是不是诈骗
推荐资讯
我的世界0.15为什么按登录的时候进去一会就显
济宁哪个辅导班教的好
lol在网吧看到一个长的比较清纯的那种女孩,
上面一个小下面一捺是什么字,怎么读?
missdior下面的钢印是2N01是什么意思?
华育国际是一个骗局吗?
公积金取出来里面没钱了还能贷款吗
东风悦达起亚k3的前刹车片为什么会过热
苹果手机硬件能换吗
关东是指哪里?那既然关东是东北。关中怎么就
单选题中国古代四大发明对世界文明作出了巨大
兴宁市水利局地址有知道的么?有点事想过去!
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?