shell代码 vb如何获取已经打开的ie网页的源代码？

vb如何获取已经打开的ie网页的源代码？

在表单中添加控件text1（multiline=true，scrollbars=2）和Timer1（interval=1000），然后在代码区复制以下代码并运行它，以在text1中实时显示IE中打开的网页源代码：option explicit Dimo shellapp，oshellappwindows，owindimurllstastingstring private subtimer1utimer（）SetoShellApp=CreateObject（）外壳.应用）SetoShellAppWindows=oShellApp.windowsforeachowininoshellappwindowsiff案例（打印名（oWin.document文件))=“htmldocument”ThenIfInStr（1，UrlLstoWin.locationurl，vbTextCompare）=0THENURLST=URLST&oWin.locationurl&“，”文本1.Text=oWin.document.body文件. innerHTMLMe.Caption=oWin.locationnameEndI fEndIfNextEndSub公司

shell代码 shell命令大全 shell经典代码

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。