設為首頁收藏本站
我的空間｜　會員中心　｜VIP會員　｜聯合國facebook專區切換到寬版

外掛聯合國討論區

 找回密碼
 註冊

熱門外掛

  • 大家都在用
  • 即將登場
  • 免費試用
  • 優惠活動

1 ...363738394041424344... 58下一頁
返回列表 發主題
樓主: 千年眼
打印 上一主題 下一主題

[分享] 《白貓Project 外掛》按鍵小精靈   [複製鏈接]

0

主題

0

好友

183

積分

外掛國小六級生

Rank: 2Rank: 2
391層
cmk.v. 發表於 2015-12-13 03:17:44 |只看該作者
sdgfdssdgfdssdgfdssdgfdssdgfdssdgfdssdgfdssdgfdssdgfdssdgfdssdgfdssdgfdssdgfdssdgfdssdgfdssdgfds
回覆

使用道具 舉報

0

主題

0

好友

196

積分

外掛國小六級生

Rank: 2Rank: 2
392層
a86607123 發表於 2015-12-14 10:34:58 |只看該作者
dasdasdsaasdasdasdasdasdahwan = Plugin.Window.Foreground()
Dim Input  
Input = InputBox("請輸入是要掛機或組成協力或參加協力，愛你唷！！")
MsgBox "是否為" & Input &"，確定嗎？"
If Input = "組成協力" Then

//進入協力
Call Plugin.Bkgnd.LeftClick(hwan, 334, 720)
Delay 2000
Rem AA

//進入地圖
AB = Plugin.Bkgnd.FindColor(hwan, 255,495, 308, 516, "FFFFFF")
MyArray = Split(AB, "|")
A = CInt(MyArray(0)) : B = CInt(MyArray(1))
If A> 0 Then
Call Plugin.Bkgnd.LeftClick(hwan, A, B)
Delay 2000
End If

//選擇九星
AB = Plugin.Bkgnd.FindColor(hwan,233,233,290, 247, "34556B")
MyArray = Split(AB, "|")
A = CInt(MyArray(0)): B = CInt(MyArray(1))
If A> 0 Then
Call Plugin.Bkgnd.LeftClick(hwan, A, B)
Delay 2000
End If

//組成隊伍
AB = Plugin.Bkgnd.FindColor(hwan,298,275, 355, 299, "FFFFFF")
MyArray = Split(AB, "|")
A = CInt(MyArray(0)): B = CInt(MyArray(1))
If A> 0 Then
Call Plugin.Bkgnd.LeftClick(hwan, A, B)
Delay 2000
End If

//挑戰
AB = Plugin.Bkgnd.FindColor(hwan,312,617, 404, 649, "543AFE")
MyArray = Split(AB, "|")
A = CInt(MyArray(0)): B = CInt(MyArray(1))
If A > 0 Then
Delay 5000


Call Plugin.Bkgnd.LeftClick(hwan, A, B)
Delay 2000
End If

//開始走路
AB = Plugin.Bkgnd.FindColor(hwan,118,712, 217, 716, "FF9AFF")
MyArray = Split(AB, "|")
A = CInt(MyArray(0)) : B = CInt(MyArray(1))
If A> 0 Then
Delay 20000
//第一關

Call Plugin.Bkgnd.LeftDown(hwan, 250, 490)
Delay 1000
Call Plugin.Bkgnd.MoveTo(hwan, 350, 490)
Delay 5500
Call Plugin.Bkgnd.LeftUp(hwan, 250, 490)

Call Plugin.Bkgnd.LeftDown(hwan, 250, 490)
Delay 1000
Call Plugin.Bkgnd.MoveTo(hwan, 250, 390)
Delay 10000
Call Plugin.Bkgnd.LeftUp(hwan, 250, 490)
Delay 20000

//第二關
Call Plugin.Bkgnd.LeftDown(hwan, 250, 490)
Delay 1000
Call Plugin.Bkgnd.MoveTo(hwan, 250, 390)
Delay 1500
Call Plugin.Bkgnd.LeftUp(hwan, 250, 490)

Call Plugin.Bkgnd.LeftDown(hwan, 250, 490)
Delay 1000
Call Plugin.Bkgnd.MoveTo(hwan, 350, 490)
Delay 4000
Call Plugin.Bkgnd.LeftUp(hwan, 250, 490)

