{VB6}偵測視窗

我想要偵測一個程式是否有開啟

假如: 檔名是SpecialForce.exe

我要如何寫 他是否現在有開啟!

那我要如何寫呢

麻煩各位了!!

已更新項目:

TO.泯仔

放下去程式碼之後 他說 vbnullstring 不正確的外部程序 請問 要怎解決呢??

4 個解答

評分
  • 10 年前
    最佳解答

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

    先宣告一個 findwindow 的API函數

    然後 看你要寫在哪個事件內!

    dim a as long

    a=findwindow (vbnullstring,"這裡打上妳要徵測的視窗明")

    if a = 0 then

    msgbox "未開啟程式"

    end '結束程式

    endif

    這樣就是 徵測視窗的方法 !!

    2011-05-20 02:26:27 補充:

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

    Private Sub Form_Load()

    a = FindWindow(vbNullString, "這裡打上妳要徵測的視窗明")

    If a = 0 Then

    MsgBox "視窗未啟動"

    End

    End If

    End Sub

    我再從發一次!~~

    參考資料: 自己
  • 9 年前

    想寫在SF上喜平喔= = (猜測中......)

  • 軺冠
    Lv 5
    10 年前

    有視窗時使用FindWindow或FindWindowEx

    無視窗時使用CreateToolhelp32Snapshot

  • Sam Ma
    Lv 7
    10 年前

    比較簡單是找視窗

    FindWindow

    靠回傳值判斷視窗是否存在

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