按鍵精靈傳奇挖礦腳本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 ==========ÕâÊǽá⣬ÎÞÏÞÑ»·µ½È˹¤ÖÐÖ¹==========