Call Plugin.Bkgnd.LeftDown(hwan, 250, 490)
Delay 1000
Call Plugin.Bkgnd.MoveTo(hwan, 250, 390)
Delay 12000
Call Plugin.Bkgnd.LeftUp(hwan, 250, 490)
Delay 15000
Call Plugin.Bkgnd.LeftClick(hwan, 250, 490)
Call Plugin.Bkgnd.LeftClick(hwan, 250, 490)
Call Plugin.Bkgnd.LeftClick(hwan, 250, 490)
End If

//結束
AB = Plugin.Bkgnd.FindColor(hwan,240,695, 256, 711, "FFFFFF")
MyArray = Split(AB, "|")
A = CInt(MyArray(0)): B = CInt(MyArray(1))
If A> 0 Then
Call Plugin.Bkgnd.LeftClick(hwan, A, B)
Delay 2000
End If

Goto AA
elseif Input="參加協力" then
//參加協力
Call Plugin.Bkgnd.LeftClick(hwan, 334, 720)

Rem CC

//進入地圖
AB = Plugin.Bkgnd.FindColor(hwan, 255,495, 308, 516, "FFFFFF")
MyArray = Split(AB, "|")
A = CInt(MyArray(0)) : B = CInt(MyArray(1))
If A> 0 Then
Call Plugin.Bkgnd.LeftClick(hwan, A, B)
Delay 2000
End If

//選擇九星
AB = Plugin.Bkgnd.FindColor(hwan,233,233,290, 247, "34556B")
MyArray = Split(AB, "|")
A = CInt(MyArray(0)): B = CInt(MyArray(1))
If A> 0 Then
Call Plugin.Bkgnd.LeftClick(hwan, A, B)
Delay 2000
End If

//參加隊伍
AB = Plugin.Bkgnd.FindColor(hwan,299,451, 351, 478, "FFFFFF")
MyArray = Split(AB, "|")
A = CInt(MyArray(0)): B = CInt(MyArray(1))
If A> 0 Then
Call Plugin.Bkgnd.LeftClick(hwan, A, B)
Delay 2000
End If



//開始走路
AB = Plugin.Bkgnd.FindColor(hwan,118,712, 217, 716, "FF9AFF")
MyArray = Split(AB, "|")
A = CInt(MyArray(0)) : B = CInt(MyArray(1))
If A> 0 Then
Delay 20000
//第一關

Call Plugin.Bkgnd.LeftDown(hwan, 250, 490)
Delay 1000
Call Plugin.Bkgnd.MoveTo(hwan, 350, 490)
Delay 5500
Call Plugin.Bkgnd.LeftUp(hwan, 250, 490)

Call Plugin.Bkgnd.LeftDown(hwan, 250, 490)
Delay 1000
Call Plugin.Bkgnd.MoveTo(hwan, 250, 390)
Delay 10000
Call Plugin.Bkgnd.LeftUp(hwan, 250, 490)
Delay 20000

//第二關
Call Plugin.Bkgnd.LeftDown(hwan, 250, 490)
Delay 1000
Call Plugin.Bkgnd.MoveTo(hwan, 250, 390)
Delay 1500
Call Plugin.Bkgnd.LeftUp(hwan, 250, 490)

Call Plugin.Bkgnd.LeftDown(hwan, 250, 490)
Delay 1000
Call Plugin.Bkgnd.MoveTo(hwan, 350, 490)
Delay 4000
Call Plugin.Bkgnd.LeftUp(hwan, 250, 490)

Call Plugin.Bkgnd.LeftDown(hwan, 250, 490)
Delay 1000
Call Plugin.Bkgnd.MoveTo(hwan, 250, 390)
Delay 12000
Call Plugin.Bkgnd.LeftUp(hwan, 250, 490)
Delay 15000
Call Plugin.Bkgnd.LeftClick(hwan, 250, 490)
Call Plugin.Bkgnd.LeftClick(hwan, 250, 490)
Call Plugin.Bkgnd.LeftClick(hwan, 250, 490)
End If

