代码如下是一段VB编写的，这个也是类似网络流传的;QQ复仇器----之类的，先复制一段文字然后打开该VBs文件即可不断粘贴之前复制的文字内容，但是缺点是不可以自动发送，哪位大哥可以帮我修改下，打开QQ聊天框可以自己发送的，而不用手工发送。
Set WshShell= WScript.createobject("WScript.Shell")
WshShell.AppActivate "QQ信息攻击脚本"
for i=1 to 20
WScript.Sleep 1000
WshShell.SendKeys"^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
Next
请问怎么用Bat编写？怎么用Bat或者Vbs编写的程序，在QQ聊天框中自动发送已复制的内容
<script language="VBScript">
'写这个脚本的目的是因为我禁止了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.clipboardData.SetData "text", linestr
objIE.Quit
WshShell.Run "cmd.exe /c ping 127.1 -n 2 ", 0, true
WshShell.AppActivate ""
WshShell.SendKeys "^v"
WshShell.SendKeys "%s"
end if
next
set fso=nothing
' window.close()
end if
end function
function exit1
CreateObject("WScript.Shell").Run "CMD /c TaskKill /f /im mshta.exe",0
end function
function start1
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("刷屏.txt", 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.clipboardData.SetData "text", linestr
objIE.Quit
WshShell.Run "cmd.exe /c ping 127.1 -n 2 ", 0, true
WshShell.AppActivate ""
WshShell.SendKeys "^v"
WshShell.SendKeys "%s"
end if
next
set fso=nothing
end function
</script>
</head>
<body marginleft=0 marginright=0 onload="window.resizeTo 389,145 ">
Const ForReading = 1
dim objFSO,objFile,strline
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("刷屏.txt", 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.clipboardData.SetData "text", linestr
objIE.Quit
WshShell.Run "cmd.exe /c ping 127.1 -n 2 ", 0, true
WshShell.AppActivate ""
WshShell.SendKeys "^v"
WshShell.SendKeys "%s"
end if
next
set fso=nothing
' window.close()
end function
发表于 2011-1-23 13:12
| 
发表于 2011-1-23 13:38
|