UserVar Var12=0 "电信服务器"
UserVar Var13=2 "网通服务器"
UserVar Var1=0 "执行ID数"
UserVar Var2=0 "I D  0 1"
UserVar Var3=0 "密    码"
UserVar Var4=0 "I D  0 2"
UserVar Var5=0 "密    码"
UserVar Var6=0 "I D  0 3"
UserVar Var7=0 "密    码"
UserVar Var8=0 "I D  0 4"
UserVar Var9=0 "密    码"
UserVar Var17=0 "I D  0 5"
UserVar Var18=0 "密    码"
UserVar Var15=0 "I D  0 6"
UserVar Var16=0 "密    码"
UserVar Var14=0 "延时毫秒"
UserVar Var10=180 "初始游戏窗口X坐标"
UserVar Var11=160 "游戏窗口间距"
Sub 登录	
Delay 1000
For i=1 To 3
FindPic 0,0,1024,768,"Attachment:\快捷方式.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+10, intY+10
Delay 200
End If
FindPic 0,0,1024,768,"Attachment:\快捷.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+10, intY+10
Delay 200
End If
Next
LeftDoubleClick Var1
Delay 2000
//选择服务  
If Var12 = 1 Then 	
For i=1 To 3
FindPic 300,200,700,500,"Attachment:\电信.bmp",0.9,intX,intY
If intX > 300 And intY > 200 Then
MoveTo intX + 10, intY + 40
Delay 300
End If
Next
LeftDoubleClick Var1
Delay 500
End If
If Var13 = 2 Then 	
For i=1 To 3 
FindPic 300,200,700,500,"Attachment:\电信.bmp",0.9,intX,intY
If intX > 300 And intY > 200 Then
MoveTo intX + 10, intY + 70
Delay 300
End If
Next
LeftDoubleClick Var1
Delay 500
End If
//进入游戏
Delay 12000
For i=1 To Var1+2
MoveTo Var10, 754
LeftClick 1
Delay 2000
FindPic 30,20,900,700,"Attachment:\进入游戏.bmp",0.9,intX,intY
If intX > 30 And intY > 20 Then
MoveTo intX + 15, intY + 5
Delay 300
LeftDoubleClick 1
End If
Delay 1000	
Next
//填写帐号
Delay 14000
End Sub
Sub 挖矿
//选择手持铁镐角色
Delay 2000
For i=1 To 3
FindPic 100,100,1024,768,"Attachment:\角色.bmp",0.9,intX,intY
If intX > 100 And intY > 100 Then
MoveTo intX + 5, intY + 5
Delay 300
End If
Next
LeftDoubleClick 1
Delay 14000
KeyPress "P", 1
Delay 1000
FindPic 100, 100, 1024, 768, "Attachment:\皇宫.bmp", 0.9, intX, intY
If intX > 100 And intY > 100 Then 
	Delay 1000	
KeyPress "P", 1	
	Delay 1000
MoveTo 500, 374
LeftClick 1
	Delay 1000
KeyPress "2", 1
Delay 6000
KeyPress "P", 1
End If