| 标题 | vbsQQ自动发信息增强版 |
| 范文 | 运行前请确定你的电脑安装了word。 代码如下: i=0 setwshshell=createobject("wscript.shell") SetobjWord=CreateObject("Word.Application") SetcolTasks=objWord.Tasks dowhilei<30 ForEachobjTaskincolTasks ifleft(objTask.Name,1)="与"then wshshell.appactivateobjTask.Name WshShell.SendKeys"{enter}" wshshell.sendkeys"^v" WshShell.SendKeysi wscript.sleep600 WshShell.SendKeys"%s" i=i+1 endif next loop |
| 随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。