按键精灵核酸检测自动生成二维码[阳光总在风雨后! 希望疫情早日结束!]
//这是电脑版的,手机助手无法使用!!
/*
第一次远程写免费的脚本,也免费分享给大家参考~
阳光总在风雨后!
希望疫情早日结束!
喵喵老师 留
*/
SetSimMode 2
//成员目录(桌面文件路径)
路径 = "C:\Users\kfq\Desktop\核酸检测自动生成二维码成员表.xlsx"
//提取数据
Dim 姓名(99999),身份证(99999),电话(99999),地址(99999)
Plugin.Office.OpenXls 路径
For j = 1 To 99999
姓名(j) = Plugin.Office.ReadXls(1, j, 1)
If 姓名(j) = "" Then
TracePrint "全部提取完毕"
总共 = j -1
TracePrint "总共:"&总共&"人"
Exit For
End If
身份证(j) = Plugin.Office.ReadXls(1, j, 2)
电话(j) = Plugin.Office.ReadXls(1, j, 3)
地址(j) = Plugin.Office.ReadXls(1, j, 4)
// TracePrint 姓名(j)
// TracePrint 身份证(j)
// TracePrint 电话(j)
// TracePrint 地址(j)
Next
//几千人尤其是老年人不懂手机,打印二维码直接扫,提高采样效率(见过扫身份证的,效率不是很好)
Plugin.Office.CloseXls
Delay 1000
//开始生成二维码
For j = 1 To 总共
TracePrint "第"&j&"个"
Call 点击(680, 176)
RightClick 1
Delay 500
Call 点击(680+62,176+84)
Do
FindColor 593,713,1191,834,"FA8919",x,y
If x>0 and y>0 Then
TracePrint "表格加载完成"
//录入数据
Call 点击(1081, 319)
Call 输入(姓名(j)) : Delay 500
Call 点击(1099,447)
Call 输入(身份证(j)) : Delay 500
Call 点击(1087,510)
Call 输入(电话(j)) : Delay 500
Call 点击(1089,579)
Call 输入(地址(j)) : Delay 500
Call 点击(918, 789)
//提交数据
Do
FindColor 783,478, 783,478, "000000", x, y
If x > 0 and y > 0 Then
TracePrint "出现二维码,开始截图"
//qq截图快捷键 Ctrl + Alt + A
KeyDown 17,1
KeyDown 18, 1
KeyDown 65,1
KeyUp 65, 1
KeyUp 17, 1
KeyUp 18, 1
//qq截图快捷键 Ctrl + Alt + A
Delay 2000
//按住滑动框选范围
MoveTo 746, 333
Delay 300
LeftDown 1
Delay 300
MoveTo 1036, 830
Delay 300
LeftUp 1
//按住滑动框选范围
Delay 1000
//保存快捷键 Ctrl + S
KeyDown 17,1
KeyDown 83, 1
KeyUp 83, 1
KeyUp 17, 1
//保存快捷键 Ctrl + S
Delay 1000
//Call 点击(708, 447)
//以姓名 + 身份证 方式命名图片,方便发放,也防止重名
Call 输入(姓名(j) & "--" & 身份证(j)) : Delay 500
//以姓名 + 身份证 方式命名图片,方便发放,也防止重名
KeyDown 13, 1
KeyUp 13, 1
Delay 1000
Call 点击(1193, 181)
Delay 300
Exit Do
End If
Delay 100
Loop
Exit Do
End If
Delay 100
Loop
Next
TracePrint "所有成员全部生成完毕"
Function 输入(内容)
//直接无法输入,采用复制粘贴剪贴板的形式
Plugin.Sys.SetCLB 内容
KeyDown 17,1
KeyDown 86,1
KeyUp 86, 1
KeyUp 17,1
End Function
Function 点击(x, y)
//类似于安卓的点击屏幕,电脑版需要移动鼠标
MoveTo x, y
Delay 300
LeftClick 1
Delay 300
End Function
//点击下面文字,观看更多手机版教程
