傳奇自動挖礦賣礦按鍵腳本
㈠ 求傳奇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正式版的.