// ****************************
// 設定
// ****************************
USER_ID = "userID"
PASSWORD = "password"

// JoyToKeyを起動させる設定
JOY_TO_KEY_START = 0    // 0:起動させない 1:起動させる
// JoyToKeyのパス(自分の環境に合わせる)
JOY_TO_KEY_PATH = "C:\jtk379\jtk379\JoyToKey.exe"



// ****************************
// メイン処理 
// ****************************
TRY
    PUBLIC IE = CreateOLEObj("InternetExplorer.Application") 
    PUBLIC ID = HNDTOID(ie.hwnd) 
     
    IE.Visible = true

    IE.Navigate2("http://www.arad.jp/")

	// IEのバージョン取得 
	ws = CreateOleObj("Wscript.Shell") 
	Version = token(".", ws.RegRead("HKLM\Software\Microsoft\Internet Explorer\Version")) 
    // IE7対応 
    IFB Version = 7 THEN
        IE.Quit
        IE = Nothing
        objShell = CreateOLEObj("Shell.Application") 
        IE = objShell.Windows.Item(objShell.Windows.Count - 1)
        IE.Navigate2("http://www.arad.jp/")
    ENDIF

    REPEAT
     SLEEP(0.1)
    UNTIL !IE.busy AND IE.readystate=4

    // ログインフラグ
    login_flag = false
    
    // ログイン中か
    IFB IE.Document.getElementById("frmLogout") > 0 THEN
        login_flag = true
    ELSE
        // ログインする
        frmLogin = IE.Document.getElementById("frmLogin")
        IFB frmLogin > 0 THEN
            inputs = frmLogin.getElementsByTagName("input")
            FOR i = 0 TO inputs.length - 1
                SELECT inputs.Item[i].type
                    CASE "text"
                        inputs.Item[i].value = USER_ID
                    CASE "password"
                        inputs.Item[i].value = PASSWORD
                SELEND
            NEXT
            
            as = frmLogin.getElementsByTagName("a")
            FOR i = 0 TO as.length - 1
                IFB POS("checkLoginFrm()", as.Item[i].outerHTML) > 0 THEN
                    as.Item[i].click()
                    login_flag = true
                ENDIF
            NEXT
        ENDIF
    ENDIF
    
    // ログインできた場合
    IFB login_flag THEN
        // JoyToKeyを起動する
        IFB JOY_TO_KEY_START = 1 THEN
            // JoyToKeyがあるかチェック
            IFB FOPEN(JOY_TO_KEY_PATH, F_EXISTS) THEN
                // JoyToKey起動
                exec(JOY_TO_KEY_PATH)
            ELSE
                msgbox("JoyToKeyが見つかりません。<#cr>[" + JOY_TO_KEY_PATH + "]")
                EXIT
            ENDIF
        ENDIF
    ELSE
        msgbox("ログインできません")
    ENDIF
EXCEPT
    msgbox("エラー：" + TRY_ERRMSG)
    exit
ENDTRY