易语言在win 2022服务器上调用闪退

不二猫猫

A：主程序中控台 》易语言exeB：DLL 数据通信 》易语言DLL
C：第三方服务端 》被操作的服务端


在本地电脑，使用 主程序 把 DLL注入> 服务端
远程注入的方式，然后远程调用函数，本地电脑可以正常执行。win11

换到云服务器第三方服务端就崩溃，经过排查，只要执行 远程调用函数 服务端就会崩溃闪退。
这种情况怎么办。


经过测试DLL 与主程序，里面的所有功能单独拿出来，在云服务器都能正常运行，且不会报错。
出问题的就在 远程调用函数调用后服务端崩溃  但是这个功能在本地电脑就没有任何问题。

  

子程序名	返回值类型	公开	备 注
远程注入_调用函数	逻辑型
参数名	类 型	参考	可空	数组	备 注
进程ID	整数型
函数名	文本型				DLL命令所在动态链接库中的名称
参数一	字节集				DLL命令参数,使用命令"到字节集()"转换,非整数参数则不能为4字节!
参数二	字节集
参数三	字节集
参数四	字节集
参数五	字节集
参数六	字节集

变量名	类 型	静态	数组	备 注
临时内存地址1	整数型
临时内存地址2	整数型
GetProcAddress地址	整数型
汇编代码1	字节集
汇编代码2	字节集
函数地址	整数型
长度	整数型
指针地址	整数型
参数	整数型		0
i	整数型
返回值	整数型

