論壇 › 腳本分享區 › 【幹幹】腳本發布 洗星石 V0.1發布

TzYiGa 發表於 2016-7-14 12:15:13

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

本帖最後由 TzYiGa 於 2016-7-16 01:11 編輯

哈囉大家好
我是幹幹http://forum.quilt.idv.tw/data/attachment/forum/201607/13/181109e6h6s6ppxfbbx6ej.jpg


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

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

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

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

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

----------/*主程式*/---------
Rem c
Delay 200
FindPic 10,50,170,80,"Attachment:\特殊.bmp",1.0,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX+10,intY+5
    Delay 100
    LeftClick 3
    Delay 300
Else
    Goto c
End If
FindPic 0,0,1024,768,"Attachment:\星石方塊.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX + 10, intY + 5
    Delay 100
    LeftDoubleClick 1
    Delay 100
End If
FindPic 10,50,170,80,"Attachment:\裝飾.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX+10,intY+5
    Delay 100
    LeftClick 1
    Delay 100
End If
FindPic 0,0,1024,768,"Attachment:\D.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    Call 判斷成功
End If
FindPic 0,0,1024,768,"Attachment:\C.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    Call 判斷成功
End If
FindPic 0,0,1024,768,"Attachment:\B.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    Call 判斷成功
End If
FindPic 0,0,1024,768,"Attachment:\A.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    Call 判斷成功
End If
----------/*副程式*/----------
Sub 判斷成功
    MoveTo intX + 10, intY + 5
    Delay 100
    LeftClick 1
    Delay 100
    Call 星石方塊內
    Call OK
    Goto c       
End Sub
Sub 星石方塊內
    FindPic 0,0,1024,768,"Attachment:\星石方塊內.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
      MoveTo intX + 20, intY + 60
      Delay 100
      LeftClick 1
      Delay 100   
    End If
End Sub
Sub OK
    FindPic 467,470,521,500,"Attachment:\OK.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
      MoveTo intX + 5, intY + 5
      Delay 100
      LeftClick 1
      Delay 100
    Else
      FindPic 363,390,402,409,"Attachment:\OK.bmp",0.9,intX,intY
      If intX > 0 And intY > 0 Then
            MoveTo intX + 5, intY + 5
            Delay 100
            LeftClick 1
            Delay 100      
      End If
    End If
End Sub

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

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

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

cg30537 發表於 2016-7-15 02:55:11

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

TzYiGa 發表於 2016-7-15 08:54:34

本帖最後由 TzYiGa 於 2016-7-15 19:16 編輯

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

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

還有 應該是1920吧?

cg30537 發表於 2016-7-15 22:53:32

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



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

TzYiGa 發表於 2016-7-16 01:09:54

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

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

zzxxcc1229 發表於 2016-7-16 07:48:05

感謝大大的分享

kai0721 發表於 2016-7-16 09:26:19

謝謝大大分享~~~

wsx24220826 發表於 2016-7-30 13:24:21

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

ss881216 發表於 2016-7-30 18:14:00

感謝大大無私分享^^

kevin00812 發表於 2016-8-3 15:34:32

謝謝大大的分享~

查看完整版本: 【幹幹】腳本發布 洗星石 V0.1發布