伊凡斯綜合論壇 - Powered by Discuz! Board

標題: 神仙道輔助相關問題及討論,請在這裡發言~ [打印本頁]

作者: fan62 時間: 2011-11-26 19:30 標題: 神仙道輔助相關問題及討論,請在這裡發言~

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

作者: sana428 時間: 2011-12-9 20:10

不知道能不能做個自動參加活動!或陣營戰的腳本!
看起來它按鍵精靈好像有可以自動辨識的功能!
不知那裡有比較詳細的教學!?

作者: fan62 時間: 2011-12-10 00:11

不知道能不能做個自動參加活動!或陣營戰的腳本!
看起來它按鍵精靈好像有可以自動辨識的功能!
不知那裡有比 ...
sana428 發表於 2011-12-9 20:10

目前預計要做的,是自動神侶奇緣,及將自動打材料的輔助改成後台版,若你有寫SCRIPT的能力,歡迎並期待你將你所述的功能輔助寫出來給大家用~

~
簡單型輔助我以前都是用EZSCRIPT在寫的,至於按鍵精靈的功能部份,我是安裝後,看他範例程式去理解的,其實我也不是很會,教學部份他官網就有不少資料了,只是好像比較高深的部份要付費才能看得到,好像是沒有自動辨識的功能吧,都是要自己去寫判斷式,一般就是用時間,抓點,抓色,圖片等方式去做判斷,若你有撰寫上的問題,可另發新帖問,我會的話,會儘量回答你~^^"~

作者: changshuoche 時間: 2011-12-24 12:03

WIN7使用,更改了相容性到XP SP3無法使用

因為只有MacBook 雙系統只支援安裝WIN7!

不曉得FAN大是否可以設定除了XP以外的也可以使用

作者: fan62 時間: 2011-12-24 14:10

WIN7使用,更改了相容性到XP SP3無法使用

因為只有MacBook 雙系統只支援安裝WIN7!

不曉得FAN大是否可以設 ...
changshuoche 發表於 2011-12-24 12:03

WIN7不相容的原因..是因為.我完全沒有WIN7系統的環境,無法在輔助程式裡針對WIN7環境去寫判斷程式.....簡單說就是...若我自己有WIN7系統,就能針對WIN7改成WIN7能用的輔助,問題就是.....我沒有WIN7,所以不單是沒辦法改,我連目前寫的輔助程式在WIN7底下能不能使用都不知道,是靠版友回報,才知不能使用,至於為什麼不能使用,我也不知道,也許只是單純圖片或文字在輔助程式裡不能識別,如果是這樣,從WIN7底下抓圖來改就可以了,只是...又回到老問題了..我沒有WIN7系統......

作者: changshuoche 時間: 2011-12-24 18:32

本帖最後由 changshuoche 於 2011-12-24 18:36 編輯

喔喔了解了解,

想請問 (例如我是要先判斷我是否在副本裡面,用下面的源碼)這樣子正確的嗎
Call Plugin.GetSysInfo.GetScreenResolutionX()
Call Plugin.GetSysInfo.GetScreenResolutionY()
i=0
While i=0
FindPic 0,0,1024,768,"Attachment:\查找攻略.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
i = 1
MoveTo intX, intY

Delay 1000
LeftClick 1
End If
Wend

作者: fan62 時間: 2011-12-24 23:22

喔喔了解了解,

想請問 (例如我是要先判斷我是否在副本裡面,用下面的源碼)這樣子正確的嗎
Call Plugin.Get ...
changshuoche 發表於 2011-12-24 18:32

是否在副本裡,可用在副本裡看得到的地方,來做判斷,查找攻略.BMP是個方法,我好像也是用那個做判斷,你的語法裡使用查找攻略.BMP來做判斷圖的理論是可行的,只是有句可能有問題

MoveTo intX, intY
Delay 1000
LeftClick 1

複製代碼

