jiangsheng

MSDN WIKI 整合到了MSDN2, FxCop

MSDN Wiki在测试半年之后，开始整合到msdn的正式版本，从Visual Studio的IDE也可以看到这些社区贡献的内容了。但是旧的MSDN Wiki网址没有做到新地址的重定向，使用FxCop的用户可能会收到页面不存在的错误信息。

一个临时的解决办法是在FxCop的设置中修改文档的路径

从http://www.gotdotnet.com/team/fxcop/docs/rules.aspx?version=1.35&url=

修改为

http://www.gotdotnet.com/team/fxcop/docs/rules/

posted on 2006-12-16 13:48:00 by jiangsheng  评论(8) 阅读(7235)

Visual C++项目的兼容性

Joseph M. Newcomer [MVP]最近在其个人网站上发表了一篇文章（http://www.flounder.com/vs2325.htm），描述了如何创建与Visual C++ 2003和Visual C++ 2005都兼容的项目。这对一些想逐步把项目升级到VS2005的人很有用。不过是逐步升级还是一次到位则取决于项目经理对人力、费用和功能的取舍。

除了工程文件之外，逐步升级的时候项目中的代码可能也有必要兼容多个Visual C++版本。比如从2003升级到2005的时候需要看看Breaking Changes in the Visual C++ 2005 Compiler （http://msdn2.microsoft.com/en-us/library/ms177253.aspx）和What's New in the Visual C++ Libraries（http://msdn2.microsoft.com/en-us/library/y8bt6w34.aspx ）。一个很好地兼容了各个Visual C++的版本的示例是BCG ControlBar，可以去其下载页面（ http://www.bcgsoft.com/download.htm ）下载一个试用版。兼容不同版本的.Net的代码应该判断System.Environment.Version，或者像Aaron Stebner这样读注册表（http://blogs.msdn.com/astebner/archive/2004/09/18/231253.aspx）。

PS: Joseph M. Newcomer的另外一篇文章（http://www.flounder.com/getminmaxinfo.htm）描述了如何在更改对话框大小的时候相应移动控件，不过我个人则偏向于集成一个Windows Forms之后设置控件的Dock属性。

posted on 2006-09-03 10:06:00 by jiangsheng  评论(3) 阅读(5766)

.Net 2.0中的工作线程和MFC8.0的托管支持

要使用这个对象来创建工作线程，首先需要加入一个BackgroundWorker对象到表单(Form)或者用户控件(UserControl)，然后调用其RunWorkerAsync方法：

private: System::Void AmicableNumberView_Load(System::Object^ sender, System::EventArgs^ e) 
...{
    propertyGrid->SelectedObject = Range;
    listViewPairs->VirtualListSize=0;
    timer->Start();
    m_rAmicableNumberPairs->Clear();
    backgroundWorker->RunWorkerAsync (Range);
}

在线程创建之后会自动触发DoWork事件。这个事件中的处理类似于1.1中的线程函数体，可以通过访问DoWorkEventArgs参数的argument属性来访问在用RunWorkerAsync启动线程时传递的参数，以及调用ReportProgress定时报告进度。

private: System::Void backgroundWorker_DoWork(System::Object^ sender, System::ComponentModel::DoWorkEventArgs^ e)
...{
    CAmicableNumberRange range=(CAmicableNumberRange)e->Argument;

    int nNumbers=range.Max-range.Min;
    int nPercentComplete=0;

    m_rGenerator->Range=range;
    m_rGenerator->StartWork();

    while(!backgroundWorker->CancellationPending && m_rGenerator->DoWork())...{
        nPercentComplete = (int)(
            (float)(m_rGenerator->GetNumberInQuestion()-range.Min)
            /(float)nNumbers 
            * 100);
        backgroundWorker->ReportProgress(nPercentComplete,m_rGenerator->GetProgress());
    }
    m_rGenerator->EndWork();
    if(backgroundWorker->CancellationPending)
    e->Cancel=true;
}

在主线程中可以处理ProgressChanged事件来更新界面。

private: System::Void backgroundWorker_ProgressChanged(System::Object^ sender, System::ComponentModel::ProgressChangedEventArgs^ e) 
...{
    progressBar->Value=e->ProgressPercentage;
    if(e->UserState!=nullptr)//a new pair is found
    ...{
        CAmicableNumberPair^ anp=(CAmicableNumberPair^)e->UserState;
        m_rAmicableNumberPairs->Add(anp);
    }
}

在计算完成之后，可以处理RunWorkCompleted事件来更新界面

private: System::Void backgroundWorker_RunWorkerCompleted(System::Object^ sender, System::ComponentModel::RunWorkerCompletedEventArgs^ e) 
...{
    timer->Stop();
    if(e->Error!=nullptr)
        MessageBox::Show(e->Error->Message);
    progressBar->Value=100;
} 

当然，为了避免过于频繁地更新界面，仍然可以使用传统的定时更新方法

private: System::Void timer_Tick(System::Object^ sender, System::EventArgs^ e) 
...{
    if(IsHandleCreated)
    ...{
        int nOldListSize=listViewPairs->VirtualListSize;
        int nNewListSize=m_rAmicableNumberPairs->Count;
        if(nNewListSize>nOldListSize)
        ...{
            listViewPairs->VirtualListSize=nNewListSize;
            listViewPairs->RedrawItems(nOldListSize, nNewListSize - 1, true);
        }
    }
}

用户有时会在计算中途取消计算，这时候可以调用CancelAsync方法，然后等待至IsBusy属性成为false为止。在DoWork中检查到CancellationPending属性为true时，应该终止并从DoWork中返回。

void Stop()
...{
    backgroundWorker->CancelAsync();
    while(backgroundWorker->IsBusy)
    ...{
        Application::DoEvents();
    }
}

对于Windows Forms，应该在表单的FormClosing事件处理中自动停止计算，但是对于UserControl，由于没有办法判断其容器的类型，所以只能在容器中手动调用一个方法来终止计算。下面是在MFC8.0的容器类CWinFormsView中调用的方法：

void CAmicableNumbersView::OnDestroy()
...{
    m_ViewControl->Stop();
    CWinFormsView::OnDestroy();
}

在使用MFC的.Net容器类和用户控件来计算亲和数时，需要在.Net控件的Load事件之前给控件传递一个计算范围参数。在MFC中，.Net控件是以ActiveX控件的形式被创建的，但是在传统的窗口初始化函数CWinFormsView::OnInitialUpdate被执行之前，控件的Load事件已经被调用了，这使得参数的传递更加困难。.Net控件是在窗口的Create方法中被创建的：

