VB的WEBBROWSER1中就行网页操作时,如何获取头信息

Question

WEBBROWSER1中进行网页提交数据时,如何获取头信息
Referer\POST\Accept_Language\Accept\Host
这些信息的内容.

Answer 1

实现所有的接口，想怎么处理就怎么处理。Private Sub IDocHostUIHandler_EnableModeless(ByVal fEnable As olelib.BOOL)
    'IDocHostUIHandler.EnableModeless fEnable
End SubPrivate Function IDocHostUIHandler_FilterDataObject(ByVal pDO As olelib.IDataObject) As olelib.IDataObject
    'Set IDocHostUIHandler_FilterDataObject = IDocHostUIHandler.FilterDataObject(pDO)
End FunctionPrivate Function IDocHostUIHandler_GetDropTarget(ByVal pDropTarget As olelib.IDropTarget) As olelib.IDropTarget
    'Set IDocHostUIHandler_GetDropTarget = IDocHostUIHandler.GetDropTarget(pDropTarget)
End FunctionPrivate Function IDocHostUIHandler_GetExternal() As Object
    ' IDocHostUIHandler.GetExternal
End FunctionPrivate Sub IDocHostUIHandler_GetHostInfo(pInfo As olelib.DOCHOSTUIINFO)
     'IDocHostUIHandler.GetHostInfo pInfo
End SubPrivate Sub IDocHostUIHandler_GetOptionKeyPath(pOLESTRchKey As Long, ByVal dw As Long)
    'IDocHostUIHandler.GetOptionKeyPath pOLESTRchKey, dw
End SubPrivate Sub IDocHostUIHandler_HideUI()
    'IDocHostUIHandler.HideUI
End SubPrivate Sub IDocHostUIHandler_OnDocWindowActivate(ByVal fActivate As olelib.BOOL)
     'IDocHostUIHandler.OnDocWindowActivate fActivate
End SubPrivate Sub IDocHostUIHandler_OnFrameWindowActivate(ByVal fActivate As olelib.BOOL)
    'IDocHostUIHandler.OnFrameWindowActivate fActivate
End SubPrivate Sub IDocHostUIHandler_ResizeBorder(prcBorder As olelib.RECT, ByVal pUIWindow As olelib.IOleInPlaceUIWindow, ByVal fRameWindow As olelib.BOOL)
    'IDocHostUIHandler.ResizeBorder prcBorder, pUIWindow, fRameWindow
End SubPrivate Sub IDocHostUIHandler_ShowContextMenu(ByVal dwContext As olelib.ContextMenuTarget, pPOINT As olelib.POINT, ByVal pCommandTarget As olelib.IOleCommandTarget, ByVal HTMLTagElement As Object)
     'IDocHostUIHandler.ShowContextMenu dwContext, pPOINT, pCommandTarget, HTMLTagElement
End SubPrivate Sub IDocHostUIHandler_ShowUI(ByVal dwID As Long, ByVal pActiveObject As olelib.IOleInPlaceActiveObject, ByVal pCommandTarget As olelib.IOleCommandTarget, ByVal pFrame As olelib.IOleInPlaceFrame, ByVal pDoc As olelib.IOleInPlaceUIWindow)
    'IDocHostUIHandler.ShowUI dwID, pActiveObject, pCommandTarget, pFrame, pDoc
End SubPrivate Sub IDocHostUIHandler_TranslateAccelerator(lpMsg As olelib.MSG, pguidCmdGroup As olelib.UUID, ByVal nCmdID As Long)
    'IDocHostUIHandler.TranslateAccelerator lpmsg, pguidCmdGroup, nCmdID
End SubPrivate Function IDocHostUIHandler_TranslateUrl(ByVal dwTranslate As Long, ByVal pchURLIn As Long) As Long
'    IDocHostUIHandler_TranslateUrl = IDocHostUIHandler.TranslateUrl(dwTranslate, pchURLIn)
End FunctionPrivate Sub IDocHostUIHandler_UpdateUI()
    'IDocHostUIHandler.UpdateUI
End Sub