アットウィキロゴ

ログインするのに、いちいちユーザー名とパスワードを入力するのが

メンドウな方のため(実は自分のことだったり)のVBスクリプト


使い方
  1. 以下のコードをメモ帳に貼り付けます。○○○をユーザー名に書き換えて、XXXをパスワードに書き換えます。
  2. 適当な名前で保存した後、拡張子を.vbsに変更します。例えば、「AutoLogin.vbs」みたいな感じです。
  3. このファイルをダブルクリックすると、IEが勝手に起動してログイン状態にしてくれます。
  4. 最大化は自分でやってね

Dim objIE
 
    Set objIE = CreateObject("InternetExplorer.Application")
 
    With objIE
        .Visible = True
        .Navigate "http://www21.atwiki.jp/king_arthur/login/1.html"
        While .ReadyState <> 4 Or objIE.Busy = True
        Wend
        .document.getElementsByName("username")(0).Value = "○○○"
        .document.getElementsByName("password")(0).Value = "xxx"
        .document.getElementsByName("submit")(0).Click
    End With
 
    Set objIE = Nothing
 
最終更新:2010年02月23日 02:33