神仙道輔助相關問題及討論,請在這裡發言~ 上网

fan62

若有神仙道輔助的相關問題或討論,請在這裡跟帖發言~

ss963854

有問題會再跟你們講的

ss963854

謝謝你們拉XDXXD

fan62

1. //測試OK
   
2. Dim MyArray
   
3. //=================================================================================
   
4. //[[以下是測試後台模擬鼠標取色找色操作]]
   
5. //=================================================================================
   
6. Call RunApp("mspaint.exe")
   
7. Delay 1000
   
8. //=================================================================================
   
9. //找畫圖區句柄
   
10. Hwnd=Plugin.Window.Find(0,"未命名 - 畫圖")
    
11. Hwnd=Plugin.Window.FindEx(Hwnd, 0, "AfxFrameOrView42u", 0)
    
12. Hwnd=Plugin.Window.FindEx(Hwnd, 0, "Afx:1000000:8", 0)
    
13. TracePrint "畫圖區句柄=" & Hwnd
    
14. //=================================================================================
    
15. //下面這句用於向後台窗口句柄(變量：Hwnd)的客戶區域(坐標：5, 5)處發送一個鼠標左鍵單擊
    
16. Call Plugin.Bkgnd.LeftClick(Hwnd, 5, 5)
    
17. TracePrint "鼠標在後台窗口(坐標：5, 5)處的單擊"
    
18. //=================================================================================
    
19. //下面這句用於向後台窗口句柄(變量：Hwnd)的客戶區域(坐標：10, 10)處發送一個鼠標左鍵雙擊
    
20. Call Plugin.Bkgnd.LeftDoubleClick(Hwnd, 10, 10)
    
21. TracePrint "鼠標在後台窗口(坐標：10, 10)處的雙擊"
    
22. //=================================================================================
    
23. //下面這句取窗口句柄(變量：Hwnd)窗口的客戶區(坐標：5, 5)處的顏色
    
24. Color1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 5, 5)
    
25. TracePrint "後台窗口(坐標：5, 5)處的顏色=" & Color1
    
26. //=================================================================================
    
27. //下面這句按從左到右，從上到下的順序查找窗口句柄(變量：Hwnd)窗口的指定矩形區域內指定顏色
    
28. XY = Plugin.Bkgnd.FindColor(Hwnd, 0, 0, 20, 20, "FFFFFF")
    
29. //下面這句用於分割字符串,將橫坐標和縱坐標分成兩個字符串
    
30. MyArray = Split(XY, "|")
    
31. //下面這句將字符串轉換成數值
    
32. X = CInt(MyArray(0)): Y = CInt(MyArray(1))
    
33. TracePrint "後台窗口顏色X坐標=" & X & "    Y坐標=" & Y
    
34. //=================================================================================
    
35. //下面這句按(從左到右從上到下的順序找色)模糊查找窗口句柄(變量：Hwnd)窗口的指定矩形區域內指定顏色
    
36. XY = Plugin.Bkgnd.FindColorEx(Hwnd, 0, 0, 20, 20, "FFFFFF", 0, 0.9)
    
37. //下面這句用於分割字符串
    
38. MyArray = Split(XY, "|")
    
39. //下面這句將字符串轉換成數值
    
40. X = CInt(MyArray(0)): Y = CInt(MyArray(1))
    
41. TracePrint "後台窗口顏色X坐標=" & X & "    Y坐標=" & Y
    
42. //=================================================================================
    
43. //下面這句按從中間到四周的順序查找窗口句柄(變量：Hwnd)窗口的指定的矩形區域內指定顏色
    
44. XY = Plugin.Bkgnd.FindCenterColor(Hwnd, 0, 0, 20, 20, "FFFFFF")
    
45. //下面這句用於分割字符串,將橫坐標和縱坐標分成兩個字符串
    
46. MyArray = Split(XY, "|")
    
47. //下面這句將字符串轉換成數值
    
48. X = CInt(MyArray(0)): Y = CInt(MyArray(1))
    
49. TracePrint "後台窗口顏色X坐標=" & X & "    Y坐標=" & Y
    
50. //=================================================================================
    
51. Hwnd = Plugin.Window.Find(0, "未命名 - 畫圖")
    
52. MessageBox "查找到的父窗口句柄為：" & Hwnd
    
53. //下面這句是關閉窗口
    
54. Call Plugin.Window.Close(Hwnd)
    
55. MessageBox "退出畫圖窗口"
    
