谁能搞定用INET登录这个网站
搞不定下面这个网站http://125.46.57.85/hnxnh --------------------编程问答--------------------
Private Sub Command1_Click() '新型农村合作医疗管理平台_用户登陆--------------------编程问答-------------------- LS, http://58.210.126.206:9091/QueryVD_test001/ 这个站该如何登录，我无法找到TAG或NAME INET或WEBBROWERS都可以。 只要能登录 --------------------编程问答-------------------- 吃饱了撑得inet登陆
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
xmlhttp吧自己处理cookie， webbrowser cookie与当前用户ie的是混在一起的，不能多用户一起登陆的
--------------------编程问答--------------------
除
--------------------编程问答--------------------
非常搞笑，http://125.46.57.85/hnxnh/login/login.aspx的验证码居然是字符格式的，而不是图片。。。。。汗啊。知道用户名就可以穷举猜密码了。 --------------------编程问答--------------------
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
补充：VB , 网络编程
