VB 中使用SendKeys开启Run 窗口和是用API函数去开启Run

来源：互联网发布：软件服务费合同模板编辑：程序博客网时间：2024/05/16 07:09

在使用Shell 去调用一个可执行文件是，居然开启程式后自动关闭，不得不寻找其它的方法去解决。

1. 使用SendKeys开启Win键，再送键”R”,开启“运行”，等待100us,给运行窗口送一串字符，回车。

OptionExplicit

PrivateDeclare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByValbScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

PrivateDeclare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Const KEYEVENTF_KEYUP = &H2

Private Const KEYEVENTF_EXTENDEDKEY = &H1

Private Const VK_LWIN = &H5B '左WIN键

Private Const VK_RWIN = &H5C '右WIN键

PrivateSub Form_Load()

keybd_eventVK_LWIN, 0, KEYEVENTF_EXTENDEDKEY, 0 ' 按下

keybd_event VK_LWIN, 0, KEYEVENTF_KEYUP, 0 ' 弹起

Sleep (50)

SendKeys "r", True

Sleep (50)

SendKeys "\\192.168.2.42", True

'此例是登入服务网络，可以使用其它的可执行文件，例如"C:\Program Files\Google\Chrome\Application\chrome.exe"

Sleep (50)

SendKeys"{ENTER}"

End Sub

2.使用句柄

’开启运行窗口

Dim objshell
Set objshell = CreateObject("shell.application")
objshell.filerun
Delaytime (1000)
lRunHwnd = FindWindow(vbNullString, "运行")

，查找到运行窗口的句柄
While lRunHwnd = 0
Delaytime (100)
lRunHwnd = FindWindow(vbNullString, "运行")
Debug.Print lRunHwnd
Wend

‘查找到运行窗口的组合框
lComBOHwnd = FindWindowEx(lRunHwnd, 0, "ComboBox", vbNullString)
lTxtHwnd = FindWindowEx(lComBOHwnd, 0, "Edit", vbNullString)

’给TEXT文本框传递字符串，即要执行的程式及路径
SendMessage lTxtHwnd, WM_SETTEXT, 255, ByVal "C:\Program Files\Intel Corporation\Intel(R) Thermal Analysis Tool\tat.exe"

lCmdHwnd = FindWindowEx(lRunHwnd, 0, vbNullString, "确定")
SendMessage lCmdHwnd, WM_LBUTTONDOWN, ByVal 0&, ByVal 0&
SendMessage lCmdHwnd, WM_LBUTTONUP, ByVal 0&, ByVal 0&

0 0