找回密码
 加入
搜索
查看: 4048|回复: 3

[系统综合] 调用易语言支持库 VB代码 求大神改成AU3代码!

[复制链接]
发表于 2014-12-12 23:55:07 | 显示全部楼层 |阅读模式
我发现易语言的运行是通过其带的支持库来运行的。
通过万能的度娘,我找到了用VB调用易语言支持库的代码。
但小弟不会VB啊!看这代码就和天书一样。。所以没法转成AU3的
希望有大神可以把如下代码转成AU3。这样我们AU3帝国就太强大了!哈哈
即有AU3的便捷,又有易语言的强大!求大神!壮大我们AU3帝国吧
// 加载支持库
    HMODULE hMod = LoadLibrary("C:\\krnln.fne");
    // 取得支持库导出函数地址
    PFN_GET_LIB_INFO GetNewInf = (PFN_GET_LIB_INFO)GetProcAddress(hMod, "GetNewInf");
    // 取得支持库信息
    PLIB_INFO pLibInfo = GetNewInf();
    // 取得支持库函数信息列表
    PCMD_INFO pCmdInfo = pLibInfo->m_pBeginCmdInfo;
    // 取得支持库函数地址列表
    PFN_EXECUTE_CMD *pFnExecuteCmd = pLibInfo->m_pCmdsFunc;
    // 查找函数
    for(int i=0; i<pLibInfo->m_nCmdCount; i++)
    {
        // 判断是否为“信息框”函数
        if( strcmp(pCmdInfo[i].m_szName, "信息框") == 0 )
        {
            // 取得“信息框”函数地址
            PFN_EXECUTE_CMD fnMsgBox = pFnExecuteCmd[i];
            // 准备调用参数
            MDATA_INF RetData;
            RetData.m_dtDataType = SDT_INT;
            MDATA_INF ArgInf[3];
            ArgInf[0].m_pText = "hello world!";
            ArgInf[0].m_dtDataType = SDT_TEXT;
            ArgInf[1].m_int = MB_OK;
            ArgInf[1].m_dtDataType = SDT_INT;
            ArgInf[2].m_pText = "caption";
            ArgInf[2].m_dtDataType = SDT_TEXT;
            // 调用“信息框”函数
            fnMsgBox(&RetData, 3, &ArgInf[0]);
        }
    }
    // 释放支持库
    FreeLibrary(hMod);

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
 楼主| 发表于 2014-12-14 21:09:37 | 显示全部楼层
天啊,求顶,,论坛没有一位大哥能给我解答吗
发表于 2015-5-12 21:49:00 | 显示全部楼层
Dll前缀的函数是关键
发表于 2015-5-16 11:57:25 | 显示全部楼层
谢谢分享。。。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-16 18:39 , Processed in 0.072551 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表