| 标题 | 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 |
| 随便看 |
|
在线学习网考试资料包含高考、自考、专升本考试、人事考试、公务员考试、大学生村官考试、特岗教师招聘考试、事业单位招聘考试、企业人才招聘、银行招聘、教师招聘、农村信用社招聘、各类资格证书考试等各类考试资料。