● Lua 中调用 Windows API zzfrom Cloudwu's blog - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: mmkiller (   我喜欢笑：）   ), 信区: Program
标  题: Lua 中调用 Windows API zzfrom Cloudwu's blog
发信站: 荔园晨风BBS站 (Thu Feb  1 13:59:23 2007), 站内

#include "lua.h"
#include <malloc.h>
#include <windows.h>

typedef void* (__stdcall *func_call)();

static int api_call(lua_State *L)
{
        int i,type;
        int n=lua_gettop(L);
        func_call fc=(func_call)lua_touserdata(L,lua_upvalueindex(2));
        void *ret;
        do {
                void **arg=(void **)_alloca(n*sizeof(void *));
                for (i=0;i<n;i++) {
                        type=lua_type(L,i+1);
                        switch(type) {
                                case LUA_TNIL:
                                        arg[i]=0;
                                        break;
                                case LUA_TNUMBER:
                                        arg[i]=(void*)lua_tointeger(L,i+1);
                                        break;

                                case LUA_TBOOLEAN:
                                        arg[i]=(void*)lua_toboolean(L,i+1);
                                        break;
                                case LUA_TSTRING:
                                        arg[i]=(void *)lua_tostring(L,i+1);
                                        break;
                                case LUA_TLIGHTUSERDATA:
                                        arg[i]=lua_touserdata(L,i+1);
                                        break;
                                default:
                                        lua_pushstring(L,"unknown argument
type");
                                        lua_error(L);
                                        break;
                        }
                }
                ret=fc();
        } while(0);
        switch(lua_type(L,lua_upvalueindex(1))) {
        case LUA_TNIL:
                lua_pushlightuserdata(L,ret);
                break;
        case LUA_TNUMBER:
                lua_pushinteger(L,(int)ret);
                break;
        case LUA_TBOOLEAN:
                lua_pushboolean(L,(int)ret);
                break;
        case LUA_TSTRING:
                lua_pushstring(L,(const char*)ret);
                break;
        default:
                lua_pushstring(L,"unknown return value type");
                lua_error(L);
                break;
        }
        return 1;
}

static int open_dll(lua_State *L)
{
        const char *name=lua_tostring(L,1);
        HMODULE hm=LoadLibrary(name);
        lua_pushlightuserdata(L,hm);
        return 1;
}

static int get_procaddress(lua_State *L)
{
        HMODULE hm=(HMODULE)lua_touserdata(L,1);
        const char *name=lua_tostring(L,2);
        void *func=GetProcAddress(hm,name);
        lua_pushvalue(L,3);
        lua_pushlightuserdata(L,func);
        lua_pushcclosure(L,api_call,2);
        return 1;
}

__declspec(dllexport) int luaopen_api_procaddress(lua_State *L)
{
        lua_pushcfunction(L,get_procaddress);
        return 1;
}

__declspec(dllexport) int luaopen_api_opendll(lua_State *L)
{
        lua_pushcfunction(L,open_dll);
        return 1;
}

下面，我们可以在 lua 中调用 windows 的 api 了，用法大约是这样的：

opendll = require("api.opendll")
getprocaddress =require("api.procaddress")
user32=opendll("user32.dll")
MessageBox=getprocaddress(user32,"MessageBoxA")
MessageBox(nil,"hello","hehe",0)

--

┆┅┊┅┊┅┊┅┊┅┊┅┊┅┊┅┆
┆┏━━━━━━━━━━━━━┓┆
┆┃我的个人签名好冷ˇ 好冷〃┃┆
┆┗━━━━━━━━━━━━━┛┆
┆┅┊┅┊┅┊┅┊┅┊┅┊┅┊┅┆

※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 61.144.198.131]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店