你判斷到有查找攻略了,移去點他,好像是沒有意義的,當然如果你只是意指找圖的話,當然就沒有問題~^^~

作者: changshuoche 時間: 2011-12-25 19:02

那我大至上了解了XD

謝謝

作者: changshuoche 時間: 2011-12-29 16:33

fan大~我想請問一下,我是該把所有找圖集合在一個循環內還是要分開???

我目前是滑鼠會一直在右邊點

有需要給妳源碼看嗎??

作者: fan62 時間: 2011-12-29 22:00

fan大~我想請問一下,我是該把所有找圖集合在一個循環內還是要分開???

我目前是滑鼠會一直在右邊點

有需 ...
changshuoche 發表於 2011-12-29 16:33

其實找圖是否集合在一個循環內或是要分開,並沒有對不對的分別,只有寫法習慣的分別,若你習慣是那樣,應該是沒有不行的道理~^^"~只是我不清楚你要用什麼方式去控制什麼時機判斷哪一張圖,定義一堆變數用變數去判斷?將所有圖排成陣列?反正如果你習慣用這樣的方式,應該沒有不妥~^^~
至於MOUSE會一直在右邊點?這個跟找圖的語法..好像沒有關係?

當然若你不介意程式碼被版友看到,可以PO出來,大家研究看看..可能可以更清楚你要問的問題是什麼,...我也不肯定我一定幫得到你丫~^^"~

作者: changshuoche 時間: 2011-12-30 18:37

Call Plugin.GetSysInfo.GetScreenResolutionX()
Call Plugin.GetSysInfo.GetScreenResolutionY()
FindPic 0,0,1280,800,"Attachment:\ 確定副本之中.bmp",0.9,intX,intY
While var=0
//以下是條件判斷；如果返回的坐標大於0，那麼就說明找到了。
If intX > 0 And intY > 0 Then
var=1
//在這裡可以添加找到坐標後，需要做的處理。
End If
MoveTo 1210, 499
Delay 1000
LeftClick 1
Wend
While var=0
FindPic 0,0,1280,800,"Attachment:\ 確定1.bmp",0.9,intX,intY
//以下是條件判斷；如果返回的坐標大於0，那麼就說明找到了。
If intX > 0 And intY > 0 Then
var=1
//在這裡可以添加找到坐標後，需要做的處理。
MoveTo intX, intY
Delay 1000
LeftClick 1
Delay 1500
MoveR 1100, 400
LeftClick 1
End If
Wend
While var=0
FindPic 0,0,1280,800,"Attachment:\ 確定2.bmp",0.9,intX,intY
//以下是條件判斷；如果返回的坐標大於0，那麼就說明找到了。
If intX > 0 And intY > 0 Then
var=1
//在這裡可以添加找到坐標後，需要做的處理。
MoveTo intX, intY
Delay 1000
LeftClick 1
Delay 1500
MoveR 1100, 400
LeftClick 1
End If
Wend
While var=0
FindPic 0,0,1280,800,"Attachment:\ 確定3.bmp",0.9,intX,intY
//以下是條件判斷；如果返回的坐標大於0，那麼就說明找到了。
If intX > 0 And intY > 0 Then
var=1
//在這裡可以添加找到坐標後，需要做的處理。
MoveTo intX, intY
Delay 1000
LeftClick 1
Delay 1500
MoveR 1100, 400
LeftClick 1
End If
Wend
While var=0
FindPic 0,0,1280,800,"Attachment:\ 確定4.bmp",0.9,intX,intY
//以下是條件判斷；如果返回的坐標大於0，那麼就說明找到了。
If intX > 0 And intY > 0 Then
var=1
//在這裡可以添加找到坐標後，需要做的處理。
MoveTo intX, intY
Delay 1000
LeftClick 1
Delay 1500
MoveR 1100, 400
LeftClick 1
End If
Wend
While var=0
FindPic 0,0,1280,800,"Attachment:\ 寶箱.bmp",0.9,intX,intY
//以下是條件判斷；如果返回的坐標大於0，那麼就說明找到了。
If intX > 0 And intY > 0 Then
var=1
//在這裡可以添加找到坐標後，需要做的處理。
MoveTo intX, intY
Delay 1000
LeftClick 1
End If
Wend
While var=0
FindPic 0,0,1280,800,"Attachment:\ 全部拾取.bmp",0.9,intX,intY
//以下是條件判斷；如果返回的坐標大於0，那麼就說明找到了。
If intX > 0 And intY > 0 Then
var=1
//在這裡可以添加找到坐標後，需要做的處理。
MoveTo intX, intY
Delay 1000
LeftClick 1
End If
Wend
While var=0
FindPic 0,0,1280,800,"Attachment:\ 再次挑戰.bmp",0.9,intX,intY
//以下是條件判斷；如果返回的坐標大於0，那麼就說明找到了。
If intX > 0 And intY > 0 Then
var=1
//在這裡可以添加找到坐標後，需要做的處理。
MoveTo intX, intY
Delay 1000
LeftClick 1
End If
Wend

