传奇自动挖矿卖矿按键脚本
㈠ 求传奇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 ==========ÕâÊǽá⣬ÎÞÏÞÑ»·µ½È˹¤ÖÐÖ¹==========
㈡ 热血传奇自动挖矿脚本。。
现在有几个,你到“万宇传奇论坛”上去找吧,一个是gimbox,其他的都是按键精灵做的,“万宇传奇论坛”代表传奇最高水平的论坛
㈢ 求一个按键精灵传奇自动打怪、捡装备脚本!
举荐楼主用凌霜传奇辅助免费版功能比如有:移动加速,顺时针移动,1.80服双刀,多倍魔法,超强蓝保护,自动丢弃物品,攻击变色,智能攻击,攻击转身,等功能。支持目前所有的主流登录器!
㈣ 按键精灵 游戏脚本 传奇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正式版的.