vbs获取群聊当前内容_批处理或VBS怎样在QQ聊天框中自动发送已复制的内容？

只用自己qq试过,没给别人发过,这东西让人反感.

刚才看了下发错了

hta刷屏

'写这个脚本的目的是因为我禁止了vbs的某些功能,不得已而为之.

'这里使用ie来把字符串写到剪贴板

function start

dim filename

filename = document.getElementById("srcFile").value

if len(filename)>0 then

Set WshShell=CreateObject("WScript.Shell")

'app=WshShell.Run ("notepad")

Const ForReading = 1

dim   objFSO,objFile,strline

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile(filename, ForReading)

str=objFile.readall

objFile.close

strarry=split(str,vbcrlf)

for   each   linestr   in   strarry

If linestr <> "" Then

Set objIE = CreateObject("InternetExplorer.Application")

objIE.Navigate("about:blank")

objIE.document.parentwindow.c