//結束
AB = Plugin.Bkgnd.FindColor(hwan,240,695, 256, 711, "FFFFFF")
MyArray = Split(AB, "|")
A = CInt(MyArray(0)): B = CInt(MyArray(1))
If A> 0 Then
Call Plugin.Bkgnd.LeftClick(hwan, A, B)
Delay 2000
End If

Goto CC

elseif Input="掛機" then        
//掛機
        Delay 1000

Call Plugin.Bkgnd.LeftClick(hwan, 47, 724)//回關卡        

Rem BB
//地圖座標

AB = Plugin.Bkgnd.FindColor(hwan,195,369, 252, 384, "FFFFFF")
MyArray = Split(AB, "|")
A = CInt(MyArray(0)): B = CInt(MyArray(1))
If A> 0 Then
Call Plugin.Bkgnd.LeftClick(hwan, A, B)
Delay 2000
End If



//消滅所有特定敵人2

GetColor2 = Plugin.Bkgnd.GetPixelColor(hwan,389,512)  //抓點關卡下面的顏色座標
If GetColor2 = "34556B" Then                          //抓點關卡下面的顏色
Call Plugin.Bkgnd.LeftClick(hwan,389,512)             //點選進入關卡
Delay 2000
End If

//選人座標

GetColor3 = Plugin.Bkgnd.GetPixelColor(hwan,128,199)  //抓點第一個的顏色座標
If GetColor3 = "34556B" Then                          //抓點第一個下面的顏色
Call Plugin.Bkgnd.LeftClick(hwan,128,199)             //點選進入第一個座標
Delay 2000
End If

//挑戰座標

AB = Plugin.Bkgnd.FindColor(hwan,358,628,602, 646, "FFFFFF")
MyArray = Split(AB, "|")
A = CInt(MyArray(0)): B = CInt(MyArray(1))
If A> 0 Then
Call Plugin.Bkgnd.LeftClick(hwan, A, B)
Delay 2000
End If


//過關條件

GetColor5 = Plugin.Bkgnd.GetPixelColor(hwan,238,442)   //抓點過關條件與OK中間的座標
If GetColor5 = "D6F4FF" Then                           //抓點過關條件與OK中間的顏色
Call Plugin.Bkgnd.LeftClick(hwan,237,480)              //點選OK座標
Delay 2000  
End If


Call Plugin.Bkgnd.LeftDoubleClick(hwan,23,435)        //讓畫面跳出到任務結束的作用


//收穫OK
GetColor7 = Plugin.Bkgnd.GetPixelColor(hwan,186,468)  //抓點任務結束時候顏色的座標
If GetColor7 = "79A9C8" Then                          //抓點任務結束時候的顏色
Call Plugin.Bkgnd.LeftClick(hwan,237,703)             //點選OK座標
Delay 2000
End If

//否跟隨
GetColor8 = Plugin.Bkgnd.GetPixelColor(hwan,307,457)  //抓點是否追隨顏色的座標
If GetColor8 = "FFFFFF" Then                          //抓點是否追隨的顏色
Call Plugin.Bkgnd.LeftClick(hwan,178,463)             //點選否的座標
Delay 2000
End If

//連線失敗會自動在按是進入
GetColor9 = Plugin.Bkgnd.GetPixelColor(hwan,229,461)
If GetColor9 = "D6F4FF" Then
Call Plugin.Bkgnd.LeftClick(hwan,299,497)
Delay 2000
End If

//武器滿了會自動在按是進入
AB = Plugin.Bkgnd.FindColor(hwan,209,628, 246, 640, "363636")//取OK的點顏色
MyArray = Split(AB, "|")
A = CInt(MyArray(0)): B = CInt(MyArray(1))
If A> 0 Then
Call Plugin.Bkgnd.LeftClick(hwan, 240, 452)
Delay 5000
End If
//鐵匠鋪
AB = Plugin.Bkgnd.FindColor(hwan,264,605, 311, 647, "F8F8F8")//取鐵鎚的點顏色
MyArray = Split(AB, "|")
A = CInt(MyArray(0)): B = CInt(MyArray(1))
If A> 0 Then
Call Plugin.Bkgnd.LeftClick(hwan, A, B)
Delay 5000
End If
//販售
AB = Plugin.Bkgnd.FindColor(hwan,99,539, 144, 566, "00ECFF")//取錢幣的點顏色
MyArray = Split(AB, "|")
A = CInt(MyArray(0)): B = CInt(MyArray(1))
If A> 0 Then
Call Plugin.Bkgnd.LeftClick(hwan, A, B)
Delay 5000
Call Plugin.Bkgnd.LeftClick(hwan, 105, 386)//第一隻武器
Delay 500
Call Plugin.Bkgnd.LeftClick(hwan, 105, 454)//第二隻武器
Delay 500
Call Plugin.Bkgnd.LeftClick(hwan, 105, 521)//第三隻武器
Delay 500

