LSHook
::
LSHook
(
)
{
auto
luaLibAddress
=
GetModuleHandleA
(
"lua51.dll"
)
;
if
(
!
luaLibAddress
)
return
;
luaL_loadstring
=
reinterpret_cast

(
GetProcAddress
(
luaLibAddress
,
"luaL_loadstring"
)
)
;
lua_pcall
=
reinterpret_cast

(
GetProcAddress
(
luaLibAddress
,
"lua_pcall"
)
)
;
auto
luaL_newstateAddress
=
GetProcAddress
(
luaLibAddress
,
"luaL_newstate"
)
;
luaL_newstateHook
.
set_dest
(
luaL_newstateAddress
)
;
luaL_newstateHook
.
set_cb
(
[
this
]
(
auto
&&
.
.
.
args
)
{
return
luaL_newstateHooked
(
args
.
.
.
)
;
}
)
;
luaL_newstateHook
.
install
(
)
;
}
LSHook
::
~
LSHook
(
)
{
luaL_newstateHook
.
remove
(
)
;
}
std
::
uintptr_t LSHook
::
luaL_newstateHooked
(
const
decltype
(
luaL_newstateHook
)
&
hook
)
{
auto
L
=
hook
.
get_trampoline
(
)
(
)
;
auto
result
=
luaL_loadstring
(
L
,
"print(\"HUY\")"
)
;
if
(
result
==
0
)
lua_pcall
(
L
,
0
,
0
,
0
)
;
return
L
;
}

#include 
#include "kthook/kthook.hpp"
class
LSHook
{
private
:
using
luaL_newstate_t
=
std
::
uintptr_t
(
*
)
(
)
;
kthook
::
kthook_simple

luaL_newstateHook
;
std
::
uintptr_t
luaL_newstateHooked
(
const
decltype
(
luaL_newstateHook
)
&
hook
)
;
using
luaL_loadstring_t
=
int
(
*
)
(
std
::
uintptr_t
,
const
char
*
)
;
using
lua_pcall_t
=
int
(
*
)
(
std
::
uintptr_t L
,
int
nargs
,
int
nresults
,
int
errfunc
)
;
;
luaL_loadstring_t luaL_loadstring
=
nullptr
;
lua_pcall_t lua_pcall
=
nullptr
;
public
:
LSHook
(
/* args */
)
;
~
LSHook
(
)
;
}
lshook
;