[已解决] 狼哥，请教一下循环喊话这串代码的21行，激活窗口句柄调试输出内... [复制链接]

Hwnd = Plugin.Window.MousePoint()// 注释 得到鼠标点击的窗口句柄
TracePrint Hwnd
Call Plugin.Window.Active(Hwnd)// 注释 激活句柄窗口
TracePrint Hwnd
sText = Plugin.Window.GetText(Hwnd) // 获取窗口标题
TracePrint sText
sRect = Plugin.Window.GetClientRect(Hwnd)//这句是得到窗口句柄的客户区大小
TracePrint "得到窗口句柄的客户区大小为：" & sRect
分割坐标 = Split(sRect, "|")//下面这句用于分割字符串,将横坐标和纵坐标分成两个字符串
dim MyArray
MyArray = Split(sRect, "|")
//下面这句将字符串转换成数值
x = Clng(MyArray(0)): y = Clng(MyArray(1))
x1 = Clng(MyArray(2)): y1 = Clng(MyArray(3))
TracePrint x & "," & y
TracePrint x1 & "," & y1
Event Form1.Button1.Click// 注释 开始喊话按钮
Call Plugin.Window.Active(Hwnd)// 注释 激活句柄窗口
TracePrint Hwnd
Delay 随机延时
Do
Plugin.Bkgnd.KeyPress Hwnd, 13// 向后台窗口句柄 键盘按下回车
Call 随机延时
Delay 随机
Call 随机坐标
Call Plugin.Bkgnd.MoveTo(Hwnd, x + 26 + 随机, y + 685 + 随机)// 注释 向后台窗口句柄鼠标移动到公聊
Call 随机延时
Delay 随机
Call 随机坐标
Call Plugin.Bkgnd.LeftClick(Hwnd,x + 26 + 随机,y + 685 + 随机)//向后台窗口句柄(变量：Hwnd)的客户区域(坐标：0, 0)处发送一个鼠标左键单击
Call 随机延时
Delay 随机
Call 随机坐标
Call Plugin.Bkgnd.MoveTo(Hwnd, x + 26 + 随机,y + 703 + 随机)// 注释 向后台窗口句柄鼠标移动到公聊
Call 随机延时
Delay 随机
Call 随机坐标
Call Plugin.Bkgnd.LeftClick(Hwnd,x + 26 + 随机,y + 685 + 随机)//向后台窗口句柄(变量：Hwnd)的客户区域(坐标：0, 0)处发送一个鼠标左键单击
Call 随机延时
Delay 随机
内容 = Form1.公聊内容框.Text// 内容框
TracePrint 内容
Call 随机延时
Delay 随机
Call Plugin.Bkgnd.SendString(Hwnd, 内容)
TracePrint 内容
SayString 内容
Plugin.Bkgnd.KeyPress Hwnd, 13// 向后台窗口句柄 键盘按下回车
Delay 30000
Loop
End Event
Function 随机延时 //我是一个函数,被你调用了
Randomize // 注释 随机延时
随机 = Int((500 - 100 + 1) * Rnd + 100)
Delay 随机
TracePrint 随机
End Function
Function 随机坐标 //我是一个函数,被你调用了
Randomize // 注释 随机坐标
随机 = Int((5 - 0 + 1) * Rnd + 5)
GetCursorPos x, y
TracePrint x & "," & y
End Function

// 优化后是这样的 但是还是会卡死 并且调试输出是在持续输出 但是并不是在句柄窗口中。

Hwnd = Plugin.Window.MousePoint()// 注释 得到鼠标点击的窗口句柄 TracePrint Hwnd Call Plugin.Window.Active(Hwnd)// 注释 激活句柄窗口 TracePrint Hwnd sText = Plugin.Window.GetText(Hwnd) // 获取窗口标...... HZ66 发表于 2025/10/23 20:11:41

注：你好 下次提问请提供简洁、扼要、清晰可直接测试的代码结构与调试截图，并注释以及描述问题所在以及疑问
【1】需再开头 DimEnv Hwnd 否则句柄无法传递进按钮事件
[老狼[源码分享----Dim、Global、DimEnv----匆匆十年(59)
http://bbs.anjian.com/showtopic-700454-1.aspx
【2】按钮事件内应用多线程调用Sub，不支持内部写死循环、延迟等；或可采用超级延迟命令
[老狼[源码分享----QUI使用控件启动脚本不卡死的正确姿势----被迫营业的第三天
http://bbs.anjian.com/showtopic-697715-1.aspx