Sub 移动()
FindPic 0,0,1024,768,"Attachment:\帝国.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intx+30,inty+10
Delay 50
    LeftClick 1
    Delay 500
LeftDown 1
Delay 500
    MoveTo 50,40
Delay 500
LeftUp 1
Delay 50
End If
End Sub
Rem 打
FindPic 0,0,1024,768,"Attachment:\错.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
KeyPress "Num 5", 1
Delay 50
End If
FindPic 0,0,1024,768,"Attachment:\定.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
KeyPress "Num 5", 1
Delay 50
End If
FindPic 0,0,1024,768,"Attachment:\登陆2.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    Call 移动()
KeyPress "Num 5", 1
Delay 500
End If
FindPic 0,0,1024,768,"Attachment:\选择.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
KeyPress "Num 5", 1
KeyPress "Num 5", 1
Delay 500
End If
GetColor=GetPixelColor(110,139)
If GetColor="3F32A5" Then
KeyPress "Num 0", 1
        Delay 500
End If
GetColor=GetPixelColor(355,334)
If GetColor="80BEB2" Then
KeyPress "Num 9", 1
Delay 100
KeyPress "Num 9", 1
Delay 100
    KeyPress "Num 5", 1
Delay 100
    KeyPress "Num *", 1
Delay 50
        KeyPress "Num 5", 1
Delay 100
        KeyPress "Num 5", 1
Delay 100
        KeyPress "Num *", 1
Delay 51
    End If
GetColor=GetPixelColor(367,338)
If GetColor="484B60" Then
        KeyPress "Num 5", 1
    Delay 510
End If
GetColor=GetPixelColor(315,177)
If GetColor="4757CD" Then
KeyPress "F2", 1
        Delay 10
End If
FindPic 210,90,680,680,"Attachment:\取消.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
KeyPress "F2", 1
Delay 50
End If
FindPic 210,90,680,680,"Attachment:\x.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
KeyPress "F2", 1
Delay 50
End If
FindPic 939,281,977,318,"Attachment:\修.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then
KeyPress "Num 7", 1
    Delay 50
    KeyPress "Num 0", 1
    Delay 50
    KeyPress "Num 3", 1
    Delay 50
End If
FindPic 677,400,756,450,"Attachment:\老.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 780,650
Delay 50
LeftClick 1
Delay 3000
MoveTo 780,650
Delay 50
LeftClick 1
Delay 3000
MoveTo 590,580