| 查看: 322 | 回复: 0 | |||
| 当前主题已经存档。 | |||
zsglly木虫 (著名写手)
|
[交流]
IE编程---DLL绑定
|
||
|
查阅了一些资料，但写关于IE的DLL绑定的文章并不多，而且，写得不是很清楚。为此，我想介绍一下，这个方法： 基础知识:VC COM,(ALT方法来做) IE的启动过程： 当IE的实例启动的时候，它会在注册表中寻找一个CLSID,具体位置在 HKEY_LOCALL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects 当这里存在一CLSID时，IE会建立一个对象的实例。比如：{B5D4581D-ED6A-4905-A267-25BAF7BE79C1}如果这个看不懂，你可以去找一下COM开发的书。 开发实例： VC建立工程,ALT COM AppWizard 注意是DLL. 建立一个新的类，一定要是ALT 在菜单，Insert>New ALT Object:Simple Object 修改并实现方法 // FiltrateIE.h : Declaration of the CFiltrateIE #ifndef __FILTRATEIE_H_ #define __FILTRATEIE_H_ #include "resource.h" // main symbols #include #include #define MAX_DOCUMENTS 50 ///////////////////////////////////////////////////////////////////////////// // CFiltrateIE class ATL_NO_VTABLE CFiltrateIE : public CComObjectRootEx public CComCoClass public IObjectWithSiteImpl public IDispatchImpl { public: CFiltrateIE() { } DECLARE_REGISTRY_RESOURCEID(IDR_FILTRATEIE) DECLARE_NOT_AGGREGATABLE(CFiltrateIE) DECLARE_PROTECT_FINAL_CONSTRUCT() BEGIN_COM_MAP(CFiltrateIE) COM_INTERFACE_ENTRY(IFiltrateIE) COM_INTERFACE_ENTRY(IDispatch) COM_INTERFACE_ENTRY(IObjectWithSite)//加入 END_COM_MAP() // IFiltrateIE public //下面两个方法必须实现 STDMETHOD(SetSite)(IUnknown *pUnkSite); STDMETHOD(Invoke)(DISPID dispidMember,REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS * pdispparams, VARIANT * pvarResult, EXCEPINFO * pexcepinfo, UINT * puArgErr); private: //下面一个方法必须实现 enum ConnectType {Advise,Unadvise}; BOOL ManageConnection(enum ConnectType action); CComQIPtr HWND m_hwndIE; DWORD m_dwCookie; BOOL m_bDocComplete; BOOL m_test; }; #endif //__FILTRATEIE_H_ // FiltrateIE.cpp : Implementation of CFiltrateIE #include "stdafx.h" #include "SafeIE.h" #include "FiltrateIE.h" #include #include #include #include #include #include ///////////////////////////////////////////////////////////////////////////// // CFiltrateIE BOOL CFiltrateIE::ManageConnection(enum ConnectType action) { if (!m_spWebBrowser2) return S_OK; HRESULT hr; CComQIPtr if (spCPContainer != NULL) { CComPtr hr = spCPContainer->FindConnectionPoint(DIID_DWebBrowserEvents2, &spConnectionPoint); if (SUCCEEDED(hr)) { if (action == Advise) // Advise the client site that we want to sink events hr = spConnectionPoint->Advise((IDispatch*)this, &m_dwCookie); else // Remove us from the list of active sinks hr = spConnectionPoint->Unadvise(m_dwCookie); } } return (SUCCEEDED(hr)); } STDMETHODIMP CFiltrateIE::Invoke(DISPID dispidMember, REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS* pDispParams, VARIANT* pvarResult, EXCEPINFO* pExcepInfo, UINT* puArgErr) { m_test=TRUE; if (!pDispParams) return E_INVALIDARG; CComPtr HRESULT hr; switch (dispidMember) { case DISPID_BEFORENAVIGATE2: m_bDocComplete = FALSE; m_spWebBrowser2 = pDispParams->rgvarg[6].pdispVal; hr = m_spWebBrowser2->get_Document(&spDisp); if (SUCCEEDED(hr)) { CComQIPtr spHTML = spDisp; // if (spHTML) // RemoveDocument(spHTML); } break; case DISPID_NAVIGATECOMPLETE2: // /* if (m_spWebBrowser2){ _bstr_t bsAddress=m_spWebBrowser2->GetLocationURL(); LPCTSTR str1,str2; str1="SolarSafe.htm"; str2=(LPCTSTR)bsAddress; if (strstr(str2,str1)!=NULL) { ShellExecute((HWND)m_spWebBrowser2->HWND,"open","C:\\solarsafe.htm",NULL,NULL,SW_SHOWNORMAL); } */ break; // [0]: New status bar text - VT_BSTR // /* case DISPID_STATUSTEXTCHANGE: break; */ // [0]: Maximum progress - VT_I4 // [1]: Amount of total progress - VT_I4 // /* case DISPID_PROGRESSCHANGE: break; */ // [0]: Document URL - VT_BYREF|VT_VARIANT // [1]: An object that evaluates to the top-level or frame // WebBrowser object corresponding to the event. case DISPID_DOCUMENTCOMPLETE: // Temporarily disable keyboard hook if(m_test) {//ShellExecute(m_hwndIE,"open","C:\\solarsafe.htm",NULL,NULL,SW_SHOWNORMAL); MessageBox(m_hwndIE, "AAAA", "A", MB_OK ); // m_spWebBrowser2->Quit(); m_test=FALSE; } // Fill in form if necessary m_spWebBrowser2 = pDispParams->rgvarg[1].pdispVal; // Get the WebBrowser's document object hr = m_spWebBrowser2->get_Document(&spDisp); if (SUCCEEDED(hr)) { CComQIPtr spHTML = spDisp; // if (spHTML && DoFillIn(spHTML)) // AddDocument(spHTML); } m_bDocComplete = TRUE; // Temporarily disable keyboard hook break; // No parameters /* case DISPID_DOWNLOADBEGIN: break; */ // No parameters /* case DISPID_DOWNLOADCOMPLETE: break; */ // [0]: Enabled state - VT_BOOL // [1]: Command identifier - VT_I4 // /* case DISPID_COMMANDSTATECHANGE: break; */ // [0]: Address of cancel flag - VT_BYREF|VT_BOOL // /* case DISPID_NEWWINDOW2: break; */ // [0]: Document title - VT_BSTR // [1]: An object that evaluates to the top-level or frame // WebBrowser object corresponding to the event. // /* case DISPID_TITLECHANGE: break; */ // [0]: Name of property that changed - VT_BSTR // /* case DISPID_PROPERTYCHANGE: break; */ // [0]: Address of cancel flag - VT_BYREF|VT_BOOL // case DISPID_ONQUIT: // Unregister the keyboard hook previously installed // for this instance. ManageConnection(Unadvise); break; default: break; } return S_OK; } STDMETHODIMP CFiltrateIE::SetSite(IUnknown *pUnkSite) { if (pUnkSite != NULL) { // Query pUnkSite for the IWebBrowser2 interface. m_spWebBrowser2 = pUnkSite; if (m_spWebBrowser2) { m_spWebBrowser2->get_HWND((long*) &m_hwndIE); // We'll need the this pointer later when the keyboard // hook will be called. // if (!AddInstance(m_hwndIE, this, GetCurrentThreadId())) // FormWhizError(IDS_ERROR_TOOMUCHWINDOWS, errError); // Connect to the browser in order to handle events. if (!ManageConnection(Advise)) MessageBox(m_hwndIE, "AAAA", "A", MB_OK ); // FormWhizError(IDS_ERROR_SINKINGFAILED, errError); } } return S_OK; } 找到.rgs文件，加入 HKLM { SOFTWARE { Microsoft { Windows { CurrentVersion { Explorer { 'Browser Helper Objects' { ForceRemove {B5D4581D-ED6A-4905-A267-25BAF7BE79C1} = s 'SafeIE Utility' } } } } } } } 上边的{B5D4581D-ED6A-4905-A267-25BAF7BE79C1}在这个文件中可以找到，注意，你做的CSLID肯定不一样。 [ Last edited by 幻影无痕 on 2006-11-27 at 10:24 ] |
回复此楼» 猜你喜欢
297，工科调剂?
已经有4人回复
-
恳请有学校收留
已经有7人回复
-
291求调剂
已经有9人回复
-
300求调剂
已经有11人回复
-
22专硕求调剂
已经有12人回复
-
材料相关专业344求调剂双非工科学校或课题组
已经有25人回复
-
急需调剂
已经有7人回复
-
求调剂
已经有10人回复
-
一志愿华中农业071010，320求调剂
已经有16人回复
-
304求调剂
已经有5人回复
5