InternetExplorer.Application
来源:互联网 发布:淘宝买了电动车后悔了 编辑:程序博客网 时间:2024/04/24 12:57
strIText = GetInnerX("http://www.heise.de","TEXT")
Open "C:/Inner.txt" For Output As #1
Print #1, strIText
Close 1
Function GetInnerX(strURL As String, Optional strWhat As String = "HTML") As String
Dim IEApp As Object
Dim IEDoc As Object
GetInnerX = ""
Set IEApp = CreateObject("InternetExplorer.Application")
If Not IEApp Is Nothing Then
IEApp.Visible = False
IEApp.Navigate strURL
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDoc = IEApp.Document
Select Case UCase(strWhat)
Case "HTML"
GetInnerX = IEDoc.Body.InnerHTML
Case Else
GetInnerX = IEDoc.Body.InnerText
End Select
IEApp.Quit
Set IEDoc = Nothing
Set IEApp = Nothing
Else
MsgBox "InternetExplorer nicht installiert?", vbInformation
End If
End Function
Open "C:/Inner.txt" For Output As #1
Print #1, strIText
Close 1
Function GetInnerX(strURL As String, Optional strWhat As String = "HTML") As String
Dim IEApp As Object
Dim IEDoc As Object
GetInnerX = ""
Set IEApp = CreateObject("InternetExplorer.Application")
If Not IEApp Is Nothing Then
IEApp.Visible = False
IEApp.Navigate strURL
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDoc = IEApp.Document
Select Case UCase(strWhat)
Case "HTML"
GetInnerX = IEDoc.Body.InnerHTML
Case Else
GetInnerX = IEDoc.Body.InnerText
End Select
IEApp.Quit
Set IEDoc = Nothing
Set IEApp = Nothing
Else
MsgBox "InternetExplorer nicht installiert?", vbInformation
End If
End Function
- InternetExplorer.Application
- Wscript InternetExplorer.Application
- InternetExplorer.Application 模拟登录
- InternetExplorer.Application 操作 document
- InternetExplorer.Application对象的Documen属性
- paip.InternetExplorer.Application打开非IE的解决方法
- InternetExplorer.Application对象的Documen属性及简单应用
- (转自MSDN)InternetExplorer.Application的用法及属性解释
- InternetExplorer Object
- InternetExplorer问题集
- InternetExplorer:再见再也不见
- 如何绑定到 XML 数据与 InternetExplorer
- 如何自动化 InternetExplorer 对 POST 表单数据
- 在Visual5.0中激活InternetExplorer
- IW.Browser.Browser,IW.Browser.InternetExplorer
- WindowsExplorer 和 InternetExplorer 中缺少工具栏 / 菜单栏解决方案
- 由【InternetExplorer无法打开Internet站点】引发的深思
- Application
- 在DataList中使用PagedDataSource类分页示例(代码)
- 弹出的学习
- .net 下的正则表达式的使用
- js 经典收集 http://blog.csdn.net/fanweiwei/archive/2007/04/06/1553712.aspx
- 澄清Java语言接口与继承的本质
- InternetExplorer.Application
- 软件开发过程中的常见问题
- Ontology
- 在Series 60设备上进行调试
- 这就是生活吧
- SQLPLUS输出结果
- 我对上帝的十个疑问
- 通过VB访问远程计算机注册表的方法
- Web应用测试工具--Web Validator