vbs qq自动发信息增强版
2014-05-12来源:易贤网

运行前请确定你的电脑安装了word。

代码如下:

i=0

set wshshell=createobject("wscript.shell")

Set objWord = CreateObject("Word.Application")

Set colTasks = objWord.Tasks

do while i<30

For Each objTask in colTasks

if left(objTask.Name,1)="与" then

wshshell.appactivate objTask.Name

WshShell.SendKeys "{enter}"

wshshell.sendkeys "^v"

WshShell.SendKeys i

wscript.sleep 600

WshShell.SendKeys "%s"

i=i+1

end if

next

loop

更多信息请查看IT技术专栏

2025公考·省考培训课程试听预约报名

  • 报班类型
  • 姓名
  • 手机号
  • 验证码
推荐信息