vb如何获取已经打开的ie网页的源代码?
在表单中添加控件text1(multiline=true,scrollbars=2)和timer1(interval=1000),然后在代码区复制以下代码并运行它,以在text1中实时显示ie中打开的网页源代码:optionexplicitdimoshellapp,oshellappwindows,owindimurllstastingstringprivatesubtimer1utimer()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.locationnameendifendifnextendsub公司
原文标题:shell代码 vb如何获取已经打开的ie网页的源代码?,如若转载,请注明出处:https://www.ycyjhw.com/news/33427.html
免责声明:此资讯系转载自合作媒体或互联网其它网站,「永洁号」登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,文章内容仅供参考。