webbrowser user-agent

webbrowser 自己做的一个组件 为 exbrowser 调用为wb

 Private Sub wb_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles wb.Navigating
dim 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 Sub

Private Sub wb_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles wb.DocumentCompleted
        isUserAgentSet = False
    End Sub