複製代碼

滑鼠會一直固定在我設定的點跑就沒去找圖了(剛入門的寫法)

作者: fan62 時間: 2011-12-30 20:04

本帖最後由 fan62 於 2011-12-30 20:19 編輯

滑鼠會一直固定在我設定的點跑就沒去找圖了(剛入門的寫法)
changshuoche 發表於 2011-12-30 18:37

目前大略看了一下你的語法,最基本就有幾個問題:

FindPic 0,0,1280,800,"Attachment:\ 確定副本之中.bmp",0.9,intX,intY.......這段必須放在while迴圈裡面,因為真正找圖是這個語法,你目前的語法只找了第一次,後面就一直在迴圈intX,intY這個,沒有前面的找圖,這個值不會變~
你好像應該要在第4行之前先定義一個var = 0,才有辦法讓你的第4行去判讀,
第15行完,你的var因為第7行的定義,巳變成1了,所以...17行及以下所有判讀var=0的語法...通通不能正常判讀了~也就是說...只有第一個找圖的程式有RUN,下面的找圖程式...全都沒有RUN...應該在每次判讀完,都將var = 0 重新定義一次~

作者: zero90989 時間: 2012-1-4 18:44

請問大大能不能出一個自動升級奇術?

作者: fan62 時間: 2012-1-4 22:49

請問大大能不能出一個自動升級奇術?
zero90989 發表於 2012-1-4 18:44

自動奇術是早就有寫好在用的,只是是EZSCRIPT的格式,也很久沒用,現在不知合不合用了,以前奇術比較單純,現在多了很多2級及3級的奇術,在不同的等級時才出現,要寫自動點奇術,會有點麻煩,因為不知要如何去設計輔助的流程

,等我預計要寫的輔助功能寫完後,再排入自動奇術的功能吧~

作者: eric09271 時間: 2012-1-5 02:25

您好請用不用最小化的意思是是可以把視窗縮到下面的系統工具列那裏可是不能縮到右下角的程式工具列嗎?
另外我桌面的解析度是1024*768 但是有時候第三隻怪卻打不太到請問有解嗎(跑的路程太短了)

作者: fan62 時間: 2012-1-5 02:52

您好請用不用最小化的意思是是可以把視窗縮到下面的系統工具列那裏可是不能縮到右下角的程式工具列嗎?
...
eric09271 發表於 2012-1-5 02:25

不要最小化是指,不能按瀏覽器視窗右上那個最小化鈕,也就是不單是不能縮到右下角,也一樣不能縮到下面的系統工具列!!!你掛好後,比如你要用IE上網,你可以直接打開IE,將IE的視窗放在最上來使用,也就是說,一定要讓專用瀏覽器的視窗停留在桌面上!!只是不需要在最上!!
至於解析度........我發文時有提到...必須是1280X800以上的解析才能正常掛唷......

