VB6.0 获取WebBrowser当前打开页面的网址

比如当前WebBrowser1里打开的是百度首页。那么对应的TEXT1中显示www.baidu.com
最好还能得到当前页面的标题

举报该问题

推荐答案 2015-12-12

VB6.0å¯éè¿WebBrowseræ§ä»¶çDocumentCompleteäºä»¶æ¥è·åå½åæå¼é¡µé¢çURLï¼ç½åï¼ã

DocumentCompleteäºä»¶

æè¿°

å½è¢«å¯¼èªå°è¯¥æä»¶è¾¾å°READYSTATE_COMPLETEç¶ææ¶åçã

URL å±æ§

è®¾ç½®æè¿å Execute æ OpenURL æ¹æ³ä½¿ç¨ç
URLã

Private Sub Form_Load()

On Error GoTo useErr

WebBrowser1.Navigate "http://zhidao.baidu.com/"

Exit Sub

useErr:

Print "ERR"

End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

Text1.Text = URL

End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://00.wendadaohang.com/zd/nDZIBjjBB.html

其他回答

第1个回答 2011-01-11

请在webbrowser浏览控件的documentcomplete()事件中添加代码：text1.text=url 在webbrowser控件的titlechange()事件中添加代码：me.caption=text 即可。实现效果：文本框text1中显示网页地址，窗体标题显示网页标题。希望对您有所帮助！

第2个回答 2011-01-11

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
text1.text= WebBrowser1.LocationName & " " & url
End Sub本回答被提问者采纳

相似回答

vb6.0中获取WebBrowser控件打开的新窗口的地址,但不打开新窗口答：include<stdio.h>int main(){ int N,r;long double sum=0;long double a,b;scanf("%d",&N);for(r=0;r<N;r++){ scanf("%lf%lf",&a,&b);

用VB提取网页中的链接地址答：首先新建一个工程,加入webbrowser和scriptlet控件(引用部件Microsoft HTMl object Library添加一个Listbox控件(用于存放读出的网址)命名为(listurl),个textbox()控件用于打开网址命名为txtsearchOption ExplicitDim UrlNow As IHTMLDocument2Private Sub CmdGeturl_Click() 'WebBrowser1.Stop 'Dim...

vb webbrowser获取网页网址答：假设有一个网页浏览控件WebBrowser1以及一个文本框Text1来显示网址，用以下代码可以解决：Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)Text1.Text=URL End Sub 希望对您有所帮助！

vb6.0的webbrowse的所有属性方法与事件答：VB的工具箱窗口并没有WebBrowser控件，我们可以这样添加：右击工具箱窗口--->部件--->选上Microsoft Internet Controls--->确定 WebBrowser控件 shdocvw.dll 基本操作：Webbrowser用法：goforward 前进 goback 后退 gohome 回主页 navigate 浏览 stop 停止 gosearch 搜索属性：LocationURL网页地址 Location...