保存为名字.vbs双击即可，会直接粘贴你剪切板的内容到你聚焦的窗口。
　　结束方式：在任务管理器里结束wscript　　

Set WshShell= WScript.CreateObject("WScript.Shell")
　　WshShell.AppActivate ""
　　for i=1 to 100
　　WScript.Sleep 500
　　WshShell.SendKeys "^v"
　　WshShell.SendKeys i
　　WshShell.SendKeys "%s"
　　next