MoveTo 302,57
MoveR -1,-1
Delay 500
LeftDown 1
MoveTo 75,12
MoveR -1,-1
Delay 500
LeftUp 1
MoveTo 301,257
LeftClick 1
Rem q
VBSCall FindPic(10,10,1024,768,"jiangli.bmp",0.9,intX,intY)
If intX>0 and intY>0
    MoveTo intX,intY
    Delay 900
    LeftClick 1
    MoveTo 682,282
Else 
EndIf 
VBSCall FindPic(10,10,1024,768,"zhunbei.bmp",0.9,intX,intY)
If intX>0 and intY>0
    KeyPress 116,1
    str4="房主速度开~别让我等的着急~~此脚本出自QQ群；87356584"
    //****************设置结束*****************
    Delay 1000
    KeyPress 13,1
    SayString str4
    KeyPress 13,1
Else 
EndIf 
VBSCall FindPic(50,10,1024,768,"kaishi.bmp",0.9,intX,intY)
If intX>0 and intY>0
    KeyPress 116,1
Else 
EndIf 
VBSCall FindPic(10,10,1024,768,"queding.bmp",0.9,intX,intY)
If intX>0 and intY>0
    MoveTo 443,383
    Delay 500
    LeftClick 1
    MoveTo 682,282
Else 
EndIf 
VBSCall FindPic(10,10,1024,768,"fanhui.bmp",0.9,intX,intY)
If intX>0 and intY>0
    MoveTo intX,intY
    Delay 200
    LeftClick 1
    MoveTo 682,282
Else 
EndIf 
VBSCall FindPic(10,10,1024,768,"shuohua.bmp",0.9,intX,intY)
If intX>0 and intY>0
    str1="终于开始了。。。等的我好辛苦哦~"
    str2="华中一区平刷群正火热收人中~群号；87356584 "
    str3="此脚本纯属娱乐。希望大家喜欢~~ 制作人；ぽまみむめもゃ"
    Yanshi=11000
    //****************设置结束*****************
    Delay Yanshi
    KeyPress 13,1
    SayString str1
    KeyPress 13,1
    Delay Yanshi
    KeyPress 13,1
    SayString str2
    KeyPress 13,1
    Delay Yanshi
    KeyPress 13,1
    SayString str3
    KeyPress 13,1
Else 
EndIf 
Goto q