[分享源码] 自制的，定时参加活动的框架代码，分享给大家，以供参考！初次分... [复制链接]

//自制的，定时参加活动的框架代码，分享给大家，以供参考！初次分享，欢迎交流//代码如下：
Dim AA//定义变量，小时
Dim BB//定义变量，分钟
do//循环执行，主体框架
AA = Hour(now) //获取现在时间的小时，24小时制
BB = Minute(now)//获取现在时间的分钟
TracePrint "现在是" & AA & "点" & BB & "分"//调试输出时间取值
If AA = 17 and BB = 0 Then //判断时间段17：00，进入活动，假定17点开始活动
Call 选择账号1
Call 元宝活动
ElseIf AA = 16 and BB >= 55 and BB <= 59 Then//判断时间段17：00，进入活动，提前5分钟进入倒计时等待进入
Delay 1000 * 60 * (60 - BB) + 1000
Call 选择账号1
Call 元宝活动
Else
Call 选择账号1
End If
Loop
Function 选择账号1
//==========以下是按键精灵录制的内容==========//选择账号1/
MoveTo 286, 16
Delay 2563
LeftClick 1
Delay 1000
//
End Function
Function 元宝活动
FindPic 811,345,1334,724,"D:\Program Files (x86)\按键精灵\按键精灵2014\screen\元宝活动出现.bmp",0.9,intXY,intYY
If intXY > 0 And intYY > 0 Then
'==========以下是按键精灵录制的内容==========
MoveTo 1002, 524
'==========以上是按键精灵录制的内容==========
'移动鼠标到传送位置
Delay 1000
LeftClick 1//选择活动
Delay 1000
End If
FindPic 788,409,1177,721,"D:\Program Files (x86)\按键精灵\按键精灵2014\screen\进入元宝活动.bmp",0.9,intX4,intY4
If intX4 > 0 And intY4 > 0 Then
MoveTo intX4+5,intY4+3
Delay 1056
LeftClick 1
Delay 1056
End If
End Function