56. //=================================================================================
    
57. //[[以下是測試後台模擬鍵盤操作]]
    
58. //=================================================================================
    
59. Call RunApp("notepad.exe")
    
60. Delay 1000
    
61. //=================================================================================
    
62. //找記事本輸入區句柄
    
63. Hwnd=Plugin.Window.Find(0,"無標題 - 記事本")
    
64. Hwnd=Plugin.Window.FindEx(Hwnd, 0, "Edit", 0)
    
65. TracePrint "記事本輸入區句柄=" & Hwnd
    
66. //=================================================================================
    
67. //下面這句用於向後台窗口句柄(變量：Hwnd)發送一個鍵盤(掃瞄碼：65)按鍵
    
68. Call Plugin.Bkgnd.KeyPress(Hwnd, 65)
    
69. TracePrint "在後台窗口輸入A鍵"
    
70. //下面這句用於向後台窗口句柄(變量：Hwnd)發送一個鍵盤(掃瞄碼：66)按下
    
71. Call Plugin.Bkgnd.KeyDown(Hwnd, 66)
    
72. //下面這句用於向後台窗口句柄(變量：Hwnd)發送一個鍵盤(掃瞄碼：66)按下
    
73. Call Plugin.Bkgnd.KeyDown(Hwnd, 66)
    
74. TracePrint "在後台窗口輸入B鍵"
    
75. //下面這句用於向後台窗口句柄(變量：Hwnd)發送一個文本消息(內容："內容")到客戶區
    
76. Call Plugin.Bkgnd.SendString(Hwnd, "內容")
    
77. TracePrint "發送一個文本消息(內容)"
    
78. //=================================================================================
    
79. Hwnd = Plugin.Window.Find(0, "無標題 - 記事本")
    
80. MessageBox "查找到的父窗口句柄為：" & Hwnd
    
81. //下面這句是關閉窗口
    
82. Call Plugin.Window.Close(Hwnd)
    
83. MessageBox "退出記事本窗口"
    
84. //=================================================================================
    
85. Sub OnScriptExit()
    
86.         MessageBox "腳本已經停止！"
    
87. End Sub

複製代碼

fan62

回復  fan62


    護送3次可是在00:03分時護送第一次
     後面00:2X分開始就沒有第二次護送了
     當時 ...
bjaa6789 發表於 2012-2-20 16:10

你好,後台功能,不能將網頁縮小,你看網頁影片時,掛機用的瀏覽器請勿縮小化,你看影片的程式或瀏覽器可以在上層最大化,蓋住掛機用的瀏覽器,掛機的瀏覽器則放在後層,可是不能最小化或更動視窗大小!!

bjaa6789

回復 32# fan62


    護送3次可是在00:03分時護送第一次
     後面00:2X分開始就沒有第二次護送了
     當時在看影片網頁是縮小狀態
     快到25分時開網頁在看程式有沒有正常用作

fan62

大大為什麼護送只有在00:03護送第一次
後面00:2X分就都沒有在跑進去
bjaa6789 發表於 2012-2-20 10:33

你好:
你必需要給我多一點資訊,我才有辦法判斷可能的原因捏.. ,比如說是運行到哪裡沒動作,你電腦是否有在做什麼其他的事,護送的瀏覽器是否沒去操作或是否在護送後有去手動操作過遊戲.........目前我是沒遇過只能執行第一次護送的情形,我只能就可能的原因,先講幾個,

可能產生停掛的原因有:

• 沒有設定掛機次數
  
• 視窗大小不對,會產生有些遊戲裡的圖片會判讀不到~
  
• 其他程式影響到輔助程式
  
• 在第一次護送過後,有去手動操作過遊戲,產生可供判讀的圖片不在
  
• 視窗位置不對[有的顯卡支援或不支援視窗位於可視範圍外,這部份取決於個人的電腦顯示卡]
  
• 低機率性的圖片判斷被擋位,這個部份,簡單講就是輔助程式裡有判斷一些圖片,基本上這些圖片都是找不會被擋住的,可是也是有可能我寫程式時,運氣的問題,看的每次都是不會被擋位,可事實上,會被擋位
  

bjaa6789

大大為什麼護送只有在00:03護送第一次
後面00:2X分就都沒有在跑進去

fan62

FindPic 0,0,1024,768,"Attachment:\查找攻略.bmp",0.9,intX,intY

這段是找圖的部份嗎?可以找多圖嗎?

順 ...
sana428 發表於 2012-2-4 22:04

