松井証券のログインボタンを自動で押させたい

解決

みつる 2006-08-07 10:38:48 No: 96188

https://www.deal.matsui.co.jp/ITS/login/MemberLogin.jsp

緑色のログインのボタンがItemにもallにもなくて
困っています。どうすればクリックできるか教えてください

現在の状態ＶＢ6.0

      '項目名を指定して、データをセットする
        Obj.Document.All.clientCD.Value = uid
        Obj.Document.All.passwd.Value = ups



        'ボタンを押してみる
        Obj.Document.All.Item(i).Click   →  ダメ
        Obj.Document.All.links(i).Click  →  ダメ

暇じろー 2006-08-07 19:05:33 No: 96189

他にも方法あるけど、これでもいけるはず。

     'ボタンを押してみる
    Dim col As Object
    Set col = obj.Document.getElementsByTagName("INPUT")
    Call col(5).Click
    Set col = Nothing

Blue 2006-08-07 20:29:30 No: 96190

formのSubmitで送信する方法

With CreateObject("InternetExplorer.Application")
    .Visible = True
    .Navigate "https://www.deal.matsui.co.jp/ITS/login/MemberLogin.jsp"
    Do While .Busy
        DoEvents
    Loop
    With .Document
        .All.clientCD.Value = "ほげほげ"
        .All.passwd.Value = "もげもげ"

        .All.form.Submit
        ' もしくは
        '.getElementsByName("form").Item().Submit
    End With
End With

みつる 2006-08-08 03:57:06 No: 96191

いけました、すげー。あなた方は天才です。神です。ありがとうございます。1ヶ月悩んでいました。