Webbrowser的简单问题,高手请进(100分)

hanmo · 2004-04-29

用Webbrowser做一个自动提交表单的东东,有的网页表单提交完成后弹出一个script窗口,得按'确定',如果不人工干预则无法进行下一步,我的问题是:如何用程序判断其弹出,并模拟按'确定'.对我来说很难.....试了如下的诸多方法,行不通: 1. 遍历所有窗口,可是因为不能确定弹出窗口的windowtext,所以找不到handle,    findwindow,Enumwindow不通 2. 判断弹出窗口是程序的Modalform,   from i:= to screen.formcount-1 do   begin     if fsModal in screen.forms.formstate then...   却不能捕捉的到. 3.Webbrowse.silent:=true没有用的  期盼高手,急急急!!!

kouchun · 2004-04-29

看看javescript的涵數,應該有可以解決的...

satanmonkey · 2004-04-29

IDocHostUIHandler有个方法叫EnableModeless(const fEnable: BOOL): HRESULT; stdcall; 师父可以帮助你，当弹出模式窗口的时候fEnable为true 关闭的时候为false 接口的定义如下：   IDocHostUIHandler = interface(IUnknown)     ['{bd3f23c0-d43e-11cf-893b-00aa00bdce1a}']     function ShowContextMenu(const dwID: DWORD; const ppt: PPOINT;       const pcmdtReserved: IUnknown; const pdispReserved: IDispatch): HRESULT; stdcall;     function GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT; stdcall;     function ShowUI(const dwID: DWORD; const pActiveObject: IOleInPlaceActiveObject;       const pCommandTarget: IOleCommandTarget; const pFrame: IOleInPlaceFrame;       const pDoc: IOleInPlaceUIWindow): HRESULT; stdcall;     function HideUI: HRESULT; stdcall;     function UpdateUI: HRESULT; stdcall;     function EnableModeless(const fEnable: BOOL): HRESULT; stdcall;     function OnDocWindowActivate(const fActivate: BOOL): HRESULT; stdcall;     function OnFrameWindowActivate(const fActivate: BOOL): HRESULT; stdcall;     function ResizeBorder(const prcBorder: PRECT;       const pUIWindow: IOleInPlaceUIWindow;       const fRameWindow: BOOL): HRESULT; stdcall;     function TranslateAccelerator(const lpMsg: PMSG; const pguidCmdGroup: PGUID;       const nCmdID: DWORD): HRESULT; stdcall;     function GetOptionKeyPath(var pchKey: POLESTR; const dw: DWORD): HRESULT; stdcall;     function GetDropTarget(const pDropTarget: IDropTarget;       out ppDropTarget: IDropTarget): HRESULT; stdcall;     function GetExternal(out ppDispatch: IDispatch): HRESULT; stdcall;     function TranslateUrl(const dwTranslate: DWORD; const pchURLIn: POLESTR;       var ppchURLOut: POLESTR): HRESULT; stdcall;     function FilterDataObject(const pDO: IDataObject;       out ppDORet: IDataObject): HRESULT; stdcall;   end;     ICustomDoc=interface(IUnknown)     ['{3050f3f0-98b5-11cf-bb82-00aa00bdce0b}']     function SetUIHandler(const pUIHandler:IDocHostUIHandler):HRESULT; stdcall;   end;

hanmo · 2004-04-29

to satanmonkey: 我是新手,对接口不熟, 1.我上面已说当成模式窗口捕捉不到 2.可不可以告诉我详细实现方法

satanmonkey · 2004-04-30

你做这个应该用BHO的吧？BHO的setsite里会传过来一个iwebbrowser2接口，里存下来以后，得到他的ICustomDoc接口，就可以用ICustomDoc的SetUIHanlder替换IE的IDocHostUIHandler

satanmonkey · 2004-04-30