BOOL CWinFormsView::Create(LPCTSTR lpszClassName,
  LPCTSTR lpszWindowName, DWORD dwStyle,
  const RECT& rect,
  CWnd* pParentWnd, UINT nID,
  CCreateContext* pContext)
...{
 m_nFlags |= WF_ISWINFORMSVIEWWND;
 BOOL ok=__super::Create(lpszClassName, lpszWindowName, dwStyle, rect,pParentWnd, nID, pContext);
 ASSERT(ok);
 ok=ok && m_control.CreateManagedControl(m_pManagedViewType,WS_VISIBLE, rect, this,nID);
 ASSERT(ok); 
.....
 return ok;
}

virtual BOOL CreateControlSite(COleControlContainer* pContainer, COleControlSite** ppSite, UINT nID, REFCLSID clsid)
...{
    COleControlSite* pSite=NULL;
    if (InlineIsEqualGUID(clsid , CLSID_WinFormsControl))
    ...{ 
        pSite=new CCAmicablesControlSite(this, pContainer);
        if(pSite)
        ...{
            *ppSite=pSite;return TRUE;
        }
    }
    return FALSE;
}

class CCAmicablesControlSite:public CWinFormsControlSite
...{
    public:
    CCAmicablesControlSite(CAmicableNumbersView* pView, COleControlContainer* pCtrlCont)
        : CWinFormsControlSite(pCtrlCont) ,m_pView(pView)   ...{}
    virtual HRESULT CreateOrLoad(const CControlCreationInfo& creationInfo)...{
        HRESULT hr =CWinFormsControlSite::CreateOrLoad(creationInfo);
        if (SUCCEEDED(hr)) ...{
            m_pView->OnControlCreated();
        }
        return hr;
    }
protected:
    CAmicableNumbersView* m_pView;
};

void CAmicableNumbersView::OnControlCreated()
...{
    m_ViewControl = safe_cast<Amicable::AmicableNumberView ^>(this->GetControl());
    m_ViewControl->Range = m_range;
}

BOOL CAmicableNumbersView::Create(LPCTSTR lpszClassName, LPCTSTR lpszWindowName, DWORD dwStyle, const RECT& rect, CWnd* pParentWnd, UINT nID, CCreateContext* pContext)
...{
    // TODO: Add your specialized code here and/or call the base class
    //prompt for search range
    FormRange^ fr= gcnew FormRange();
    fr->Range=m_range;
    if (fr->ShowDialog() == DialogResult::OK)
    ...{
        Amicable::CAmicableNumberRange range=fr->Range;
        m_range=range;
    }
    else
        return FALSE;
    return CWinFormsView::Create(lpszClassName, lpszWindowName, dwStyle, rect, pParentWnd, nID, pContext);
}

Office Live

Office Live Blog 5号宣布Office Live的测试者暂时不再需要产品密钥来进行注册，但是注册仍然需要一个美国地址和一个信用卡帐户。从站点内容来看，OfficeLive目前的测试版面向的用户是中小企业，提供5个邮箱、30兆空间和免费国际域名（嗯，注册了一个http://jiangsheng.net），以及FrontPage（OK，我知道这玩意现在叫Office SharePoint Designer ）和Outlook的功能。

尽管站点的AJAX脚本经常出错（比如在编辑页面输入+号保存之后会消失，上传文件有时会失败），但是整个界面还是比较友好的，类似FrontPage的站点管理用起来很方便，而且类似Office助手的工具栏使得用户可以很快上手。

posted on 2006-04-09 15:57:00 by jiangsheng  评论(9) 阅读(9166)

创建和自动化Internet Explorer和资源管理器窗口

• 下载示例工程 - 34 Kb

我在很久之前就开始用程序自动化Shell窗口——主要对象是IE窗口。有时浏览器控件或者MFC类CHTMLView可以满足我的需要，但是很多时候我需要从头嵌入浏览器控件并且尽可能模拟IE的行为，例如实现IDocHostUIHandler来启用自动完成功能。一个很自然的替代方案是直接操作IE窗口。

创建新的Internet Explorer窗口

最简单的方法是调用Windows API ShellExecute (Ex)，Paul DiLascia在他的C++ Q&A专栏文章"Browser Detection Revisited, Toolbar Info, IUnknown with COM and MFC"里面有一段示例代码:

/**//// As I've shown in many programs...
ShellExecute(0, _T("open"), pszMyHTMLFile, 0, 0, SW_SHOWNORMAL);
但是，这样没法控制新的窗口，而且在用户关闭程序之后会留下一个IE窗口。为了扫我自己的门前雪，我需要找到我创建的窗口，并且控制它。

我的下一个尝试是创建和控制一个InternetExplorer对象，并且在必要时关掉它。微软知识库中有这么一篇文章"How To Automate Internet Explorer to POST Form Data" 基本上描述的就是我想要的，除了最后的关闭窗口。嗯，简单的调用IWebBrowser2::Quit就可以做到这一点

// create a new IE instance and show it 
//CComQIPtr m_pWebBrowser2;
m_pWebBrowser2.CoCreateInstance(CLSID_InternetExplorer);
HRESULT hr;
hr = m_pWebBrowser2->put_StatusBar(VARIANT_TRUE);
hr = m_pWebBrowser2->put_ToolBar(VARIANT_TRUE);
hr = m_pWebBrowser2->put_MenuBar(VARIANT_TRUE);
hr = m_pWebBrowser2->put_Visible(VARIANT_TRUE);

if(!::PathIsURL(m_strFileToFind))
    m_strFileToFind=_T("http://blog.joycode.com/jiangsheng");
COleVariant vaURL( ( LPCTSTR) m_strFileToFind);
m_pWebBrowser2->Navigate2(
    &vaURL, COleVariant( (long) 0, VT_I4),
    COleVariant((LPCTSTR)NULL, VT_BSTR),
    COleSafeArray(),
    COleVariant((LPCTSTR)NULL, VT_BSTR)
);
void CAutomationDlg::OnDestroy()
...{
    //close the IE window created by this program before exit
    if(m_pWebBrowser2)
    ...{
        if(m_bOwnIE)
        ...{
            m_pWebBrowser2->Quit();
            m_bOwnIE=FALSE;
        }
        UnadvisesinkIE();
        m_pWebBrowser2=(LPUNKNOWN)NULL;
    }
    CDialog::OnDestroy();
}
还有一个问题。要是用户在我的WM_TIMER处理函数中操作窗口之前关掉了新的IE窗口怎么办？可以IWebBrowser2接口控制的IE对象现在不再存在了。幸亏微软考虑到了这一点，程序不会崩溃，但是最好还是能够知道什么时候它会关闭，这样我可以避免意外发生。 

