关于最近热论的分赃不均

我很低调

我有ce的源代码

E语言|菜鸟

Godsteal 发表于 2024-8-23 14:29
[e=0].版本 2

' 定义进程相关常量

大哥牛批

shaokui123

看不懂看不懂

空竹

论迹不论人，sunny网络中间件还是伟大的开源项目，

Godsteal

E语言|菜鸟 发表于 2024-8-23 14:14
哥哥，你这个太高级了，能不能写个易语言的给我

哈哈哈，现在一些AI助手，转换易语言代码的确还行，有的无法直接转换，大致都还行！

Godsteal

E语言|菜鸟 发表于 2024-8-23 14:14
哥哥，你这个太高级了，能不能写个易语言的给我

  

' 定义进程相关常量
#常量 PROCESS_ALL_ACCESS = &H1F0FFF
' 定义文件相关常量
#常量 GENERIC_WRITE = &H40000000
#常量 GENERIC_READ = &H80000000
#常量 CREATE_ALWAYS = 2
#常量 OPEN_EXISTING = 3
#常量 FILE_ATTRIBUTE_NORMAL = &H80
' 创建进程内存转储

子程序名	返回值类型	公开	备 注
CreateMemoryDump	逻辑型
参数名	类 型	参考	可空	数组	备 注
pid	整数型
dumpFilePath	文本型

变量名	类 型	静态	数组	备 注
hProcess	整数型
hFile	整数型

hProcess ＝ OpenProcess (PROCESS_ALL_ACCESS, 假, pid)
如果 (hProcess ＝ 0)
输出调试文本 (“Failed to open process.”)
返回 (假)
hFile ＝ CreateFile (dumpFilePath, GENERIC_WRITE, 0, 0, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
如果 (hFile ＝ 0)
输出调试文本 (“Failed to create dump file.”)
CloseHandle (hProcess)
返回 (假)
' 这里由于易语言没有直接对应的 MINIDUMP_EXCEPTION_INFORMATION 结构，所以暂时无法完全实现后续的 MiniDumpWriteDump 操作
CloseHandle (hFile)
CloseHandle (hProcess)
返回 (假)
. endif
. endif
返回 (真)
' 加载内存转储文件

子程序名	返回值类型	公开	备 注
LoadMemoryDump	逻辑型
参数名	类 型	参考	可空	数组	备 注
dumpFilePath	文本型
dumpData	字节集

变量名	类 型	静态	数组	备 注
hFile	整数型
fileSize	整数型
bytesRead	整数型

hFile ＝ CreateFile (dumpFilePath, GENERIC_READ, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
如果 (hFile ＝ 0)
输出调试文本 (“Failed to open dump file.”)
返回 (假)
fileSize ＝ GetFileSize (hFile, 0)
置字节集长度 (dumpData, fileSize)
如果 (!ReadFile (hFile, dumpData [1], fileSize, bytesRead, 0) 或 bytesRead ≠ fileSize)
输出调试文本 (“Failed to read dump file.”)
CloseHandle (hFile)
返回 (假)
CloseHandle (hFile)
返回 (真)
. endif
. endif

.版本 2<br /> <br /> ' 定义进程相关常量<br /> #常量 PROCESS_ALL_ACCESS = &H1F0FFF<br /> <br /> ' 定义文件相关常量<br /> #常量 GENERIC_WRITE = &H40000000<br /> #常量 GENERIC_READ = &H80000000<br /> #常量 CREATE_ALWAYS = 2<br /> #常量 OPEN_EXISTING = 3<br /> #常量 FILE_ATTRIBUTE_NORMAL = &H80<br /> <br /> ' 创建进程内存转储<br /> .子程序 CreateMemoryDump, 逻辑型, 公开<br /> .参数 pid, 整数型<br /> .参数 dumpFilePath, 文本型<br /> <br /> .局部变量 hProcess, 整数型<br /> .局部变量 hFile, 整数型<br /> <br /> hProcess ＝ OpenProcess(PROCESS_ALL_ACCESS, 假, pid)<br /> 如果 (hProcess ＝ 0)<br />     输出调试文本 (“Failed to open process.”)<br />     返回 (假)<br /> .否则<br />     hFile ＝ CreateFile (dumpFilePath, GENERIC_WRITE, 0, 0, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)<br />     如果 (hFile ＝ 0)<br />         输出调试文本 (“Failed to create dump file.”)<br />         CloseHandle (hProcess)<br />         返回 (假)<br />    .否则<br />         ' 这里由于易语言没有直接对应的 MINIDUMP_EXCEPTION_INFORMATION 结构，所以暂时无法完全实现后续的 MiniDumpWriteDump 操作<br />         CloseHandle (hFile)<br />         CloseHandle (hProcess)<br />         返回 (假)<br />    . endif<br /> . endif<br /> 返回 (真)<br /> <br /> ' 加载内存转储文件<br /> .子程序 LoadMemoryDump, 逻辑型, 公开<br /> .参数 dumpFilePath, 文本型<br /> .参数 dumpData, 字节集<br /> <br /> .局部变量 hFile, 整数型<br /> .局部变量 fileSize, 整数型<br /> .局部变量 bytesRead, 整数型<br /> <br /> hFile ＝ CreateFile (dumpFilePath, GENERIC_READ, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)<br /> 如果 (hFile ＝ 0)<br />     输出调试文本 (“Failed to open dump file.”)<br />     返回 (假)<br /> .否则<br />     fileSize ＝ GetFileSize (hFile, 0)<br />     置字节集长度 (dumpData, fileSize)<br />     如果 (!ReadFile (hFile, dumpData [1], fileSize, bytesRead, 0) 或 bytesRead ≠ fileSize)<br />         输出调试文本 (“Failed to read dump file.”)<br />         CloseHandle (hFile)<br />         返回 (假)<br />    .否则<br />         CloseHandle (hFile)<br />         返回 (真)<br />    . endif<br /> . endif

E语言|菜鸟

哥哥，你这个太高级了，能不能写个易语言的给我

cs潇潇

所以嘞，他俩赚了那么多钱，究竟是智商税还是真的管用呢？

你不丑

管好自己的事吧 管别人干嘛  今天你笑话别人 明天也许你就是别人的笑柄  跟咱们没有关系

同学麻烦让让

遗失的眼泪 发表于 2024-8-23 12:50
什么分赃不均？ 有原帖地址吗？

https://bbs.125.la/thread-14832178-1-1.html