' 打开进程
进程句柄 ＝ OpenProcess ( #PROCESS_ALL_ACCESS, 假, 进程ID)
' 申请内存
临时内存地址1 ＝ VirtualAllocEx (进程句柄, 0, 取文本长度 (函数名), #MEM_COMMIT, #PAGE_READWRITE )
如果真 (临时内存地址1 ＝ 0)
CloseHandle (进程句柄)
返回 (假)
' 将函数名写入申请的内存
WriteProcessMemory (进程句柄, 临时内存地址1, 到字节集 (函数名), 取文本长度 (函数名), 0)
' 获取GetProcAddress在Kernel32.dll中的地址
GetProcAddress地址 ＝ GetProcAddress (GetModuleHandleA (“Kernel32.dll”), “GetProcAddress”)
调试输出 (DLL句柄)
' 代码含义：执行GetProcAddress函数，参数一是DLL句柄，参数二是临时内存地址（函数名）
汇编代码1 ＝ { 184 } ＋ 到字节集 (GetProcAddress地址) ＋ { 104 } ＋ 到字节集 (临时内存地址1) ＋ { 104 } ＋ 到字节集 (DLL句柄) ＋ { 255, 208, 195, 144 }
' mov eax,GetModuleHandleA地址
' push 临时内存地址
' push DLL句柄
' call eax
' ret
' nop
' 申请内存
临时内存地址2 ＝ VirtualAllocEx (进程句柄, 0, 取字节集长度 (汇编代码1), #MEM_COMMIT, #PAGE_READWRITE )
如果真 (临时内存地址1 ＝ 0)
VirtualFreeEx (进程句柄, 临时内存地址1, 0, #MEM_RELEASE )
CloseHandle (进程句柄)
返回 (假)

' 将汇编代码1写入申请的内存
WriteProcessMemory (进程句柄, 临时内存地址2, 汇编代码1, 取字节集长度 (汇编代码1), 0)
' 创建远程线程执行汇编代码
线程句柄 ＝ CreateRemoteThread (进程句柄, 0, 0, 临时内存地址2, 0, 0, 0)
如果真 (线程句柄 ＝ 0)
VirtualFreeEx (进程句柄, 临时内存地址1, 0, #MEM_RELEASE )
VirtualFreeEx (进程句柄, 临时内存地址2, 0, #MEM_RELEASE )
CloseHandle (进程句柄)
返回 (假)
WaitForSingleObject (线程句柄, #DMUS_SEG_REPEAT_INFINITE )
' 获取函数地址
GetExitCodeThread (线程句柄, 函数地址)
' 释放申请的内存，关闭线程句柄
VirtualFreeEx (进程句柄, 临时内存地址1, 0, #MEM_RELEASE )
VirtualFreeEx (进程句柄, 临时内存地址2, 0, #MEM_RELEASE )
CloseHandle (线程句柄)
如果真 (函数地址 ＝ 0)
CloseHandle (进程句柄)
返回 (假)
' 将参数写入内存中
如果真 (参数一 ≠ {  })
长度 ＝ 取字节集长度 (参数一)
如果 (长度 ＝ 4)
指针地址 ＝ 取字节集数据 (参数一, #整数型, )
指针地址 ＝ VirtualAllocEx (进程句柄, 0, 长度, #MEM_COMMIT, #PAGE_READWRITE )
WriteProcessMemory (进程句柄, 指针地址, 参数一, 长度, 0)
加入成员 (参数, 指针地址)
如果真 (参数二 ≠ {  })
长度 ＝ 取字节集长度 (参数二)
如果 (长度 ＝ 4)
指针地址 ＝ 取字节集数据 (参数二, #整数型, )
指针地址 ＝ VirtualAllocEx (进程句柄, 0, 长度, #MEM_COMMIT, #PAGE_READWRITE )
WriteProcessMemory (进程句柄, 指针地址, 参数二, 长度, 0)
加入成员 (参数, 指针地址)
如果真 (参数三 ≠ {  })
长度 ＝ 取字节集长度 (参数三)
如果 (长度 ＝ 4)
指针地址 ＝ 取字节集数据 (参数三, #整数型, )
指针地址 ＝ VirtualAllocEx (进程句柄, 0, 长度, #MEM_COMMIT, #PAGE_READWRITE )
WriteProcessMemory (进程句柄, 指针地址, 参数三, 长度, 0)
加入成员 (参数, 指针地址)
如果真 (参数四 ≠ {  })
长度 ＝ 取字节集长度 (参数四)
如果 (长度 ＝ 4)
指针地址 ＝ 取字节集数据 (参数四, #整数型, )
指针地址 ＝ VirtualAllocEx (进程句柄, 0, 长度, #MEM_COMMIT, #PAGE_READWRITE )
WriteProcessMemory (进程句柄, 指针地址, 参数四, 长度, 0)
加入成员 (参数, 指针地址)
如果真 (参数五 ≠ {  })
长度 ＝ 取字节集长度 (参数五)
如果 (长度 ＝ 4)
指针地址 ＝ 取字节集数据 (参数五, #整数型, )
指针地址 ＝ VirtualAllocEx (进程句柄, 0, 长度, #MEM_COMMIT, #PAGE_READWRITE )
WriteProcessMemory (进程句柄, 指针地址, 参数五, 长度, 0)
加入成员 (参数, 指针地址)
如果真 (参数六 ≠ {  })
长度 ＝ 取字节集长度 (参数六)
如果 (长度 ＝ 4)
指针地址 ＝ 取字节集数据 (参数六, #整数型, )
指针地址 ＝ VirtualAllocEx (进程句柄, 0, 长度, #MEM_COMMIT, #PAGE_READWRITE )
WriteProcessMemory (进程句柄, 指针地址, 参数六, 长度, 0)
加入成员 (参数, 指针地址)






' 代码含义：执行函数，参数。。。。
汇编代码2 ＝ { 184 } ＋ 到字节集 (函数地址)
变量循环首 (取数组成员数 (参数), 1, -1, i)  ' 参数是倒着排的
汇编代码2 ＝ 汇编代码2 ＋ { 104 } ＋ 到字节集 (参数 [i])
变量循环尾 ()
汇编代码2 ＝ 汇编代码2 ＋ { 255, 208, 195, 144 }
' mov eax,函数地址
' push 参数XXX
' push 参数XXX
' push 参数XXX
' ......
' call eax
' ret
' nop
' 申请内存
指针地址 ＝ VirtualAllocEx (进程句柄, 0, 取字节集长度 (汇编代码2), #MEM_COMMIT, #PAGE_READWRITE )
' 将汇编代码2写入申请的内存
WriteProcessMemory (进程句柄, 指针地址, 汇编代码2, 取字节集长度 (汇编代码2), 0)
' 方便释放内存
加入成员 (参数, 指针地址)
' 创建远程线程执行汇编代码
线程句柄 ＝ CreateRemoteThread (进程句柄, 0, 0, 指针地址, 0, 0, 0)
如果真 (线程句柄 ＝ 0)
计次循环首 (取数组成员数 (参数), i)
如果真 (参数 [i] ≠ 0)
VirtualFreeEx (进程句柄, 参数 [i], 0, #MEM_RELEASE )

计次循环尾 ()
清除数组 (参数)
CloseHandle (进程句柄)
返回 (假)

WaitForSingleObject (线程句柄, #DMUS_SEG_REPEAT_INFINITE )
' 获取调用函数执行后的返回值
GetExitCodeThread (线程句柄, 返回值)
' 批量释放申请的内存，关闭线程句柄及进程句柄
计次循环首 (取数组成员数 (参数), i)
如果真 (参数 [i] ≠ 0)
VirtualFreeEx (进程句柄, 参数 [i], 0, #MEM_RELEASE )

计次循环尾 ()
清除数组 (参数)
CloseHandle (线程句柄)
CloseHandle (进程句柄)
返回 (真)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 远程注入_调用函数, 逻辑型, 公开<br /> .参数 进程ID, 整数型<br /> .参数 函数名, 文本型, , DLL命令所在动态链接库中的名称<br /> .参数 参数一, 字节集, 可空, DLL命令参数,使用命令"到字节集()"转换,非整数参数则不能为4字节!<br /> .参数 参数二, 字节集, 可空<br /> .参数 参数三, 字节集, 可空<br /> .参数 参数四, 字节集, 可空<br /> .参数 参数五, 字节集, 可空<br /> .参数 参数六, 字节集, 可空<br /> .局部变量 临时内存地址1, 整数型<br /> .局部变量 临时内存地址2, 整数型<br /> .局部变量 GetProcAddress地址, 整数型<br /> .局部变量 汇编代码1, 字节集<br /> .局部变量 汇编代码2, 字节集<br /> .局部变量 函数地址, 整数型<br /> .局部变量 长度, 整数型<br /> .局部变量 指针地址, 整数型<br /> .局部变量 参数, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 返回值, 整数型<br /> <br /> ' 打开进程<br /> 进程句柄 ＝ OpenProcess (#PROCESS_ALL_ACCESS, 假, 进程ID)<br /> <br /> ' 申请内存<br /> 临时内存地址1 ＝ VirtualAllocEx (进程句柄, 0, 取文本长度 (函数名), #MEM_COMMIT, #PAGE_READWRITE)<br /> .如果真 (临时内存地址1 ＝ 0)<br />     CloseHandle (进程句柄)<br />     返回 (假)<br /> .如果真结束<br /> ' 将函数名写入申请的内存<br /> WriteProcessMemory (进程句柄, 临时内存地址1, 到字节集 (函数名), 取文本长度 (函数名), 0)<br /> <br /> ' 获取GetProcAddress在Kernel32.dll中的地址<br /> GetProcAddress地址 ＝ GetProcAddress (GetModuleHandleA (“Kernel32.dll”), “GetProcAddress”)<br /> <br /> 调试输出 (DLL句柄)<br /> ' 代码含义：执行GetProcAddress函数，参数一是DLL句柄，参数二是临时内存地址（函数名）<br /> 汇编代码1 ＝ { 184 } ＋ 到字节集 (GetProcAddress地址) ＋ { 104 } ＋ 到字节集 (临时内存地址1) ＋ { 104 } ＋ 到字节集 (DLL句柄) ＋ { 255, 208, 195, 144 }<br /> ' mov eax,GetModuleHandleA地址<br /> ' push 临时内存地址<br /> ' push DLL句柄<br /> ' call eax<br /> ' ret<br /> ' nop<br /> <br /> ' 申请内存<br /> 临时内存地址2 ＝ VirtualAllocEx (进程句柄, 0, 取字节集长度 (汇编代码1), #MEM_COMMIT, #PAGE_READWRITE)<br /> .如果真 (临时内存地址1 ＝ 0)<br />     VirtualFreeEx (进程句柄, 临时内存地址1, 0, #MEM_RELEASE)<br />     CloseHandle (进程句柄)<br />     返回 (假)<br /> .如果真结束<br /> <br /> ' 将汇编代码1写入申请的内存<br /> WriteProcessMemory (进程句柄, 临时内存地址2, 汇编代码1, 取字节集长度 (汇编代码1), 0)<br /> <br /> ' 创建远程线程执行汇编代码<br /> 线程句柄 ＝ CreateRemoteThread (进程句柄, 0, 0, 临时内存地址2, 0, 0, 0)<br /> .如果真 (线程句柄 ＝ 0)<br />     VirtualFreeEx (进程句柄, 临时内存地址1, 0, #MEM_RELEASE)<br />     VirtualFreeEx (进程句柄, 临时内存地址2, 0, #MEM_RELEASE)<br />     CloseHandle (进程句柄)<br />     返回 (假)<br /> .如果真结束<br /> WaitForSingleObject (线程句柄, #DMUS_SEG_REPEAT_INFINITE)<br /> ' 获取函数地址<br /> GetExitCodeThread (线程句柄, 函数地址)<br /> <br /> ' 释放申请的内存，关闭线程句柄<br /> VirtualFreeEx (进程句柄, 临时内存地址1, 0, #MEM_RELEASE)<br /> VirtualFreeEx (进程句柄, 临时内存地址2, 0, #MEM_RELEASE)<br /> CloseHandle (线程句柄)<br /> <br /> .如果真 (函数地址 ＝ 0)<br />     CloseHandle (进程句柄)<br />     返回 (假)<br /> .如果真结束<br /> ' 将参数写入内存中<br /> .如果真 (参数一 ≠ {  })<br />     长度 ＝ 取字节集长度 (参数一)<br />     .如果 (长度 ＝ 4)<br />         指针地址 ＝ 取字节集数据 (参数一, #整数型, )<br />     .否则<br />         指针地址 ＝ VirtualAllocEx (进程句柄, 0, 长度, #MEM_COMMIT, #PAGE_READWRITE)<br />         WriteProcessMemory (进程句柄, 指针地址, 参数一, 长度, 0)<br />     .如果结束<br />     加入成员 (参数, 指针地址)<br />     .如果真 (参数二 ≠ {  })<br />         长度 ＝ 取字节集长度 (参数二)<br />         .如果 (长度 ＝ 4)<br />             指针地址 ＝ 取字节集数据 (参数二, #整数型, )<br />         .否则<br />             指针地址 ＝ VirtualAllocEx (进程句柄, 0, 长度, #MEM_COMMIT, #PAGE_READWRITE)<br />             WriteProcessMemory (进程句柄, 指针地址, 参数二, 长度, 0)<br />         .如果结束<br />         加入成员 (参数, 指针地址)<br />         .如果真 (参数三 ≠ {  })<br />             长度 ＝ 取字节集长度 (参数三)<br />             .如果 (长度 ＝ 4)<br />                 指针地址 ＝ 取字节集数据 (参数三, #整数型, )<br />             .否则<br />                 指针地址 ＝ VirtualAllocEx (进程句柄, 0, 长度, #MEM_COMMIT, #PAGE_READWRITE)<br />                 WriteProcessMemory (进程句柄, 指针地址, 参数三, 长度, 0)<br />             .如果结束<br />             加入成员 (参数, 指针地址)<br />             .如果真 (参数四 ≠ {  })<br />                 长度 ＝ 取字节集长度 (参数四)<br />                 .如果 (长度 ＝ 4)<br />                     指针地址 ＝ 取字节集数据 (参数四, #整数型, )<br />                 .否则<br />                     指针地址 ＝ VirtualAllocEx (进程句柄, 0, 长度, #MEM_COMMIT, #PAGE_READWRITE)<br />                     WriteProcessMemory (进程句柄, 指针地址, 参数四, 长度, 0)<br />                 .如果结束<br />                 加入成员 (参数, 指针地址)<br />                 .如果真 (参数五 ≠ {  })<br />                     长度 ＝ 取字节集长度 (参数五)<br />                     .如果 (长度 ＝ 4)<br />                         指针地址 ＝ 取字节集数据 (参数五, #整数型, )<br />                     .否则<br />                         指针地址 ＝ VirtualAllocEx (进程句柄, 0, 长度, #MEM_COMMIT, #PAGE_READWRITE)<br />                         WriteProcessMemory (进程句柄, 指针地址, 参数五, 长度, 0)<br />                     .如果结束<br />                     加入成员 (参数, 指针地址)<br />                     .如果真 (参数六 ≠ {  })<br />                         长度 ＝ 取字节集长度 (参数六)<br />                         .如果 (长度 ＝ 4)<br />                             指针地址 ＝ 取字节集数据 (参数六, #整数型, )<br />                         .否则<br />                             指针地址 ＝ VirtualAllocEx (进程句柄, 0, 长度, #MEM_COMMIT, #PAGE_READWRITE)<br />                             WriteProcessMemory (进程句柄, 指针地址, 参数六, 长度, 0)<br />                         .如果结束<br />                         加入成员 (参数, 指针地址)<br />                     .如果真结束<br /> <br />                 .如果真结束<br /> <br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> ' 代码含义：执行函数，参数。。。。<br /> 汇编代码2 ＝ { 184 } ＋ 到字节集 (函数地址)<br /> .变量循环首 (取数组成员数 (参数), 1, -1, i)  ' 参数是倒着排的<br />     汇编代码2 ＝ 汇编代码2 ＋ { 104 } ＋ 到字节集 (参数 <i>)<br /> .变量循环尾 ()<br /> 汇编代码2 ＝ 汇编代码2 ＋ { 255, 208, 195, 144 }<br /> ' mov eax,函数地址<br /> ' push 参数XXX<br /> ' push 参数XXX<br /> ' push 参数XXX<br /> ' ......<br /> ' call eax<br /> ' ret<br /> ' nop<br /> <br /> ' 申请内存<br /> 指针地址 ＝ VirtualAllocEx (进程句柄, 0, 取字节集长度 (汇编代码2), #MEM_COMMIT, #PAGE_READWRITE)<br /> <br /> ' 将汇编代码2写入申请的内存<br /> WriteProcessMemory (进程句柄, 指针地址, 汇编代码2, 取字节集长度 (汇编代码2), 0)<br /> <br /> ' 方便释放内存<br /> 加入成员 (参数, 指针地址)<br /> <br /> ' 创建远程线程执行汇编代码<br /> 线程句柄 ＝ CreateRemoteThread (进程句柄, 0, 0, 指针地址, 0, 0, 0)<br /> .如果真 (线程句柄 ＝ 0)<br />     .计次循环首 (取数组成员数 (参数), i)<br />         .如果真 (参数 <i> ≠ 0)<br />             VirtualFreeEx (进程句柄, 参数 <i>, 0, #MEM_RELEASE)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     清除数组 (参数)<br />     CloseHandle (进程句柄)<br />     返回 (假)<br /> .如果真结束<br /> <br /> <br /> WaitForSingleObject (线程句柄, #DMUS_SEG_REPEAT_INFINITE)<br /> <br /> ' 获取调用函数执行后的返回值<br /> GetExitCodeThread (线程句柄, 返回值)<br /> <br /> ' 批量释放申请的内存，关闭线程句柄及进程句柄<br /> .计次循环首 (取数组成员数 (参数), i)<br />     .如果真 (参数 <i> ≠ 0)<br />         VirtualFreeEx (进程句柄, 参数 <i>, 0, #MEM_RELEASE)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 清除数组 (参数)<br /> CloseHandle (线程句柄)<br /> CloseHandle (进程句柄)<br /> 返回 (真)

补充内容 (2025-3-20 14:24):
不好意思，我刚刚解决了，论坛上找到一篇大佬设置的命令，已经解决了！
帖子链接：
https://bbs.125.la/forum.php?mod=viewthread&tid=1476...