高分求助，如何摸拟WIN+R打开运行

[aojin54]

那位高手知道，请指教，谢谢

[SYSSZ]

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_R = 83
Const VK_LWIN = 91
Private Sub Command1_Click()

Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(vbKeyR, 0, 0, 0)
Call keybd_event(vbKeyR, 0, KEYEVENTF_KEYUP, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
End Sub

[szyss]

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()  '模拟win键+R
    Call keybd_event(91, 0, 0, 0)
    Call keybd_event(82, 0, 0, 0)
End Sub

仅供参考。测试环境XP+VB6

[嗷嗷叫的老马]

干嘛要模拟按键呢......直接调用不行么- -!

Option Explicit

Private Declare Function SHRunDialog Lib "shell32" Alias "#61" ( _
            ByVal hOwner As Long, _
            ByVal nIcon As Long, _
            ByVal Unknown2 As Long, _
            ByVal szTitle As String, _
            ByVal szPrompt As String, _
            ByVal uFlags As Long) As Long

Private Sub Form_Load()
    SHRunDialog Me.hWnd, 0, 0, StrConv("开始...", vbUnicode), StrConv("请键入那啥那啥......自己打- -!", vbUnicode), 0
End Sub

[嗷嗷叫的老马]

呃.....这一百貌似不那么容易拿- -!

[zhufenghappy]

都是强人阿，学习了