要說有解嗎.....當然是有解丫..只是要針對你的情況去改適合你的SCRIPT,目前有點困難..因為..還有幾個其他輔助功能在寫跟測試中...有空時我再想想看怎麼幫你改吧...你自己有空時找時間來論壇看看吧,我會PM消息給你~

作者: eric09271 時間: 2012-1-5 22:23

回復 16# fan62

其實我本身就有在寫寫這些小城市之類的。
雖然說1280*800可以直接做出解答，不過由於我1024*768還要跑另外一個滑鼠腳本= =
而且我又開學了沒什麼時間在學昕的程式語言，最好的辦法就是請教您囉@@"。
雖然有些麻煩，但還是麻煩妳了@@"，等我寒假有空會把這門語法稍微學學XD。

作者: eric09271 時間: 2012-1-5 22:26

回復 16# fan62

另外您的瀏覽器沒有記憶功能嗎~。
我在想享用VB6應該可以馬上寫出一個很快速又有瀏覽功能+記憶功能的瀏覽器吧0.0
我記得VB.NET有諸如此類的功能@@"。
===============================
以上話沒有得罪的意思~，如果不方便我可以嘗試研究看看，不過這款遊戲到時候可能也已經不熱門了吧= =。
我是屬於三分鐘熱度的人XD，總之，謝謝您對『神仙道』的付出。
Ｐ．Ｓ我可以把這幾款ＥＺ介紹給同幫派的人使用嗎～？

作者: fan62 時間: 2012-1-6 00:24

回復 fan62

其實我本身就有在寫寫這些小城市之類的。雖然說1280*800可以直接做出解答，不過由於我 ...
另外您的瀏覽器沒有記憶功能嗎~。
我在想享用VB6應該可以馬上寫出一個很快速又有瀏覽功 ...
eric09271 發表於 2012-1-5 22:26

1.呵呵~第一個問題,你誤會了我的意思,我的意思是,要讓輔助程式在1024X768的視窗解析下能執行的話,就必須針對此解析去修改打怪法部份的程式,因為他的寬度,只跑一次點是絕對會產生打不到怪的情形,我必需要修改原來的程式碼,只是...我目前在寫別的輔助,所以要過一陣子才能幫你改成1024X768解析的,改好後我會PM載點給你下載~^^"~

2.這個輔助程式所用到的瀏覽器,主要功用是要讓輔助程式可以用後台的方式去寫程式並用後台運行的方式運作,是按精內原有的,我只是把他分離出來給輔助程式使用,並不是我自己寫的~^^"~

作者: eric09271 時間: 2012-1-6 00:56

回復 19# fan62

原來如此＠＠＂，謝謝指教ＸＤ。
有點興趣了ＸＤ，找個時間研究看看＠＠＂。

作者: jeffery406 時間: 2012-1-6 14:35

為什麼我用專用瀏覽器可是神仙道開不起來?

作者: fan62 時間: 2012-1-6 22:20

為什麼我用專用瀏覽器可是神仙道開不起來?
jeffery406 發表於 2012-1-6 14:35

你好,不是很明白你白意思,就跟一般瀏覽器一樣,自己登入帳密,然後進入遊戲就可以了~

作者: jeffery406 時間: 2012-1-7 00:24

我適用外掛專用瀏覽器
可是按開始遊戲他沒有反應內
我有照常輸帳密還有選伺服器
就是沒辦法進入遊戲畫面@@

作者: fan62 時間: 2012-1-7 04:20

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

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

作者: sana428 時間: 2012-1-29 23:05

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

作者: fan62 時間: 2012-1-30 23:46

本帖最後由 fan62 於 2012-1-30 23:48 編輯

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

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

還原腳本碼我不會捏...

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

作者: sana428 時間: 2012-2-2 20:16

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

作者: fan62 時間: 2012-2-3 01:58

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

