黃易群俠傳M脫機外掛應用程式黃易神行
1554
8

自製腳本一問

Northpoloman 發表於 2010-1-20 17:09:47 | 只看該作者 回帖獎勵 |倒序瀏覽 |
請問
有辦法可以由螢幕下方開始找尋拍定圖片嗎?
在嘗試製作衣服結尾

腳本成功找到拍定圖片
但他是找到最左上的那個- -...
收藏收藏 分享分享 讚 幹 分享分享 FB分享
回覆

使用道具 舉報


s9101442000 當前離線
UID
1253303
熱心
659 值
嘉獎
0 次
違規
0 次
在線時間
360 小時
經驗
628 點
積分
4963
精華
0
最後登錄
2018-8-6
閱讀權限
50
註冊時間
2009-7-1
論壇幣
3265 幣
聯合幣
34 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 6Rank: 6
s9101442000 2010-1-21 15:44:53
連箭頭也弄下去吧(?
在把相似度調高點...
以上!!!
回覆

使用道具 舉報

Northpoloman 當前離線
UID
1388732
熱心
22 值
嘉獎
0 次
違規
0 次
在線時間
6 小時
經驗
26 點
積分
26
精華
0
最後登錄
2010-10-22
閱讀權限
20
註冊時間
2010-1-13
論壇幣
44 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
Northpoloman 2010-1-23 20:19:45
本帖最後由 Northpoloman 於 2010-1-23 20:22 編輯

嗚 在退步了...
本來還可以抓到圖
現在抓也抓不到了....

以下是我現在的寫法....

        VBSCall FindPic(0,0,1024,768,"Attachment:\12e.bmp",0.4,X,Y)
        If x>=0 and y>=0
            MoveTo x,y
            Delay 500
            LeftDown 1
            Delay 500
            VBSCall FindPic(0,0,1024,768,"Attachment:\13.bmp",0.6,x,y)
            If x>=0 and y>=0
                MoveTo x,y
                Delay 500
                LeftUp 1
                Delay 500

12是START的圖
13是END的圖
2個頭也有箭頭的- -

有什麼出錯的地方了- -?
回覆

使用道具 舉報

s9101442000 當前離線
UID
1253303
熱心
659 值
嘉獎
0 次
違規
0 次
在線時間
360 小時
經驗
628 點
積分
4963
精華
0
最後登錄
2018-8-6
閱讀權限
50
註冊時間
2009-7-1
論壇幣
3265 幣
聯合幣
34 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 6Rank: 6
s9101442000 2010-1-24 01:10:50
VBSCall FindPic(0,0,1024,768,"Attachment:\12e.bmp",0.4,X,Y)
        If x>=0 and y>=0
            MoveTo x,y
            Delay 500
            LeftDown 1
            Delay 500
            VBSCall FindPic(0,0,1024,768,"Attachment:\13.bmp",0.6,x,y)
            If x>=0 and y>=0
                MoveTo x,y
                Delay 500
                LeftUp 1
                Delay 500
//
橘色是部份個人感覺有點問題(?
bmp你說是12.bmp
上面寫成12e.bmp
手滑(?
另外則是相似程度是0.5~1.0之間吧(?
空間可以稍微小一點(?
也許會更好(?
//
以上=\\\=
回覆

使用道具 舉報

0958127695 當前離線
UID
1126863
熱心
92 值
嘉獎
0 次
違規
0 次
在線時間
30 小時
經驗
86 點
積分
243
精華
0
最後登錄
2013-11-16
閱讀權限
25
註冊時間
2009-2-4
論壇幣
33 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 3
5
0958127695 2010-1-24 22:47:54
我也是= =
製衣跳出的小遊戲視窗
不管如何
案經都無法找到...
回覆

使用道具 舉報

s9101442000 當前離線
UID
1253303
熱心
659 值
嘉獎
0 次
違規
0 次
在線時間
360 小時
經驗
628 點
積分
4963
精華
0
最後登錄
2018-8-6
閱讀權限
50
註冊時間
2009-7-1
論壇幣
3265 幣
聯合幣
34 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 6Rank: 6
6
s9101442000 2010-1-25 00:22:23
先試試用小程式跑看看圖是否正常(?
//
姑娘我測得時後...
總是程式碼有誤造成的=\\\=((羞+遮臉
回覆

使用道具 舉報

chichunkin 當前離線
UID
1396142
熱心
15 值
嘉獎
0 次
違規
0 次
在線時間
1 小時
經驗
11 點
積分
55
精華
0
最後登錄
2018-8-6
閱讀權限
20
註冊時間
2010-1-24
論壇幣
22 幣
聯合幣
6 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
7
chichunkin 2010-1-25 20:20:38
這樣可以的嗎???????????????????
回覆

使用道具 舉報

tk007kimo 當前離線
UID
650881
熱心
185 值
嘉獎
0 次
違規
0 次
在線時間
58 小時
經驗
177 點
積分
890
精華
0
最後登錄
2022-8-22
閱讀權限
30
註冊時間
2007-11-20
論壇幣
446 幣
聯合幣
12 枚
幸運鑽
2 顆
招待卷
0 點
查看詳細資料
Rank: 4Rank: 4
8
tk007kimo 2010-2-2 15:53:34
嗚 在退步了...
本來還可以抓到圖
現在抓也抓不到了....

以下是我現在的寫法....

        VBSCall FindPic(0,0,1024,768,"Attachment:\12e.bmp",0.4,X,Y)
        If x>=0 and y>=0
            MoveTo x, ...
Northpoloman 發表於 2010-1-23 20:19

我之前也跟你一樣自己做過一個,提供一點我的經驗給你
第一段要抓圖按下滑鼠的地方,可以把範圍改一下,不要抓全螢幕(0,0,1024,768),
去抓一下小遊戲的視窗位置,可以的話把按下的位置定在六個X的左半邊
第二段放開滑鼠的位置定在小視窗的左半邊,減少抓錯圖的機會
ex:
          (50,50).         .(200,50)
                      X      l      X
                              l
                      X      l      X
                              l      
                      X      l      X
                                       .(200,280)
                              .(100,300)

VBSCall FindPic(50,50,100,300)
.
.
.

VBSCall FindPic(200,50,200,280)
回覆

使用道具 舉報

tk007kimo 當前離線
UID
650881
熱心
185 值
嘉獎
0 次
違規
0 次
在線時間
58 小時
經驗
177 點
積分
890
精華
0
最後登錄
2022-8-22
閱讀權限
30
註冊時間
2007-11-20
論壇幣
446 幣
聯合幣
12 枚
幸運鑽
2 顆
招待卷
0 點
查看詳細資料
Rank: 4Rank: 4
9
tk007kimo 2010-2-2 16:04:05
本帖最後由 tk007kimo 於 2010-2-2 16:05 編輯

我自己也做過這腳本,我提供一點我的想法看看可不可行
你可以將第一段按下滑鼠部份的找圖語法,把範圍縮小一點,不要找整個螢幕
只找小遊戲視窗的左半邊,第二段的話一樣把範圍縮小到只找右半邊試看看
減少圖抓不到的機會
下面舉例:
            .(50,50)    .(200,50)
               X           l           X
                            l      
                            l        
               X           l           X
                            l      
                            l        
               X           l           X   
                          .(180,500) .(400,500)

VBSCall FindPic(50,50,180,500,"Attachment:\12e.bmp",0.4,X,Y)
        If x>=0 and y>=0
            MoveTo x,y
            Delay 500
            LeftDown 1
            Delay 500
            VBSCall FindPic(200,50,400,500,"Attachment:\13.bmp",0.6,x,y)
            If x>=0 and y>=0
                MoveTo x,y
                Delay 500
                LeftUp 1
                Delay 500
回覆

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 註冊


手機版 | Archiver | 外掛聯合國

GMT+8, 2024-11-24 06:30 , Processed in 0.064632 second(s), 17 queries , Memcache On.

版權說明:
  本站不會製作、經銷、代理外掛程式。僅免費提供外掛程式下載前之掃毒及掃木馬等安全檢測驗證,協助會員遠離盜號危險程式。本站所有資料均來自網際網路收集整理,說明文字暨下載連結轉載自原程 式開發站。站上出現之公司名稱、遊戲名稱、程式等,商標及著作權,均歸各公司及程式原創所有,本站程式所有權歸外掛聯合國所有。本程式所有權歸外掛聯合國所有.......

回頂部
第二步?
第三步?