document.readyState == "complete"

博客主要围绕判断页面是否加载完成展开,在前端开发中,准确判断页面加载状态十分重要,它有助于后续操作的顺利进行,避免因页面未加载完成而导致的错误。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

判断一个页面是否加载完成

//////////////////////////////////////////////////////////// // ============= micro HTML5 library ===================== // @author zhongweiChen // last update: Mach 10, 2025 // Released under the MIT license //////////////////////////////////////////////////////////// // ===== ge1doot global ===== var ge1doot = ge1doot || { json: null, screen: null, pointer: null, camera: null, loadJS: function (url, callback, data) { if (typeof url == "string") url = [url]; var load = function (src) { var script = document.createElement("script"); if (callback) { if (script.readyState){ script.onreadystatechange = function () { if (script.readyState == "loaded" || script.readyState == "complete"){ script.onreadystatechange = null; if (--n === 0) callback(data || false); } } } else { script.onload = function() { if (--n === 0) callback(data || false); } } } script.src = src; document.getElementsByTagName("head")[0].appendChild(script); } for (var i = 0, n = url.length; i < n; i++) load(url[i]); } } // ===== html/canvas container ===== ge1doot.Screen = function (setup) { ge1doot.screen = this; this.elem = document.getElementById(setup.container) || setup.container; this.ctx = this.elem.tagName == "CANVAS" ? this.elem.getContext("2d") : false; this.style = this.elem.style; this.left = 0; this.top = 0; this.width = 0; this.height = 0; this.cursor = "default"; this.setup = setup; this.resize = function () { var o = this.elem; this.width = o.offsetWidth; this.height = o.offsetHeight; for (this.left = 0, this.top = 0; o != null; o = o.offsetParent) { this.left += o.offsetLeft; this.top += o.offsetTop; } if (this.ctx) { this.elem.width = this.width; this.elem.height = this.height; } this.setup.resize && this.setup.resize(); } this.setCursor = function (type) { if (type !== this.cursor && 'ontouchstart' in window === false) { this.
03-11
将修改的代码给我完整的写出来,这是原本整体的VAB代码 Private Sub CommandButton1_Click() Dim objIEApp As InternetExplorerMedium Dim objIEDoc As Object Dim objIETable As Object Dim objClip As DataObject Dim objSheet As Worksheet Dim src, ac, name, pas, web, lang src = "Bugzilla" ac = "account" name = "A3" pas = "B3" web = "B1" Set objSheet = Sheets(src) Set objBuglist = Sheets(ac) 'check system language Dim LocaleID As Long '创建IE的实例 'Set objIEApp = New InternetExplorerMedium Set objIEApp = CreateObject("InternetExplorer.Application") '测试时显示IE浏览器,测试完成后,可以注释掉 objIEApp.Visible = True '跳转到登陆界面 objIEApp.navigate "https://logincas.tp-link.com:8443/login?service=http://bugzilla.tp-link.com/" '等待IE浏览器启动成功 Do While objIEApp.Busy: DoEvents: Loop '等待登陆界面完成 Do Until objIEApp.readyState = READYSTATE_COMPLETE: DoEvents: Loop '获取登陆界面 Set objIEDoc = objIEApp.document '填充登陆界面的用户名和密码--可以通过F12查看网页的源代码 'With objIEDoc.forms(0) ' .UserName.Value = objBuglist.Range(name).Value ' .Password.Value = objBuglist.Range(pas).Value ' .loginBtn.Click '.submit 'End With '等待浏览器响应 'Do While objIEApp.Busy: DoEvents: Loop '等待登陆成功 'Do Until objIEApp.readyState = READYSTATE_COMPLETE: DoEvents: Loop '登陆成功,跳转至表格存在的界面 objIEApp.navigate objBuglist.Range(web).Value Do While objIEApp.Busy: DoEvents: Loop Do Until objIEApp.readyState = READYSTATE_COMPLETE: DoEvents: Loop '获取页面中的表格元素mytable是表的Id Set objIEDoc = objIEApp.document Set objIETable = objIEDoc.all.Item("buglist_table") '将表格html从网页复制到excel sheet中 If Not objIETable Is Nothing Then Set objClip = New DataObject objClip.SetText "" & objIETable.outerHTML & "" objClip.PutInClipboard objSheet.Select objSheet.Range("A1").Select 'objSheet.PasteSpecial lang LocaleID = Application.LanguageSettings.LanguageID(msoLanguageIDUI) Select Case LocaleID Case 2052 objSheet.PasteSpecial "Unicode 文本", xlPasteAll Case 1028 objSheet.PasteSpecial "Unicode 文本", xlPasteAll Case 1033 objSheet.PasteSpecial "Unicode Text", xlPasteAll Case Else objSheet.PasteSpecial "Unicode Text", xlPasteAll End Select End If 'close 'er up objIEApp.Quit Set objIEApp = Nothing If Sheets("schedule").Cells(2, 1) = "" Then Sheets("Bugzilla").Range("A2:A" & Sheets("Bugzilla").[B65536].End(xlUp).Row).copy Sheets("schedule").Range("A2") add_http (2) End If Sheets("schedule").Activate End Sub
最新发布
08-12
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值