松鼠的博客

导航

用VC控制打开网页

方法1--------------------------------------

HINSTANCE   hinstMSHTML   =   LoadLibrary(TEXT("MSHTML.DLL"));  
   
        if   (hinstMSHTML   ==   NULL)  
        {  
                //   Error   loading   module   --   fail   as   securely   as   possible  
                return;  
        }  
         
        SHOWHTMLDIALOGFN*   pfnShowHTMLDialog;  
        pfnShowHTMLDialog   =   (SHOWHTMLDIALOGFN*)GetProcAddress(hinstMSHTML,  
                                                                                                                              TEXT("ShowHTMLDialog"));  
        if   (pfnShowHTMLDialog)  
        {  
                IMoniker   *pURLMoniker;  
                BSTR   bstrURL   =   SysAllocString(L"http://www.example.com/dialogsource.htm");  
                CreateURLMoniker(NULL,   bstrURL,   &pURLMoniker);  
   
                if   (pURLMoniker)  
                {  
                        (*pfnShowHTMLDialog)(NULL,   pURLMoniker,   NULL,   NULL,   NULL);  
                          pURLMoniker->Release();  
                }  
   
                SysFreeString(bstrURL);  
        }  
   
        FreeLibrary(hinstMSHTML);

 

方法2----------------------------
  HINSTANCE   hinstMSHTML   =   LoadLibrary(TEXT("MSHTML.DLL"));  
   
  if   (hinstMSHTML   ==   NULL)  
  {  
  //   Error   loading   module   --   fail   as   securely   as   possible  
  return;  
  }  
   
  SHOWHTMLDIALOGFN*   pfnShowHTMLDialog;  
  pfnShowHTMLDialog   =   (SHOWHTMLDIALOGFN*)GetProcAddress(hinstMSHTML,  
  TEXT("ShowHTMLDialog"));  
  if   (pfnShowHTMLDialog)  
  {  
  IMoniker   *pURLMoniker;  
  BSTR   bstrURL   =   SysAllocString(L"http://www.csdn.net");  
  CreateURLMoniker(NULL,   bstrURL,   &pURLMoniker);  
   
  if   (pURLMoniker)  
  {  
  (*pfnShowHTMLDialog)(NULL,   pURLMoniker,   NULL,   (TCHAR*)L"dialogHeight:   700px;   dialogWidth:   500px;   edge:   sunken;   center:   Yes;   help:   no;   resizable:   Yes;   status:   Yes;",   NULL);  
                          pURLMoniker->Release();  
  }  
   
  SysFreeString(bstrURL);  
  }  
   
  FreeLibrary(hinstMSHTML);  
   
  加一点参数,顺便自己收藏,呵呵

posted on 2008-09-24 16:47  Xproer-松鼠  阅读(1691)  评论(0)    收藏  举报