按键精灵逐行读取文本并复制粘贴到QQ聊天窗口按回车发出去
- 你的回答被采纳后将获得:
- 系统奖励15(财富值+成长值)+难题奖励10(财富值+成长值)+提问者悬赏70(财富值+成长值)
展开全部
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
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
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询