自动登录ACCESS软件网-清风
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> 源码示例


自动登录ACCESS软件网

发表时间:2021/4/3 16:07:29 评论(0) 浏览(3927)  评论 | 加入收藏 | 复制
   
摘 要:自动登录。
正 文:

自制的简易自动登录ACCESS软件网神器,借此顺便也感谢竹笛老师的引导!

VBA代码如下:

Option Compare Database
'Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'引用Microsoft HTML Object Library
'Microsoft Internet Controls
'VBA 启动IE代码
Private Sub Command4_Click()
'On Error Resume Next
Dim ie As InternetExplorer
Dim document, url As String
Set ie = CreateObject("InternetExplorer.application") '创建IE对象
url = "http://www.accessoft.com/login.asp"
ie.Visible = 1 '启动IE
ie.navigate url
Sleep 300 '延时0.3秒执行
Do While ie.busy or ie.readystate <> 4
Loop
Set document = ie.document
'document.getElementById("overridelink").Click
Do While ie.busy or ie.readystate <> 4
Loop
Set document = ie.document
document.getElementById("username").Value = Me.Text1
document.getElementById("password").Value = Me.Text2
'document.getElementById("logo").Click
'document.getElementById("Submit").Click '没有找到对象,没有起作用,需手动点击登录
End Sub


附   件:

点击下载此附件


图   示:


Access软件网交流QQ群(群号:198465573)
 
 相关文章
【access源码示例】具有记住密码、自动登录等功能的登录窗体  【红尘如烟  2010/10/27】
【access源码示例】自动登录163免费邮箱  【红尘如烟  2011/4/2】
【Access源码】记住密码及自动登录示例  【漏蛧尐魚℡  2013/4/11】
快速平台取得windows登录用户名来自动登录  【零智  2013/5/11】
【Access源码】自动登录及记住密码登录窗口示例  【漏蛧尐魚℡  2013/5/16】
常见问答
技术分类
相关资源
文章搜索
关于作者

清风

文章分类

文章存档

友情链接