如何覆盖API让单个Visual FoxPro程序获取自定义计算机名？

你之前设置CLIENTNAME和SESSIONNAME环境变量无效，是因为VFP的SYS(0)函数底层调用的是Windows系统的GetComputerName或GetComputerNameExAPI，并非读取环境变量。以下是可行的解决方案：

方法一：API钩子注入（适合无源码的编译EXE） #

通过编写DLL钩子，拦截程序调用的计算机名相关API，强制返回自定义名称：

1. 编写钩子DLL
   用C++结合Detours库编写拦截代码，示例如下：

   #include <windows.h>
   #include <detours.h>
   #include <string.h>
   
   // 保存原始API地址
   typedef BOOL(WINAPI* PFN_GETCOMPUTERNAMEA)(LPSTR, LPDWORD);
   PFN_GETCOMPUTERNAMEA OriginalGetComputerNameA = NULL;
   
   // 钩子函数，替换返回自定义计算机名
   BOOL WINAPI HookedGetComputerNameA(LPSTR lpBuffer, LPDWORD lpnSize) {
       const char* customName = "mycompname1";
       DWORD requiredLen = strlen(customName);
       
       if (*lpnSize >= requiredLen) {
           strcpy(lpBuffer, customName);
           *lpnSize = requiredLen;
           return TRUE;
       } else {
           *lpnSize = requiredLen;
           return FALSE;
       }
   }
   
   // DLL入口，初始化/卸载钩子
   BOOL APIENTRY DllMain(HMODULE hModule, DWORD ul_reason_for_call, LPVOID lpReserved) {
       switch (ul_reason_for_call) {
           case DLL_PROCESS_ATTACH:
               DetourTransactionBegin();
               DetourUpdateThread(GetCurrentThread());
               OriginalGetComputerNameA = (PFN_GETCOMPUTERNAMEA)DetourFunction((PBYTE)GetComputerNameA, (PBYTE)HookedGetComputerNameA);
               DetourTransactionCommit();
               break;
           case DLL_PROCESS_DETACH:
               DetourTransactionBegin();
               DetourUpdateThread(GetCurrentThread());
               DetourRemove((PBYTE)OriginalGetComputerNameA, (PBYTE)HookedGetComputerNameA);
               DetourTransactionCommit();
               break;
       }
       return TRUE;
   }
   

   编译代码生成ComputerNameHook.dll（需链接Detours库）。

2. 将DLL注入目标程序
   使用Detours工具集里的detours.exe启动程序并加载钩子DLL：

   detours.exe /start /myapp.exe ComputerNameHook.dll
   

   也可使用其他进程注入工具，确保程序启动时加载钩子DLL。

方法二：修改程序源码（若有源码权限） #

如果能获取VFP程序的源码，直接替换SYS(0)的调用：

• 直接用自定义字符串替代，比如将SYS(0)替换为"mycompname1"
• 封装自定义函数返回指定名称，统一替换所有SYS(0)的调用

方法三：VFP运行时补丁（小众方案） #

部分第三方VFP工具可修改编译后的EXE，替换SYS(0)的返回值，但这类工具兼容性较差，仅适合简单场景。

内容的提问来源于stack exchange，提问作者Andrus