白隼 发表于 2014-12-12 23:55:07

调用易语言支持库 VB代码 求大神改成AU3代码！

我发现易语言的运行是通过其带的支持库来运行的。
通过万能的度娘，我找到了用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.m_szName, "信息框") == 0 )
        {
            // 取得“信息框”函数地址
            PFN_EXECUTE_CMD fnMsgBox = pFnExecuteCmd;
            // 准备调用参数
            MDATA_INF RetData;
            RetData.m_dtDataType = SDT_INT;
            MDATA_INF ArgInf;
            ArgInf.m_pText = "hello world!";
            ArgInf.m_dtDataType = SDT_TEXT;
            ArgInf.m_int = MB_OK;
            ArgInf.m_dtDataType = SDT_INT;
            ArgInf.m_pText = "caption";
            ArgInf.m_dtDataType = SDT_TEXT;
            // 调用“信息框”函数
            fnMsgBox(&RetData, 3, &ArgInf);
        }
    }
    // 释放支持库
    FreeLibrary(hMod);

白隼 发表于 2014-12-14 21:09:37

天啊，求顶，，论坛没有一位大哥能给我解答吗

yuly 发表于 2015-5-12 21:49:00

Dll前缀的函数是关键

lczhjun 发表于 2015-5-16 11:57:25

谢谢分享。。。
页: [1]
查看完整版本: 调用易语言支持库 VB代码 求大神改成AU3代码！