* 错误码：8│内存资源不足，无法处理此命令。

Liuxt

* 错误码：8│内存资源不足，无法处理此命令。 调试的时候出现这个 请问下是 哪里 不对

z573277679

我这里不知道你代码，你自己替换一下子程序名。

  

子程序名	返回值类型	公开	备 注
切换股票
参数名	类 型	参考	可空	数组	备 注
股票代码	文本型

变量名	类 型	静态	数组	备 注
字节集	字节集
进程_句柄	整数型
内存地址	整数型

' 只获取一次
如果真 (进程_pid ＝ 0 或 窗口_句柄 ＝ 0)
进程_pid ＝ 进程_名取ID (“hexin.exe”, 假)
窗口_句柄 ＝ 进程_ID取窗口句柄 (进程_pid)

' 如果目标软件没开，直接退出
如果真 (进程_pid ＝ 0 或 窗口_句柄 ＝ 0)
返回 ()

判断 (取文本左边 (股票代码, 1) ＝ “6”)
字节集 ＝ 到字节集 (到字节 (17)) ＋ 到字节集 (股票代码)
判断 (取文本左边 (股票代码, 1) ＝ “3” 或 取文本左边 (股票代码, 1) ＝ “0”)
字节集 ＝ 到字节集 (到字节 (33)) ＋ 到字节集 (股票代码)
判断 (取文本左边 (股票代码, 1) ＝ “8” 或 取文本左边 (股票代码, 1) ＝ “4” 或 取文本左边 (股票代码, 1) ＝ “9”)
字节集 ＝ 到字节集 (到字节 (151)) ＋ 到字节集 (股票代码)
返回 ()

如果真 (字节集 ≠ {  })
进程_句柄 ＝ 进程_打开 (进程_pid)
内存地址 ＝ 内存_远程创建内存_字节集 (进程_句柄, 字节集)
如果真 (内存地址 ≠ 0)
SendMessageA (窗口_句柄, 1168, 0, 内存地址)
' 使用完毕，必须跨进程释放刚才申请的内存！
' 注意：根据你使用的模块不同，释放命令可能叫命名不同，你自己改下，我这里随便举个例子
内存_释放 (进程_pid, 内存地址)‘改你自己的

' 关闭内核对象句柄，防止句柄泄漏
关闭内核对象 (进程_句柄)  ' 如果你的模块里叫别的名字，请自行替换。

.版本 2<br /> <br /> .子程序 切换股票<br /> .参数 股票代码, 文本型<br /> .局部变量 字节集, 字节集<br /> .局部变量 进程_句柄, 整数型<br /> .局部变量 内存地址, 整数型<br /> <br /> ' 只获取一次<br /> .如果真 (进程_pid ＝ 0 或 窗口_句柄 ＝ 0)<br />     进程_pid ＝ 进程_名取ID (“hexin.exe”, 假)<br />     窗口_句柄 ＝ 进程_ID取窗口句柄 (进程_pid)<br /> .如果真结束<br /> <br /> ' 如果目标软件没开，直接退出<br /> .如果真 (进程_pid ＝ 0 或 窗口_句柄 ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> <br /> .判断开始 (取文本左边 (股票代码, 1) ＝ “6”)<br />     字节集 ＝ 到字节集 (到字节 (17)) ＋ 到字节集 (股票代码)<br /> .判断 (取文本左边 (股票代码, 1) ＝ “3” 或 取文本左边 (股票代码, 1) ＝ “0”)<br />     字节集 ＝ 到字节集 (到字节 (33)) ＋ 到字节集 (股票代码)<br /> .判断 (取文本左边 (股票代码, 1) ＝ “8” 或 取文本左边 (股票代码, 1) ＝ “4” 或 取文本左边 (股票代码, 1) ＝ “9”)<br />     字节集 ＝ 到字节集 (到字节 (151)) ＋ 到字节集 (股票代码)<br /> .默认<br />     返回 ()<br /> .判断结束<br /> <br /> .如果真 (字节集 ≠ {  })<br />     进程_句柄 ＝ 进程_打开 (进程_pid)<br /> <br />     内存地址 ＝ 内存_远程创建内存_字节集 (进程_句柄, 字节集)<br /> <br />     .如果真 (内存地址 ≠ 0)<br />         SendMessageA (窗口_句柄, 1168, 0, 内存地址)<br /> <br />         ' 使用完毕，必须跨进程释放刚才申请的内存！<br />         ' 注意：根据你使用的模块不同，释放命令可能叫命名不同，你自己改下，我这里随便举个例子<br />         内存_释放 (进程_pid, 内存地址)‘改你自己的<br />     .如果真结束<br /> <br />     ' 关闭内核对象句柄，防止句柄泄漏<br />     关闭内核对象 (进程_句柄)  ' 如果你的模块里叫别的名字，请自行替换。<br /> .如果真结束

Liuxt

.版本 2

.子程序 切换股票
.参数 股票代码, 文本型
.局部变量 字节集, 字节集
.局部变量 进程_句柄, 整数型
.局部变量 内存地址, 整数型
.局部变量 进程_pid, 整数型
.局部变量 窗口_句柄, 整数型

.如果 (进程_pid ＝ 0 或 窗口_句柄 ＝ 0)

    进程_pid ＝ 进程_名取ID (“hexin.exe”, 假)
    窗口_句柄 ＝ 进程_ID取窗口句柄 (进程_pid)
.否则

.如果结束



.判断开始 (取文本左边 (股票代码, 1) ＝ “6”)
    字节集 ＝ 到字节集 (到字节 (17)) ＋ 到字节集 (股票代码)
.默认

.判断结束

.判断开始 (取文本左边 (股票代码, 1) ＝ “3” 或 取文本左边 (股票代码, 1) ＝ “0”)
    字节集 ＝ 到字节集 (到字节 (33)) ＋ 到字节集 (股票代码)
.默认

.判断结束

.判断开始 (取文本左边 (股票代码, 1) ＝ “8” 或 取文本左边 (股票代码, 1) ＝ “4” 或 取文本左边 (股票代码, 1) ＝ “9”)
    字节集 ＝ 到字节集 (到字节 (151)) ＋ 到字节集 (股票代码)
.默认

.判断结束

.如果真 (字节集 ≠ {  })
    进程_句柄 ＝ 进程_打开 (进程_pid)
    内存地址 ＝ 内存_远程创建内存_字节集 (进程_句柄, 字节集)
    SendMessageA (窗口_句柄, 1168, 0, 内存地址)
.如果真结束

Liuxt

z573277679 发表于 2026-3-16 21:35
我这里不知道你代码，你自己替换一下子程序名。
[e=4].版本 2

内存_释放 是精易模块的 内存_释放远程内存 ()吗

Liuxt

z573277679 发表于 2026-3-16 21:35
我这里不知道你代码，你自己替换一下子程序名。
[e=4].版本 2

关闭内核对象是那个模块呀

z573277679

Liuxt 发表于 2026-3-16 21:37
内存_释放 是精易模块的 内存_释放远程内存 ()吗

关闭内核对象 换成 进程_关闭()这是精易模块里面的，我刚看了一下。精易模块我用的不是很多，基本都是自用模块

Liuxt

z573277679 发表于 2026-3-16 21:41
关闭内核对象 换成 进程_关闭()这是精易模块里面的，我刚看了一下。精易模块我用的不是很多，基本都是自 ...

谢谢大哥