谁能搞定用INET登录这个网站

Question

搞不定下面这个网站
http://125.46.57.85/hnxnh

Answer 1

Private Sub Command1_Click() '新型农村合作医疗管理平台_用户登陆
    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://125.46.57.85/hnxnh/login/login.aspx"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        .document.All("TB_userid").Value = "用户名"
        .document.All("TB_userpwd").Value = "密  码"
        Set r = .document.All.tags("div")
        For i = 0 To r.Length - 1
            If r(i).ID Like "chec*" Then
                .document.All("Tb_yzm").Value = r(i).innerText
                Exit For
            End If
        Next i
        .document.All("ImageButton1").Click
    End With
End Sub

Answer 2

LS,   http://58.210.126.206:9091/QueryVD_test001/  这个站该如何登录，我无法找到TAG或NAME     INET或WEBBROWERS都可以。  只要能登录

Answer 3

吃饱了撑得inet登陆 xmlhttp吧自己处理cookie， webbrowser cookie与当前用户ie的是混在一起的，不能多用户一起登陆的

Answer 4

非常搞笑，http://125.46.57.85/hnxnh/login/login.aspx
的验证码居然是字符格式的，而不是图片。。汗啊。知道用户名就可以穷举猜密码了。

Answer 5

Private Sub Command1_Click()    '新型农村合作医疗管理平台_用户登陆
    On Error Resume Next
    With CreateObject("internetexplorer.application")
        .Visible = True
        .Navigate "http://125.46.57.85/hnxnh/login/login.aspx"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        .document.All("TB_userid").Value = "用户名"
        .document.All("TB_userpwd").Value = "密  码"
        .document.All("Tb_yzm").Value = .document.getelementbyid("checkCode").innerText    '验证码
        .document.All("ImageButton1").Click
    End With
End Sub