从字符串VBS运行代码

Question

我有一个字符串存储十六进制数据（\ xEA \ x ...）。无论如何，使用vbs运行该代码？也许做一些类型的函数指针或类似的转换。

C版本的什么，我试图做的是：

unsigned char opcode[] = "\xc0\x...." 
main() 
{ 
    int (*run)() = (int(*)())opcode; 
    run(); 
} 

太谢谢你了。

Answer 1

可以使用函数指针（或函数引用）与GetRef功能：

dim fp : set fp = GetRef("ShowMessage") 
call fp("Woosh") 

function ShowMessage(msg) 
    msgbox msg 
end function 

为了使这一工作与功能的命名通常非法字符的字符串（如在十六进制数据反斜线），你可以使用方括号在你的函数声明：

dim fp : set fp = GetRef("99 problems") 
call fp() 

' note: functions normally cannot start with a digit or contain spaces 
function [99 problems]() 
    msgbox "but this aint one" 
end function 

您不能使用唯一的字符是一个右括号：]