なんとなくつくった!
おつかれさまです。なずなです。
Winndowsのウィンドウ操作するのはこんなコードです。
参考程度にどーぞ!
Option Explicit Declare Function FindWindow _ Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String _ , ByVal lpWindowName As String) As Long Declare Function SendMessage Lib "user32.dll" _ Alias "SendMessageA" _ (ByVal hwnd As Long, _ ByVal Msg As Long, _ ByVal wParam As Long, _ ByVal lParam As String) As Long Public Const SC_CLOSE = &HF060 Public Const WM_CLOSE = &H10 Sub IEの設定を閉じる() Dim h h = FindWindow(vbNullString, "Internet Explorer 11") Dim r r = SendMessage(h, WM_CLOSE, SC_CLOSE, 0) End Sub