处理Internet Explorer的事件

Internet Explorer对象在退出时会触发DWebBrowserEvents2::OnQuit事件。这是一个理想的释放控制的时机。因为对象要被销毁，所以我同时也停止监视对象的事件

if(m_pWebBrowser2) 
...{
    UnadvisesinkIE();
    m_pWebBrowser2=(LPUNKNOWN)NULL;
}
连接到当前的Internet Explorer窗口

虽然我不在乎我会控制到哪个IE窗口，但是既然微软知识库里面有"如何连接到一个Internet Explorer的实例"这样一篇文章，我假定一些人会觉得"如何连接到当前的Internet Explorer实例"这样一篇文章比较有用.

这样的话，什么是“当前的Internet Explorer实例”？实际上，它就是最后一个活动的IE窗口。因为Windows会把活动的窗口移动到z-order的顶部，所以它会保留在所有IE窗口的z-order的最高处。因此我需要做的就是找到哪个IE窗口具有最高的z-order值。这样我需要先判断哪个窗口是IE窗口。在一些和Spy++有关的调查之后，我假定IE窗口具有一个共同的窗口类"IEFrame"，然后编写了一个函数来获得Shell窗口的窗口类：

//shell windows object will list both IE and Explorer windows
//use their window class names to identify them.    
CString CAutomationDlg::GetWindowClassName(IWebBrowser2* pwb)    
...{    
    TCHAR szClassName[_MAX_PATH];    
    ZeroMemory( szClassName, _MAX_PATH * sizeof( TCHAR));    
    HWND hwnd=NULL;    
    if (pwb)    
    ...{    
        LONG_PTR lwnd=NULL;    
        pwb->get_HWND(&lwnd);    
        hwnd=reinterpret_cast(lwnd);    
        ::GetClassName( hwnd, szClassName, _MAX_PATH);    
    }    
    return szClassName;    
}
剩下的问题就很简单了：沿Z轴枚举顶层窗口，找到第一个Shell窗口列表中的具有窗口类"IEFrame"的第一个实例。之后我操作了一下IE的DHTML文档对象模型(也称为DOM，它只在IE窗口触发最后一个DocumentComplete事件只后有效)来确认成功连接到窗口。

void CAutomationDlg::DocumentComplete(IDispatch *pDisp, VARIANT *URL)
...{
    //HTML DOM is available AFTER the DocumentComplete event is fired.    
    //For more information, please visit KB article
    //"How To Determine When a Page Is Done Loading in WebBrowser Control"
    //http://support.microsoft.com/kb/q180366/
    CComQIPtr pWBUK(m_pWebBrowser2);
    CComQIPtr pSenderUK( pDisp);
    USES_CONVERSION;
    TRACE( _T( "Page downloading complete:\r\n"));
    CComBSTR bstrName;
    m_pWebBrowser2->get_LocationName(&bstrName);
    CComBSTR bstrURL;
    m_pWebBrowser2->get_LocationURL(&bstrURL);
    TRACE( _T( "Name:[ %s ]\r\nURL: [ %s ]\r\n"),
    OLE2T(bstrName),
    OLE2T(bstrURL));
    if (pWBUK== pSenderUK)
    ...{
        CComQIPtr pHTMLDocDisp;
        m_pWebBrowser2->get_Document(&pHTMLDocDisp);
        CComQIPtr pHTMLDoc(pHTMLDocDisp);
        CComQIPtr ecAll;
        CComPtr pTagLineDisp;
        if(pHTMLDoc)
        ...{
            CComBSTR bstrNewTitle(_T("Sheng Jiang's Automation Test"));
            pHTMLDoc->put_title(bstrNewTitle);
            pHTMLDoc->get_all(&ecAll);
        }
        if(ecAll)
        ...{
            ecAll->item(COleVariant(_T("tagline")),COleVariant((long)0),&pTagLineDisp);
        }
        CComQIPtr eTagLine(pTagLineDisp);
        if(eTagLine)
        ...{
            eTagLine->put_innerText(
                CComBSTR(_T("Command what is yours, conquer what is not. --Kane")));
        }
    }
}
现在控制的窗口和IE打开文件时选择的一样了。

副产品: 连接到当前的Windows Explorer窗口

在研究ShellWindows对象的shell窗口列表时，我获得一个副产品：看起来Windows Explorer窗口也有共同的窗口类名。这样同样的机制在把窗口类从"IEFrame"改成"ExploreWClass"之后对Windows Explorer窗口也适用。因为没有DHTML DOM可供操作，我通知Windows Explorer 窗口打开一个现存路径，来标志我接管了这个窗口。

//show the folder bar
COleVariant clsIDFolderBar(_T("{EFA24E64-B078-11d0-89E4-00C04FC9E26E}"));
COleVariant FolderBarShow(VARIANT_TRUE,VT_BOOL);
COleVariant dummy;    
if(m_pWebBrowser2)    
    m_pWebBrowser2->ShowBrowserBar(&clsIDFolderBar,&FolderBarShow,&dummy);    
//browse to a given folder    
CComQIPtr psp(m_pWebBrowser2);    
CComPtr psb;     
if(psp)    
    psp->QueryService(SID_STopLevelBrowser,IID_IShellBrowser,(LPVOID*)&psb);    