教學方向...=..=|||...由於不知你現在的困難點在哪裡,所以也就不知要怎麼給方向捏..

..若是指判斷式....其實..應該有很多的範例才對丫~比如場景判斷,就可以針對所在場景找一個獨有的特質做判斷依據,可能是圖案或文字,比如說神仙道打怪的場景,進到場景內後,在右邊有個[攻略]兩字的文字就是獨有性的,就可以拿來做是否巳進入打怪場景的判斷,抓了此兩個字的圖,然後在程式裡寫比對圖片的語法,若有此圖,就代表巳在打怪場景內,就執行打怪的動作,若沒有此圖,就代表尚未進到打怪場景內,就執行進入打怪場景的動作,這就是很簡單的if else end if就能處理的判斷式丫~

剛好前幾帖有人有貼到相關的語法,我借用給你看,如下:

FindPic 0,0,1024,768,"Attachment:\查找攻略.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
//======以下為有找到圖時要做的事=========
i = 1
MoveTo intX, intY
Delay 1000
LeftClick 1
//=====以上為有找到圖時要做的事===========
else
//======以下為沒找到圖時要做的事=========
Delay 1000
LeftClick 3
//======以上為沒找到圖時要做的事=========
End If

複製代碼

作者: sana428 時間: 2012-2-4 22:04

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

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

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

作者: fan62 時間: 2012-2-5 22:19

本帖最後由 fan62 於 2012-2-5 22:20 編輯

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

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

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

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

作者: bjaa6789 時間: 2012-2-20 10:33

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

作者: fan62 時間: 2012-2-20 11:27

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

你好:
你必需要給我多一點資訊,我才有辦法判斷可能的原因捏..

,比如說是運行到哪裡沒動作,你電腦是否有在做什麼其他的事,護送的瀏覽器是否沒去操作或是否在護送後有去手動操作過遊戲.........目前我是沒遇過只能執行第一次護送的情形,我只能就可能的原因,先講幾個,

可能產生停掛的原因有:

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

作者: bjaa6789 時間: 2012-2-20 16:10

本帖最後由 bjaa6789 於 2012-2-20 16:13 編輯

回復 32# fan62

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

作者: fan62 時間: 2012-2-21 00:10

回復  fan62

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

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

作者: fan62 時間: 2012-3-24 17:14

