まぁ、パターン的に、
.getElementsByTagName("INPUT")
などで、タグを探して、.Clickするそんな感じかなぁ。
a href="#" OnClick="javascript:send();return false;" title="ログイン">
Dim objIE '変数を定義します。 Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成します。 objIE.Visible = True '可視、Trueで見えるようにします。 '処理したいページを表示します。 objIE.Navigate "http://www.ipat.jra.go.jp/" 'ページの表示完了を待ちます。 While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。 WScript.Sleep 100 '0.1秒待つ 1000で1秒 Wend 'INET-ID(name=inetid)にセットする。 objIE.Document.getElementsByName("inetid")(0).Value = "S999999PC" 'ログインボタンを探して押す 'Aのタグを集める Set objA = objIE.Document.getElementsByTagName("A") 'ループで頭からタイトルがログインを探す For n = 0 To objA.Length - 1 If objA(n).Title = "ログイン" then objA(n).Click '見つけたAタグのオブジェクトをクリック Exit For End If Next
いつものテスト動画
テスト結果と作成過程の動画 http://www.youtube.com/watch?v=iFssuPHfBkw です
www.youtube.com