按键精灵开心网自动浇水脚本源码

运行环境：分辨率：1152x864 色深：32位 操作系统：Windows XP 按键精灵版本：7.01.4239

Delay 500  
MessageBox "欢迎测试向某人的处男作品！"  
Delay 300  
MoveTo 845,601  
LeftClick 1  
MouseWheel 5  
For 1000  
    MoveTo 845,801  
    LeftClick 1  
    Delay 1000  
    Gosub tou  
    MoveTo 636,802  
    LeftClick 1  
    Delay 1000  
    Gosub tou  
    MoveTo 705,800  
    Delay 1000  
    LeftClick 1  
    Gosub tou  
    MoveTo 780,799  
    Delay 1000  
    LeftClick 1  
    Gosub tou  
    MoveTo 1025,278  
    Delay 200  
    LeftClick 1  
    Delay 5000  
    IfColor 822,318,3300cc,0  
        Delay 500  
        MessageBox "本次操作已经完成，谢谢您的使用！"  
        Delay 1000  
        EndScript   
    Else   
    EndIf   
EndFor   
Sub tou  
    MoveTo 322,548  
    Delay 1000  
    LeftClick 1  
    MoveTo 427,479  
    Delay 500  
    LeftClick 1  
    MoveTo 523,429  
    Delay 500  
    LeftClick 1  
    MoveTo 519,531  
    Delay 500  
    LeftClick 1  
    MoveTo 619,479  
    Delay 500  
    LeftClick 1  
    MoveTo 732,533  
    Delay 500  
    LeftClick 1  
    IfColor 420,583,63cba8,1  
        MoveTo 420,583  
        Delay 500  
        LeftClick 1  
    Else   
    EndIf   
    IfColor 526,631,6acdaf,1  
        MoveTo 526,631  
        Delay 500  
        LeftClick 1  
    Else   
    EndIf   
    IfColor 626,579,3fc184,1  
        MoveTo 626,579  
        Delay 500  
        LeftClick 1  
    Else   
    EndIf   
    IfColor 628,679,3fc184,1  
        MoveTo 628,679  
        Delay 500  
        LeftClick 1  
    Else   
    EndIf   
    IfColor 727,627,3fc184,1  
        MoveTo 727,627  
        Delay 500  
        LeftClick 1  
    Else   
    EndIf   
    IfColor 826,579,3fc184,1  
        MoveTo 826,579  
        Delay 500  
        LeftClick 1  
    Else   
    EndIf   
    IfColor 731,727,3fc184,1  
        MoveTo 731,727  
        Delay 500  
        LeftClick 1  
    Else   
    EndIf   
    IfColor 832,677,3fc184,1  
        MoveTo 832,677  
        Delay 500  
        LeftClick 1
    Else   
    EndIf   
    IfColor 932,630,3fc184,1  
        MoveTo 932,630  
        Delay 500  
        LeftClick 1  
    Else   
    EndIf   
Return