Call Plugin.Bkgnd.LeftClick(hwan, 241, 388)//第四隻武器
Delay 500
Call Plugin.Bkgnd.LeftClick(hwan, 241, 461)//第五隻武器
Delay 500
Call Plugin.Bkgnd.LeftClick(hwan, 248, 521)//第六隻武器

Delay 500
Call Plugin.Bkgnd.LeftClick(hwan, 379, 391)//第七隻武器
Delay 500
Call Plugin.Bkgnd.LeftClick(hwan, 380, 463)//第八隻武器
Delay 500
Call Plugin.Bkgnd.LeftClick(hwan, 380, 528)//第九隻武器
Delay 2000

Call Plugin.Bkgnd.LeftClick(hwan, 242, 642)//OK
Delay 2000
Call Plugin.Bkgnd.LeftClick(hwan, 302, 461)//是
Delay 2000
Call Plugin.Bkgnd.LeftClick(hwan, 244, 462)//OK
Delay 2000
Call Plugin.Bkgnd.LeftClick(hwan, 47, 724)//回關卡
Delay 5000
End If


Goto BB
Else
MessageBox "請確實輸入"

End If
回覆

使用道具 舉報

0

主題

0

好友

40

積分

外掛國小三級生

Rank: 2Rank: 2
393層
xjapan000222 發表於 2015-12-14 12:56:05 |只看該作者
太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了太棒了
回覆

使用道具 舉報

0

主題

0

好友

7

積分

外掛小班

Rank: 1
394層
mrchiuchiu 發表於 2015-12-15 09:37:44 |只看該作者
謝謝樓主分享 謝謝樓主分享 謝謝樓主分享 謝謝樓主分享 謝謝樓主分享 謝謝樓主分享






回覆

使用道具 舉報

0

主題

0

好友

651

積分

外掛高中初級生

Rank: 4Rank: 4
395層
snkl1234 發表於 2015-12-16 14:44:58 |只看該作者
根本神醫般的存在阿好人醫生償命


回覆

使用道具 舉報

0

主題

0

好友

12

積分

外掛中班

Rank: 1
396層
neal9098 發表於 2015-12-16 15:33:36 |只看該作者
GDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
回覆

使用道具 舉報

0

主題

0

好友

445

積分

外掛國中高級生

Rank: 3
397層
CISENG 發表於 2015-12-16 19:32:02 |只看該作者
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
回覆

使用道具 舉報

0

主題

0

好友

445

積分

外掛國中高級生

Rank: 3
398層
CISENG 發表於 2015-12-16 19:32:54 |只看該作者
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
回覆

使用道具 舉報

0

主題

0

好友

411

積分

外掛國中高級生

Rank: 3
399層
ahq33815560 發表於 2015-12-16 22:34:34 |只看該作者
6666666666666666666666666666666666666666666666
回覆

使用道具 舉報

0

主題

0

好友

44

積分

外掛國小三級生

Rank: 2Rank: 2
400層
gjksd456321 發表於 2015-12-18 13:27:24 |只看該作者
感謝分享!!感謝分享!!感謝分享!!感謝分享!!感謝分享!!感謝分享!!感謝分享!!感謝分享!!感謝分享!!感謝分享!!感謝分享!!
回覆

使用道具 舉報

1 ...363738394041424344... 58下一頁
返回列表 發主題
高級模式
B Color Image Link Quote Code Smilies
您需要登錄後才可以回帖 登錄 | 註冊


Archiver|外掛聯合國

GMT+8, 2024-11-17 02:56 , Processed in 0.057974 second(s), 15 queries .

Powered by Discuz! X2.5

© 2001-2011 Comsenz Inc.

回頂部
www.wgun.net