是不是取某個程式的視窗控制代碼?
我以前寫輔助的時候弄過
使用的API函式是findWindow
首先宣告一下API
在你視窗最頂的位置上寫上
Private Declare Function 取視窗控制代碼 Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
"由於VB支援中文的 我就定義成 取視窗控制代碼 這個了
Private Sub Command1_Click()
Dim 視窗控制代碼 As Long "宣告視窗控制代碼變數儲存
視窗控制代碼 = 取視窗控制代碼(vbNullString, "新建 文字文件.txt - 記事本") "取視窗標題的控制代碼 把得到視窗標題控制代碼賦予給剛才 視窗控制代碼 這變數裡
If 視窗控制代碼 = 0 Then "判斷視窗控制代碼是否等於0 如果等於0表示無法找到視窗控制代碼
MsgBox "無法找到需要的視窗控制代碼"
Else
MsgBox "已找到視窗控制代碼 控制代碼數為:" & 視窗控制代碼
End If
End Sub
純手工+VB寫出來的程式碼 完全不是自己找的
是不是取某個程式的視窗控制代碼?
我以前寫輔助的時候弄過
使用的API函式是findWindow
首先宣告一下API
在你視窗最頂的位置上寫上
Private Declare Function 取視窗控制代碼 Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
"由於VB支援中文的 我就定義成 取視窗控制代碼 這個了
Private Sub Command1_Click()
Dim 視窗控制代碼 As Long "宣告視窗控制代碼變數儲存
視窗控制代碼 = 取視窗控制代碼(vbNullString, "新建 文字文件.txt - 記事本") "取視窗標題的控制代碼 把得到視窗標題控制代碼賦予給剛才 視窗控制代碼 這變數裡
If 視窗控制代碼 = 0 Then "判斷視窗控制代碼是否等於0 如果等於0表示無法找到視窗控制代碼
MsgBox "無法找到需要的視窗控制代碼"
Else
MsgBox "已找到視窗控制代碼 控制代碼數為:" & 視窗控制代碼
End If
End Sub
純手工+VB寫出來的程式碼 完全不是自己找的