VB有没有可能在主程序启动以后，不在主运行界面时，通过快捷键，运行程序里的指令？

来源：百度知道 编辑：UC知道 时间：2024/06/22 21:48:13
RT，打个比方，比如我先打开一个vb程序，然后再打开一个TXT文件，这时候TXT文件是主运行界面，这时候通过按VB程序事先设定好的指令，比如按F1复制某个内容，然后粘贴到TXT文件中，是否我可以不用切换到VB程序中，只通过快捷键达到这一目的？

可以 但F1为记事本的帮助

Eg1：Ctrl+Q退出 F2 复制hello并粘贴

新建exe工程
移除Form1
添加模块，代码:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Dim Ys As Long, Yss As Long

Const 检测延时 = 20 '毫秒
Const 按键延时 = 400 / 检测延时 '按下400毫秒后重复

Sub CopyTxt(Txt As String)
Clipboard.Clear
Clipboard.SetText Txt
End Sub

Sub main()
Do
DoEvents
Sleep 检测延时
If GetAsyncKeyState(vbKeyQ) And GetAsyncKeyState(vbKeyControl) Then End 'CTRL+Q 退出

If GetAsyncKeyState(vbKeyF2) Then
If Yss = 1 Then '注意，1代表编号1
Ys = Ys + 1
If Ys > 1 And Ys < 按键延时 Then GoTo nt
Else
Ys = 1
Yss = 1 '注意，1代表编号1
End If
''========代码
CopyTxt "Hello"
SendKeys "^{v}"