红包脚本

lua

import "str.lua"
Dim 屏幕横坐标X,屏幕纵坐标Y,x,y,y2
屏幕横坐标X=GetScreenX()
屏幕纵坐标Y=GetScreenY()
x=屏幕横坐标X\2
y=屏幕纵坐标Y\3
y2=y*2
//读取文本
//将二楼的红包时刻的文本保存到/sdcard，让脚本读取文本
//注意文件名是【红包时刻】，无任何后缀.
//路径不对的话，自己改路径，有的手机是不一样的。
Dim 返回值
返回值=File.Read("/sdcard/红包时刻")
sm(返回值)
//提取时间
Dim MyTime
MyTime = now()
MyTime = mid(MyTime,12,5)
dim sj
sj=str.arraymatch(返回值,"%d%d：%d%d")
sm(sj)
dim k,MyString
k=0
for ubound(sj)
//将中文冒号改为英文的
MyString = Replace(sj(k), ":", ":")
k=k+1
next
do
dim sum
sum=0
k=0
for ubound(sj)\2
//sm(sj(2*k)&"  VS  "&sj(2*k+1))
if 比大小(MyTime,sj(2*k)) and (not(比大小(MyTime,sj(2*k+1)))) then
sum=1
else
sum=0
end if
if sum=1 then
exit for
end if
k=k+1
next
if sum=1 then
sm("抢红包啦")
下滑n次(10)
else 
sm("时间没到呢")
end if
loop
sub sm(s)
showmessage s
delay 2000
end sub
//计算秒数
function second(t)
dim sec,min,hour
hour=clng(left(t,2))
min=clng(right(t,2))
sec=hour*3600+min*60
second=sec
end function
//时间格式一样后，开始比较大小
function 比大小(now,t)
dim tf
if second(now)>second(t) then
tf=true
else
tf=false
end if
比大小=tf
end function
sub 下滑n次(n)
for n
swipe(x,y,x,y2,200)
delay 200
next
end sub

str.lua

--~ 提取匹配的字符串，存为数组
function QMPlugin.arraymatch(s, pattern)
local t = {}
    pcall(function()
    k=1
for  v in string.gmatch(s,pattern) do
t[k]=v
k=k+1
end
    end)
    return t
end

红包时刻

   除夕QQ红包福利时间表
大家记得定好闹铃抢红包呀~
12：00~12：05    李冰冰派红包
18：00~18：10    范冰冰派红包
18：10~18：20    李宇春派红包
18：20~18：30    井柏然派红包
18：30~18：40    张艺兴派红包
18：40~18：50    杨幂派红包
18：50~19：00    黄晓明派红包
19：00~19：30    理财通派红包
19：30~20：00    腾讯视频派红包
20：00~20：30    微众派红包
20：30~21：00    QQ音乐派红包
21：00~21：30    挖财派红包
21：30~22：00    QQ阅读派红包
22：00~22：30    大众点评派红包
22：30~23：00    天天快报派红包
23：00~23：30    携程派红包
23：30~23：45    巴黎欧莱雅派红包
23：45~23：50    美宝莲纽约派红包
23：50~24：30    娃哈哈派红包