天谕自动采集脚本-超简单代码

仅能用在自动采集方面，主要是输入G键

1、创建一个txt文本，把代码复制进去后，把文件后缀名改为vbs
例如：123.txt改为123.vbs就行
注意：点完脚本一定要点客户端或者网页，如果调整采集的快捷键，对应下边objShell.SendKeys的字母调整一下就行

'睡眠10s，点击VBS脚本后，需要点击一下客户端
Wscript.Sleep 10000
Dim count:count=0
'To后边代表采集次数次，比如200采集200次，20采集20次
For i=1 To 200
Set objShell = CreateObject("Wscript.Shell")
'睡眠5s,10秒后发送指令
Wscript.Sleep 10000
'发送键盘指令G 采集快捷键
objShell.SendKeys "{g}"
count=count+1

Next
MsgBox "Sussces " '输出结果
2、如果中途想停止vbs脚本，创建一个停止vbs.txt重命名为《停止vbs.bat》
代码
taskkill /f /im wscript.exe