【速報！！】

Set objShell = CreateObject(“WScript.Shell”)

‘ 特定のページを表示
objShell.Run “msedge https://kick.com/kinkosan”, 2, True

‘ 待機時間を設定（ページが読み込まれるのを待つため）
WScript.Sleep 6000 ‘ 60秒待つ

‘ Edgeプロセスを終了
Set objWMIService = GetObject(“winmgmts:\\.\root\cimv2”)
Set colItems = objWMIService.ExecQuery(“Select * from Win32_Process Where Name = ‘msedge.exe'”)

On Error Resume Next
For Each objItem in colItems
objItem.Terminate()
Next