火球魔力固結委託

xyz  xyz軟體補給站  xyz資訊工坊  

---

Delay 500

MoveTo 717,481

Delay 500

IfColor 717,481,000000,1

    MiddleClick 1

EndIf 

IfColor 200 ,674,611503,1

    Delay 500

    KeyDown 17,1

    Delay 500

    KeyPress 54,1

    Delay 500

    KeyUp 17,1

    Delay 500

    KeyPress 49,1

    Delay 5000

    KeyPress 49,1

    Delay 500

EndIf 

IfColor 200,674,000000,1

    Delay 1000

    KeyDown 17,1

    Delay 1000

    KeyPress 52,1

    Delay 1000

    KeyUp 17,1

    Delay 1000

    KeyPress 54,1

    Delay 7000

    KeyPress 54,1

    Delay 7000

    KeyPress 54,1

    Delay 7000

    KeyPress 54,1

    Delay 7000

    KeyPress 54,1

    Delay 7000

    MoveTo 564,755

    Delay 1000

    LeftClick 1

    Delay 1000

    MoveTo 293,755

    Delay 1000

    LeftClick 1

    Delay 1000

    VBSCall FindColor(840,464,1014,656,"000055",a,b)

    If a<1 and b<1

        MiddleClick 1

    EndIf 

    KeyDown 17,1

    Delay 1000

    KeyPress 53,1

    Delay 1000

    KeyUp 17,1

    Delay 1000

    KeyPress 57,1

    Delay 1000

    MoveTo a b

    Delay 1000

    LeftClick 1

    Delay 1000

    MoveTo 260,432

    Delay 1000

    LeftClick 1

    Delay 1000

    MoveTo 242,487

    Delay 1000

    LeftClick 1

    Delay 1000

    MoveTo 459,342

    Delay 1000

    LeftClick 1

    Delay 1000

    MoveTo 484,456

    Delay 1000

    LeftClick 1

    Delay 1000

    MoveTo 272,389

    Delay 1000

    LeftClick 1

    Delay 1000

    MoveTo 564,755

    Delay 1000

    LeftClick 1

    Delay 1000

    MoveTo 120,755

    Delay 1000

    LeftClick 1

    Delay 1000

    MoveTo 272,389

    Delay 1000

    LeftClick 1

    Delay 10000

EndIf 

 

---

xyz  xyz軟體補給站  xyz資訊工坊