#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.6.1
Author: H. Tsubota

Script Function:
    Webサイトへログイン

#ce ----------------------------------------------------------------------------

#include <IE.au3>

; Google
$oIE = _IECreate ("www.google.com/accounts/ServiceLoginAuth")
$oEmail = _IEGetObjById ($oIE, "Email")
$oEmail.value = "メールアドレス"
$oPasswd = _IEGetObjById ($oIE, "Passwd")
$oPasswd.value = "パスワード"
$oSignIn = _IEGetObjById ($oIE, "signIn")
$oSignIn.click
_IELoadWait ( $oIE )

; Hatena
$oIE = _IECreate ("www.hatena.ne.jp/login")
$oName = _IEGetObjById ($oIE, "login-name")
$oName.value = "アカウント名"
$oPasswd = _IEGetObjByName ($oIE, "password")
$oPasswd.value = "パスワード"
$oInputs = _IETagNameGetCollection ($oIE, "input")
For $oInput In $oInputs
    if $oInput.type="submit" Then
        $oInput.click
        ExitLoop
    EndIf
Next
_IELoadWait ( $oIE )

; Livedoor
$oIE = _IECreate ("member.livedoor.com/login/")
$oName = _IEGetObjById ($oIE, "livedoor_id")
$oName.value = "アカウント名"
$oPasswd = _IEGetObjByName ($oIE, "password")
$oPasswd.value = "パスワード"
_IEFormImageClick ($oIE, "/img/login/02/btn_login.gif", "src")
_IELoadWait ( $oIE )

; Yahoo! JAPAN
$oIE = _IECreate ("login.yahoo.co.jp/config/login")
$oName = _IEGetObjById ($oIE, "username")
$oName.value = "アカウント名"
$oPasswd = _IEGetObjByName ($oIE, "passwd")
$oPasswd.value = "パスワード"
$oSignIn = _IEGetObjById ($oIE, ".save")
$oSignIn.click
_IELoadWait ( $oIE )