VB 中使用SendKeys開啟Run 視窗和是用API函式去開啟Run
在使用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&