API替换 vB测试源代码，读取进程内存((进程柄), ByVal API起始地址, 原API指令(0), UBound(原API指令) + (1), (0))) = (0) Then Call Err.Raise((1), , ("读取机器码失败!"))，取得API所在DLL句柄

　　 DLL句柄 = 载入模块(Dll名称): If (DLL句柄) = (0) Then Call Err.Raise((1), , ("载入DLL失败!"))

　　 取得API起始地址

　　 API起始地址 = 取函数位置((DLL句柄), (API名称)): If (API起始地址) = (0) Then Call Err.Raise((1), , ("API起始地址获取失败!"-API replaces vB test source code, read process memory ((process handle), ByVal API starting address, the original API command (0), UBound (original API command)+ (1), (0))) = (0) Then Call Err.Raise ((1),, (" Failed to read the machine code!" )), to obtain a handle where the DLL API DLL load module handle = (Dll name): If (DLL handles) = (0) Then Call Err.Raise ((1),, (" ! DLL load failed" )) ' Get the starting address API API takes a function of position start address = ((DLL handles), (API name)): If (API start Address) = (0) Then Call Err.Raise ((1),, (" API starting address to get failed!" ))