日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

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

發(fā)布時間:2024/8/1 编程问答 29 豆豆
生活随笔 收集整理的這篇文章主要介紹了 使用vb脚本实现钉钉重复发送10条消息 小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.

使用vb腳本實現(xiàn)釘釘重復發(fā)送10條消息

1.思路

a.需要創(chuàng)建一個變量(執(zhí)行方法)

b.獲取電腦中管理員權限

c.給與用戶緩沖時間,便于到達指定消息界面

d.獲取粘貼權限并開始粘貼操作

e.使用戶能清晰觀看到粘貼后回車發(fā)送的過程

f.獲取回車權限并開始發(fā)送信息

g.重復執(zhí)行d、e 、f代碼10次,程序就結束運行

注意:前提是你得提前剪切一段你想要復制的內(nèi)容,因為這個在程序外執(zhí)行的前提操作

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

2.基礎語法

2.1 定義變量

dim 變量名

2.2 賦予系統(tǒng)最高權限

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

2.3 給予用戶緩沖時間

wscript.sleep 時間 '時間計量單位為ms,其中1s=1000ms

2.4 對按鍵操作并執(zhí)行粘貼、回車操作

變量名.sendkeys "按鍵" 'ctrl---->^ enter特殊----->{enter} '粘貼操作-----> a.sendkeys "^v"&i '回車操作-----> a.sendkeys "{enter}"

2.5 已知循環(huán)次數(shù),因而for循環(huán)相關語法是什么?

for 變量類型 變量名=變量值 to 循環(huán)結束判定條件循環(huán)體內(nèi)容 next

2.6 vb腳本的程序如何編寫?

a.直接新建一個記事本

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

c.然后設為它的編碼格式為ANSI,用來防止中文亂碼問題

? 此步驟的具體操作過程見后面常見問題中4.1的內(nèi)容

d.編寫vb腳本的語句

3.每一步的具體實現(xiàn)過程

3.1 步驟a–需要創(chuàng)建一個變量(執(zhí)行方法)

dim a '定義變量a來執(zhí)行后面操作的方法

3.2 步驟b–獲取電腦中管理員權限

set a=createobject("wscript.shell") '給變量a賦予當前系統(tǒng)的最高權限

注意:createobject、wscript.shell這兩部分是不能隨便定義的

3.3 步驟c–給與用戶緩沖時間,便于到達指定消息界面

wscript.sleep 3000 'vb腳本等待三秒后才執(zhí)行后續(xù)操作,計量單位為ms,其中1s=1000s

3.4 步驟d–獲取粘貼權限并開始粘貼操作

a.sendkeys "(^v)"&i 'i是用來計數(shù)的,確保循環(huán)能執(zhí)行那么多次

3.5 步驟e–使用戶觀看粘貼后發(fā)送的過程更清晰

wscript.sleep 500 '使程序暫停0.5s,以便用戶能看到粘貼發(fā)送的全過程

3.6 步驟f–獲取回車權限并回車粘貼操作

a.sendkeys "{enter}" '其中{}這種方法是獲取鍵盤上一些特殊按鍵的方法

3.7 步驟g–重復執(zhí)行代碼10次

for i=1 to 10 循環(huán)體語句 next

4.常見問題

4.1 在vb腳本中出現(xiàn)中文亂碼的顯示問題

解決方案如下

a.打開文件擴展名為.vbe的文件

b.修改編碼格式

點擊完另存為就進入了如下圖所示的界面

c.確認替換原文件

4.2 需要更改軟件消息的默認發(fā)送方式?

一般來說,就有以下兩種發(fā)送方式

a.按下enter鍵就發(fā)送消息,

b.按下alt+enter組合鍵才能發(fā)送消息

若為b情況,需要改成a情況,執(zhí)行程序才能得到想要的效果

更改方法如下所示:

第一步,打開設置界面

第二步 往下滑到快捷鍵位置,在發(fā)送信息處進行修改即可

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

總結

以上是生活随笔為你收集整理的使用vb脚本实现钉钉重复发送10条消息的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯,歡迎將生活随笔推薦給好友。