Rem 初始化系统
Delay 3000
FindPic 0,0,1366,768,"C:\Users\Administrator\Desktop\自动交易\精确移动界面图.bmp",1.0,intX,intY
If intX> 0 And intY> 0 Then
Moveto intX, intY
Delay 2000
End If
LeftDown 1
Delay 200
MoveTo 2, 2
LeftUp 1
Delay 500
FindPic 0,0,1024,768,"Attachment:\邮件.bmp",0.9,intX,intY
//判断是否有需要接受的邮件

If intX > 111 And intY > 111 Then
    //在这里可以添加找到坐标后，需要做的处理。
End If

Goto 开始自动交易
Rem 接收邮件开始
FindPic 0,0,650,479,"邮件.bmp",0.9,intX,intY
If intX> 0 And intY> 0 Then
Moveto intX, intY
Delay 200
    LeftClick 1
Delay 500
    End If
FindPic 0,0,650,479,"金币.bmp",0.9,intX5,intY5
If intX5> 0 And intY5> 0 Then
Moveto intX5, intY5
Delay 200
    LeftClick 1
Delay 200
    End If
//////////////////////

FindPic 0,0,650,479,"金币全部接收.bmp",0.9,intX6,intY6
If intX6> 0 And intY6> 0 Then
Moveto intX6, intY6
Delay 200
    LeftClick 1
Delay 200
    End If
	//金币全部接受完成需要按确定以及删除邮件
FindPic 0,0,650,479,"金币确定.bmp",0.9,intX7,intY7
If intX7> 0 And intY7> 0 Then
Moveto intX7, intY7
Delay 200
    LeftClick 1
Delay 200
    End If
    ////////////////////////////////////
    FindPic 0,0,650,479,"金币删除.bmp",0.9,intX7,intY7
If intX7> 0 And intY7> 0 Then
Moveto intX7, intY7
Delay 200
    LeftClick 1
Delay 200
    End If
    /////////////////
     FindPic 0,0,650,479,"废弃邮件.bmp",0.9,intX8,intY8
If intX8> 0 And intY8> 0 Then
Moveto intX8, intY8
Delay 200
    LeftClick 1
Delay 200
    End If
    /////////////邮件删除
     FindPic 0,0,650,479,"金币删除.bmp",0.9,intX8,intY8
If intX8> 0 And intY8> 0 Then
Moveto intX8, intY8
Delay 200
    LeftClick 1
Delay 200
    End If
    ////////////////卡了第一次写着东西
       FindPic 0,0,650,479,"金币确定.bmp",0.9,intX8,intY8
If intX8> 0 And intY8> 0 Then
Moveto intX8, intY8
Delay 200
    LeftClick 1
Delay 200
    End If
    ///////////////////////
  //  Delay 2000
 //   KeyPress "Esc", 1  //无干扰
  //  Delay 200
///////////////////////////

Rem 开始自动交易
  
  
  Event Form1.Load
    //当窗体被加载时触发的事件
End Event

Goto 接收邮件开始
Event Form1.PictureBox1.Click