// ****************************
// 設定
// ****************************
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://arad.hangame.co.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://arad.hangame.co.jp/")
    ENDIF
    
    REPEAT
     SLEEP(0.1)
    UNTIL !IE.busy AND IE.readystate=4

    // ログインフラグ
    login_flag = false
    
    // ログイン中か
    IFB IE.Document.getElementById("logininfo_memberid") > 0 THEN
        login_flag = true
        // IDとパスワードがセットできたら
    ELSEIF IESETDATA(IE, USER_ID, "strmemberid") and IESETDATA(IE, PASSWORD, "strpassword")
        imgs = IE.document.All("loginform").getElementsByTagName("img")
        // ログイン画像検索
        for j = 0 to imgs.Length - 1
            // ログインボタンを探す
            ifb Pos("btn_login", imgs.Item[j].src) > 0
                imgs.Item[j].click  // 画像クリック
                login_flag = true
                break
            endif
        next
    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)
                EXIT
            ELSE
                msgbox("JoyToKeyが見つかりません。<#cr>[" + JOY_TO_KEY_PATH + "]")
            ENDIF
        ENDIF
    ELSE
        msgbox("ログインできません")
    ENDIF
EXCEPT
    msgbox("エラー：" + TRY_ERRMSG)
    exit
ENDTRY