@hwk603
2016-02-07T18:20:42.000000Z
字数 1446
阅读 1986
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 娃哈哈派红包