level 1
ecco01
楼主
想用vba登录网页
Sub 登录()
'On Error Resume Next
Set ie = CreateObject("InternetExplorer.application")
ie.Navigate "http://10.14.35.201"
ie.Visible = True
Do Until ie.ReadyState = 4
DoEvents
Loop
With ie.Document
.getElementById("login_user").Value = "test"
.getElementById("login_psw").Value = "test"
.forms(0).submit
End With
End Sub
但是无法定位到登录按钮
2018年12月31日 09点12分
1
Sub 登录()
'On Error Resume Next
Set ie = CreateObject("InternetExplorer.application")
ie.Navigate "http://10.14.35.201"
ie.Visible = True
Do Until ie.ReadyState = 4
DoEvents
Loop
With ie.Document
.getElementById("login_user").Value = "test"
.getElementById("login_psw").Value = "test"
.forms(0).submit
End With
End Sub
但是无法定位到登录按钮