テストがてら・・win API hWnd呼び出し

win API hWnd呼び出し

①読み出したいAPIを都度宣言する
　※複数呼び出したい場合はその分だけ記述が必要

②変数を用意する

③読み出したAPIを実行する記述をする
　FindWindow(vbNullString, "無題2 - メモ帳")
　

caption = windowName
ユニークになりやすい

class = 何をやっているか

※ブラウザの場合

• • • • FindWindow

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

• • • • WindowText

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" ( _
	ByVal hWnd As Long, _
	ByVal sWndTitle As String, _
	ByVal cLen As Long) As Long

［引数］

strClassName
クラス名を表す文字列を指定します。このパラメータが空の場合は、
すべてのクラスが検索対象となります。

strWindowName
ウィンドウ名(ウィンドウのタイトル)を表す文字列を指定します。
このパラメータが空の場合は、すべてのウィンドウが検索対象となります。