if(psb)    
...{    
    USES_CONVERSION;    
    LPITEMIDLIST pidl=NULL;    
    SFGAOF sfgao;    
    SHParseDisplayName (T2OLE(m_strFileToFind),NULL,&pidl,0, &sfgao);    
    if(pidl==NULL)    
        ::SHGetSpecialFolderLocation(m_hWnd,CSIDL_DRIVES,&pidl);    
    m_pidlToNavigate=NULL;    
    if(pidl)    
    ...{    
        //if the start address is a folder, then browse it.    
        //otherwise browse to its parent folder, and select it in the folder view.    
        LPCITEMIDLIST pidlChild=NULL;    
        CComPtr psf;    
        HRESULT hr = SHBindToParent(pidl, IID_IShellFolder, (LPVOID*)&psf, &pidlChild);    
        if (SUCCEEDED(hr))...{    
            SFGAOF rgfInOut=SFGAO_FOLDER;    
            hr=psf->GetAttributesOf(1,&pidlChild,&rgfInOut);    
            if (SUCCEEDED(hr))...{    
                m_pidlToNavigate=ILClone(pidl);    
                if(rgfInOut&SFGAO_FOLDER)...{//this is a folder    
                    psb->BrowseObject(pidl,SBSP_SAMEBROWSER);     
                }    
                else    
                ...{    
                    //this is a file, browse to the parent folder    
                    LPITEMIDLIST pidlParent=ILClone(pidl);    
                    ::ILRemoveLastID(pidlParent);    
                    psb->BrowseObject( pidlParent, SBSP_SAMEBROWSER);    
                    ILFree(pidlParent);    
                }    
            }    
        }    
        //clean up    
        ILFree(pidl);    
    }    
}:
这代码有点长，因为我想区别对待文件和文件夹。如果你调用IShellBrowser::BrowseObject并且给这个方法传递一个文件pidl，那么Windows Explorer会提示你是否打开这个文件，就像在资源管理器的地址栏中输入路径之后按回车一样。我想模拟"Explorer.exe /select"的行为，在文件夹视图中选择指定的文件，所以我在DocumentComplete事件处理函数中加入了一些代码：

if(m_pidlToNavigate)
...{
    //If the start address is a file, browse to the parent folder
    //and then select it
    CComQIPtr psp(m_pWebBrowser2);
    CComPtr psb;
    CComPtr psv;
    if(psp)
        psp->QueryService(SID_STopLevelBrowser,IID_IShellBrowser,(LPVOID*)&psb);
    if(psb)
        psb->QueryActiveShellView(&psv);
    if(psv)
    ...{
        LPCITEMIDLIST pidlChild=NULL;
        CComPtr psf;
        SFGAOF rgfInOut=SHCIDS_ALLFIELDS;
        HRESULT hr = SHBindToParent(m_pidlToNavigate, IID_IShellFolder, (LPVOID*)&psf, &pidlChild);
        if (SUCCEEDED(hr))...{
            hr=psf->GetAttributesOf(1,&pidlChild,&rgfInOut);
            if (SUCCEEDED(hr))...{
                if((rgfInOut&SFGAO_FOLDER)==0)...{
                    //a file, select it
                    hr=psv->SelectItem(ILFindLastID(m_pidlToNavigate)
                        ,SVSI_SELECT|SVSI_ENSUREVISIBLE|SVSI_FOCUSED|
                        SVSI_POSITIONITEM);
                }
            }
        }
    }
    //clean up
    ILFree(m_pidlToNavigate);
    m_pidlToNavigate=NULL;
}
创建Explorer窗口

解决了这么多问题，可以衣锦还乡了。既然我可以以和当前的Internet Explorer窗口基本相同的方式连接到当前的Windows Explorer窗口，那么我是否可以以和创建Internet Explorer窗口基本相同的方式创建Windows Explorer窗口？遗憾的是，这不可行。不存在Windows Explorer对应的类ID来创建一个COM对象。虽然我仍旧可以创建IE窗口，浏览到文件夹，显示文件夹侧边栏，使得它看起来就像一个Windows Explorer窗口，但是我不能改变窗口类"IEFrame"，因此较难把它和其他的显示HTML网页和活动文档的IE窗口区分开来。

好吧，既然我不能以COM的方式来创建它，我还可以尝试用传统的方式。我可以创建一个explorer.exe进程之后查找其主窗口，就像Paul DiLascia 在他的文章"Get the Main Window, Get EXE Name"中演示的那样，并且发送未文档化的消息WM_GETISHELLBROWSER来获得窗口的IShellBrowser接口:

//start the new process
STARTUPINFO si;
PROCESS_INFORMATION pi;
ZeroMemory( &si, sizeof(si) );
si.cb = sizeof(si);
ZeroMemory( &pi, sizeof(pi) );
// Start the child process. 
if( !CreateProcess( NULL, // No module name (use command line). 
    _T("explorer.exe"), // Command line. 
    NULL,             // Process handle not inheritable. 
    NULL,             // Thread handle not inheritable. 
    FALSE,            // Set handle inheritance to FALSE. 
    0,                // No creation flags. 
    NULL,             // Use parent's environment block. 
    NULL,             // Use parent's starting directory. 
    &si,              // Pointer to STARTUPINFO structure.
    &pi )             // Pointer to PROCESS_INFORMATION structure.
)
//wait a graceful time 
//so the window is created and is ready to answer messages.
::WaitForInputIdle(pi.hProcess,1000);
//m_hExplorerProcess=(DWORD)pi.hProcess;
EnumWindows(EnumWindowsProc,(LPARAM)this);

BOOL CALLBACK CAutomationDlg::EnumWindowsProc(HWND hwnd,LPARAM lParam)
...{
    CAutomationDlg* pdlg=(CAutomationDlg*)lParam;
    DWORD pidwin;
    GetWindowThreadProcessId(hwnd, &pidwin);
    if (pidwin==pdlg->m_hExplorerProcess)
    ...{
        IShellBrowser* psb=(IShellBrowser*)::SendMessage(hwnd,WM_USER+7,0,0);
        CComQIPtr pwb(psb);
        return FALSE;
    }
    return TRUE;
}
啊喔，这在我的计算机上也没有效果。怎么回事？在我的资源管理器的文件夹选项中，“在同一窗口中打开每一个文件夹”被选中，所以新的Windows Explorer窗口被创建在现有的Windows Explorer进程中。看起来这是条死胡同。

等一下，我手头还有另一个ShellWindows对象，它可以给我一个Shell窗口的列表，包含每一个Windows Explorer窗口和每个窗口对应的IWebBrowser2接口，这是到IShellBrowser接口的入口。.现在我需要获得两份shell窗口列表，创建explorer.exe进程之前和之后各一份，之后要比较它们来找到新的shell窗口：

