返回列表 发帖
czjt1234

Rank: 6Rank: 6

帖子
1121 
积分
1639 
技术
116  
捐助
0  
注册时间
2010-4-30 
1楼 跳转到 »
发表于 2023-2-23 08:13 | 显示全部帖子 
Set oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate "https://www.baidu.com/"
'oIE.Visible = False
Do
    WScript.Sleep 200
Loop While oIE.Busy Or oIE.ReadyState <> 4
Set d = oIE.Document
MsgBox TypeName(d)COPY

QQ 20147578

TOP

czjt1234

Rank: 6Rank: 6

帖子
1121 
积分
1639 
技术
116  
捐助
0  
注册时间
2010-4-30 
2楼
发表于 2023-2-23 19:01 | 显示全部帖子
回复 3# jyswjjgdwtdtj


   我在自己的电脑上测试没问题啊

win7x64sp1

哦，你是win10，我再试一下

QQ 20147578

TOP

czjt1234

Rank: 6Rank: 6

帖子
1121 
积分
1639 
技术
116  
捐助
0  
注册时间
2010-4-30 
3楼
发表于 2023-2-23 19:13 | 显示全部帖子
win10 22h2
IE被edge强行替代
等待的时间有点长，但是2楼的脚本还是可以正常运行

你要不是研究internetexplorer.application对象
建议用CreateObject("Msxml2.XMLHTTP")对象下载网页

QQ 20147578

TOP

返回列表