一键获取网站源码 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 Fendifnextedsub

两种方法，一种是使用ajax，另一种是启动IE进程。我推荐方法一。我的示例代码如下：

dim HTTP set HTTP=CreateObject（）Microsoft.XMLHTTP") http.打开“Post”，“connection address”，falsehttp.send发送“”如果http.状态=200那么selection.text=http. responseText end if

获取HTML源代码和CSS源代码1。在计算机中找到此路径，然后删除此目录中的内容。2使用IE打开要下载的网页。三。返回此路径并刷新C:documents and settingsadministratorlocal settingstemporary Internet此时，所需页面的HTML源代码和CSS代码将显示在此路径下；4。复制本页中的HTML、CSS、图片等内容并放入新文件夹中。删除复制文件名后的“[1]”，并将相关链接更改为直接使用。

一键获取网站源码 如何获取别人网站源码 获取整个网站源码

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