FindPic 0,500,400,900,"Attachment:\力度定位.bmp",0.9,intX,intY
lidu=InputBox("请输入力度:")
LockMouse
MoveTo intX,intY
LeftClick 1
UnlockMouse  
Delay 500
KeyDown "Space", 1
i=1
While i=1
IfColor intX+37+lidu*5,intY-2,"33FFFE",2 Then
KeyUp "Space", 1
i=2
End If
Wend