Set WshShell= WScript.Createobject("WScript.Shell")
for i=1 to 9999
WScript.Sleep 700
WshShell.SendKeys"^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
next
for i=1 to 9999
WScript.Sleep 700
WshShell.SendKeys"^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
next
使用方法：新建立个记事本，把以上代码复制到记事本了，把记事本txt格式改为vbs格式，先用鼠标复制一段话，在点击vbs文件，在qq上点发送，qq就会自动发送你复制的那段话，发送多少都有记录！可以在任何地方发送，也可以运用到论坛，博客，等等吧！自己去玩，在不懂我就无语了！
转载请注明出自91now资源站保存为：vbs 格式