自动登录ACCESS软件网
时 间:2021-04-03 16:07:29
作 者:清风 ID:71242 城市:深圳
摘 要:自动登录。
正 文:
自制的简易自动登录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群 (群号:39785885) Access源码网店
常见问答:
技术分类:
最新帖子
- 导出图片 (04-11 12:47)
- 运行代码,总出错,位啥... (04-11 10:05)
- 请问怎样才能将cvs格... (04-10 10:44)
- [窗体] 求助!根据子... (04-09 21:29)
- 报表指定页的打印 (04-09 19:58)
- 请教如何对窗体中的多个... (04-09 15:06)
- 窗体的数据源里,用查询... (04-08 22:44)
- 我这种形式的导出到EX... (04-08 10:01)
- isnull判断文本框... (04-07 21:36)
- DoCmd.GoToR... (04-07 18:52)

学习心得
最新文章
- ODBC--调用失败(04.11)
- 《跟张志学Access VBA》视...(04.10)
- Join 函数(04.09)
- Access快速开发平台--增强通...(04.08)
- 提高对网站内容的精准搜索(04.07)
- 《跟张志学Access VBA》视...(04.07)
- 手机号码正确性校验函数(04.06)
- 【Access源码示例】自定义通用...(04.06)
- Access快捷键/代码--立即窗...(04.04)
- 自动登录ACCESS软件网(04.03)
最新评论: 查看更多评论(0)
发表评论:您的评论将提升作者分享的动力!快来评论点评一下您的观点吧!