使用vb脚本实现钉钉重复发送10条消息

使用vb脚本实现钉钉重复发送10条消息

1.思路

a.需要创建一个变量(执行方法)

b.获取电脑中管理员权限

c.给与用户缓冲时间,便于到达指定消息界面

d.获取粘贴权限并开始粘贴操作

e.使用户能清晰观看到粘贴后回车发送的过程

f.获取回车权限并开始发送信息

g.重复执行d、e 、f代码10次,程序就结束运行

注意:前提是你得提前剪切一段你想要复制的内容,因为这个在程序外执行的前提操作

所以就不在思路中提出来了

2.基础语法

2.1 定义变量

dim 变量名

2.2 赋予系统最高权限

set 变量名=createobject("wscript.shell")

2.3 给予用户缓冲时间

wscript.sleep 时间
'时间计量单位为ms,其中1s=1000ms

2.4 对按键操作并执行粘贴、回车操作

变量名.sendkeys "按键"
'ctrl---->^  enter特殊----->{enter}
'粘贴操作-----> a.sendkeys "^v"&i
'回车操作-----> a.sendkeys "{enter}"

2.5 已知循环次数,因而for循环相关语法是什么？

for 变量类型 变量名=变量值 to 循环结束判定条件
    循环体内容
next

2.6 vb脚本的程序如何编写?

a.直接新建一个记事本

b.更改它的文件拓展名为.vbe

c.然后设为它的编码格式为ANSI,用来防止中文乱码问题

​ 此步骤的具体操作过程见后面常见问题中4.1的内容

d.编写vb脚本的语句

3.每一步的具体实现过程

3.1 步骤a–需要创建一个变量(执行方法)

dim a
'定义变量a来执行后面操作的方法

3.2 步骤b–获取电脑中管理员权限

set a=createobject("wscript.shell")
'给变量a赋予当前系统的最高权限    

注意:createobject、wscript.shell这两部分是不能随便定义的

3.3 步骤c–给与用户缓冲时间,便于到达指定消息界面

wscript.sleep 3000
'vb脚本等待三秒后才执行后续操作,计量单位为ms,其中1s=1000s

3.4 步骤d–获取粘贴权限并开始粘贴操作

a.sendkeys "(^v)"&i
'i是用来计数的,确保循环能执行那么多次

3.5 步骤e–使用户观看粘贴后发送的过程更清晰

wscript.sleep 500
'使程序暂停0.5s,以便用户能看到粘贴发送的全过程

3.6 步骤f–获取回车权限并回车粘贴操作

a.sendkeys "{enter}"
'其中{}这种方法是获取键盘上一些特殊按键的方法

3.7 步骤g–重复执行代码10次

for i=1 to 10
循环体语句
next

4.常见问题

4.1 在vb脚本中出现中文乱码的显示问题

解决方案如下

a.打开文件扩展名为.vbe的文件

b.修改编码格式

点击完另存为就进入了如下图所示的界面

c.确认替换原文件

4.2 需要更改软件消息的默认发送方式?

一般来说,就有以下两种发送方式

a.按下enter键就发送消息,

b.按下alt+enter组合键才能发送消息

若为b情况,需要改成a情况,执行程序才能得到想要的效果

更改方法如下所示:

第一步,打开设置界面

第二步 往下滑到快捷键位置,在发送信息处进行修改即可

4.源代码

dim a
'使它具有后台管理员权限
set a=createobject("wscript.shell")
wscript.sleep 3000
for i=1 to 10
a.sendkeys "(^v)"&i
wscript.sleep 500
a.sendkeys "{enter}"
next