给里段C++代码参考 case DISPID_DOCUMENTCOMPLETE: ATLTRACE(_T("(%ld) DISPID_DOCUMENTCOMPLETE/n"), ::GetCurrentThreadId()); m_bHotkeysEnabled = FALSE; // Deactivate keyboard hook m_bUserClickedLink = FALSE; // Reset { CConnInfo* pConnInfo = new CConnInfo(pDispParams->rgvarg[1].pdispVal); if (pConnInfo) { m_deqEventHandlers.push_back(pConnInfo); ManageEventHandlers(pConnInfo, ConnType_Advise); } } if (m_pWBDisp && m_pWBDisp == pDispParams->rgvarg[1].pdispVal) { // If the LPDISPATCH are same, that means // it is the final DocumentComplete. Reset m_pWBDisp. ATLTRACE(_T("(%ld) DISPID_DOCUMENTCOMPLETE (final)/n"), ::GetCurrentThreadId()); m_pWBDisp = NULL; CComPtr<IDispatch> spDisp; HRESULT hr = m_spWebBrowser2->get_Document(&spDisp); if (SUCCEEDED(hr) && spDisp) { BOOL bMustAdvise = FALSE; if (m_spHTMLDocument && m_spHTMLDocument != spDisp) { ATLTRACE(_T("(%ld) DISPID_DOCUMENTCOMPLETE (unadvising)/n"), ::GetCurrentThreadId()); HRESULT hr = ManagePropertyNotifyConnection(ConnType_Unadvise); ATLASSERT(SUCCEEDED(hr)); m_spHTMLDocument = spDisp; if (m_spHTMLDocument) { hr = ManagePropertyNotifyConnection(ConnType_Advise); ATLASSERT(SUCCEEDED(hr)); } } else if (!m_spHTMLDocument) { m_spHTMLDocument = spDisp; if (m_spHTMLDocument) { hr = ManagePropertyNotifyConnection(ConnType_Advise); ATLASSERT(SUCCEEDED(hr)); } } if (m_spHTMLDocument) { // This is an HTML document (e.g., it's a // Word doc or a PDF), go ahead and sink. hr = m_spHTMLDocument->get_parentWindow(&m_pHTMLWindow); ATLASSERT(SUCCEEDED(hr) && m_pHTMLWindow); if (FAILED(hr)) m_pHTMLWindow = NULL; // Get pointers to default interfaces CComQIPtr<IOleObject, &IID_IOleObject> spOleObject(spDisp); if (spOleObject) { CComPtr<IOleClientSite> spClientSite; hr = spOleObject->GetClientSite(&spClientSite); if (SUCCEEDED(hr) && spClientSite) { m_spDefaultDocHostUIHandler = spClientSite; m_spDefaultOleCommandTarget = spClientSite; } } // Set this class to be the IDocHostUIHandler CComQIPtr<ICustomDoc, &IID_ICustomDoc> spCustomDoc(spDisp); if (spCustomDoc) { hr = spCustomDoc->SetUIHandler(this); ATLASSERT(SUCCEEDED(hr)); } // Create a CPubDomExtender object that will be used by // window.external CComObject<CPubDomExtender>* pDomExt; hr = CComObject<CPubDomExtender>::CreateInstance (&pDomExt); ATLASSERT(SUCCEEDED(hr)); if (SUCCEEDED(hr)) { CComQIPtr<IDispatch> spDisp = pDomExt; m_spExtDispatch = spDisp; pDomExt->m_pPub = this; } // Check for flash here because READYSTATE_COMPLETE // seems to be unreliable. if (IsEnabled() && !IsSiteWhiteListed()) { DWORD dwElemTypes = 0; if (g_bBlockFlash) dwElemTypes |= ELEMTYPE_FLASH; if (g_bBlockImages) dwElemTypes |= ELEMTYPE_IMAGES; BlockWebPageElements(dwElemTypes); } } } } m_bHotkeysEnabled = TRUE; break;

hanmo · 2004-05-02

thank satanmonkey,可惜本人水平太浅,希望有更简单的方法

Webbrowser的简单问题,高手请进(100分)

hanmo

Unregistered / Unconfirmed

kouchun

Unregistered / Unconfirmed

satanmonkey

Unregistered / Unconfirmed

hanmo

Unregistered / Unconfirmed

satanmonkey

Unregistered / Unconfirmed

satanmonkey

Unregistered / Unconfirmed

hanmo

Unregistered / Unconfirmed

Similar threads