按键精灵自动挂机脚本
一个小网页游戏,有挂机功能但是非常慢,因此下载了案件精灵,但是由于本人是个菜鸟,不能编写脚本,而精灵原本带的教本里只有3个技能,所以我想麻烦大虾们帮忙。要求:设置6个按键...
一个小网页游戏,有挂机功能但是非常慢,因此下载了案件精灵,但是由于本人是个菜鸟,不能编写脚本,而精灵原本带的教本里只有3个技能,所以我想麻烦大虾们帮忙。
要求:设置6个按键分别为3、5、4、8、1、2;分别相隔20秒、40秒、30秒、60秒、2.5秒、10秒。
另外简单的间隔1小时10分钟点一次鼠标的那个脚本也帮忙给一个。
恳请会玩的大侠们不吝指教,在线等待,多谢!!! 展开
要求:设置6个按键分别为3、5、4、8、1、2;分别相隔20秒、40秒、30秒、60秒、2.5秒、10秒。
另外简单的间隔1小时10分钟点一次鼠标的那个脚本也帮忙给一个。
恳请会玩的大侠们不吝指教,在线等待,多谢!!! 展开
展开全部
设置6个按键分别为3、5、4、8、1、2;分别相隔20秒、40秒、30秒、60秒、2.5秒、10秒:
Dim tim1,tim2,tim3,tim4,tim5,tim6
tim1=now
tim2=now
tim3=now
tim4=now
tim5=now
tim6=now
Rem 开始
Delay 100
If DateDiff("s",tim5,now) >= 2 Then
Delay 500
tim5=now
KeyPress "1", 1
End if
If DateDiff("s",tim1,now) >= 20 Then
tim1=now
KeyPress "3", 1
End if
If DateDiff("s",tim2,now) >= 40 Then
tim2=now
KeyPress "5", 1
End if
If DateDiff("s",tim3,now) >= 30 Then
tim3=now
KeyPress "4", 1
End if
If DateDiff("s",tim4,now) >= 60 Then
tim4=now
KeyPress "8", 1
End if
If DateDiff("s",tim6,now) >= 10 Then
tim6=now
KeyPress "2", 1
End if
Goto 开始
简单的间隔1小时10分钟点一次鼠标的:
Dim tim1
tim1=now
Rem 开始
Delay 1000
If DateDiff("s",tim1,now) >= 4200 Then
tim1=now
LeftClick 1
End if
Goto 开始
Dim tim1,tim2,tim3,tim4,tim5,tim6
tim1=now
tim2=now
tim3=now
tim4=now
tim5=now
tim6=now
Rem 开始
Delay 100
If DateDiff("s",tim5,now) >= 2 Then
Delay 500
tim5=now
KeyPress "1", 1
End if
If DateDiff("s",tim1,now) >= 20 Then
tim1=now
KeyPress "3", 1
End if
If DateDiff("s",tim2,now) >= 40 Then
tim2=now
KeyPress "5", 1
End if
If DateDiff("s",tim3,now) >= 30 Then
tim3=now
KeyPress "4", 1
End if
If DateDiff("s",tim4,now) >= 60 Then
tim4=now
KeyPress "8", 1
End if
If DateDiff("s",tim6,now) >= 10 Then
tim6=now
KeyPress "2", 1
End if
Goto 开始
简单的间隔1小时10分钟点一次鼠标的:
Dim tim1
tim1=now
Rem 开始
Delay 1000
If DateDiff("s",tim1,now) >= 4200 Then
tim1=now
LeftClick 1
End if
Goto 开始
追问
多谢这个大虾帮忙,这个按键是循环的吧? 忘记要设置自动找怪了,站在那老是按键却没有目标,呵呵。。
追答
是循环的,要找怪你可以在开始那加个找怪快捷键就OK了,不过不知你几下能打死怪,这可是循环一次找一只怪,要想做高级点的脚本还要去判断怪血格和怪是否打死了,再打下一个怪。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询