Board logo

标题: 批处理或VBS怎样在QQ聊天框中自动发送已复制的内容? [打印本页]

作者: ubcc    时间: 2011-1-23 13:12     标题: 批处理或VBS怎样在QQ聊天框中自动发送已复制的内容?

代码如下是一段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聊天框中自动发送已复制的内容
作者: broly    时间: 2011-1-23 13:38

善哉善哉!
作者: ubcc    时间: 2011-1-23 13:44

有没有人帮下啊,真的不知道怎么写
作者: djkanxue    时间: 2011-1-24 19:27

WshShell.SendKeys "%s"
alt+s不就是qq发送信息吗?
其实用不着WshShell.AppActivate "QQ信息攻击脚本"就算用,你写的也不对,"QQ信息攻击脚本"应该改为"与xxx聊天中"
我几年前写过一个ie版的 你参考下 记事本打开,另存为刷屏.hta
是逐行发送的
<html>
<head>
<title>hta刷屏</title>
<script language="VBScript">
'写这个脚本的目的是因为我禁止了vbs的某些功能,不得已而为之.
'这里使用ie来把字符串写到剪贴板
function start
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
' window.close()
end function

function exit1
CreateObject("WScript.Shell").Run "CMD /c TaskKill /f /im mymshta.exe",0
end function
</script>
</head>
<body marginleft=0 marginright=0 onload="window.resizeTo 260,145 ">
请选择文件:<input type=file id="srcFile" style="width:100px;"><br><br>
<input type=button value="开始刷屏 " onclick="start"> <input type=button value=" 退出刷屏 " onclick="exit1">
</body>
</html>
作者: djkanxue    时间: 2011-1-24 19:43

只用自己qq试过,没给别人发过,这东西让人反感.
刚才看了下发错了

<html>
<head>
<title>hta刷屏</title>

<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 ">


请选择文件:<input type=file id="srcFile" style="width:260px;"><br><br>
<input type=button value="目录刷屏 " onclick="start"> <input type=button value=" 刷屏 " onclick="start1">
<input type=button value=" 退出 " onclick="exit1">

</body>
</html>
作者: ubcc    时间: 2011-1-26 22:40

谢谢大家~非常感谢我去试试哦




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2