基于大漠的批量钉钉消息发送

有妖气

之前给公司人力做的，用易语言写了个工具直接给他们了，用于给批量发送钉钉消息，当初想着怎么简单怎么来就用大漠来做了

通过批量导入人员的姓名(ID), 会自动识别名字 打开聊天框发送，发送成功失败会有日志，具体逻辑自己看代码吧，我也差不多忘记了

过去3年了 不知道能不能用，主要是给大家学习大漠的用法了，高手勿喷

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
dm	DM
timeAvg	整数型
threadHandle	整数型
isInit	逻辑型
hwndDing	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
hwnd	整数型
hwndArr	整数型		0
i	整数型

hwnd ＝ 窗口_取句柄 (, , “StandardFrame_DingTalk”)
hwndDing ＝ hwnd
键盘_组合按键 ( #D键, #Ctrl键 )
判断循环首 (真)
Sleep (500)
如果 (窗口_是否最小化 (hwnd))
窗口_激活 (hwnd)
Sleep (100)
窗口_还原 (hwnd)

跳出循环 ()

判断循环尾 ()
窗口_强制显示 (hwnd)
Sleep (500)
窗口_置位置和大小 (hwnd, 0, 0, 960, 640)
窗口_激活 (窗口1.取窗口句柄 ())
窗口_强制显示 (窗口1.取窗口句柄 ())
窗口_置位置和大小 (窗口1.取窗口句柄 (), 1000, 0)
如果真 (dm.构造函数 (hwnd) ＝ 假)
信息框 (“钉钉绑定失败”, 0, , )
返回 ()

dm.SetDirPath (“dir.txt”, 0)
Sleep (100)
dm.MouseMovetoClick (118, 59)
Sleep (500)
dm.MouseMovetoClick (136, 110)
按钮1.标题 ＝ “初始化成功”
按钮1.禁止 ＝ 真
isInit ＝ 真

子程序名	返回值类型	公开	备 注
sendMsg
参数名	类 型	参考	可空	数组	备 注
userId	文本型
content	文本型

dm.MouseMovetoClick (118, 59)
Sleep (timeAvg)
dm.MouseMovetoClick (221, 61)
Sleep (timeAvg)
dm.Enterchar (“back”)
Sleep (timeAvg)
dm.MouseMovetoClick (136, 110)
Sleep (timeAvg)
dm.EnterStr (userId)
Sleep (timeAvg)
如果真 (check (userId) ＝ 假)
failPut (userId)
dm.Enterchar (“enter”)
返回 ()

dm.Enterchar (“enter”)
置剪辑板文本 (content)
Sleep (timeAvg)
dm.MouseMovetoClick (416, 500)
Sleep (timeAvg)
键盘_组合按键 ( #V键, #Ctrl键 )
Sleep (timeAvg)
dm.Enterchar (“enter”)
successPut (userId)

子程序名	返回值类型	公开	备 注
check	逻辑型
参数名	类 型	参考	可空	数组	备 注
id	文本型

变量名	类 型	静态	数组	备 注
str	文本型

str ＝ dm.GetText (70, 230, 300, 320, “5289fc-9eddf2”, 0, 0.9)
如果 (寻找文本 (str, id, , 假) ≠ -1)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
_按钮2_被单击

threadHandle ＝ 线程_启动 (&WORK)

子程序名	返回值类型	公开	备 注
WORK

变量名	类 型	静态	数组	备 注
arr	文本型		0
arrTmp	文本型		0
i	整数型
x	整数型

如果真 (isInit ＝ 假)
信息框 (“请先初始化”, 0, , )
返回 ()

如果真 (按钮2.标题 ＝ “正在工作”)
返回 ()

窗口_强制显示 (hwndDing)
按钮2.标题 ＝ “正在工作”
timeAvg ＝ 到数值 (到数值 (编辑框2.内容) × 1000) ÷ 8
arr ＝ 分割文本 (编辑框1.内容, #换行符, )
如果 (选择框1.选中)
计次循环首 (取数组成员数 (arr), i)
sendMsg (arr [i], 编辑框4.内容)
计次循环尾 ()

计次循环首 (取数组成员数 (arr), i)
清除数组 (arrTmp)
arrTmp ＝ 分割文本 (arr [i], 字符 ( #Tab键 ), )
如果真 (取数组成员数 (arrTmp) ≠ 2)
信息框 (“输入的信息不正确，工作已停止”, 0, , )
返回 ()

sendMsg (arrTmp [1], arrTmp [2])
计次循环尾 ()

信息框 (“工作完成”, 0, , 窗口1.取窗口句柄 ())
按钮2.标题 ＝ “开始工作”

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

窗口_监视热键_注册 (&响应监视事件)

子程序名	返回值类型	公开	备 注
响应监视事件
参数名	类 型	参考	可空	数组	备 注
功能键	整数型
键代码	整数型
按下	整数型

如果 (键代码 ＝ #F5键 且 按下 ＝ 1)
threadHandle ＝ 线程_启动 (&WORK)
如果 (键代码 ＝ #F6键 且 按下 ＝ 1)
线程_销毁 (threadHandle)
按钮2.标题 ＝ “开始工作”

子程序名	返回值类型	公开	备 注
successPut
参数名	类 型	参考	可空	数组	备 注
userId	文本型

编辑框3.加入文本 (userId ＋ #换行符 )
printLog (userId ＋ 字符 ( #Tab键 ) ＋ “发送成功”, 真)

子程序名	返回值类型	公开	备 注
failPut
参数名	类 型	参考	可空	数组	备 注
userId	文本型

编辑框3.加入文本 (userId ＋ #换行符 )
printLog (userId ＋ 字符 ( #Tab键 ) ＋ “发送失败”, 真)

.版本 2<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 dm, DM<br /> .程序集变量 timeAvg, 整数型<br /> .程序集变量 threadHandle, 整数型<br /> .程序集变量 isInit, 逻辑型<br /> .程序集变量 hwndDing, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 hwnd, 整数型<br /> .局部变量 hwndArr, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> hwnd ＝ 窗口_取句柄 (, , “StandardFrame_DingTalk”)<br /> hwndDing ＝ hwnd<br /> 键盘_组合按键 (#D键, #Ctrl键)<br /> <br /> .判断循环首 (真)<br />     Sleep (500)<br />     .如果 (窗口_是否最小化 (hwnd))<br />         窗口_激活 (hwnd)<br />         Sleep (100)<br />         窗口_还原 (hwnd)<br /> <br />     .否则<br />         跳出循环 ()<br />     .如果结束<br /> <br /> .判断循环尾 ()<br /> <br /> 窗口_强制显示 (hwnd)<br /> Sleep (500)<br /> 窗口_置位置和大小 (hwnd, 0, 0, 960, 640)<br /> <br /> <br /> 窗口_激活 (窗口1.取窗口句柄 ())<br /> 窗口_强制显示 (窗口1.取窗口句柄 ())<br /> <br /> 窗口_置位置和大小 (窗口1.取窗口句柄 (), 1000, 0)<br /> <br /> <br /> .如果真 (dm.构造函数 (hwnd) ＝ 假)<br />     信息框 (“钉钉绑定失败”, 0, , )<br />     返回 ()<br /> <br /> .如果真结束<br /> <br /> dm.SetDirPath (“dir.txt”, 0)<br /> <br /> Sleep (100)<br /> dm.MouseMovetoClick (118, 59)<br /> Sleep (500)<br /> dm.MouseMovetoClick (136, 110)<br /> 按钮1.标题 ＝ “初始化成功”<br /> 按钮1.禁止 ＝ 真<br /> isInit ＝ 真<br /> <br /> <br /> <br /> .子程序 sendMsg<br /> .参数 userId, 文本型<br /> .参数 content, 文本型<br /> <br /> <br /> dm.MouseMovetoClick (118, 59)<br /> Sleep (timeAvg)<br /> dm.MouseMovetoClick (221, 61)<br /> Sleep (timeAvg)<br /> <br /> dm.Enterchar (“back”)<br /> Sleep (timeAvg)<br /> <br /> <br /> dm.MouseMovetoClick (136, 110)<br /> Sleep (timeAvg)<br /> <br /> dm.EnterStr (userId)<br /> Sleep (timeAvg)<br /> .如果真 (check (userId) ＝ 假)<br />     failPut (userId)<br />     dm.Enterchar (“enter”)<br />     返回 ()<br /> <br /> .如果真结束<br /> <br /> <br /> dm.Enterchar (“enter”)<br /> 置剪辑板文本 (content)<br /> Sleep (timeAvg)<br /> dm.MouseMovetoClick (416, 500)<br /> Sleep (timeAvg)<br /> 键盘_组合按键 (#V键, #Ctrl键)<br /> Sleep (timeAvg)<br /> dm.Enterchar (“enter”)<br /> successPut (userId)<br /> <br /> .子程序 check, 逻辑型<br /> .参数 id, 文本型<br /> .局部变量 str, 文本型<br /> <br /> str ＝ dm.GetText (70, 230, 300, 320, “5289fc-9eddf2”, 0, 0.9)<br /> .如果 (寻找文本 (str, id, , 假) ≠ -1)<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 _按钮2_被单击<br /> <br /> threadHandle ＝ 线程_启动 (&WORK)<br /> <br /> .子程序 WORK<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 arrTmp, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 x, 整数型<br /> <br /> .如果真 (isInit ＝ 假)<br />     信息框 (“请先初始化”, 0, , )<br />     返回 ()<br /> <br /> .如果真结束<br /> <br /> .如果真 (按钮2.标题 ＝ “正在工作”)<br />     返回 ()<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> 窗口_强制显示 (hwndDing)<br /> 按钮2.标题 ＝ “正在工作”<br /> <br /> timeAvg ＝ 到数值 (到数值 (编辑框2.内容) × 1000) ÷ 8<br /> arr ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> <br /> .如果 (选择框1.选中)<br />     .计次循环首 (取数组成员数 (arr), i)<br />         sendMsg (arr <i>, 编辑框4.内容)<br />     .计次循环尾 ()<br /> <br /> <br /> <br /> .否则<br />     .计次循环首 (取数组成员数 (arr), i)<br />         清除数组 (arrTmp)<br />         arrTmp ＝ 分割文本 (arr <i>, 字符 (#Tab键), )<br /> <br />         .如果真 (取数组成员数 (arrTmp) ≠ 2)<br />             信息框 (“输入的信息不正确，工作已停止”, 0, , )<br />             返回 ()<br /> <br />         .如果真结束<br /> <br />         sendMsg (arrTmp [1], arrTmp [2])<br />     .计次循环尾 ()<br /> <br /> .如果结束<br /> <br /> <br /> <br /> 信息框 (“工作完成”, 0, , 窗口1.取窗口句柄 ())<br /> 按钮2.标题 ＝ “开始工作”<br /> <br /> .子程序 _窗口1_创建完毕<br /> <br /> 窗口_监视热键_注册 (&响应监视事件)<br /> <br /> <br /> .子程序 响应监视事件<br /> .参数 功能键, 整数型<br /> .参数 键代码, 整数型<br /> .参数 按下, 整数型<br /> <br /> .如果 (键代码 ＝ #F5键 且 按下 ＝ 1)<br />     threadHandle ＝ 线程_启动 (&WORK)<br /> .否则<br />     .如果 (键代码 ＝ #F6键 且 按下 ＝ 1)<br />         线程_销毁 (threadHandle)<br />         按钮2.标题 ＝ “开始工作”<br />     .否则<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> <br /> <br /> <br /> <br /> .子程序 successPut<br /> .参数 userId, 文本型<br /> <br /> 编辑框3.加入文本 (userId ＋ #换行符)<br /> printLog (userId ＋ 字符 (#Tab键) ＋ “发送成功”, 真)<br /> <br /> <br /> .子程序 failPut<br /> .参数 userId, 文本型<br /> <br /> 编辑框3.加入文本 (userId ＋ #换行符)<br /> printLog (userId ＋ 字符 (#Tab键) ＋ “发送失败”, 真)

模块只用了精益模块 钉钉消息发送.rar (1.61 MB, 下载次数: 23)

2022-9-22 14:57 上传

点击文件名下载附件

fengaimei1314

回复顶一下

q461419024

回复回回雪

qwhk

看看，学习学习

hongsun2016

谢谢分享！

灵感吖

支持一下

jysoft2022

谢谢分享

86869390a

支持一下

zxhui1996

中秋活动，支持支持!

易上手

来个接收消息的就更牛了