vb2005中如何修改自定义webbrowser的 user-agent的值

vb2005中怎么修改自定义webbrowser的 user-agent的值

VB.NET code

webbrowser 自己做的一个组件 为 exbrowser 调用为wb Private Sub wb_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles wb.Navigatingdim myheader as string="User-Agent:Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0; MALC; 360SE)" If isUserAgentSet = False Then            If Common.menuuseragent <> "" Then                e.Cancel = True                isUserAgentSet = True                wb.Navigate(e.Url.ToString, "", Postdata, "user-agent:" & myheader )            End If        Else            e.Cancel = False        End If    End SubPrivate Sub wb_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles wb.DocumentCompleted        isUserAgentSet = False    End Sub

这种方式不行 ,就第一打开可以实现 
1.网页刷新或在本窗口打开其它网页，user-agent的值 没有更改
2.提交的Postdata 怎么改
3.网上用 DispId。。。接口，下载了一个源码，不知道怎么修改 

我要要求是想通过自定义的webbrowser ,然后我能自己设置user-agent ,通过改变user-agent 用网页读出来的user-agent也不同

我是菜鸟，拜谢解答！

[解决办法]
IOleControl是ActiveX实现的，你只要查询控件的接口就可以。
IOleControl oleControl = webBrowser.ActiveXInstance as IOleControl;
oleControl.OnAmbientPropertyChange(HTMLDispIDs.DISPID_AMBIENT_DLCONTROL);

查看更多 下一篇