VBScript自动打卡

编辑代码：打卡.vbs
[vb] 
Set oAutoIt = WScript.CreateObject("AutoItX3.Control") 
 
Set WShell = CreateObject("wscript.shell") 
WShell.run "D:/TM_Client/TM_Client.exe"  '运行打卡工具 
WScript.Sleep 5000   '等待5秒钟 
 
'oAutoIt.MouseMove 1185,995, 0 
'oAutoIt.MouseClick "left" 
 
 
oAutoIt.MouseMove 600, 570, 0    '移动鼠标 
oAutoIt.MouseClick "left" 
oAutoIt.MouseClick "left" 
 
'关闭工具 
 
WScript.Sleep 1000 
oAutoIt.MouseMove 754,370, 0 
oAutoIt.MouseClick "left" 

定时启动脚本设置：
把脚本放到某路径下，开始---->设置---->控制面板
双击任务计划，添加任务找到放置的脚本，设置好启动时间即可。