如何使用 经典ASP（VBScript） 自动化控制IE浏览器？

首先给予运行权限：修改应用池的标识-标识代表权限改为LOcalsystem 。

注意：仅用于本地桌面运行测试，涉及到安全风险，一般不要开启对我执行权限。

1. 
   
2. Dim strUrl
   
3. Dim objIE
   
4. 
   
5. strUrl="http://www.baidu.com"
   
6. '创建对象
   
7. Set objIE = CreateObject("InternetExplorer.Application")
   
8. 
   
9. With objIE
   
10. 
    
11.   .Visible = True    '配置IE窗口可见
    
12.   .Navigate(strUrl) '导航到所需的网站。
    
13. 
    
14.   Do While .Busy Or .readyState <> 4
    
15.     '别动，等待浏览器加载完毕。
    
16.   Loop
    
17. 
    
18.   Do While .Document.ReadyState <> "complete"
    
19.     '别动，等待程序加载网页。
    
20.   Loop
    
21. 
    
22. 
    
23. 
    
24.   '***下面可以写你的业务逻辑***
    
25. 
    
26.    response.write objIE.Document.body.innerHTML
    
27. 
    
28. html=objIE.Document.getElementByID("list").innerHTML
    
29. 
    
30. 
    
31. End With
    
32. 
    
33. '销毁对象
    
34. 
    
35. On Error Resume Next
    
36. 
    
37. set objIE = Nothing  
    
38. 
    
39.   

复制代码