锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net键盘长按 vbs脚本控制键盘按钮

IT技术Tengine

vb.net判断鼠标左键长按很简单vb.net键盘长按，加入全局变量中有一个变量vb.net键盘长按，mousedown事件中设为1vb.net键盘长按，在mouseup事件中置为0 。这样就能实现vb.net键盘长按你说vb.net键盘长按的功能 。
以下参考
Private Sub 天平左移按钮_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs) Handles 天平左移按钮.PreviewMouseDown
a=true
End Sub
Private Sub 天平左移按钮_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs)Handles 天平左移按钮.PreviewMouseUp
a=false
End Sub
vb.net如何编写长按鼠标左键的事件？SetCursorPos(old_x,old_y);
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
SetCursorPos(pt_x,pt_y);
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
【vb.net键盘长按 vbs脚本控制键盘按钮】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的，按键连续触发事件，比如，按着键不放，音量增大 。1.定义变量记录键是否被按下，按下的累计时间
Dim 按下A键As Boolean
Dim 按下A键时间 As Integer
2.添加一个TextBox1用于接收键盘事件，或者直接用窗体的键盘事件(确保KeyPreview为True)
在KeyDown事件中添加如下代码：
If e.Keycode = keys.A Then 按下A键 = True
在KeyUp事件中添加如下代码：
If e.Keycode = keys.A Then 按下A键 = False
3.添加一个Timer1控件 ， 调整Timer1的Interval来决定按键频率，记得要把Timer1.Enable开启
在Tick事件中添加如下代码：
If 按下A键 = True
按下A键时间+=1
Call 音量设置(按下A键时间 * 10)
End If
PS: 按下的秒数 = 按下A键时间*Timer1.Interval / 1000
关于vb.net键盘长按和vbs脚本控制键盘按钮的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：asp.netwebapi发布，aspnet web怎么发布

    下一篇：游戏单机祖玛，经典单机祖玛