按键精灵逐行读取文本并复制粘贴到QQ聊天窗口按回车发出去

2025-04-06 07:49:24

推荐回答（1个）

回答1：

Rem 输入字符
BT=InputBox("请输入聊天窗口标题如多个窗口可用 | (例子：张山|李世|马五 ) 符号分隔注：多个窗口时聊天窗口要分离")
If BT= "" Then
Goto 输入字符
End If
Text = Plugin.File.ReadFileEx("C:\Config.txt")
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
For e=0 to UBound(MyArray)
BT=BT&"|"
BTT= Split(bt, "|")
For i=0 to UBound(BTT)-1
Hwnd = Plugin.Window.Find("TXGuiFoundation", BTT(I))
Call Plugin.Window.SendString(Hwnd, MyArray(E))
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Next
Next
End If