文本投递问题

薛哥哥

1182410163

文本投递（句柄，内容）

薛哥哥

怎么才能后台获取电脑的视频号直播评论编辑框，并且投递文本并发送

2224848

添加按钮：按钮_获取句柄（用于查找直播窗口）
添加按钮：按钮_发送评论（用于发送评论）
添加编辑框：编辑框_评论内容（输入评论内容）

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
直播窗口句柄	整数型
评论编辑框句柄	整数型
发送按钮句柄	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

按钮_获取句柄.标题 = "获取直播窗口"
按钮_发送评论.标题 = "发送评论"
按钮_发送评论.禁止 = 真

子程序名	返回值类型	公开	备 注
_按钮_获取句柄_被单击

.局部变量 窗口标题, 文本型

' 视频号直播窗口标题特征（根据实际情况调整）
窗口标题 = "视频号直播"

' 查找直播窗口
直播窗口句柄 = 窗口_模糊遍历窗口 ("WeChatAppEx", 窗口标题)
如果 (直播窗口句柄 ≠ 0)
输出调试文本 ("找到直播窗口句柄：" + 到文本 (直播窗口句柄))

' 查找评论编辑框
评论编辑框句柄 = 查找评论编辑框 (直播窗口句柄)
如果 (评论编辑框句柄 ≠ 0)
输出调试文本 ("找到评论编辑框句柄：" + 到文本 (评论编辑框句柄))

' 查找发送按钮
发送按钮句柄 = 查找发送按钮 (直播窗口句柄)
如果 (发送按钮句柄 ≠ 0)
输出调试文本 ("找到发送按钮句柄：" + 到文本 (发送按钮句柄))
按钮_发送评论.禁止 = 假
信息框 ("未找到发送按钮", 0, "错误", )
信息框 ("未找到评论编辑框", 0, "错误", )
信息框 ("未找到视频号直播窗口", 0, "错误", )

子程序名	返回值类型	公开	备 注
查找评论编辑框	整数型
参数名	类 型	参考	可空	数组	备 注
父窗口句柄	整数型

变量名	类 型	静态	数组	备 注
编辑框句柄	整数型
类名	文本型
标题	文本型

' 遍历子窗口查找评论编辑框
编辑框句柄 = 0
判断循环首 (真)
编辑框句柄 = 窗口_枚举子窗口 (父窗口句柄, 编辑框句柄)
如果 (编辑框句柄 = 0)
跳出循环 ()

类名 = 窗口_取类名 (编辑框句柄)
标题 = 窗口_取标题 (编辑框句柄)

' 根据特征识别评论编辑框（实际需要根据窗口结构调整）
如果 (寻找文本 (类名, "Edit", , 假) > 0 且 寻找文本 (标题, "说点什么", , 假) > 0)
返回 (编辑框句柄)

判断循环尾 ()
返回 (0)

子程序名	返回值类型	公开	备 注
查找发送按钮	整数型
参数名	类 型	参考	可空	数组	备 注
父窗口句柄	整数型

变量名	类 型	静态	数组	备 注
按钮句柄	整数型
类名	文本型
标题	文本型

' 遍历子窗口查找发送按钮
按钮句柄 = 0
判断循环首 (真)
按钮句柄 = 窗口_枚举子窗口 (父窗口句柄, 按钮句柄)
如果 (按钮句柄 = 0)
跳出循环 ()

类名 = 窗口_取类名 (按钮句柄)
标题 = 窗口_取标题 (按钮句柄)

' 根据特征识别发送按钮（实际需要根据窗口结构调整）
如果 (寻找文本 (类名, "Button", , 假) > 0 且 寻找文本 (标题, "发送", , 假) > 0)
返回 (按钮句柄)

判断循环尾 ()
返回 (0)

子程序名	返回值类型	公开	备 注
_按钮_发送评论_被单击

变量名	类 型	静态	数组	备 注
评论内容	文本型

评论内容 = 编辑框_评论内容.内容
如果 (评论内容 = "")
信息框 ("请输入评论内容", 0, "提示", )
返回 ()

' 后台发送评论
如果 (发送评论 (评论内容))
信息框 ("评论发送成功", 0, "成功", )
信息框 ("评论发送失败", 0, "错误", )

子程序名	返回值类型	公开	备 注
发送评论	逻辑型
参数名	类 型	参考	可空	数组	备 注
评论内容	文本型

变量名	类 型	静态	数组	备 注
结果	逻辑型

