谁给我个炫舞，自动准备加，自动返回的脚本？

Rem 开始
//标记开始
PutAttachment
//展开附件（默认目录）
VBS Dim n
//定义变量n
VBS n=0
//赋值n=0
VBSCall GetCursorPos(a,b)
//提取当前鼠标的坐标
Rem 2
//标记2
Delay 100
//延时100毫秒
VBSCall FindPic(0,0,1280,1024,"111.bmp",0.7,x,y)
//在屏幕区域（我的是1280*1024）寻找图片“111.bmp”相似度为0.7，x,y为找到的图片的左上角坐标
If x>0 and y>0
//如果找到图片
If n=0
//如果n=0
Delay 100
VBS n=n+1
//表达式n=n+1
Delay 100
Goto 2
//跳转到标记2
EndIf
//条件结束
If n=1
//如果n=1
MoveTo x y
//鼠标移动到x,y
Delay 100
LeftDoubleClick 1
//双击鼠标左键
Delay 300
KeyPress 116,1
//按键F5
Delay 300
MoveTo a,b
//鼠标返回到之前提取的鼠标位置
Delay 100
Goto 开始
//跳转到标记开始
EndIf
//条件结束