VB中findwindow（）函式使用：VB宣告 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 說明 尋找視窗列表中第一個符合指定條件的頂級視窗（在vb裡使用：FindWindow最常見的一個用途是獲得ThunderRTMain類的隱藏視窗的控制代碼；該類是所有執行中vb執行程式的一部分。獲得控制代碼後，可用api函式GetWindowText取得這個視窗的名稱；該名也是應用程式的標題） 返回值 Long，找到視窗的控制代碼。如未找到相符視窗，則返回零。會設定GetLastError 引數表 引數 型別及說明 lpClassName String，指向包含了視窗類名的空中止（C語言）字串的指標；或設為零，表示接收任何類 lpWindowName String，指向包含了視窗文字（或標籤）的空中止（C語言）字串的指標；或設為零，表示接收任何視窗標題 註解 很少要求同時按類與視窗名搜尋。為向自己不準備引數傳遞一個零，最簡便的辦法是傳遞vbNullString常數 示例 Dim hw&, cnt& Dim rttitle As String * 256 hw& = FindWindow("ThunderRT5Main", vbNullString) " ThunderRTMain under VB4 cnt = GetWindowText(hw&, rttitle, 255) MsgBox Left$(rttitle, cnt), 0, "RTMain title"
VB中findwindow（）函式使用：VB宣告 Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 說明 尋找視窗列表中第一個符合指定條件的頂級視窗（在vb裡使用：FindWindow最常見的一個用途是獲得ThunderRTMain類的隱藏視窗的控制代碼；該類是所有執行中vb執行程式的一部分。獲得控制代碼後，可用api函式GetWindowText取得這個視窗的名稱；該名也是應用程式的標題） 返回值 Long，找到視窗的控制代碼。如未找到相符視窗，則返回零。會設定GetLastError 引數表 引數 型別及說明 lpClassName String，指向包含了視窗類名的空中止（C語言）字串的指標；或設為零，表示接收任何類 lpWindowName String，指向包含了視窗文字（或標籤）的空中止（C語言）字串的指標；或設為零，表示接收任何視窗標題 註解 很少要求同時按類與視窗名搜尋。為向自己不準備引數傳遞一個零，最簡便的辦法是傳遞vbNullString常數 示例 Dim hw&, cnt& Dim rttitle As String * 256 hw& = FindWindow("ThunderRT5Main", vbNullString) " ThunderRTMain under VB4 cnt = GetWindowText(hw&, rttitle, 255) MsgBox Left$(rttitle, cnt), 0, "RTMain title"