' 激活编辑框
窗口_置焦点 (评论编辑框句柄)
程序_延时 (100)
' 设置评论内容
结果 = 文本_投递 (评论编辑框句柄, 评论内容)
如果 (结果 = 假)
返回 (假)

程序_延时 (100)
' 模拟点击发送按钮
结果 = 按钮_点击 (发送按钮句柄)
返回 (结果)

子程序名	返回值类型	公开	备 注
文本_投递	逻辑型
参数名	类 型	参考	可空	数组	备 注
句柄	整数型
文本内容	文本型

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

' 先清空编辑框
发送消息 (句柄, #WM_SETTEXT, 0, "")
程序_延时 (50)
' 逐字符输入（模拟真实输入）
计次循环首 (取文本长度 (文本内容), i)
.局部变量 字符, 文本型
字符 = 取文本中间 (文本内容, i, 1)

' 发送字符消息
发送消息 (句柄, #WM_CHAR, 取代码 (字符, ), 0)
程序_延时 (取随机数 (30, 100))  ' 随机延时模拟真实输入
计次循环尾 ()
返回 (真)

子程序名	返回值类型	公开	备 注
按钮_点击	逻辑型
参数名	类 型	参考	可空	数组	备 注
按钮句柄	整数型

' 发送点击消息
发送消息 (按钮句柄, #WM_LBUTTONDOWN, 0, 0)
程序_延时 (50)
发送消息 (按钮句柄, #WM_LBUTTONUP, 0, 0)
程序_延时 (100)
返回 (真)
' 常量定义

常量名称	常量值	公 开	备 注
WM_SETTEXT	12
WM_CHAR	258
WM_LBUTTONDOWN	513
WM_LBUTTONUP	514

i支持库列表	支持库注释
spec	特殊功能支持库
eAPI	应用接口支持库

.版本 2<br /> .支持库 spec<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 直播窗口句柄, 整数型<br /> .程序集变量 评论编辑框句柄, 整数型<br /> .程序集变量 发送按钮句柄, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br />     按钮_获取句柄.标题 = "获取直播窗口"<br />     按钮_发送评论.标题 = "发送评论"<br />     按钮_发送评论.禁止 = 真<br /> <br /> .子程序 _按钮_获取句柄_被单击<br />     .局部变量 窗口标题, 文本型<br />     <br />     ' 视频号直播窗口标题特征（根据实际情况调整）<br />     窗口标题 = "视频号直播"<br />     <br />     ' 查找直播窗口<br />     直播窗口句柄 = 窗口_模糊遍历窗口("WeChatAppEx", 窗口标题)<br />     .如果 (直播窗口句柄 ≠ 0)<br />         输出调试文本("找到直播窗口句柄：" + 到文本(直播窗口句柄))<br />         <br />         ' 查找评论编辑框<br />         评论编辑框句柄 = 查找评论编辑框(直播窗口句柄)<br />         .如果 (评论编辑框句柄 ≠ 0)<br />             输出调试文本("找到评论编辑框句柄：" + 到文本(评论编辑框句柄))<br />             <br />             ' 查找发送按钮<br />             发送按钮句柄 = 查找发送按钮(直播窗口句柄)<br />             .如果 (发送按钮句柄 ≠ 0)<br />                 输出调试文本("找到发送按钮句柄：" + 到文本(发送按钮句柄))<br />                 按钮_发送评论.禁止 = 假<br />             .否则<br />                 信息框("未找到发送按钮", 0, "错误", )<br />             .如果结束<br />         .否则<br />             信息框("未找到评论编辑框", 0, "错误", )<br />         .如果结束<br />     .否则<br />         信息框("未找到视频号直播窗口", 0, "错误", )<br />     .如果结束<br /> <br /> .子程序 查找评论编辑框, 整数型<br /> .参数 父窗口句柄, 整数型<br /> .局部变量 编辑框句柄, 整数型<br /> .局部变量 类名, 文本型<br /> .局部变量 标题, 文本型<br /> <br /> ' 遍历子窗口查找评论编辑框<br /> 编辑框句柄 = 0<br /> .判断循环首 (真)<br />     编辑框句柄 = 窗口_枚举子窗口(父窗口句柄, 编辑框句柄)<br />     .如果 (编辑框句柄 = 0)<br />         跳出循环()<br />     .如果结束<br />     <br />     类名 = 窗口_取类名(编辑框句柄)<br />     标题 = 窗口_取标题(编辑框句柄)<br />     <br />     ' 根据特征识别评论编辑框（实际需要根据窗口结构调整）<br />     .如果 (寻找文本(类名, "Edit", , 假) > 0 且 寻找文本(标题, "说点什么", , 假) > 0)<br />         返回 (编辑框句柄)<br />     .如果结束<br /> .判断循环尾()<br /> <br /> 返回 (0)<br /> <br /> .子程序 查找发送按钮, 整数型<br /> .参数 父窗口句柄, 整数型<br /> .局部变量 按钮句柄, 整数型<br /> .局部变量 类名, 文本型<br /> .局部变量 标题, 文本型<br /> <br /> ' 遍历子窗口查找发送按钮<br /> 按钮句柄 = 0<br /> .判断循环首 (真)<br />     按钮句柄 = 窗口_枚举子窗口(父窗口句柄, 按钮句柄)<br />     .如果 (按钮句柄 = 0)<br />         跳出循环()<br />     .如果结束<br />     <br />     类名 = 窗口_取类名(按钮句柄)<br />     标题 = 窗口_取标题(按钮句柄)<br />     <br />     ' 根据特征识别发送按钮（实际需要根据窗口结构调整）<br />     .如果 (寻找文本(类名, "Button", , 假) > 0 且 寻找文本(标题, "发送", , 假) > 0)<br />         返回 (按钮句柄)<br />     .如果结束<br /> .判断循环尾()<br /> <br /> 返回 (0)<br /> <br /> .子程序 _按钮_发送评论_被单击<br /> .局部变量 评论内容, 文本型<br /> <br /> 评论内容 = 编辑框_评论内容.内容<br /> .如果 (评论内容 = "")<br />     信息框("请输入评论内容", 0, "提示", )<br />     返回 ()<br /> .如果结束<br /> <br /> ' 后台发送评论<br /> .如果 (发送评论(评论内容))<br />     信息框("评论发送成功", 0, "成功", )<br /> .否则<br />     信息框("评论发送失败", 0, "错误", )<br /> .如果结束<br /> <br /> .子程序 发送评论, 逻辑型<br /> .参数 评论内容, 文本型<br /> .局部变量 结果, 逻辑型<br /> <br /> ' 激活编辑框<br /> 窗口_置焦点(评论编辑框句柄)<br /> 程序_延时(100)<br /> <br /> ' 设置评论内容<br /> 结果 = 文本_投递(评论编辑框句柄, 评论内容)<br /> .如果 (结果 = 假)<br />     返回 (假)<br /> .如果结束<br /> <br /> 程序_延时(100)<br /> <br /> ' 模拟点击发送按钮<br /> 结果 = 按钮_点击(发送按钮句柄)<br /> 返回 (结果)<br /> <br /> .子程序 文本_投递, 逻辑型<br /> .参数 句柄, 整数型<br /> .参数 文本内容, 文本型<br /> .局部变量 i, 整数型<br /> <br /> ' 先清空编辑框<br /> 发送消息(句柄, #WM_SETTEXT, 0, "")<br /> 程序_延时(50)<br /> <br /> ' 逐字符输入（模拟真实输入）<br /> .计次循环首 (取文本长度(文本内容), i)<br />     .局部变量 字符, 文本型<br />     字符 = 取文本中间(文本内容, i, 1)<br />     <br />     ' 发送字符消息<br />     发送消息(句柄, #WM_CHAR, 取代码(字符, ), 0)<br />     程序_延时(取随机数(30, 100))  ' 随机延时模拟真实输入<br /> .计次循环尾()<br /> <br /> 返回 (真)<br /> <br /> .子程序 按钮_点击, 逻辑型<br /> .参数 按钮句柄, 整数型<br /> <br /> ' 发送点击消息<br /> 发送消息(按钮句柄, #WM_LBUTTONDOWN, 0, 0)<br /> 程序_延时(50)<br /> 发送消息(按钮句柄, #WM_LBUTTONUP, 0, 0)<br /> 程序_延时(100)<br /> <br /> 返回 (真)<br /> <br /> ' 常量定义<br /> .常量 WM_SETTEXT, "12"<br /> .常量 WM_CHAR, "258"<br /> .常量 WM_LBUTTONDOWN, "513"<br /> .常量 WM_LBUTTONUP, "514"

补充内容 (2025-7-26 01:56):
给你个之前写的例子，自己研究一下。

薛哥哥

2224848 发表于 2025-7-26 01:56
添加按钮：按钮_获取句柄（用于查找直播窗口）
添加按钮：按钮_发送评论（用于发送评论）
添加编辑框：编辑 ...

哥 你的常量是怎么定义的，也没找到“发送消息”的定义