vb编程代码 vb如何获取已经打开的ie网页的源代码?
浏览量:2693
时间:2021-04-11 01:49:39
作者:admin
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公司
版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。