//測試OK
Dim MyArray
//=================================================================================
//[[以下是測試後台模擬鼠標取色找色操作]]
//=================================================================================
Call RunApp("mspaint.exe")
Delay 1000
//=================================================================================
//找畫圖區句柄
Hwnd=Plugin.Window.Find(0,"未命名 - 畫圖")
Hwnd=Plugin.Window.FindEx(Hwnd, 0, "AfxFrameOrView42u", 0)
Hwnd=Plugin.Window.FindEx(Hwnd, 0, "Afx:1000000:8", 0)
TracePrint "畫圖區句柄=" & Hwnd
//=================================================================================
//下面這句用於向後台窗口句柄(變量：Hwnd)的客戶區域(坐標：5, 5)處發送一個鼠標左鍵單擊
Call Plugin.Bkgnd.LeftClick(Hwnd, 5, 5)
TracePrint "鼠標在後台窗口(坐標：5, 5)處的單擊"
//=================================================================================
//下面這句用於向後台窗口句柄(變量：Hwnd)的客戶區域(坐標：10, 10)處發送一個鼠標左鍵雙擊
Call Plugin.Bkgnd.LeftDoubleClick(Hwnd, 10, 10)
TracePrint "鼠標在後台窗口(坐標：10, 10)處的雙擊"
//=================================================================================
//下面這句取窗口句柄(變量：Hwnd)窗口的客戶區(坐標：5, 5)處的顏色
Color1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 5, 5)
TracePrint "後台窗口(坐標：5, 5)處的顏色=" & Color1
//=================================================================================
//下面這句按從左到右，從上到下的順序查找窗口句柄(變量：Hwnd)窗口的指定矩形區域內指定顏色
XY = Plugin.Bkgnd.FindColor(Hwnd, 0, 0, 20, 20, "FFFFFF")
//下面這句用於分割字符串,將橫坐標和縱坐標分成兩個字符串
MyArray = Split(XY, "|")
//下面這句將字符串轉換成數值
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
TracePrint "後台窗口顏色X坐標=" & X & " Y坐標=" & Y
//=================================================================================
//下面這句按(從左到右從上到下的順序找色)模糊查找窗口句柄(變量：Hwnd)窗口的指定矩形區域內指定顏色
XY = Plugin.Bkgnd.FindColorEx(Hwnd, 0, 0, 20, 20, "FFFFFF", 0, 0.9)
//下面這句用於分割字符串
MyArray = Split(XY, "|")
//下面這句將字符串轉換成數值
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
TracePrint "後台窗口顏色X坐標=" & X & " Y坐標=" & Y
//=================================================================================
//下面這句按從中間到四周的順序查找窗口句柄(變量：Hwnd)窗口的指定的矩形區域內指定顏色
XY = Plugin.Bkgnd.FindCenterColor(Hwnd, 0, 0, 20, 20, "FFFFFF")
//下面這句用於分割字符串,將橫坐標和縱坐標分成兩個字符串
MyArray = Split(XY, "|")
//下面這句將字符串轉換成數值
X = CInt(MyArray(0)): Y = CInt(MyArray(1))
TracePrint "後台窗口顏色X坐標=" & X & " Y坐標=" & Y
//=================================================================================
Hwnd = Plugin.Window.Find(0, "未命名 - 畫圖")
MessageBox "查找到的父窗口句柄為：" & Hwnd
//下面這句是關閉窗口
Call Plugin.Window.Close(Hwnd)
MessageBox "退出畫圖窗口"
//=================================================================================
//[[以下是測試後台模擬鍵盤操作]]
//=================================================================================
Call RunApp("notepad.exe")
Delay 1000
//=================================================================================
//找記事本輸入區句柄
Hwnd=Plugin.Window.Find(0,"無標題 - 記事本")
Hwnd=Plugin.Window.FindEx(Hwnd, 0, "Edit", 0)
TracePrint "記事本輸入區句柄=" & Hwnd
//=================================================================================
//下面這句用於向後台窗口句柄(變量：Hwnd)發送一個鍵盤(掃瞄碼：65)按鍵
Call Plugin.Bkgnd.KeyPress(Hwnd, 65)
TracePrint "在後台窗口輸入A鍵"
//下面這句用於向後台窗口句柄(變量：Hwnd)發送一個鍵盤(掃瞄碼：66)按下
Call Plugin.Bkgnd.KeyDown(Hwnd, 66)
//下面這句用於向後台窗口句柄(變量：Hwnd)發送一個鍵盤(掃瞄碼：66)按下
Call Plugin.Bkgnd.KeyDown(Hwnd, 66)
TracePrint "在後台窗口輸入B鍵"
//下面這句用於向後台窗口句柄(變量：Hwnd)發送一個文本消息(內容："內容")到客戶區
Call Plugin.Bkgnd.SendString(Hwnd, "內容")
TracePrint "發送一個文本消息(內容)"
//=================================================================================
Hwnd = Plugin.Window.Find(0, "無標題 - 記事本")
MessageBox "查找到的父窗口句柄為：" & Hwnd
//下面這句是關閉窗口
Call Plugin.Window.Close(Hwnd)
MessageBox "退出記事本窗口"
//=================================================================================
Sub OnScriptExit()
MessageBox "腳本已經停止！"
End Sub

複製代碼

作者: ss963854 時間: 2012-5-19 16:55

謝謝你們拉XDXXD

作者: ss963854 時間: 2012-5-19 16:56

有問題會再跟你們講的

歡迎光臨伊凡斯綜合論壇 (http://efans.com.tw/bbs/)