m_pShellWindows.CoCreateInstance(CLSID_ShellWindows);
if(m_pShellWindows)
...{
    //get the list of running IE windows
    //using the ShellWindows collection
    //For more information, please visit 
    //http://support.microsoft.com/kb/176792
    long lCount=0;
    m_pShellWindows->get_Count(&lCount);
    for(long i=0;i pdispShellWindow;
        m_pShellWindows->Item(COleVariant(i),&pdispShellWindow);
        if(pdispShellWindow)
        ...{
            m_listShellWindows.AddTail(new CComQIPtrIDispatch(pdispShellWindow));
        }
    }
}
//enumerate through the new shell window list
long lCount=0;
m_pShellWindows->get_Count(&lCount);
for(long i=0;i//search the new window
    //using the ShellWindows collection
    //For more information, please visit 
    //http://support.microsoft.com/kb/176792
    BOOL bFound=FALSE;
    CComPtr pdispShellWindow;
    m_pShellWindows->Item(COleVariant(i),&pdispShellWindow);
    //search it in the old shell window list
    POSITION pos=m_listShellWindows.GetHeadPosition();
    while(pos)
    ...{
        CComQIPtrIDispatch* pDispatch=m_listShellWindows.GetNext(pos);
        if(pDispatch&&pdispShellWindow.p==pDispatch->p)
        ...{
            bFound=TRUE;break;    
        }
    }
    if(!bFound)//new window found
    ...{
        //attach to it
        m_pWebBrowser2=pdispShellWindow;
        m_bOwnIE=TRUE;
        //sink for the Quit and DocumentComplete events
        AdviseSinkIE();
        NavigateToSamplePage(FALSE);
    }
}
等一下，你的"创建explorer.exe进程之后"是什么意思?一秒钟之后？还是两秒钟？实际上，一个WindowRegistered事件会被ShellWindows 对象触发，所以我在事件处理中加入一些代码：.

//sink DShellWindowsEvents events
LPUNKNOWN pUnkSink = GetIDispatch(FALSE);
m_pShellWindows.CoCreateInstance(CLSID_ShellWindows);
AfxConnectionAdvise((LPUNKNOWN)m_pShellWindows, 
    DIID_DShellWindowsEvents,pUnkSink,FALSE,&m_dwCookieShellWindows);
void CAutomationDlg::WindowRegistered(long lCookie) 
...{
    //ok, a new shell window is created
    if(m_pShellWindows)
    ...{
        //enumerate through the new shell window list
        long lCount=0;
        m_pShellWindows->get_Count(&lCount);
        for(long i=0;i//search the new window
            //using the ShellWindows collection
            //For more information, please visit 
            //http://support.microsoft.com/kb/176792
            BOOL bFound=FALSE;
            CComPtr pdispShellWindow;
            m_pShellWindows->Item(COleVariant(i),&pdispShellWindow);
            //search it in the old shell window list
            POSITION pos=m_listShellWindows.GetHeadPosition();
            while(pos)
            ...{
                CComQIPtrIDispatch* pDispatch=m_listShellWindows.GetNext(pos);
                if(pDispatch&&pdispShellWindow.p==pDispatch->p)
                ...{
                    bFound=TRUE;break;    
                }
            }
            if(!bFound)//new window 
            ...{
                //attach to it
                m_pWebBrowser2=pdispShellWindow;
                m_bOwnIE=TRUE;
                //sink for the Quit and DocumentComplete events
                AdviseSinkIE();
                NavigateToSamplePage(FALSE);
            }
        }
        //clean up
        if(m_dwCookieShellWindows!= 0)
        ...{
            LPUNKNOWN pUnkSink = GetIDispatch(FALSE);
            AfxConnectionUnadvise((LPUNKNOWN)m_pShellWindows, 
                DIID_DShellWindowsEvents, pUnkSink, FALSE, m_dwCookieShellWindows);
            m_dwCookieShellWindows= 0;
        }
        POSITION pos=m_listShellWindows.GetHeadPosition();
        while(pos)
        ...{
            CComQIPtrIDispatch* pDispatch=m_listShellWindows.GetNext(pos);
            delete    pDispatch;
        }
        m_listShellWindows.RemoveAll();
        m_pShellWindows=(LPUNKNOWN)NULL;
    }
}
为什么不用Browser Helper Objects?

因为新的窗口在进程外，所以跨进程列集COM调用很慢。如果你的自动化操作包含很多的COM调用，那么你可能要把代码本地化，例如编写一个浏览器辅助对象(BHO)。但是，BHO会被每一个Windows Explorer和Internet Explorer的实例加载，而且我不想拖慢整个系统来让它们扫瓦上霜。一些人倒是使用了这个技术连接到当前的Internet Explorer窗口.

已知问题

ShellWindows对象在explorer.exe process被终止或者尚未启动时不可访问。BHO在这种情况下可以作为替代方案。

结论

这里有一大堆让人迷糊的代码，而且可能还有你不熟悉的COM和Windows API函数混合调用。希望你会觉得本文有用，并且不会被我的代码搞得头昏脑胀。自动化Internet Explorer和Windows Explorers窗口可以节省你模拟系统默认行为的时间，并且给用户提供一个熟悉的界面。

参考

• Browser Detection Revisited, Toolbar Info, IUnknown with COM and MFC
• Connecting to Running Instances of Internet Explorer
• Connecting to a running instance of Internet Explorer
• Get the Main Window, Get EXE Name
• How to connect to a running instance of Internet Explorer
• How to Connect to IExplorer in Citrix Environments
• PRB: IShellFolder::CreateViewObject() causes access violation
• Querying information from an Explorer window
• ShellWindows Object (Windows Explorer and Controls)

历史

• October 20, 2005 初版发布

posted on 2005-10-20 23:32:00 by jiangsheng  评论(10) 阅读(15383)

西雅图MVP峰会见闻

个人觉得这次MVP峰会最大的进步就是技术相关的Session数量大大增加，按照MVP专长来分类；而不像上次那样按主题分类。我只需要在VC产品组的日程里面选择就可以了，而不是像上回那样不得不去听移动开发。当然这回也有MVP不去参加VC的Session，跑去听IE和移动开发。内容方面也比上次活泼很多，Don Box还是那么幽默，比尔·盖茨也有搞笑的演出，不过他看起来比去年七月份在北京的时候老多了。

一些可能有人会感兴趣的技术信息

• 新的产品开发合作网站http://connect.microsoft.com/。在这里可以申请参与新产品的测试。
  软件开发者可以使用Windows错误报告机制（Windows Error Reporting，简称WER，https://winqual.microsoft.com/parentorgs.asp）来获得反馈。
