vb做浏览器,效果有实现了,直接在一个窗体内实现,不弹出IE窗口。但是在房访问网站的时候后台统计不到,为什么呢?
如果弹出新的页面就可以,不弹的话,后台就统计不到代码如下:
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim FormX As New Form1
FormX.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = FormX.WebBrowser1.Object FormX.Show End Sub
如果弹出新的页面就可以,不弹的话,后台就统计不到代码如下:
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim FormX As New Form1
FormX.WebBrowser1.RegisterAsBrowser = True
Set ppDisp = FormX.WebBrowser1.Object FormX.Show End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货