WHY Run only compiled ?
RedirectHook.zip
MsgBox "Run only compiled!", vbExclamation
DLL function address DllFunAddr bound to VB module function
Code:
in ide it's also err,only run in exe,how to fix?


Public Function MakeFunction(DllFunAddr As Long, BackFunAddr As Long)
'  (BackFunAddr)
    Dim Code(5) As Byte, JmpBackAddr As Long, OldProtect As Long
    VirtualProtect ByVal DllFunAddr, 5, 64, OldProtect  '更改函数地址所在页面属性
    JmpBackAddr = DllFunAddr - BackFunAddr - 5
    Code(0) = &HE9
    CopyMemory Code(1), JmpBackAddr, 4
    WriteProcessMemory -1, ByVal BackFunAddr, Code(0), 5, 0
End Function