ランダムフォームに値を入力する方法

Question

値を指定のテキストボックスに入力したいです。
入力することは可能なのですが、ボタン「submit」を押すとフォームがランダムで変更されます。
ランダムで変更されるフォームを毎回正しい指定個所に入力するいいロジックはないでしょうか。

http://www.rpachallenge.com/

Answer 1

位置もname、id もランダムですので、それでは判断できませんね。

前の要素（ラベル）に、"Address" "Email" ・・・などの標題がついてますので、それで判断すればいいのでは。

前の要素は element.previousElementSibling で取得できます。

---

時間があったのコードを書いて試してみました。
前の要素より、親要素の innerText で標題を取得したほうがシンプルですね。（すぐ前の要素ではないようなので。）

Public Sub Test()
    Dim col As New Collection
    Dim objIE As Object
    Dim el As Object

    col.Add "○○株式会社", "Company Name"
    col.Add "社長", "Role in Company"
    col.Add "太郎", "First Name"
    col.Add "山田", "Last Name"
    col.Add "[e-mail]", "Email"
    col.Add "012-345-6489", "Phone Number"
    col.Add "東京都", "Address"

    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True
    objIE.navigate "http://www.rpachallenge.com/"
    Call IEWait(objIE)

    For Each el In objIE.document.forms(0).getElementsByTagName("input")
        If el.Type = "text" Then
            el.Value = col(el.ParentNode.innerText)
        End If
    Next
End Sub

'IEを待機する関数
Function IEWait(ByRef objIE As Object)
    Do While objIE.Busy = True Or objIE.readyState <> 4
        DoEvents
    Loop
End Function

Answer 2

ランダムで変更されるとはフォームのなにが変更されるんでしょうか
また、正しい指定箇所、とはどういった指定箇所なんでしょう

Comments

[alg]

これは「回答」ではなく、「質問への追記・修正依頼」に書くべき内容ですね。
ご指摘自体は至極まっとうだと思いますが。
（低評価を押したのは私ではありません、念のため）

[y_waiwai]

修正依頼では見てくれないのか、レスポンスが悪いのがアレですねー
まあ、質疑応答も必要ではないかと