爱问知识人 爱问教育 医院库

按键精灵挖矿脚本不懂,请多多指教

按键精灵挖矿脚本不懂,请多多指教

   这是挖铁的脚本R[Script]
For 4
    Rem ==========向右移动并挖(共8次)==========
    For 8
        MoveTo 271 48
        Delay 2000
        RightDown 1
        Delay 1000
        RightClick 1
        MoveTo 521 93
        Delay 1000
        RightDown 1
        Delay 1000
        RightClick 1
        Delay 1000
        LeftClick 1
        Delay 4000
        LeftClick 1
        Delay 30000
        KeyPress 120 1
        VBSCall Call FindPic(2,70,400,300," p",1,intX,intY)
        If intX>=0 and intY>=0
            VBSCall Call SetCursorPos(intX,intY)
            LeftClick 1
            Delay 500
            MoveTo 500 80
            LeftClick 1
            Delay 1000
        EndIf 
        //        Rem 找铁
        VBSCall Call FindPic(2,70,400,300," p",1,intX,intY)
        If intX>=0 and intY>=0
            VBSCall Call SetCursorPos(intX,intY)
            LeftClick 1
            Delay 500
            MoveTo 500 80
            LeftClick 1
            Delay 1000
            //            Goto 找铁
        EndIf 
        //       Rem 找银
        VBSCall Call FindPic(2,70,400,300," p",1,intX,intY)
        If intX>=0 and intY>=0
            VBSCall Call SetCursorPos(intX,intY)
            LeftClick 1
            Delay 500
            MoveTo 500 80
            LeftClick 1
            Delay 1000
            //            Goto 找银
        EndIf 
        KeyPress 120 1
    EndFor 
    Rem ==========向左移并挖(共8次)==========
    For 8
        MoveTo 481 257
        Delay 2000
        RightDown 1
        Delay 1000
        RightClick 1
        MoveTo 521 93
        Delay 1000
        RightDown 1
        Delay 1000
        RightClick 1
        Delay 1000
        LeftClick 1
        Delay 4000
        LeftClick 1
        Delay 30000
        KeyPress 120 1
        VBSCall Call FindPic(2,70,400,300," p",1,intX,intY)
        If intX>=0 and intY>=0
            VBSCall Call SetCursorPos(intX,intY)
            LeftClick 1
            Delay 500
            MoveTo 500 80
            LeftClick 1
            Delay 1000
        EndIf 
        //        Rem 找铁
        VBSCall Call FindPic(2,70,400,300," p",1,intX,intY)
        If intX>=0 and intY>=0
            VBSCall Call SetCursorPos(intX,intY)
            LeftClick 1
            Delay 500
            MoveTo 500 80
            LeftClick 1
            Delay 1000
            //            Goto 找铁
        EndIf 
        //        Rem 找银
        VBSCall Call FindPic(2,70,400,300," p",1,intX,intY)
        If intX>=0 and intY>=0
            VBSCall Call SetCursorPos(intX,intY)
            LeftClick 1
            Delay 500
            MoveTo 500 80
            LeftClick 1
            Delay 1000
            //            Goto 找银
        EndIf 
        KeyPress 120 1
    EndFor 
EndFor 
KeyPress 50 1
Rem ==========这是结尾,无限循环到人工中止==========




   这里的F9和按键2  有什么作用啊,请帮我解释一下,谢谢

提交回答
好评回答

类似问题

换一换

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):