1,502
社区成员
发帖
与我相关
我的任务
分享
Sub 登录()
On Error Resume Next
With CreateObject("internetexplorer.application")
.Visible = True
.Navigate "http://xxxxxxxxxx" '网址
Do Until .ReadyState = 4
DoEvents
Loop
.document.All("uname").Value = "123456" '工号NAME=uname
.document.All("upwd").Value = "456789" '密码NAME=upwd
.document.All("?").Click '登录按钮NAME=?
End With
End Sub
至于弹出窗口,要看什么类型的窗口,再采用不同的方法处理。