【幹幹】腳本發布 洗星石 V0.1發布

TzYiGa

哈囉大家好
我是幹幹


今天要來發布很久以前就寫好的腳本
這個腳本經過我上百次的試調還有矯正
基本上沒有遇上什麼太大的困難
所以就當作腳本練習發放給大家囉

--->影片介紹<---

詳細的使用方法跟腳本介紹我都放在影片裡面了
如果還有任何問題 可以再論壇留言告訴我
我會進行腳本更新

有BUG一定要回覆 不然BUG只會一直錯下去

這是影片中提到的程式碼
適用於2014以上版本 不清楚以下的版本是否相符

1. ----------/*主程式*/---------
   
2. Rem c
   
3. Delay 200
   
4. FindPic 10,50,170,80,"Attachment:\特殊.bmp",1.0,intX,intY
   
5. If intX > 0 And intY > 0 Then
   
6.     MoveTo intX+10,intY+5
   
7.     Delay 100
   
8.     LeftClick 3
   
9.     Delay 300
   
10. Else
    
11.     Goto c
    
12. End If
    
13. FindPic 0,0,1024,768,"Attachment:\星石方塊.bmp",0.9,intX,intY
    
14. If intX > 0 And intY > 0 Then
    
15.     MoveTo intX + 10, intY + 5
    
16.     Delay 100
    
17.     LeftDoubleClick 1
    
18.     Delay 100
    
19. End If
    
20. FindPic 10,50,170,80,"Attachment:\裝飾.bmp",0.9,intX,intY
    
21. If intX > 0 And intY > 0 Then
    
22.     MoveTo intX+10,intY+5
    
23.     Delay 100
    
24.     LeftClick 1
    
25.     Delay 100
    
26. End If
    
27. FindPic 0,0,1024,768,"Attachment:\D.bmp",0.9,intX,intY
    
28. If intX > 0 And intY > 0 Then
    
29.     Call 判斷成功
    
30. End If
    
31. FindPic 0,0,1024,768,"Attachment:\C.bmp",0.9,intX,intY
    
32. If intX > 0 And intY > 0 Then
    
33.     Call 判斷成功
    
34. End If
    
35. FindPic 0,0,1024,768,"Attachment:\B.bmp",0.9,intX,intY
    
36. If intX > 0 And intY > 0 Then
    
37.     Call 判斷成功
    
38. End If
    
39. FindPic 0,0,1024,768,"Attachment:\A.bmp",0.9,intX,intY
    
40. If intX > 0 And intY > 0 Then
    
41.     Call 判斷成功
    
42. End If
    
43. ----------/*副程式*/----------
    
44. Sub 判斷成功
    
45.     MoveTo intX + 10, intY + 5
    
46.     Delay 100
    
47.     LeftClick 1
    
48.     Delay 100
    
49.     Call 星石方塊內
    
50.     Call OK
    
51.     Goto c       
    
52. End Sub
    
53. Sub 星石方塊內
    
54.     FindPic 0,0,1024,768,"Attachment:\星石方塊內.bmp",0.9,intX,intY
    
55.     If intX > 0 And intY > 0 Then
    
56.         MoveTo intX + 20, intY + 60
    
57.         Delay 100
    
58.         LeftClick 1
    
59.         Delay 100   
    
60.     End If
    
61. End Sub
    
62. Sub OK
    
63.     FindPic 467,470,521,500,"Attachment:\OK.bmp",0.9,intX,intY
    
64.     If intX > 0 And intY > 0 Then
    
65.         MoveTo intX + 5, intY + 5
    
66.         Delay 100
    
67.         LeftClick 1
    
68.         Delay 100
    
69.     Else
    
70.         FindPic 363,390,402,409,"Attachment:\OK.bmp",0.9,intX,intY
    
71.         If intX > 0 And intY > 0 Then
    
72.             MoveTo intX + 5, intY + 5
    
73.             Delay 100
    
74.             LeftClick 1
    
75.             Delay 100      
    
76.         End If
    
77.     End If
    
78. End Sub

複製代碼

--->【幹幹】洗星石腳本V0.1]<---

各位有什麼想學的　都可以再下面留言喔
我會盡量滿足觀眾需求
有問題我都會回覆
或者在下部影片裡再多做更多的介紹
謝謝大家啦^^

相關連結
---【幹幹】腳本教學１. 基本抓圖---

cg30537

銀幕解析1980*1080不能用  改成1600*900就可以了

TzYiGa

cg30537 發表於 2016-7-15 02:55
銀幕解析1980*1080不能用  改成1600*900就可以了

1920*1080我有測試過是可以的喔
妳的畫面有對齊左上嗎?

還有 應該是1920吧?

cg30537

TzYiGa 發表於 2016-7-15 08:54
1920*1080我有測試過是可以的喔
妳的畫面有對齊左上嗎?

可以了 看來應該是沒對其好 謝謝

TzYiGa

cg30537 發表於 2016-7-15 22:53
可以了 看來應該是沒對其好 謝謝

好的
有任何問題 再跟我回報喔!!

zzxxcc1229

感謝大大的分享

kai0721

謝謝大大分享~~~

wsx24220826

星石方塊內.bmp
這是什麼圖片?
我下載腳本下來結果都沒反應
想要用按鍵精靈配你的程式碼
但沒有圖片XD

ss881216

感謝大大無私分享^^

kevin00812

謝謝大大的分享~