|
- 小学三年级
- 2308674
- 64
- 0
- 57 朵
- 63 个
- 55 个
- 0
- 2013-12-21
|
1#
t
T
发表于 2022-04-24 18:48
|
|只看楼主
- //这是电脑版的,手机助手无法使用!!
- /*
- 第一次写免费的脚本,也免费分享给大家参考~
-
- 阳光总在风雨后!
-
- 希望疫情早日结束!
-
- 喵喵老师 留
- */
- 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
 - lizi.rar (, 下载次数:172)
|
闽公网安备 35010002000112号