从落伍转的,没试验过,各位自己试吧,哈。

代码如下:

[Copy to clipboard]CODE:
Set WshShell= WScript.Createobject("WScript.Shell")
for i=1 to 9999
WScript.Sleep 700
WshShell.SendKeys"^v"
WshShell.SendKeys i
WshShell.SendKeys "%s"
next

使用方法:新建立个记事本,把以上代码复制到记事本了,把记事本txt格式改为vbs格式,先用鼠标复制一段话,在点击vbs文件,在qq上点发送,qq就会自动发送你复制的那段话,发送多少都有记录!可以在任何地方发送,也可以运用到论坛,博客,等等吧!自己去玩,在不懂我就无语了!

保存为:vbs 格式,复制短话发去吧!其实在论坛上都能用,只是个复制自发而已!