謎のScript
謎のスクリプト
下のVBScriptをメモ帳にコピペして拡張子を.vbsに変えてご自由に使ってくだされ
'変数宣言
Dim y
Set y = CreateObject("WScript.Shell")
'Chromeをシークレットモードで開き引数としてURLを渡す
y.Run """C:\Program Files\Google\Chrome\Application\chrome.exe"" ""--incognito"" ""自分のシェアURL"""
'Chromeを閉じるまでの待機時間17000=17秒(Core-i5 3230、メモリ8GB、SSD、裏で4窓ビビアミ環境)
WScript.Sleep 17000
'ChromeにAlt+F4を送ってアプリケーション終了
y.SendKeys "%{F4}"
32bit版Chromeの人は3行目を↓に置き換えてください
y.Run """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"" ""--incognito"" ""自分のシェアURL"""