//打开浏览器
Delay 500
MoveTo 344, 266
Delay 200
LeftClick 1
Delay 1000
Rem 输入网址
//清空地址栏
MoveTo 152, 40
Delay 300
For 2
LeftDoubleClick 1
KeyPress "Delete", 1
Next
Delay 300
//输入宝贝网址
SayString "http://qqbaby.qq.com/qqbaby.html"
KeyPress "Enter", 1
Delay 4000
//点击转入开始加载宝贝
FindPic 0,0,1366,768,"Attachment:\省略号暗.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
Else 
FindPic 0,0,1366,768,"Attachment:\省略号亮.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
Else 
    Delay 2000
End If
End If
//找钩钩.打钩钩
Delay 500
For 3
Call 打钩钩()
Next
//寻找登陆奖励并点击
FindPic 0,0,1366,768,"Attachment:\登陆抽奖.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX+30, intY+30
    Delay 300
            LeftClick 1
    Delay 500
End If
//确认奖励.打钩钩
Delay 500
Call 打钩钩()
//判断宝贝是否加载好了
Dim X

X=GetPixelColor(400,420)
If X="FFFFFF" Then
Goto 输入网址
End If
Call 打钩钩()
//回答问题
MoveTo 243, 320
Delay 500
MoveTo 296, 318
Delay 500
LeftClick 1
Delay 800
//回答.提交
MoveTo 584, 343
Delay 300
LeftClick 1
Delay 300
MoveTo 709, 413
Delay 300
LeftClick 1
//回答完点钩钩确定
Delay 600
Call 打钩钩()
//找箱子
    FindPic 0,0,1366,768,"Attachment:\被打开的箱子.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
        MoveTo intX+20, intY+20
    Delay 600
    LeftClick 1
    Delay 600
End If
    FindPic 0,0,1366,768,"Attachment:\没打开的箱子.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then
        MoveTo intX+20, intY+20
    Delay 600
    LeftClick 1
    Delay 600
End If
Delay 600
Call 打钩钩()
//去动物园收获动物
FindPic 0,0,1366,768,"Attachment:\动物园.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX+5, intY+5
    Delay 600
            LeftClick 1
    Delay 800
End If
For 3
    Delay 600
FindPic 0,0,1366,768,"Attachment:\可收获.bmp",0.8,intX,intY
If intX > 0 And intY > 0 Then