按键精灵传奇挖矿脚本6
『壹』 按键精灵 游戏脚本 传奇3G
几秒?你的机器配置还不错啊,
我以前写过按键挂机,原理是隔一段时间用一次状态.
现在改一下,改为隔一段时间按键CTRL+alt
dim temp,RunTime,TimeNow,interval
interval=10
//设置时间间隔,这里设为10秒
TimeNow = CDate(CStr(Hour(Now))+":"+CStr(Minute(Now))+":"+CStr(Second(Now)))
//取得当前时间
RunTime=DateAdd("s",interval,TimeNow)
//求得执行Ctrl+ALT的时间
Rem start
Delay 50
TimeNow = CDate(CStr(Hour(Now))+":"+CStr(Minute(Now))+":"+CStr(Second(Now)))
temp= DateDiff("s",TimeNow,RunTime)
//求得离执行时间还有多少秒
If temp<1
Gosub ch
EndIf
delay 50
Goto start
//循环
Sub ch
KeyDown 17,1
//按下ctrl
KeyPress 18,1
//其中ALT对应键值为18,若tab则应为9,CTRL为17,一次循环只按1次
KeyUp 17,1
//放开Ctrl
RunTime=DateAdd("s",interval,TimeNow)
Return
//=======================
我不知道你按Ctrl+alt有什么用.
我只知道,窗口切换用ALt+TAB
------------------
//下面是每隔10秒按一次ALT+TAB的代码
dim temp,RunTime,TimeNow,interval
interval=10
TimeNow = CDate(CStr(Hour(Now))+":"+CStr(Minute(Now))+":"+CStr(Second(Now)))
RunTime=DateAdd("s",interval,TimeNow)
Rem start
Delay 10
TimeNow = CDate(CStr(Hour(Now))+":"+CStr(Minute(Now))+":"+CStr(Second(Now)))
temp= DateDiff("s",TimeNow,RunTime)
If temp<1
Gosub ch
EndIf
Delay 50
Goto start
Sub ch
KeyDown 18,1
KeyPress 9,1
KeyUp 18,1
RunTime=DateAdd("s",interval,TimeNow)
Return
注:在我的机子测试通过(10秒自动按一次ALT+TAB实现换窗口)
我用的按键精灵是6.10正式版的.
『贰』 求传奇愚公挖矿按键精灵脚本
http://bbs.vrbrothers.com/viewthread.php?tid=45476
『叁』 跪求传奇私服的挖矿脚本
你的是内挂版的？
传奇挖矿的脚本我会做。
教开传奇私服50RMB
定做传奇挂机升级打装备脚本
私服建设网站
登陆器制作
详情看空间最新日志
支持淘宝
『肆』 求按键精灵大神做个页游挖矿脚本
自己录制脚本？！
『伍』 谁有挖矿的“按键精灵”脚本
点击按键精灵的录制，再点击工具栏中的红点，开始录制，再开始采矿，再点击工具栏中的红点，即可停止，动作便录下来了，记住保存脚本
『陆』 热血传奇自动挖矿脚本。。
现在有几个，你到“万宇传奇论坛”上去找吧，一个是gimbox，其他的都是按键精灵做的，“万宇传奇论坛”代表传奇最高水平的论坛
『柒』 有按键精灵大神吗 帮忙做个挖矿脚本
什么游戏、说出来
『捌』 求个彩虹岛按键精灵挖矿脚本
现在没有了啊
『玖』 谁能给个按键精灵上能用的热血传奇自动挖矿的脚本啊！
“很多脚本”也许不是按键精灵的脚本吧？是不是脱机脚本？是脱机外挂使用的脚本？
『拾』 求传奇3G 2007 挖矿脚本（按键精灵）
For 4
Rem ==========ÏòÓÒÒƶ¯²¢ÍÚ£¨¹²8´Î£&;==========
For 8
IfColor 60 475 ff 1
KeyDown 18 1
KeyPress 88 1
KeyUp 18 1
MoveTo 420 350
Delay 200
LeftClick 1
MoveTo 420 350
Delay 200
LeftClick 1
Delay 500
KeyPress 109 1
EndIf
VBSCall Call FindPic(1,1,799,400,"84.bmp",0.9,intX,intY)
If intX=-1 and intY=-1
KeyPress 119 1
EndIf
MoveTo 307 168
Delay 2000
RightDown 1
Delay 1000
RightClick 1
MoveTo 564 71
Delay 1000
RightDown 1
Delay 1000
RightClick 1
Delay 1000
LeftClick 1
Delay 4000
LeftClick 1
Delay 30000
VBSCall Call FindPic(2,200,330,380,"ton.bmp",1,intX,intY)
If intX>=0 and intY>=0
VBSCall Call SetCursorPos(intX,intY)
LeftClick 1
Delay 500
MoveTo 100 100
LeftClick 1
Delay 1000
EndIf
VBSCall Call FindPic(2,200,330,380,"tie.bmp",1,intX,intY)
If intX>=0 and intY>=0
VBSCall Call SetCursorPos(intX,intY)
LeftClick 1
Delay 500
MoveTo 100 100
LeftClick 1
Delay 1000
EndIf
// VBSCall Call FindPic(2,200,330,380,"yin.bmp",1,intX,intY)
// If intX>=0 and intY>=0
// VBSCall Call SetCursorPos(intX,intY)
// LeftClick 1
// Delay 500
// MoveTo 100 100
// LeftClick 1
// Delay 1000
// EndIf
EndFor
Rem ==========Ïò×óÒƲ¢ÍÚ£¨¹²8´Î£&;==========
For 8
IfColor 60 475 ff 1
KeyDown 18 1
KeyPress 88 1
KeyUp 18 1
MoveTo 420 350
Delay 200
LeftClick 1
EndIf
VBSCall Call FindPic(1,1,799,400,"84.bmp",0.9,intX,intY)
If intX=-1 and intY=-1
KeyPress 119 1
EndIf
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
VBSCall Call FindPic(2,200,330,380,"ton.bmp",1,intX,intY)
If intX>=0 and intY>=0
VBSCall Call SetCursorPos(intX,intY)
LeftClick 1
Delay 500
MoveTo 100 100
LeftClick 1
Delay 1000
EndIf
VBSCall Call FindPic(2,200,330,380,"tie.bmp",1,intX,intY)
If intX>=0 and intY>=0
VBSCall Call SetCursorPos(intX,intY)
LeftClick 1
Delay 500
MoveTo 100 100
LeftClick 1
Delay 1000
EndIf
// VBSCall Call FindPic(2,200,330,380,"yin.bmp",1,intX,intY)
// If intX>=0 and intY>=0
// VBSCall Call SetCursorPos(intX,intY)
// LeftClick 1
// Delay 500
// MoveTo 100 100
// LeftClick 1
// Delay 1000
// EndIf
EndFor
EndFor
KeyPress 49 1
Rem ==========ÕâÊǽá⣬ÎÞÏÞÑ»·µ½È˹¤ÖÐÖ¹==========