批处理之家 - Powered by Discuz! Board

标题: 批处理或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://bbs.bathome.net/)