knrt.net
当前位置:首页 >> vB获取网页源代码 >>

vB获取网页源代码

1)使用MICROSOFT INTERNET TRANSFER CONTROL的,代码如下: Dim strhtml As String Dim STRURL As String STRURL="http://www.sijiqing.com" strhtml = Inet1.OpenURL(STRURL) 2)用System.Net命空间下的HttpWebRequest来取得,代码如下: Dim ...

Private Sub Command1_Click() Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP") xmlHTTP1.Open "get", "http://www.baidu.com", True xmlHTTP1.send While xmlHTTP1.readyState 4 DoEvents Wend Text1.Text = xmlHTTP1.responseText Set xmlH...

Private Sub Form_Load() url = "http://php.weather.sina.com.cn/search.php?city=北京" code = GetYM(url, "gb2312") a = InStr(code, "fs_30 tpte") a = InStr(a + 1, code, ">") b = InStr(a + 1, code, "") b = InStr(a + 1, code, "") b =...

在窗体上添加一个“Microsoft Internet transfer Control”控件,默认名称为Inet1,然后用下面一行代码就可以获得指定网页的源码了: html = Inet1.OpenURL("网址写在这里")

先得到源代码:这里用WebBrowser1控件 text1=WebBrowser1.Document.documentElement.outerHTML 下面是筛选实例 自编函数Getin 范例 GetIn(字符串, 起始, 结束) GetIn(text1, ">", "

30分我只能告诉你各简单的方法,把网页另存为,再用记事本打开。。。哈哈

rivate Sub Command1_Click() Dim YDM YDM = WebBrowser1.Document.body.createtextrange().htmltext Open "D:\WEB.html" For Output As #1 Print #1, YDM Close #1 End Sub ================= 工程里引用:Microsoft HTML object Library 工程...

获取第1个框架的源代码: WebBrowser1.Document.frames(0).Document.documentElement.outerHTML 遍历框架就可以得到所有的(WebBrowser1.Document.frames(0).count框架个数) ;

用vb webbrowser获取带框架网页的全部源代码,指令如下: WebBrowser1.Document.frames(0).Document.documentElement.outerHTML遍历框架就可以得到所有的(WebBrowser1.Document.frames(0).count框架个数)。 源代码(也称源程序)是指未编译的...

加个webbrowser控件,在该控件里打开网页。 网页代码:

网站首页 | 网站地图
All rights reserved Powered by www.knrt.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com