• 有人正在开发把VC项目转化成MSBuild的XML格式的工具 (
  http://blogs.msdn.com/clichten/archive/2005/06/07/Building_VC_projects_with_msbuild_and_not_using_vcbuild.aspx)。关于MSBuild的概述可以看看Christophe Nasarre的文章Overview of MSBuild (http://msdn.microsoft.com/library/en-us/dnlong/html/msbuildpart1.asp)和MSBuild Team Blog (http://blogs.msdn.com/msbuild)。还不知道这个工具是否支持VS.Net中其他语言的项目。新的代号为Phoenix的统一编译器平台也在计划中。可以加入插件来实现自定义语言的编译器 (http://blogs.msdn.com/kangsu/archive/2005/08/11/450481.aspx)。
• 在MFC8.0中使用Windows Forms会更加简单，加速键和Tab键的处理现在可以扔给MFC来做了 (http://blogs.msdn.com/yvesdolc/archive/2005/04/26/WindowsForms_In_MFC.aspx)。VC8.0中也会有一些新的向导，例如单元测试工程向导 (http://msdn.microsoft.com/library/en-us/dnvs05/html/vs05security.asp)。

一些建议

• 停止开发新的面向Win9x的程序和静态链接MFC的程序。使用新的MFC版本编译旧的程序来增加应用程序的安全性。
• 在新的程序中使用Unicode编码，同时尽可能将现有程序移植到Unicode。
• 移植到Visual C++ 2005来使用强大的编译器和调试器。

尽管限于保密协议我不能说得更多，但是微软在11月7号就会正式发布Visual Studio 2005、SQL Server 2005和BizTalk Server 2006了。新的Visual Studio版本（代号Orca和Hawaii）也正在规划中。

posted on 2005-10-03 14:42:00 by jiangsheng  评论(8) 阅读(4684)

存取在线存储

使用USB存储或者软盘可以在机房和家里的计算机之间传输数据，但是在可以访问因特网的时候，在线存储是更加快捷和便宜的替代方案。典型的在线存储包含MSN 上的“我的网站”、FTP服务，以及基于网页的存储空间。

原文：http://cn.geocities.com/sheng_jiang/accessdocumentsfrominternet.doc

全文阅读：http://spaces.msn.com/members/jiangsheng/Blog/cns!1pVUmC6mid-3zVpLZNQTgtuw!199.entry （英文）

一个飓风刚走，另一个更大的飓风又来了，这回是直冲本州而来。新奥尔良和休斯敦疏散过来一大堆人，但是这里很可能也得疏散。希望休斯敦不会成为第二个新奥尔良。

posted on 2005-09-21 23:29:00 by jiangsheng  评论(0) 阅读(3918)

MFC，欢乐与痛苦

//如果这段代码可以工作，那么它的作者是Jiangsheng //否则我不知道它的作者 void __stdcall CFrontPageAddin::OnClickButtonExportCHM(IDispatch* /*Office::_CommandBarButton* */ Ctrl,VARIANT_BOOL * CancelDefault) { AtlTrace(_T(" CFPAnt::OnClickButtonExportCHM\n")); //create a thread to avoid assert failure CDialogThread* pDialogThread= (CDialogThread*)AfxBeginThread(RUNTIME_CLASS(CDialogThread), THREAD_PRIORITY_NORMAL, 0, CREATE_SUSPENDED,NULL); if(pDialogThread) { pDialogThread->m_prc=RUNTIME_CLASS(CExportCHMSheet); pDialogThread->ResumeThread(); pDialogThread->WaitForDoModal(); delete pDialogThread; } } class CDialogThread : public CWinThread { ...... int m_nModalResult; CRuntimeClass* m_prc; void WaitForDoModal(); ...... }; CDialogThread::CDialogThread() { m_bAutoDelete=FALSE; m_prc=NULL; m_nModalResult=0; } BOOL CDialogThread::InitInstance() { // TODO: perform and per-thread initialization here AFX_MANAGE_STATE(AfxGetAppModuleState()); AFX_MODULE_STATE* pModuleState=AfxGetModuleState(); pModuleState->m_hCurrentInstanceHandle=_Module.GetModuleInstance(); AfxSetResourceHandle(_Module.GetModuleInstance()); if(m_prc) { if(m_prc->IsDerivedFrom(RUNTIME_CLASS(CDialog))) { CDialog* pDialog=(CDialog*)m_prc->CreateObject(); if(pDialog) { m_pMainWnd=pDialog; m_nModalResult=pDialog->DoModal(); } } else if(m_prc->IsDerivedFrom(RUNTIME_CLASS(CPropertySheet))) { CPropertySheet* pDialog=(CPropertySheet*)m_prc->CreateObject(); if(pDialog) { m_pMainWnd=pDialog; m_nModalResult=pDialog->DoModal(); } } } return FALSE; } void CDialogThread::WaitForDoModal() { //from http://blogs.msdn.com/oldnewthing/archive/2005/02/17/375307.aspx MSG msg; UINT cRecords = 0; while (true) { switch (MsgWaitForMultipleObjects(1, &m_hThread, FALSE, INFINITE, QS_ALLINPUT)) { case WAIT_OBJECT_0: return ; // event has been signalled break; case WAIT_OBJECT_0+1: // we have a message - peek and dispatch it if (PeekMessage(&msg, NULL, 0, 0, PM_REMOVE)) { TranslateMessage(&msg); DispatchMessage(&msg); } break; default: return ; // unexpected failure } } } </body></html>

posted on 2005-08-20 13:04:00 by jiangsheng  评论(1) 阅读(5361)

集成桌面搜索，模拟器

微软的桌面搜索API推出也有一段时间了，但是网上可以找到的相关技术资料还不多。官方的资料在http://addins.msn.com/devguide.aspx可以看到，而且网页上有SDK和一个C#的示例供下载。
使用搜索API非常的简单，首先创建一个桌面搜索对象
BOOL CWDSSampleView::PreCreateWindow(CREATESTRUCT& cs)
{
 // TODO: Modify the Window class or styles here by modifying
 //  the CREATESTRUCT cs
 if(m_pSearchDesktop.CreateInstance(CLSID_SearchDesktop))
 {
  AfxMessageBox(IDS_FAILED_TO_CREATE_SEARCH_ENGINE);
  return FALSE;
 }

……
之后就可以开始执行搜索了。桌面搜索对象有两个方法，ExecuteSQLQuery和ExecuteQuery，都返回一个ADO记录集对象。ExecuteQuery是对用户比较友好的版本，参数虽然比较多，但是不需要自己构建SQL；而ExecuteSQLQuery是底层版本，只有一个参数——需要自己构造的SQL。相信我，你不会渴望自己来创建SQL的。传递给ExecuteQuery的参数就已经够长的了。字符串表中IDS_COLUMNS_GENERAL的内容是：
DocTitle,DocFormat,Url,DocAuthor,PrimaryDate,FileName, FileExt,IsAttachment,Characterization,Rank,PerceivedType, HasAttach,DocTitlePrefix,FileExtDesc,DisplayFolder, DocKeywords,DocComments,ConversationID,Size, Create,Write。

void CWDSSampleView::Search(LPCTSTR lpszQuery,LPCTSTR lpszSort)
{
 CString strQuery(lpszQuery);if(strQuery.IsEmpty())return;
 CString strSort(lpszSort);
 USES_CONVERSION;
 HRESULT hr=S_OK;
 GetListCtrl().SetItemCount(0);
 ClearCache();
 try{
  CString strColumns;
  VERIFY(strColumns.LoadString(IDS_COLUMNS_GENERAL));
  if(strSort.IsEmpty())
   m_pRecordset=m_pSearchDesktop->ExecuteQuery(T2OLE(strQuery),
    T2OLE(strColumns),NULL,NULL);
  else
   m_pRecordset=m_pSearchDesktop->ExecuteQuery(T2OLE(strQuery),
    T2OLE(strColumns),T2OLE(strSort),NULL);
  int nItemCount=m_pRecordset->GetRecordCount();
  GetListCtrl().SetItemCount(nItemCount);
  
 }
 catch(_com_error&e)
 {
  ……
 }
}

但是，访问返回的记录集的速度比访问数据库要慢。我不得不用虚列表和缓存来提高性能。在搜索结果很多（例如关键字选择"Microsoft"）时程序有假死现象——当然也不排除我选择的字段过多的原因。

最近在写一个14位CPU的模拟器，CPU指令长度是固定的——13字节，十分的不吉利^_^b，而且CPU指令集中一些特定指令会根据上下文判断是否跳过下一个指令。但是在Intel系统上没有这样的指令，而且指令长度是可变的，所以无法知道下一个指令的长度来跳过它。我现在是在内存中设置一个标志，在执行每个指令之前检查这个标志来判断前一个指令是否指明跳过当前指令——低效，但是可以正常工作。

现在我知道一些模拟器为什么慢得像乌龟爬了……

posted on 2005-07-19 01:58:00 by jiangsheng  评论(3) 阅读(4383)

Hook DHTML Commands

Hook DHTML Commands

浏览器在执行很多命令之前都会允许容器来替换默认的处理。在执行一些默认的命令之前，系统会查询用户对IDocHostUIHandler的实现对象的IOleCommandTarget接口，调用默认(NULL)或者CGID_DocHostCommandHandler命令组的命令。如果容器的对应命令处理返回S_OK。那么默认的处理就不会被调用。

下面列出一些可以在容器中自定义的操作：（这些常量的定义位于docobj.h中）

• OLECMDID_PRINT，默认命令组
• OLECMDID_SHOWSCRIPTERROR, CGID_DocHostCommandHandler命令组
• OLECMDID_FOCUSVIEWCONTROLSQUERY, CGID_DocHostCommandHandler命令组
• OLECMDID_SHOWPAGEACTIONMENU, CGID_DocHostCommandHandler命令组

MFC提供了一些比较容易扩展的类和宏，这样可以很容易地在扩展容器来实现新的接口。这里使用CCmdTarget类提供的GetInterfaceHook虚函数来进行扩展。

//This sample is based on MFC sample DHTMLExplore. //a button is inserted into explore.htm: //<BUTTON class=hotElement id=print accesskey="P"><U>P</U>rint</BUTTON> //to invoke the print command #include <afxole.h> #include <mshtmcid.h> ///////////////////////////////////////////////////////////////////////////// // CDHtmlExploreDlg dialog class CDHtmlExploreDlg; //customize the CBrowserControlSite class to implement IOleCommandTarget. //the IDocHostUIHandler interface is implemented in CBrowserControlSite, //an internal control site class declared within afxdhtml.h class CDHtmlExploreControlSite: public CBrowserControlSite , public IOleCommandTarget CDHtmlExploreControlSite( COleControlContainer* pCtrlCont, CDHtmlExploreDlg *pHandler) : CBrowserControlSite(pCtrlCont,pHandler){}; protected: // Implementation LPUNKNOWN GetInterfaceHook(const void *iid); // IUnknown methods ...//omitted // IOleCommandTargetmethods ...//omitted friend class CDHtmlExploreDlg; }; class CDHtmlExploreDlg : public CDHtmlDialog { ...... virtual BOOL CreateControlSite(COleControlContainer* pContainer, COleControlSite** ppSite, UINT /* nID */, REFCLSID /* clsid */); HRESULT OnPrint(IHTMLElement *phtmlElement); // IOleCommandTargetmethods ...//omitted ...... afx_msg void OnContextPrint(); ...... friend class CDHtmlExploreControlSite ; }; LPUNKNOWN CDHtmlExploreControlSite::GetInterfaceHook(const void *iid) { if (IsEqualIID((REFIID) (*(IID*)iid), IID_IOleCommandTarget)) return (IOleCommandTarget*) this; //important ,base class implementation //customized GetInterfaceHook to support IDocHostUIHandler return CBrowserControlSite::GetInterfaceHook(iid); } // IUnknown methods STDMETHODIMP CDHtmlExploreControlSite::QueryInterface(REFIID riid, void **ppvObject) { return COleControlSite::ExternalQueryInterface(&riid, ppvObject); } STDMETHODIMP_(ULONG) CDHtmlExploreControlSite::AddRef() { return ExternalAddRef(); } STDMETHODIMP_(ULONG) CDHtmlExploreControlSite::Release() { return ExternalRelease(); } // redirect IOleCommandTarget calls STDMETHODIMP CDHtmlExploreControlSite::QueryStatus(const GUID *pguidCmdGroup, ULONG cCmds, OLECMD prgCmds[ ], OLECMDTEXT *pCmdText) { return reinterpret_cast<CDHtmlExploreDlg*>(m_pHandler)->QueryStatus( pguidCmdGroup, cCmds, prgCmds, pCmdText); } STDMETHODIMP CDHtmlExploreControlSite::Exec(const GUID *pguidCmdGroup, DWORD nCmdID, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut) { return reinterpret_cast<CDHtmlExploreDlg*>(m_pHandler)->Exec( pguidCmdGroup, nCmdID, nCmdexecopt, pvaIn, pvaOut); } //replace the control site to support IOleCommandTarget BOOL CDHtmlExploreDlg::CreateControlSite(COleControlContainer* pContainer, COleControlSite** ppSite, UINT /* nID */, REFCLSID /* clsid */) { if(ppSite == NULL) { ASSERT(FALSE); return FALSE; } CDHtmlExploreControlSite *pBrowserSite = new CDHtmlExploreControlSite(pContainer, this); if (!pBrowserSite) return FALSE; *ppSite = pBrowserSite; return TRUE; } ..... ON_COMMAND(ID_CONTEXT_PRINT, OnContextPrint) //message map ..... DHTML_EVENT_ONCLICK(_T("print"), OnPrint)//DHTML event map void CDHtmlExploreDlg::OnContextPrintPreview() { // TODO: Add your command handler code here OnPrintPreview(NULL); } //for more information about HRESULT CDHtmlExploreDlg::OnPrint(IHTMLElement* /*phtmlElement*/) { CComQIPtr<IOleCommandTarget> poctBrowserApp(m_pBrowserApp); if(poctBrowserApp==NULL)return E_FAIL; return poctBrowserApp->Exec (&CGID_MSHTML,IDM_PRINT,OLECMDEXECOPT_PROMPTUSER,NULL,NULL); } //dump information about commands //and ignore the print command STDMETHODIMP CDHtmlExploreDlg::QueryStatus(const GUID *pguidCmdGroup, ULONG cCmds, OLECMD prgCmds[ ], OLECMDTEXT *pCmdText) { CString strTrace(_T("QueryStatus:Command Group:")); CStringW strCommandGroup(_T("NULL")); CString strCommand; CString strCommands; if(pguidCmdGroup) { LPOLESTR pwstrCommandGroup=NULL; ::StringFromCLSID (*pguidCmdGroup,&pwstrCommandGroup); if(pwstrCommandGroup) { strCommandGroup=pwstrCommandGroup; CoTaskMemFree(pwstrCommandGroup); } } strTrace+=strCommandGroup; for(UINT i=0;i<cCmds;i++) { strCommand.Format(_T("%x"),prgCmds[i].cmdID); strCommands+=","; strCommands+=strCommand; } strTrace+=strCommands; strTrace+=_T("\r\n"); TRACE(strTrace); return E_NOTIMPL; } STDMETHODIMP CDHtmlExploreDlg::Exec(const GUID *pguidCmdGroup, DWORD nCmdID, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut) { CString strTrace(_T("Exec:Command Group:")); CStringW strCommandGroup(_T("NULL")); CString strCommand; if(pguidCmdGroup) { LPOLESTR pwstrCommandGroup=NULL; ::StringFromCLSID (*pguidCmdGroup,&pwstrCommandGroup); if(pwstrCommandGroup) { strCommandGroup=pwstrCommandGroup; CoTaskMemFree(pwstrCommandGroup); } } strTrace+=strCommandGroup; strCommand.Format(_T("%x"),nCmdID); strTrace+=","; strTrace+=strCommand; strTrace+=_T("\r\n"); TRACE(strTrace); if (pguidCmdGroup&&IsEqualIID((REFIID) (*(IID*)pguidCmdGroup) ,CGID_DocHostCommandHandler)) { switch(nCmdID) { case OLECMDID_PRINT: return S_OK; //ignore it } } return E_NOTIMPL; }

浏览器控件访问容器的方式是查询容器的IDocHostUIHandler接口，而对于浏览器辅助对象(Browser Helper Object/ BHO)，不能修改容器来增加一个新的接口。这时候可以通过HTML文档的ICustomDoc接口来设置自己的IDocHostUIHandler接口。

class ATL_NO_VTABLE CBHO : public IObjectWithSiteImpl<CBHO>, public IDispatchImpl<IBHOb, &__uuidof(IBHO)>, public IDocHostUIHandler, public IOleCommandTarget case DISPID_DOCUMENTCOMPLETE: ATLTRACE(_T("(%ld) DISPID_DOCUMENTCOMPLETE\n"), ::GetCurrentThreadId()); //if the page is done downloading if (m_pWBDisp && m_pWBDisp == pDispParams->rgvarg[1].pdispVal) { ...... CComPtr<IDispatch> spDisp; HRESULT hr = m_spWebBrowser2->get_Document(&spDisp); ...... // replace the IDocHostUIHandler CComQIPtr<ICustomDoc, &IID_ICustomDoc> spCustomDoc(spDisp); if (spCustomDoc) spCustomDoc->SetUIHandler(this); ..... }

在捕获容器的命令的过程中发现一些其他命令也被发送到容器（按时间顺序）：

不是所有常用操作都会转发到容器。OLECMDID_PRINTPREVIEW、OLECMDID_SAVEAS、OLECMDID_REFRESH看起来就没有被转发。

参考文档：

• MSDN文章 MFC技术文档TN038 MFC/OLE IUnknown Implementation (http://msdn.microsoft.com/library/en-us/vclib/html/_mfcnotes_tn038.asp)
• 微软知识库文章 Q261003 How to handle script errors as a WebBrowser control host (http://support.microsoft.com/kb/261003)
• 微软知识库文章 Q317024 Script error notification is not sent to Exec method of WebBrowser Host(http://support.microsoft.com/kb/317024)
• MSDN文章 WebBrowser Customization (http://msdn.microsoft.com/workshop/browser/hosting/wbcustomization.asp)
• 微软知识库文章 Q267240 How to print custom headers and footers for a WebBrowser control in Internet Explorer (http://support.microsoft.com/kb/267240)

Visual Studio 2005 June CTP的资源编辑器似乎有点问题，改过资源就保存不到原文件了，只能保存到另一个文件，关闭Visual Stuio之后替换(关闭solution都不行)。

posted on 2005-07-09 16:32:00 by jiangsheng  评论(6) 阅读(9944)