• 整個畫面裡,找一張圖~多圖可以使用各種你會的語法去做切割判斷,或找其他針對按鍵精靈做的插件來配合使用~
  
• 自動護送部份我早巳在撰寫中,只是家有要事,會有一段時間沒空繼續寫~
  

sana428

FindPic 0,0,1024,768,"Attachment:\查找攻略.bmp",0.9,intX,intY

這段是找圖的部份嗎?可以找多圖嗎?

順便問一下護送多開的部份!?能嗎?

fan62

您派的這功課好深入啊~~有點不了解!
方便給個教學方向嗎?還是有成品!!?可以直接看看!
順便問一下!後台的寫 ...
sana428 發表於 2012-2-2 20:16

教學方向...=..=|||...由於不知你現在的困難點在哪裡,所以也就不知要怎麼給方向捏....若是指判斷式....其實..應該有很多的範例才對丫~比如場景判斷,就可以針對所在場景找一個獨有的特質做判斷依據,可能是圖案或文字,比如說神仙道打怪的場景,進到場景內後,在右邊有個[攻略]兩字的文字就是獨有性的,就可以拿來做是否巳進入打怪場景的判斷,抓了此兩個字的圖,然後在程式裡寫比對圖片的語法,若有此圖,就代表巳在打怪場景內,就執行打怪的動作,若沒有此圖,就代表尚未進到打怪場景內,就執行進入打怪場景的動作,這就是很簡單的if else end if就能處理的判斷式丫~
剛好前幾帖有人有貼到相關的語法,我借用給你看,如下:

1. FindPic 0,0,1024,768,"Attachment:\查找攻略.bmp",0.9,intX,intY
   
2. If intX > 0 And intY > 0 Then
   
3. //======以下為有找到圖時要做的事=========
   
4. i = 1
   
5. MoveTo intX, intY
   
6. 
   
7.         Delay 1000
   
8.         LeftClick 1
   
9. //=====以上為有找到圖時要做的事===========
   
10. else
    
11. //======以下為沒找到圖時要做的事=========
    
12. Delay 1000
    
13.         LeftClick 3
    
14. //======以上為沒找到圖時要做的事=========
    
15. End If

複製代碼

sana428

您派的這功課好深入啊~~有點不了解!
方便給個教學方向嗎?還是有成品!!?可以直接看看!
順便問一下!後台的寫法!還有那後臺護送可以多開嗎?

fan62

這是對岸發的自動獵命腳本!

只是有點卡卡的!不穩定!不知能否還原腳本碼!沒有一個方向真的很難學!
學了半天 ...
sana428 發表於 2012-1-29 23:05

還原腳本碼我不會捏...
寫輔助後台版本前,我最先試後台功能的,就是獵命,你說的那個我是沒有下載來試,因為以前有寫過,測過,不是什麼難事..主要的判斷方式,我是使用偵測那個很像說話的點點圖示符號,一開始,偵測那個圖示,然後依偵測到的位置做位移點擊位置的動作,然後點擊,再來依網路速度,做DELAY秒數的設定,再重新偵測那個圖示,迴圈以上所述的動作,基本上,都可以自動無誤的持續自動獵命,照這個邏輯,你再加入一開始找獵命進入的動作,再加入一次迴圈獵命幾次的設定,然後做一次全賣或什麼動作的,一個一個的寫判斷式下去,應該不會很困難,其他的各式獵命圖案比對就更沒什麼困難的丫,不就抓圖比對就好了~^^"~

sana428

這是對岸發的自動獵命腳本!
http://bbs.vrbrothers.com/forum. ... p;extra=&page=4
只是有點卡卡的!不穩定!不知能否還原腳本碼!沒有一個方向真的很難學!
學了半天!還是不懂判斷式怎麼寫!

fan62

我適用外掛專用瀏覽器
可是按開始遊戲他沒有反應內
我有照常輸帳密還有選伺服器
就是沒辦法進入遊戲畫面@@ ...
jeffery406 發表於 2012-1-7 00:24

呃...這個就有點怪了,我倒是沒遇過這種情形....你試著去按精官網下載他原版的按精安裝在你的電腦,再執行我的輔助程式試試吧~因為我輔助外掛專用的瀏覽器是按精裡抽取出來的,主要是用來運作於後台版時用的,我也不是很清楚為何在你的電腦上不能使用...^^"~
按鍵官網下載:http://tw.vrbrothers.com/qmacro/downloading9.html