なずブログ

インフラSE、Java開発、リモートワークエンジニアな人のメモ帳

IEの設定:セキュリティと互換性の設定を使うをVBAで閉じる

f:id:nazuna_0124:20200203212829p:plain f:id:nazuna_0124:20200203212719p:plain

なんとなくつくった!


おつかれさまです。なずなです。



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