请教大神帮忙把按键的源码改为易语言的

ITZJ · 发表于 2013-7-6 12:24:55

Sub 鼠标移动(MoveX,MoveY,x2,y2,xycolor)
'MoveX,MoveY 分别为要移动到的x,y ,x2,y2,xycolor 为鼠标移动到的特征点,那么作为一个优秀的程序员,任何一个细节的动作都需要加上判断
'首先把鼠标移动到想要点击的地方:例如任务相关这四个字移动前坐标x,y为蓝色 ,移动后 x,y为绿色 ,那么例子中移动后的x,y,色值,就做为子程序
'的x2,y2,xycolor
Do
      GetCursorPos x, y
      do
         x=x-随机整数(100)
         MoveTo x,y+随机整数(20)
         Delay 10*随机整数(3)
         GetCursorPos x1, y1
         If x1<=0 then Exit Do
         IfColor x2,y2,xycolor,2 Then
            Exit Sub
         End if
      Loop
      MoveTo MoveX+随机整数(5),MoveY+随机整数(3)
      Delay 1000
      GetColor=GetPixelColor(x2,y2)
      IfColor x2,y2,xycolor,2 Then
         Exit Do
      End if
Loop
End Sub
Function 随机整数(数值上限)
Randomize
随机整数 = Int((数值上限 * Rnd) + 1)
End Function
有会改的请加我Q：995682002

补充内容 (2013-7-6 12:46):
JB要是少了我在加全身只有72JB