双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

CppWebBrowser问题, 在页面呈现后, 怎么调用bs页面的js函数

2013-11-26 02:45:32 272 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

阿胡、墨衍会员 · AI 创作全网分发关注 + 加入社区

统信UOS系统盘扩容保姆级教程：用GParten-分区编辑器5分钟搞定本文提供统信UOS系统盘扩容的详细图形化教程。针对系统盘空间不足问题，重点介绍如何使用系统自带的GParten-分区编辑器，在5-10分钟内安全、直观地完成扩容操作，无需记忆复杂命令，适合所有用户快速解决存储空间告急的困扰。阅读详情

RT....

之前已经做了, 从bs页面访问html的控件获取值
现在要在页面呈现后, 调用bs页面的js函数
求大神..

...全文

达梦数据库与sharding-jdbc的深度适配实践本文详细介绍了达梦数据库与sharding-jdbc的深度适配实践，包括驱动与依赖管理、核心适配实现、注册与配置等关键步骤。通过扩展shardingSphere的方式，成功实现了达梦数据库的分库分表功能，并提供了常见问题解决方案和性能优化建议，助力企业级应用高效处理海量数据。阅读详情

阿胡、

C++ Builder 13,871 成员 102,696 内容

+ 关注 + 加入社区

切换为时间正序

宝龙哥 2013-11-26

打赏
举报


  #include <Mshtml.h>
  #include "SHDocVw_OCX.h"
  bool CrnRunJavaScript(
    IHTMLDocument2 *spDoc,
    LPSTR lpScript,
    LPSTR lpLang//LPSTR lpLang = "JScript";
  ){//通过IHTMLDocument2接口控制IE执行javascript和vbscript代码
    IHTMLWindow2 *pWin;
    VARIANT vRet;
    bool bRet = false;
      if(spDoc != NULL){
        try{
          spDoc->get_parentWindow(&pWin);
            if(pWin != NULL){
              try{
                pWin->execScript(WideString(lpScript), WideString(lpLang), &vRet);
                bRet = true;
              }__finally{
                pWin = NULL;
              }
            }
        }__finally{
          spDoc == NULL;
        }
      }
    return bRet;
  }
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  DWORD TheProcessID, ErrorCode;
  HWND TheWindowHandle=FindWindowEx(NULL,NULL,"IEFrame",NULL);
    if(!TheWindowHandle){//如果找不到IE窗口
      Application->BringToFront();
      ShowMessage("Internet Explorer浏览器没有启动，操作取消");
      return;
    }
  typedef TComInterface<IHTMLDocument2, &IID_IHTMLDocument2> IHTMLDocument2Ptr;
  TCppShellWindows * ptrShellWin = new TCppShellWindows(this);
  //long nCount=ptrShellWin->get_Count();//取得浏览器实例个数
  //或：ptrShellWin->Count//取得浏览器实例个数
  //ShowMessage(nCount);//显示结果
    for(long i = 0; i < ptrShellWin->Count; i++){//i的值按IE的启动顺序
      //TVariantInParam va(i);//编译时提示：W8053 'TVariantInParam' is obsolete，因此用下面的
      TVariant va(i);
      IWebBrowser2Ptr ptrWebBrowser( (IDispatch *) ptrShellWin->Item(va));
      BSTR BSTRType;
      ptrWebBrowser->get_Type(&BSTRType);
      //获取文档的类型,如果是IE窗口,则会返回"HTML 文档",否则BSTRType被设为NULL
        if(BSTRType){
          SysFreeString(BSTRType);
          IHTMLDocument2Ptr ptrHTMLDoc(ptrWebBrowser->get_Document());
            if((IHTMLDocument2 *)ptrHTMLDoc != NULL){
              IHTMLDocument2 *HTMLDocument = NULL;
                if(SUCCEEDED(ptrHTMLDoc->QueryInterface(IID_IHTMLDocument2,(LPVOID*)&HTMLDocument))){
                  LPSTR lpLang = "JScript";
                  CrnRunJavaScript(HTMLDocument,Memo1->Text.c_str(),lpLang);
                  //对话框在IE中出现，如果不关闭程序将处于锁定状态
                  //javascript:window.clipboardData.setData("Text",document.getElementById("ifm0").src); alert("复制到剪贴板成功");
                  //javascript:window.clipboardData.setData("Text",document.getElementById("ifm0").src);
                  //javascript:alert("俺就是那个对话框");
                }
            }
        }
    }
  delete ptrShellWin;
}

阿胡、 2013-11-26

打赏
举报

引用 1 楼 oXiaoFu1 的回复:

CppWebBrowser是什么，没用过额，求大神指点

调用web页面

✦双11狂欢大促✦

CppWebBrowser问题, 在页面呈现后, 怎么调用bs页面的js函数

相关推荐

双11狂欢大促