|
楼主 |
发表于 2018-3-1 16:23
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
分享一个自动登录论坛的代码,以作备用并方便大家。
大家若有类似的代码请上传至此以备用。
代码如下:
VBA自动登陆论坛的代码
Sub EP()
Dim IE As Object, timeie As Date
Dim sUser As String, sPwd As String
'sUser = "Excel教程" 'InputBox("请键入用户名:")
' sPwd = "123456" 'InputBox("请键入登录密码:")
On Error Resume Next
Set IE = CreateObject("InternetExplorer.application")
IE.Visible = True
IE.Navigate "http://www.excelpx.com/login.asp" '只把这一句话改了就OK了
timeie = DateAdd("s", 60, Now()) '最久等待60秒
Do While IE.Busy And Not IE.ReadyState = READYSTATE_COMPLETE
DoEvents
If timeie < Now() Then
MsgBox "无法连接网站,请重新执行"
IE.Quit
Exit Sub
End If
Loop
IE.Document.all.UserName.Value = "ID"
IE.Document.all.Password.Value = "密码"
IE.Document.all.submit.Click ' 还有这一句话改了就OK了
|
|