webbrowser1 catching navigate and sending on with extra headers

From: pantagruel (pantagruel_at_discussions.microsoft.com)
Date: 11/21/04

  • Next message: JFOREMAN10_at_houston.rr.com: "Webbrowser printing without form displayed..." 
    Date: Sun, 21 Nov 2004 06:45:04 -0800

       
    hi , i want to catch the navigate2 event and send it on with an extra header
    if it does not already have it, i have the following code:
      Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, _
               URL As Variant, Flags As Variant, _
               TargetFrameName As Variant, PostData As Variant, _
               Headers As Variant, Cancel As Boolean)

              If Not InStr(Headers, "MMXBrowser") = 0 Then
              Cancel = False
             
              End If
              
              If InStr(Headers, "MMXBrowser") = 0 Then
              Cancel = True
             WebBrowser1.Navigate URL:=URL, TargetFrameName:=TargetFrameName,
    Headers:="User-agent: MMXBrowser" & Chr$(13) & Chr$(10)
              
              End If
          End Sub

    unfortunately this doesn't quite do it because when I'm in a framed document
    it opens the individual frames in new explorer windows. how does one get
    around that?

  • Next message: JFOREMAN10_at_houston.rr.com: "Webbrowser printing without form displayed..."