~~NOCACHE~~
## Chromeでwebサイトに自動ログオン
### はじめに
GoogleChromeでWebサイトに自動ログオンする目的で作ったスクリプト
ブラウザにアカウントを記憶させていなく、毎回アカウント入力めんどくさいので。
IEの情報は沢山ありますが、Chromeの情報少ないので記載。

### スクリプト
<code vb WebAutoLogon.vbs>
Dim objWshShell
Dim GC

Set objWshShell = WScript.CreateObject("WScript.Shell")
Set GC = CreateObject("WScript.Shell")
GC.Run ("chrome.exe --incognito -url [入りたいサイト]")

objWshShell.AppActivate "chrome.exe"
WScript.Sleep 5000

Call CreateObject("Wscript.Shell").Run("%COMSPEC% /c echo " & "[アカウントID]" & "|clip",0)
WScript.Sleep 1000
objWshShell.SendKeys ("^V")
objWshShell.SendKeys "{Enter}"
WScript.Sleep 2000
Call CreateObject("Wscript.Shell").Run("%COMSPEC% /c echo " & "[アカウントPass]" & "|clip",0)
WScript.Sleep 1000
objWshShell.SendKeys ("^V")
objWshShell.SendKeys "{Enter}"
</code>

## 簡単な解説
アカウントの入力はクリップボード経由で行っています。
キー入力だと全角の場合に日本語で入ってしまうサイトがある為

GC.Run ("chrome.exe --incognito -url [入りたいサイト]")
→「--incognito 」はシークレットモードで起動

Call CreateObject("Wscript.Shell").Run("%COMSPEC% /c echo " & "[アカウントID]" & "|clip",0)
→[アカウントID]をクリップボードにコピー

objWshShell.SendKeys ("^V")
→貼り付け

objWshShell.SendKeys "{Enter}"
→エンター入力

WScript.Sleep 1000
→1000ms待機