开启辅助访问
切换到宽版

天天ASP家园官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园»论坛 › 技术交流 › ASP技术 › 如何使用 经典ASP（VBScript） 自动化控制IE浏览器？
返回列表 发新帖
查看: 531|回复: 0

[文章教程] 如何使用 经典ASP（VBScript） 自动化控制IE浏览器？

[复制链接]
xuanxiao 发表于 2022-7-10 11:57:47 | 显示全部楼层 |阅读模式
首先给予运行权限：修改应用池的标识-标识代表权限改为LOcalsystem 。
1.png
注意：仅用于本地桌面运行测试，涉及到安全风险，一般不要开启对我执行权限。


  2. Dim strUrl
  3. Dim objIE

  5. strUrl="http://www.baidu.com"
  6. '创建对象
  7. Set objIE = CreateObject("InternetExplorer.Application")

  9. With objIE

  11.   .Visible = True    '配置IE窗口可见
  12.   .Navigate(strUrl) '导航到所需的网站。

  14.   Do While .Busy Or .readyState <> 4
  15.     '别动，等待浏览器加载完毕。
  16.   Loop

  18.   Do While .Document.ReadyState <> "complete"
  19.     '别动，等待程序加载网页。
  20.   Loop



  24.   '***下面可以写你的业务逻辑***

  26.    response.write objIE.Document.body.innerHTML

  28. html=objIE.Document.getElementByID("list").innerHTML


  31. End With

  33. '销毁对象

  35. On Error Resume Next

  37. set objIE = Nothing  

  39.   
复制代码
ASP币如何冲？请看这里
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号