- Sep 03 Thu 2009 16:30
-
【按鍵精靈-高級篇】掃瞄密度比較平均的幾個漸開線(轉貼)
- Jun 17 Wed 2009 23:10
-
【按鍵精靈-中級篇】四行代碼知道你的外網IP
資料來源：兄弟論壇
作者：panda.cn
範例腳本碼：
set xmlhttp=createobject("Microsoft.XMLHTTP")
xmlhttp.open "get","http://iaixue.com/tools/getip.php",false
xmlhttp.send
VBS If (xmlhttp.status=200) Then MsgBox "你的外網IP為："&xmlhttp.responseText
作者：panda.cn
範例腳本碼：
xmlhttp.open "get","http://iaixue.com/tools/getip.php",false
xmlhttp.send
VBS If (xmlhttp.status=200) Then MsgBox "你的外網IP為："&xmlhttp.responseText
- Jun 03 Wed 2009 15:33
-
【按鍵精靈-初級篇】腳本規範寫法的例子參考
資料來源：兄弟論壇 作者：兄弟工程師01
//===================★描★述★=========☆====//
//---------------------------<[作者名]腳本規範寫法的例子參考>
//===================★說★明★=========☆====//
//---------------------------<創建日期：2009/01/07/11:00:00>
//===================★定用戶變量★=======☆====//
VBS Dim UserName
//===================★賦用戶參數★=======☆====//
UserVar UserName=aaaaaaaaa 用戶名
//===================★定對象變量★=======☆====//
VBS Dim Obj
//===================★對象頭文件★=======☆====//
VBS set Obj=CreateObject("WScript.Shell")
//===================★定變量★==========☆====//
VBS Dim DX,DY
//===================★賦初值★==========☆====//
VBS DX=100
VBS DY=50
//===================★開★始★==========☆====//
Rem [開始]
MsgBox "我是腳本內容!"
Gosub [子程序]
Delay 50
Goto [開始]
//===================★停★止★==========☆====//
EndScript
//===================★子程序★==========☆====//
Sub [子程序]
MsgBox "我是子程序啊!"
Return [子程序]
//===================★備★注★==========☆====//
//[作者]我是啊大 [QQ]12343545
//===================★結★束★==========☆====//
//===================★描★述★=========☆====//
//---------------------------<[作者名]腳本規範寫法的例子參考>
//===================★說★明★=========☆====//
//---------------------------<創建日期：2009/01/07/11:00:00>
//===================★定用戶變量★=======☆====//
VBS Dim UserName
//===================★賦用戶參數★=======☆====//
UserVar UserName=aaaaaaaaa 用戶名
//===================★定對象變量★=======☆====//
VBS Dim Obj
//===================★對象頭文件★=======☆====//
VBS set Obj=CreateObject("WScript.Shell")
//===================★定變量★==========☆====//
VBS Dim DX,DY
//===================★賦初值★==========☆====//
VBS DX=100
VBS DY=50
//===================★開★始★==========☆====//
Rem [開始]
MsgBox "我是腳本內容!"
Gosub [子程序]
Delay 50
Goto [開始]
//===================★停★止★==========☆====//
EndScript
//===================★子程序★==========☆====//
Sub [子程序]
MsgBox "我是子程序啊!"
Return [子程序]
//===================★備★注★==========☆====//
//[作者]我是啊大 [QQ]12343545
//===================★結★束★==========☆====//
- May 16 Sat 2009 00:03
-
【按鍵精靈-高級篇】簡單的搜尋座標內存基址的方法(轉貼)
簡單的搜尋座標內存基址的方法(轉貼)
作者：浪漫 出處：按鍵精靈~腳本研究及分享討論專區~
搜尋X座標(Y座標同理)
1.
打開CE 在Value 打上X座標的數字 按下First Scan (Hex不要打勾=16進位搜尋)
Value type 這裡選擇2Bytes
如果座標超過65535(應該很少遊戲的座標會那麼大)
則選擇4Bytes
會叫你選擇2Bytes 是因為有的遊戲比較特殊的關係
通常用Byte 2Bytes 4Bytes 搜尋的結果都一樣
2.
然後在移動個幾步路 讓X座標改變
在輸入改變後的座標 按下Next Scan
幸運的話 應該剩1~4組 (有的遊戲座標就有那麼多組位置)
3.
超過4組以上 在重複2的動作 如果一直無法減少請讓遊戲畫面轉換
例如人在某房間 進出房間就可以了
旁邊Found 的記憶體位置 如果不符合座標 就是錯誤的
把剩下的幾組雙擊點到下面去
4.
按右鍵選擇Pointer scan for this address 會出現兩個視窗
小視窗 = 你搜尋的視窗窗口
中視窗 = 搜尋的結果 視窗內會出現幾組資訊
隨便點一組進入 第三行紅字的就是你X座標的偏移(參考寫真集的看偏移)
把中間那組記憶體位置記下
把Hex打勾 打上那組記憶體位置 按下First Scan
旁邊Found 如果出現綠色的字體是6位數 00xxxxxx 這就是基址了
沒出現基址的話 請把01xxxxxx~0xxxxxxx 在點擊到最下面
以我的經驗 偏移的位置都是7位數
在重複4的搜尋 直到出現基址為止
偏移量請記下 填寫方式(參考寫真集的填放基址位置)
最先搜尋到的放最上面
左邊則是填寫基址
如何運用在遊戲上
假設X座標的基址為600000 偏移1次 偏移量為900
Y座標偏移為904 XY的基址通常都是一樣的 偏移大部分就差4
1.VBScript命令
VBSCall ReadMemory(&h600000,1,m)
VBSCall ReadMemory(m+&h900,1,x)
VBSCall ReadMemory(m+&h904,1,y)
// 0 = 位元組 = Byte
// 1 = 整數 = 2Bytes
// 2 = 長整數 = 4Bytes
If x>=500 or x=<300 or y>=400 or y=<200
//執行返回座標點
EndIf
2.按鍵精靈本身的內存插件
Plugin hwnd=Window.Foreground()
Plugin m=Memory.Read16Bit(hwnd,&h600000)
Plugin x=Memory.Read16Bit(hwnd,m+&h900)
Plugin y=Memory.Read16Bit(hwnd,m+&h900)
// 8Bit = 位元組 = Byte
// 16Bit = 整數 = 2Bytes
// 32Bit = 長整數 = 4Bytes
If x>=500 or x=<300 or y>=400 or y=<200
//執行返回座標點
EndIf
3.361內存插件1.0版
(怕有些遊戲按鍵精靈本身插件無法讀到內存基址多增加一種寫法)
Plugin hwnd=Window.Foreground()
Plugin x=MemoryS.ReadInt(hwnd,"[[600000]+900]",1)
Plugin y=MemoryS.ReadInt(hwnd,"[[600000]+904]",1)
// 0 = 位元組 = Byte
// 1 = 整數 = 2Bytes
// 2 = 長整數 = 4Bytes
If x>=500 or x=<300 or y>=400 or y=<200
//執行返回座標點
EndIf
作者：浪漫 出處：按鍵精靈~腳本研究及分享討論專區~
搜尋X座標(Y座標同理)
1.
打開CE 在Value 打上X座標的數字 按下First Scan (Hex不要打勾=16進位搜尋)
Value type 這裡選擇2Bytes
如果座標超過65535(應該很少遊戲的座標會那麼大)
則選擇4Bytes
會叫你選擇2Bytes 是因為有的遊戲比較特殊的關係
通常用Byte 2Bytes 4Bytes 搜尋的結果都一樣
2.
然後在移動個幾步路 讓X座標改變
在輸入改變後的座標 按下Next Scan
幸運的話 應該剩1~4組 (有的遊戲座標就有那麼多組位置)
3.
超過4組以上 在重複2的動作 如果一直無法減少請讓遊戲畫面轉換
例如人在某房間 進出房間就可以了
旁邊Found 的記憶體位置 如果不符合座標 就是錯誤的
把剩下的幾組雙擊點到下面去
4.
按右鍵選擇Pointer scan for this address 會出現兩個視窗
小視窗 = 你搜尋的視窗窗口
中視窗 = 搜尋的結果 視窗內會出現幾組資訊
隨便點一組進入 第三行紅字的就是你X座標的偏移(參考寫真集的看偏移)
把中間那組記憶體位置記下
把Hex打勾 打上那組記憶體位置 按下First Scan
旁邊Found 如果出現綠色的字體是6位數 00xxxxxx 這就是基址了
沒出現基址的話 請把01xxxxxx~0xxxxxxx 在點擊到最下面
以我的經驗 偏移的位置都是7位數
在重複4的搜尋 直到出現基址為止
偏移量請記下 填寫方式(參考寫真集的填放基址位置)
最先搜尋到的放最上面
左邊則是填寫基址
如何運用在遊戲上
假設X座標的基址為600000 偏移1次 偏移量為900
Y座標偏移為904 XY的基址通常都是一樣的 偏移大部分就差4
1.VBScript命令
VBSCall ReadMemory(&h600000,1,m)
VBSCall ReadMemory(m+&h900,1,x)
VBSCall ReadMemory(m+&h904,1,y)
// 0 = 位元組 = Byte
// 1 = 整數 = 2Bytes
// 2 = 長整數 = 4Bytes
If x>=500 or x=<300 or y>=400 or y=<200
//執行返回座標點
EndIf
2.按鍵精靈本身的內存插件
Plugin hwnd=Window.Foreground()
Plugin m=Memory.Read16Bit(hwnd,&h600000)
Plugin x=Memory.Read16Bit(hwnd,m+&h900)
Plugin y=Memory.Read16Bit(hwnd,m+&h900)
// 8Bit = 位元組 = Byte
// 16Bit = 整數 = 2Bytes
// 32Bit = 長整數 = 4Bytes
If x>=500 or x=<300 or y>=400 or y=<200
//執行返回座標點
EndIf
3.361內存插件1.0版
(怕有些遊戲按鍵精靈本身插件無法讀到內存基址多增加一種寫法)
Plugin hwnd=Window.Foreground()
Plugin x=MemoryS.ReadInt(hwnd,"[[600000]+900]",1)
Plugin y=MemoryS.ReadInt(hwnd,"[[600000]+904]",1)
// 0 = 位元組 = Byte
// 1 = 整數 = 2Bytes
// 2 = 長整數 = 4Bytes
If x>=500 or x=<300 or y>=400 or y=<200
//執行返回座標點
EndIf
- Apr 23 Thu 2009 00:05
-
【按鍵精靈-中級篇】網路遊戲找怪思路詳解(轉貼)
網路遊戲找怪思路詳解
資料來源：兄弟論壇
作者：晨風
使用按鍵有段時間了，對一些找怪的思路小有體會。簡單來說找怪就是找怪與背景不同的獨有的特徵，可以通過找怪的顏色/圖片、怪名字顏色/圖片、怪血條顏色/圖片、漸開線掃瞄、小地圖找怪等等的方法來實現。具體看遊戲而定，下面就介紹幾種找怪的方法：
1。區域找色 應該說是最簡單的找怪方法了，在區域裡查找怪的特有顏色、名字顏色、血條顏色、怪的陰影等等。如果找到移動鼠標到怪身上進行攻擊 （推薦用區域模糊找色或從區域中間向外找色）。
- Apr 20 Mon 2009 23:52
-
【按鍵精靈-高級篇】限制小精靈使用次數的腳本(轉貼)
- Apr 20 Mon 2009 23:42
-
【按鍵精靈-高級篇】給腳本限制使用日期(轉貼)
資料來源：兄弟論壇
作者：我相信
Dim SvrName(14),xPost,HttpAdd,NowTime,StartTime
StartTime=Now
SvrName(1) = "time-nw.nist.gov"
作者：我相信
Dim SvrName(14),xPost,HttpAdd,NowTime,StartTime
StartTime=Now
SvrName(1) = "time-nw.nist.gov"
- Apr 20 Mon 2009 23:01
-
【按鍵精靈-初級篇】按鍵精靈學前班—基礎中的基礎(轉貼)
- Apr 18 Sat 2009 03:43
-
【按鍵精靈-中級篇】隨機輸出12碼英文及數字
http://tw.knowledge.yahoo.com/question/question?qid=1009041801398
請問如何用按鍵精靈生成一個長度為7-12的英文及數字的隨機數?
英文字及數字範圍不限
不知道該怎麼寫
隨機輸出12碼英文及數字
請問如何用按鍵精靈生成一個長度為7-12的英文及數字的隨機數?
英文字及數字範圍不限
不知道該怎麼寫
隨機輸出12碼英文及數字
- Apr 17 Fri 2009 23:42
-
【按鍵精靈-高級篇】讀取硬碟型號(轉貼)
【魚頭】讀取硬盤型號 資料來源：兄弟論壇
作者：一隻魚
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★說★明★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
// [讀取硬盤型號] //
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★定★義★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
VBS Dim HDid,moc,mo,stt
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★設★置★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
VBS Set moc =GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★開★始★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
VBS stt=stt & vbcrlf & "For Each mo in moc"
VBS stt=stt & vbcrlf & "HDid = mo.Model"
VBS stt=stt & vbcrlf & "Next"
VBS Execute(stt)
VBSCall messagebox("硬盤型號為:" & HDid)
EndScript
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★備★注★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
//【符號說明】《說明》、【標記】、【子程序】、＝分割線＝、?分類說明?
//【腳本作者】一隻魚 【QQ群】5619170
//【E-Mail】ChapterRain@yahoo.com.cn 【致謝】歡迎使用魚魚製作的腳本!!
//【創作日期】2007.04.05 【完成日期】
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★結★束★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
作者：一隻魚
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★說★明★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
// [讀取硬盤型號] //
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★定★義★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
VBS Dim HDid,moc,mo,stt
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★設★置★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
VBS Set moc =GetObject("Winmgmts:").InstancesOf("Win32_DiskDrive")
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★開★始★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
VBS stt=stt & vbcrlf & "For Each mo in moc"
VBS stt=stt & vbcrlf & "HDid = mo.Model"
VBS stt=stt & vbcrlf & "Next"
VBS Execute(stt)
VBSCall messagebox("硬盤型號為:" & HDid)
EndScript
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★備★注★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
//【符號說明】《說明》、【標記】、【子程序】、＝分割線＝、?分類說明?
//【腳本作者】一隻魚 【QQ群】5619170
//【E-Mail】ChapterRain@yahoo.com.cn 【致謝】歡迎使用魚魚製作的腳本!!
//【創作日期】2007.04.05 【完成日期】
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★結★束★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
- Apr 17 Fri 2009 23:01
-
【按鍵精靈-高級篇】讀取網卡MAC物理位址(轉貼)
【魚頭】讀取網卡MAC物理地址
資料來源：兄弟論壇
作者：一隻魚
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★說★明★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
// [讀取網卡MAC物理地址] //
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★定★義★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
VBS Dim mc,mo,Mac.stt
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★設★置★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
VBS Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★開★始★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
VBS stt=stt & vbcrlf & "For Each mo in mc"
VBS stt=stt & vbcrlf & "If mo.IPEnabled=true Then"
VBS stt=stt & vbcrlf & "Mac= mo.MacAddress"
VBS stt=stt & vbcrlf & "Exit For"
VBS stt=stt & vbcrlf & "End if"
VBS stt=stt & vbcrlf & "Next"
VBS Execute(stt)
VBSCall messagebox("網卡MAC地址是: " & Mac)
EndScript
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★備★注★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
//【符號說明】《說明》、【標記】、【子程序】、＝分割線＝、?分類說明?
//【腳本作者】一隻魚 【QQ群】5619170
//【E-Mail】ChapterRain@yahoo.com.cn 【致謝】歡迎使用魚魚製作的腳本!!
//【創作日期】2007.04.05 【完成日期】
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★結★束★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
資料來源：兄弟論壇
作者：一隻魚
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★說★明★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
// [讀取網卡MAC物理地址] //
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★定★義★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
VBS Dim mc,mo,Mac.stt
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★設★置★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
VBS Set mc=GetObject("Winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★開★始★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
VBS stt=stt & vbcrlf & "For Each mo in mc"
VBS stt=stt & vbcrlf & "If mo.IPEnabled=true Then"
VBS stt=stt & vbcrlf & "Mac= mo.MacAddress"
VBS stt=stt & vbcrlf & "Exit For"
VBS stt=stt & vbcrlf & "End if"
VBS stt=stt & vbcrlf & "Next"
VBS Execute(stt)
VBSCall messagebox("網卡MAC地址是: " & Mac)
EndScript
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★備★注★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
//【符號說明】《說明》、【標記】、【子程序】、＝分割線＝、?分類說明?
//【腳本作者】一隻魚 【QQ群】5619170
//【E-Mail】ChapterRain@yahoo.com.cn 【致謝】歡迎使用魚魚製作的腳本!!
//【創作日期】2007.04.05 【完成日期】
//＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝★結★束★＝＝＝＝＝＝＝＝＝＝＝＝＝☆＝＝//
- Apr 17 Fri 2009 22:40
-
【按鍵精靈-高級篇】尋找多張圖片範例腳本(轉貼)
[演示例子]查找附件圖片數組 資料來源：兄弟論壇
作者：兄弟工程師01
Dim a(9)
//圖片陣列資料
a(0)="Attachment:\0.bmp"
a(1)="Attachment:\1.bmp"
a(2)="Attachment:\2.bmp"
a(3)="Attachment:\3.bmp"
a(4)="Attachment:\4.bmp"
a(5)="Attachment:\5.bmp"
a(6)="Attachment:\6.bmp"
a(7)="Attachment:\7.bmp"
a(8)="Attachment:\8.bmp"
a(9)="Attachment:\9.bmp"
Gosub 尋找圖片陣列
EndScript
Sub 尋找圖片陣列
i=0
For 10
VBSCall FindPic(880,21,889,34,a(i),1,x,y)
If x>0 and y>0
Goto 找到
EndIf
i=i+1
EndFor
Rem 找到
Msgbox "找到第 " & i & " 張圖"
Return 尋找圖片陣列
作者：兄弟工程師01
Dim a(9)
//圖片陣列資料
a(0)="Attachment:\0.bmp"
a(1)="Attachment:\1.bmp"
a(2)="Attachment:\2.bmp"
a(3)="Attachment:\3.bmp"
a(4)="Attachment:\4.bmp"
a(5)="Attachment:\5.bmp"
a(6)="Attachment:\6.bmp"
a(7)="Attachment:\7.bmp"
a(8)="Attachment:\8.bmp"
a(9)="Attachment:\9.bmp"
Gosub 尋找圖片陣列
EndScript
Sub 尋找圖片陣列
i=0
For 10
VBSCall FindPic(880,21,889,34,a(i),1,x,y)
If x>0 and y>0
Goto 找到
EndIf
i=i+1
EndFor
Rem 找到
Msgbox "找到第 " & i & " 張圖"
Return 尋找圖片陣列
