用VB实现的HookAPI实例,带工程文件