- 帖子
- 150
- 主題
- 40
- 精華
- 0
- 積分
- 215
- 點名
- 0
- 作業系統
- windows xp
- 軟體版本
- sp3
- 閱讀權限
- 20
- 註冊時間
- 2013-7-15
- 最後登錄
- 2025-5-26
|
下列網址有說方法,我開啟外部軟體沒問題,但關閉外部軟體,一直用不出來,請教大大如何修改
https://tw.answers.yahoo.com/question/index?qid=20070807000016KK08276
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Public Const WM_CLOSE = &H10
2.在Form上拉兩個按鍵，並COPY下面程式
Private Sub Command1_Click()
Rem 開啟小算盤按鈕
Shell "C:\WINNT\system32\calc.exe" '程式的路徑
End Sub
Private Sub Command2_Click()
Rem 關閉小算盤按鈕
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "小算盤") '欲關閉的程式的名稱
Debug.Print winHwnd
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then
MsgBox "Error posting message."
End If
Else
MsgBox "並未開啟小算盤程式."
End If
End Sub |
|
發表於 2018-8-14 22:10
| 
