herman 發問時間: 電腦與網際網路程式設計 · 1 0 年前

關閉工作管理員中所指定的EXE檔

如何用EXCEL VBA寫出,關閉工作管理員中所指定任何 EXE 執行檔。

這個問題跨出EXCEL程式,希望有高手能幫忙,執行成功馬上奉上20點!!!

感恩.

已更新項目:

worlonzeng 您好

我有下載程式觀看

但程式碼有密碼上鎖

能提供程式碼或密碼嗎

謝謝您!

2 個已更新項目:

TTK

請問一下這個程式要放在VBA的模組中嗎

要怎麼執行?

3 個已更新項目:

worlonzeng 您好

你的程式正好符合我的需求

而且可以使用

請你將意見轉為回答

選你為最佳答案

希望能提供程式碼給我

謝謝!

2 個解答

評分
  • 匿名使用者
    1 0 年前
    最佳解答

    參考 : http://www.funp.net/756775

    2008-08-27 22:34:57 補充:

    工具檔案 : http://www.funp.net/756775

    該工具檔案工作頁物件,

    點選即會列出所有 Windows 工作管理員執行中程序,

    點選確認後即可中止該程序 ~

  • 1 0 年前

    Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _

    (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _

    lParam As Any) As Long

    Const WM_CLOSE = &H10

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _

    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

    Function closeactiveform()

    S = "ActiveForm" '這個是你要關掉的執行檔案名稱 大小寫要一致

    '找尋VB程式的hWnd

    hw = FindWindow(vbNullString, S)

    '找到的話用PostMessage把它關掉

    If hw Then PostMessage hw, WM_CLOSE, 0, 0

    End Function

還有問題?馬上發問,尋求解答。