按鍵精靈核酸檢測自動(dòng)生成二維碼[陽光總在風(fēng)雨后! 希望疫情早日結(jié)束!]
//這是電腦版的,手機(jī)助手無法使用!!
/*
? ? 第一次遠(yuǎn)程寫免費(fèi)的腳本,也免費(fèi)分享給大家參考~
? ??
? ? ? ? 陽光總在風(fēng)雨后!
? ? ? ??
? ? ? ? ? ? ? ? 希望疫情早日結(jié)束!
? ??
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? 喵喵老師 留
*/
SetSimMode 2
//成員目錄(桌面文件路徑)
路徑 = "C:\Users\kfq\Desktop\核酸檢測自動(dòng)生成二維碼成員表.xlsx"
//提取數(shù)據(jù)
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
//幾千人尤其是老年人不懂手機(jī),打印二維碼直接掃,提高采樣效率(見過掃身份證的,效率不是很好)
Plugin.Office.CloseXls?
Delay 1000
//開始生成二維碼
For j = 1 To 總共
? ? TracePrint "第"&j&"個(gè)"
? ? Call 點(diǎn)擊(680, 176)
? ? RightClick 1
? ? Delay 500
? ? Call 點(diǎn)擊(680+62,176+84)
? ? Do
? ? ? ? FindColor 593,713,1191,834,"FA8919",x,y? ?
? ? ? ? If x>0 and y>0 Then??
? ? ? ? ? ? TracePrint "表格加載完成"
? ? ? ? ? ? //錄入數(shù)據(jù)
? ? ? ? ? ? Call 點(diǎn)擊(1081, 319)
? ? ? ? ? ? Call 輸入(姓名(j)) : Delay 500
? ? ? ? ? ? Call 點(diǎn)擊(1099,447)
? ? ? ? ? ? Call 輸入(身份證(j)) : Delay 500
? ? ? ? ? ? Call 點(diǎn)擊(1087,510)
? ? ? ? ? ? Call 輸入(電話(j)) : Delay 500
? ? ? ? ? ? Call 點(diǎn)擊(1089,579)
? ? ? ? ? ? Call 輸入(地址(j)) : Delay 500
? ? ? ? ? ? Call 點(diǎn)擊(918, 789)
? ? ? ? ? ? //提交數(shù)據(jù)
? ? ? ? ? ? Do
? ? ? ? ? ? ? ? FindColor 783,478, 783,478, "000000", x, y
? ? ? ? ? ? ? ? If x > 0 and y > 0 Then?
? ? ? ? ? ? ? ? ? ? TracePrint "出現(xiàn)二維碼,開始截圖"
? ? ? ? ? ? ? ? ? ? //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
? ? ? ? ? ? ? ? ? ? //按住滑動(dòng)框選范圍
? ? ? ? ? ? ? ? ? ? MoveTo 746, 333
? ? ? ? ? ? ? ? ? ? Delay 300
? ? ? ? ? ? ? ? ? ? LeftDown 1
? ? ? ? ? ? ? ? ? ? Delay 300
? ? ? ? ? ? ? ? ? ? MoveTo 1036, 830
? ? ? ? ? ? ? ? ? ? Delay 300
? ? ? ? ? ? ? ? ? ? LeftUp 1
? ? ? ? ? ? ? ? ? ? //按住滑動(dòng)框選范圍
? ? ? ? ? ? ? ? ? ? Delay 1000
? ? ? ? ? ? ? ? ? ? //保存快捷鍵 Ctrl + S
? ? ? ? ? ? ? ? ? ? KeyDown 17,1
? ? ? ? ? ? ? ? ? ? KeyDown 83, 1
? ? ? ? ? ? ? ? ? ? KeyUp 83, 1
? ? ? ? ? ? ? ? ? ? KeyUp 17, 1
? ? ? ? ? ? ? ? ? ? //保存快捷鍵 Ctrl + S
? ? ? ? ? ? ? ? ? ? Delay 1000
? ? ? ? ? ? ? ? ? ? //Call 點(diǎn)擊(708, 447)
? ? ? ? ? ? ? ? ? ? //以姓名 + 身份證 方式命名圖片,方便發(fā)放,也防止重名
? ? ? ? ? ? ? ? ? ? Call 輸入(姓名(j) & "--" & 身份證(j)) : Delay 500
? ? ? ? ? ? ? ? ? ? //以姓名 + 身份證 方式命名圖片,方便發(fā)放,也防止重名
? ? ? ? ? ? ? ? ? ? KeyDown 13, 1
? ? ? ? ? ? ? ? ? ? KeyUp 13, 1
? ? ? ? ? ? ? ? ? ? Delay 1000
? ? ? ? ? ? ? ? ? ? Call 點(diǎn)擊(1193, 181)
? ? ? ? ? ? ? ? ? ? Delay 300
? ? ? ? ? ? ? ? ? ? Exit Do
? ? ? ? ? ? ? ? End If
? ? ? ? ? ? ? ? Delay 100
? ? ? ? ? ? Loop
? ? ? ? ? ? Exit Do
? ? ? ? End If?
? ? ? ? Delay 100
? ? Loop
Next
TracePrint "所有成員全部生成完畢"
Function 輸入(內(nèi)容)
? ? //直接無法輸入,采用復(fù)制粘貼剪貼板的形式
? ? Plugin.Sys.SetCLB 內(nèi)容
? ? KeyDown 17,1
? ? KeyDown 86,1
? ? KeyUp 86, 1
? ? KeyUp 17,1
End Function
Function 點(diǎn)擊(x, y)
? ? //類似于安卓的點(diǎn)擊屏幕,電腦版需要移動(dòng)鼠標(biāo)
? ? MoveTo x, y
? ? Delay 300
? ? LeftClick 1
? ? Delay 300
End Function
//點(diǎn)擊下面文字,觀看更多手機(jī)版教程
