我发现易语言的运行是通过其带的支持库来运行的。
通过万能的度娘,我找到了用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);
|