实际上属于转贴。。呵呵:-)
原始文章来自微软,微软么,是大家的微软嘛!所以稍微修改了一下,帖到这里。
原文的中文地址是:
http://support.microsoft.com/kb/185538/zh-cn
实际上,这个实现就是获取一个接口,还是叫事件吧。。。。更明显,反正我是分不清这些东西的。
Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1
163的链接一般都是弹出窗口,就用163吧
Private Sub Form_Load()
Set Web_V1 = WebBrowser1.Object
WebBrowser1.Navigate2 "http://www.163.com/"
End Sub
如果你想知道弹出窗口的URL呢,那就
Private Sub Web_V1_NewWindow(ByVal URL As String, _
ByVal Flags As Long, _
ByVal TargetFrameName As String, _
PostData As Variant, _
ByVal Headers As String, _
Processed As Boolean)
Processed = False
MsgBox URL
End Sub
如果你想让弹出窗口在原来的窗体里显示呢,就
Private Sub Web_V1_NewWindow(ByVal URL As String, _
ByVal Flags As Long, _
ByVal TargetFrameName As String, _
PostData As Variant, _
ByVal Headers As String, _
Processed As Boolean)
Processed = True
WebBrowser1.Navigate URL
End Sub
原始文章来自微软,微软么,是大家的微软嘛!所以稍微修改了一下,帖到这里。
原文的中文地址是:
http://support.microsoft.com/kb/185538/zh-cn
实际上,这个实现就是获取一个接口,还是叫事件吧。。。。更明显,反正我是分不清这些东西的。
Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1
163的链接一般都是弹出窗口,就用163吧
Private Sub Form_Load()
Set Web_V1 = WebBrowser1.Object
WebBrowser1.Navigate2 "http://www.163.com/"
End Sub
如果你想知道弹出窗口的URL呢,那就
Private Sub Web_V1_NewWindow(ByVal URL As String, _
ByVal Flags As Long, _
ByVal TargetFrameName As String, _
PostData As Variant, _
ByVal Headers As String, _
Processed As Boolean)
Processed = False
MsgBox URL
End Sub
如果你想让弹出窗口在原来的窗体里显示呢,就
Private Sub Web_V1_NewWindow(ByVal URL As String, _
ByVal Flags As Long, _
ByVal TargetFrameName As String, _
PostData As Variant, _
ByVal Headers As String, _
Processed As Boolean)
Processed = True
WebBrowser1.Navigate URL
End Sub
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
暂无“关于vbs WebBrowser导航问题”评论...
更新动态
2024年05月13日
2024年05月13日
- 杨培安《杨培安歌曲合集》[320K/MP3][257.1MB]
- [In-AkustikINAK7803]VA-ThePinnacleOfCheskyVoiceChesky非凡女声2017[SACD-ISO]
- 王之炅薛颖佳-中国小提琴名曲(2.8MHzDSD)DSF
- 群星-重力加速度·蓝白经华连串曲蓝与白-1991-WAV+CUE
- 群星-将爱情进行到底电视剧原声音乐中唱-1999-WAV+CUE
- [ABC唱片]徐刚-独步外滩WalkingOntheBundPerryShi(SACD).iso
- [ABC唱片]-《西电之声—类比之声》[HD-162b][德国版HD]WAV+CUE
- 央金兰泽《央金兰泽歌曲合集》[320K/MP3][218.8MB]
- 杨宗纬《杨宗纬歌曲合集》[320K/MP3][489.4MB]
- 陈楚生《陈楚生歌曲合集》[320K/MP3][138.9MB]
- 群星-中国轻音乐-经典情歌2CD【APE整轨】
- SacredSpaMusicSeries-LettingTheWorldGoBy[蓝色假期]FLA+CUE
- 赵传1996-黑暗英雄[台湾首版][WAV]
- 迟志强《迟志强歌曲合集》[320K/MP3][105.7MB]
- 《KKBOX西洋新歌日榜》[FLAC/分轨][1.1G]