求一个会VC和易语言的大神，帮我转换一段代码

SalHe

1. 
   
2. <P>
   
3. 下面是一段用VC调用易语言支持库的代码，求大神帮我转换成易语言</P>
   
4. <P> </P>
   
5. <P> </P>
   
6. <P>麻烦各位大神看下面的附件
   
7. </P>

复制代码

Farmer°

SalHe 发表于 2014-3-8 08:27
这段呢

' // 取得支持库函数信息列表  

这个的struct你知道不?... 不知道很难弄啊...

SalHe

Sorry，代码乱了，这是附件

SalHe

@果子 @冰点 @夏洛的网 @啄啄 @Meow @米和饭 @迷离  

Farmer°

中间那些注释的自定义类型的结构不知道 - -!不知道怎么翻译....不过和易也差不多啦....
[e]
.版本 2
.支持库 spec

.子程序 子程序1
.局部变量 hMod, 整数型
.局部变量 GetNewInf, 整数型
.局部变量 pLibInfo, 整数型, , , 不知道是怎么样的,自己修改把,我用整数型代替下

hMod ＝ LoadLibraryA (“C:\krnln.fne”)  ' HMODULE hMod = LoadLibrary("C:\\krnln.fne");
GetNewInf ＝ GetProcAddress (hMod, “GetNewInf”)  ' PFN_GET_LIB_INFO GetNewInf = (PFN_GET_LIB_INFO)GetProcAddress(hMod, "GetNewInf");
调用子程序 (GetNewInf, , pLibInfo, )  ' 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[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)  ' FreeLibrary(hMod);
[/e]

SalHe

侬夫 发表于 2014-3-2 10:53
中间那些注释的自定义类型的结构不知道 - -!不知道怎么翻译....不过和易也差不多啦....
[e]
.版本 2

这段呢

' // 取得支持库函数信息列表  
' 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]);  
' }  
' }  
' // 释放支持库  

SalHe

侬夫 发表于 2014-3-8 09:46
这个的struct你知道不?... 不知道很难弄啊...

这两句能完成不
// 取得支持库函数信息列表  
// 取得支持库函数地址列表