VBScript自动打卡

下载插件并注册

将下载后的AutoItX3.dll放到WINDOWS文件夹下，开始--->运行--->regsvr32 AutoItX3.dll

编辑代码：打卡.vbs

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"

定时启动脚本设置：

把脚本放到某路径下，开始---->设置---->控制面板

双击任务计划，添加任务找到放置的脚本，设置好启动时间即可。

• Visual Basic 2010 2012 2013 从入门到精通

http://www.xin3721.com/eschool/VBNetxin3721/