none
请求解答WebBrowser的问题 RRS feed

答案

  • dim orgURL
    Private Sub Form_Load()
    orgURL="http://127.0.0.1/index.htm" 
         WebBrowser1.Navigate "http://127.0.0.1/index.htm" ' 窗体加载时访问本地主页
    End Sub
    
    Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    
         if(orgURL<>URL ) MsgBox URL'页面加载完毕后,弹出WebBrowser1页面的地址
     End Sub
    

    http://feiyun0112.cnblogs.com/
    2009年12月18日 4:11
    版主

全部回复

  • 你好,

    你用WebBrowser.Document.Url试试,是不是跳转后的URL。因为我这里没有自动跳转的网站所以不能做测试。

    Sincerely,
    Kira Qian
    Please remember to mark the replies as answers if they help and unmark them if they provide no help.
    Welcome to the All-In-One Code Framework!
    2009年12月17日 9:48
  • 你好,谢谢你的回复!

    我的问题具体是这样描述的:
    VB6工程,默认窗体Form1上画一个WebBrowser1,代码如下

    Private Sub Form_Load()
         WebBrowser1.Navigate "http://127.0.0.1/index.htm" ' 窗体加载时访问本地主页
    End Sub

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

         MsgBox URL'页面加载完毕后,弹出WebBrowser1页面的地址

         '问题就在这里,我想让它弹出跳转后的地址:"http://social.microsoft.com/Forums/zh-CN/vbasiczhchs/threads?prof=required"
         '但总是先弹出"http://127.0.0.1/index.htm" ,有什么什么解决办法呢?敬请指导
         '我只是想获取跳转后的地址,将本过程的URL传递给公共变量
    End Sub

    '以下是index.htm文件的全部代码

    <html><head>
    <meta http-equiv="refresh" content="1; url=http://social.microsoft.com/Forums/zh-CN/vbasiczhchs/threads?prof=required">
    <title>新建网页 1</title>
    </head>

    <body>

    </body>

    </html>

    2009年12月17日 10:51
  • dim orgURL
    Private Sub Form_Load()
    orgURL="http://127.0.0.1/index.htm" 
         WebBrowser1.Navigate "http://127.0.0.1/index.htm" ' 窗体加载时访问本地主页
    End Sub
    
    Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    
         if(orgURL<>URL ) MsgBox URL'页面加载完毕后,弹出WebBrowser1页面的地址
     End Sub
    

    http://feiyun0112.cnblogs.com/
    2009年12月18日 4:11
    版主