請問有人可以幫忙寫一下水族小精靈腳本嗎?

請問有人可以幫忙寫一下水族小精靈腳本嗎?
我現在用得水族小精靈0.3是一個到最後一頁要跳回第一頁轉換不過來外掛

不知道哪裡出錯希望有大大可以幫我寫一個能用腳本
感激~~~

3Q大大              希望大大能再發帖!
本文章轉自外掛聯合國http://www.wgun.net
本文章轉自外掛聯合國http://www.wgun.net

可以分享一下嗎?或者我懂~~~~~~~~~~

General]
Description=水族箱2-15
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=32
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=
ipufQuYm1wVVQFAAcqaXNLUEsBAhcLFAACAAgAQLpKPJBlTkJ6NgAANkEAAA4ACQAAAAAAAAAgAICB4ggAAKbbpHa+abO9uc8uYm1wVVQFAAeoPnNLUEsBAhcLFAACAAgAqLpKPBl+vqzkHwAANkEAABIACQAAAAAAAAAgAICBmT8AAKZupM22wqvMvmmzvbnPLmJtcFVUBQAHcD9zS1BLAQIXCxQAAgAIAOq5SjxG9zHe7SUAADZBAAASAAkAAAAAAAAAIACAgb5fAACmbqTNqsWl1b5ps725zy5ibXBVVAUABxk+c0tQSwECFwsUAAIACADyuko8zQ5FxNQvAAA2QQAAEgAJAAAAAAAAACAAgIHshQAAptukdrbCq8y+abO9uc8uYm1wVVQFAAfdP3NLUEsBAhcLFAACAAgAEAmTOwr56WkbCwAAJjEAAAoACQAAAAAAAAAgAICBAbYAALxDs72lay5ibXBVVAUAB6gnLEtQSwECFwsUAAIACAAQCZM7FM8iySgLAAAmMQAACgAJAAAAAAAAACAAgIFVwQAAvEOzvaWqLmJtcFVUBQAHmCcsS1BLAQIXCxQAAgAIAGydSzxkvPFC6gEAAK4YAAAKAAkAAAAAAAAAIACAgbbMAAC9VLt7uc8uYm1wVVQFAAfqXXRLUEsBAhcLFAACAAgAgANMPPDWdh2NAgAA0hgAABIACQAAAAAAAAAgAICB2c4AAMHcvdCmbqTNpVukSrnPLmJtcFVUBQAHwKB0S1BLAQIXCxQAAgAIACYDTDxjhDhAXAYAABYHAAAMAAkAAAAAAAAAIACAgafRAACla7K+rPW5zy5ibXBVVAUABw+gdEtQSwECFwsUAAIACABsA0w8OeF6DIMCAABmBwAADAAJAAAAAAAAACAAgIE+2AAApWuyvrbCuc8uYm1wVVQFAAdqoHRLUEsFBgAAAAAMAAwANAMAAPzaAAAAAA==


[Script]
Rem 畫面上下定位
Delay 100
MoveTo 696,489
Delay 100
LeftClick 2
Delay 100
MouseWheel -15
Delay 100
Rem a2
Delay 200
VBSCall FindPic(0,0,1024,768,"Attachment:\自己養魚圖.bmp",0.9,intX,intY)
Delay 200
If intx<1 and inty<1
    Delay 100
    MouseWheel 2
EndIf
Delay 200
VBSCall FindPic(0,0,1024,768,"Attachment:\自己養魚圖.bmp",0.9,intX,intY)
Delay 200
If intx<1 and inty<1
    Delay 100
    Goto a2
EndIf
Delay 100
Gosub 點至自己水族箱
Rem a3
Delay 100
Gosub 點至好友1
Delay 100
Gosub 點至好友2
Delay 100
Gosub 點至好友3
Delay 100
Gosub 點至好友4
Delay 100
Gosub 點至好友5
Delay 100
Gosub 點至好友6
Delay 100
Gosub 點至好友7
Delay 100
Gosub 點至好友8
Delay 100
Gosub 點至好友9
Delay 100
For 40
    Gosub 點至下一位好友
    Delay 100
EndFor
EndScript
Sub 好友水族箱工作
    Rem 好友水族箱工作
    Delay 200
    VBSCall FindPic(0,0,1024,768,"Attachment:\黑屏貝幣.bmp",0.9,intX,intY)
    Delay 200
    If intx>0 and inty>0
        Delay 100
        Goto 好友水族箱工作
    EndIf
    Delay 100
    Gosub 撿寶石
    Delay 100
    Rem 好友水族箱工作結束
    Delay 100
Return 好友水族箱工作
Sub 點至第50位好友
    Delay 100
    Gosub 開好友表
    Delay 200
    VBSCall FindPic(0,0,1024,768,"Attachment:\邀請好友加入圖.bmp",0.6,intX,intY)
    Delay 200
    If intx>0 and inty>0
        Delay 100
        Gosub 關好友表
        Delay 100
        Gosub 回自己水族箱
        Delay 100
        Goto 畫面上下定位
    EndIf
    Delay 200
    MoveR -11,226
    Delay 100
    LeftClick 7
    Delay 100
    MoveR -129,-7
    Delay 100
    LeftClick 2
    Delay 100
    Gosub 關好友表
    Delay 100
    Gosub 好友水族箱工作
    Delay 100
Return 點至第50位好友
Sub 點至下一位好友
    Delay 100
    Gosub 開好友表
    Delay 500
    VBSCall FindPic(0,0,1024,768,"Attachment:\邀請好友加入圖.bmp",0.6,intX,intY)
    Delay 200
    If intx>0 and inty>0
        Delay 100
        Gosub 關好友表
        Delay 100
        Gosub 回自己水族箱
        Delay 100
        Goto 畫面上下定位
    EndIf
    Delay 100
    MoveR -11,226
    Delay 100
    LeftClick 7
    Delay 100
    MoveR -129,-15
    Delay 100
    LeftClick 2
    Delay 100
    Gosub 關好友表
    Delay 100
    Gosub 好友水族箱工作
    Delay 100
Return 點至下一位好友
Sub 點至好友1
    Delay 100
    Gosub 開好友表
    Delay 500
    VBSCall FindPic(0,0,1024,768,"Attachment:\邀請好友加入圖.bmp",0.6,intX,intY)
    Delay 200
    If intx>0 and inty>0
        Delay 100
        Gosub 關好友表
        Delay 100
        Gosub 回自己水族箱
        Delay 100
        Goto 畫面上下定位
    EndIf
    Delay 100
    MoveR -140,-13
    Delay 100
    LeftClick 2
    Delay 100
    Gosub 關好友表
    Delay 100
    Gosub 好友水族箱工作
    Delay 100
Return 點至好友1
Sub 點至好友2
    Delay 100
    Gosub 開好友表
    Delay 500
    VBSCall FindPic(0,0,1024,768,"Attachment:\邀請好友加入圖.bmp",0.6,intX,intY)
    Delay 200
    If intx>0 and inty>0
        Delay 100
        Gosub 關好友表
        Delay 100
        Gosub 回自己水族箱
        Delay 100
        Goto 畫面上下定位
    EndIf
    MoveR -140,15
    Delay 100
    LeftClick 2
    Delay 100
    Gosub 關好友表
    Delay 100
    Gosub 好友水族箱工作
Return 點至好友2
Sub 點至好友3
    Delay 100
    Gosub 開好友表
    Delay 500
    VBSCall FindPic(0,0,1024,768,"Attachment:\邀請好友加入圖.bmp",0.6,intX,intY)
    Delay 200
    If intx>0 and inty>0
        Delay 100
        Gosub 關好友表
        Delay 100
        Gosub 回自己水族箱
        Delay 100
        Goto 畫面上下定位
    EndIf
    MoveR -140,43
    Delay 100
    LeftClick 2
    Delay 100
    Gosub 關好友表
    Delay 100
    Gosub 好友水族箱工作
Return 點至好友3
Sub 點至好友4
    Delay 100
    Gosub 開好友表
    Delay 500
    VBSCall FindPic(0,0,1024,768,"Attachment:\邀請好友加入圖.bmp",0.6,intX,intY)
    Delay 200
    If intx>0 and inty>0
        Delay 100
        Gosub 關好友表
        Delay 100
        Gosub 回自己水族箱
        Delay 100
        Goto 畫面上下定位
    EndIf
    Delay 100
    MoveR -140,71
    Delay 100
    LeftClick 2
    Delay 100
    Gosub 關好友表
    Delay 100
    Gosub 好友水族箱工作
Return 點至好友4
Sub 點至好友5
    Delay 100
    Gosub 開好友表
    Delay 500
    VBSCall FindPic(0,0,1024,768,"Attachment:\邀請好友加入圖.bmp",0.6,intX,intY)
    Delay 200
    If intx>0 and inty>0
        Delay 100
        Gosub 關好友表
        Delay 100
        Gosub 回自己水族箱
        Delay 100
        Goto 畫面上下定位
    EndIf
    Delay 100
    MoveR -140,99
    Delay 100
    LeftClick 2
    Delay 100
    Gosub 關好友表
    Delay 100
    Gosub 好友水族箱工作
Return 點至好友5
Sub 點至好友6
    Delay 100
    Gosub 開好友表
    Delay 500
    VBSCall FindPic(0,0,1024,768,"Attachment:\邀請好友加入圖.bmp",0.6,intX,intY)
    Delay 200
    If intx>0 and inty>0
        Delay 100
        Gosub 關好友表
        Delay 100
        Gosub 回自己水族箱
        Delay 100
        Goto 畫面上下定位
    EndIf
    MoveR -140,127
    Delay 100
    LeftClick 2
    Delay 100
    Gosub 關好友表
    Delay 100
    Gosub 好友水族箱工作
Return 點至好友6
Sub 點至好友7
    Delay 100
    Gosub 開好友表
    Delay 500
    VBSCall FindPic(0,0,1024,768,"Attachment:\邀請好友加入圖.bmp",0.6,intX,intY)
    Delay 200
    If intx>0 and inty>0
        Delay 100
        Gosub 關好友表
        Delay 100
        Gosub 回自己水族箱
        Delay 100
        Goto 畫面上下定位
    EndIf
    MoveR -140,155
    Delay 100
    LeftClick 2
    Delay 100
    Gosub 關好友表
    Delay 100
    Gosub 好友水族箱工作
Return 點至好友7
Sub 點至好友8
    Delay 100
    Gosub 開好友表
    Delay 500
    VBSCall FindPic(0,0,1024,768,"Attachment:\邀請好友加入圖.bmp",0.6,intX,intY)
    Delay 200
    If intx>0 and inty>0
        Delay 100
        Gosub 關好友表
        Delay 100
        Gosub 回自己水族箱
        Delay 100
        Goto 畫面上下定位
    EndIf
    Delay 100
    MoveR -140,183
    Delay 100
    LeftClick 2
    Delay 100
    Gosub 關好友表
    Delay 100
    Gosub 好友水族箱工作
Return 點至好友8
Sub 點至好友9
    Delay 100
    Gosub 開好友表
    Delay 500
    VBSCall FindPic(0,0,1024,768,"Attachment:\邀請好友加入圖.bmp",0.6,intX,intY)
    Delay 200
    If intx>0 and inty>0
        Delay 100
        Gosub 關好友表
        Delay 100
        Gosub 回自己水族箱
        Delay 100
        Goto 畫面上下定位
    EndIf
    Delay 100
    MoveR -140,211
    Delay 100
    LeftClick 2
    Delay 100
    Gosub 關好友表
    Delay 100
    Gosub 好友水族箱工作
Return 點至好友9
Sub 回自己水族箱
    Rem 回
    Delay 100
    VBSCall FindPic(0,0,1024,768,"Attachment:\黑屏貝幣.bmp",0.7,intX,intY)
    Delay 100
    If intx>0 and inty>0
        Delay 100
        Goto 回
    EndIf
    Delay 100
    Gosub 開好友表
    Delay 400
    Rem 刷新
    Delay 100
    MoveR -10,-55
    Delay 100
    LeftClick 2
    Delay 100
    Rem 點自己
    MoveR -131,3
    Delay 100
    LeftClick 2
    Delay 100
    Gosub 關好友表
    Delay 100
Return 回自己水族箱
Sub 點至自己水族箱
    Delay 100
    Gosub 開好友表
    Delay 500
    VBSCall FindPic(0,0,1024,768,"Attachment:\邀請好友加入圖.bmp",0.6,intX,intY)
    Delay 200
    If intx>0 and inty>0
        Delay 100
        Gosub 關好友表
        Delay 100
        Gosub 回自己水族箱
        Delay 100
        Goto 畫面上下定位
    EndIf
    Rem 刷新
    Delay 100
    MoveR -10,-55
    Delay 100
    LeftClick 2
    Delay 100
    Rem 點自己
    MoveR -131,3
    Delay 100
    LeftClick 2
    Delay 100
    Gosub 自己水族箱工作
    Delay 100
Return 點至自己水族箱
Sub 自己水族箱工作
    Rem 自己水族箱黑屏
    Delay 100
    Gosub 開好友表
    Delay 500
    VBSCall FindPic(0,0,1024,768,"Attachment:\邀請好友加入圖.bmp",0.6,intX,intY)
    Delay 200
    If intx>0 and inty>0
        Delay 100
        Gosub 關好友表
        Delay 100
        Goto 自己水族箱黑屏
    EndIf
    Delay 100
    Gosub 餵魚
    Delay 100
Return 自己水族箱工作
Sub 餵魚
    Gosub 鼠標定位
    Rem 魚糧
    Delay 100
    MoveR 315,495
    Delay 100
    LeftClick 2
    Delay 100
    Rem 餵魚點1
    MoveR -133,-437
    Delay 50
    LeftClick 1
    Delay 50
    Rem 點箭頭
    Gosub 鼠標定位
    Delay 100
    MoveR 250,495
    Delay 100
    LeftClick 1
    Delay 100
Return 餵魚
Sub 關好友表
    Rem 關好友表
    Delay 100
    VBSCall FindPic(0,0,1024,768,"Attachment:\黑屏貝幣.bmp",0.9,intX,intY)
    Delay 200
    If intx>0 and inty>0
        Delay 100
        Goto 關好友表
    EndIf
    Delay 100
    Gosub 鼠標定位
    Delay 100
    MoveR 453,180
    Delay 100
    MoveR -50,0
    Delay 100
Return 關好友表
Sub 開好友表
    Delay 100
    Gosub 鼠標定位
    Delay 100
    MoveR 631,180
    Delay 100
Return 開好友表
Sub 鼠標定位
    Delay 100
    VBSCall FindPic(0,0,1024,768,"Attachment:\貝幣.bmp",0.9,intX,intY)
    Delay 200
    If intx>0 and inty>0
        Delay 100
        MoveTo intx,inty
        Delay 100
        LeftClick 1
        Delay 100
    EndIf
Return 鼠標定位
Sub 撿寶石
    Delay 100
    Gosub 關好友表
    Delay 100
    Gosub 鼠標定位
    Delay 100
    Rem 手形
    MoveR 422,495
    Delay 100
    LeftClick 2
    Rem 起始位置
    Delay 100
    MoveR 199,-80
    LeftClick 1
    MoveR 0,13
    LeftClick 1
    MoveR 0,13
    LeftClick 1
    MoveR 0,13
    LeftClick 1
    MoveR 0,-150
    MoveR 0,150
    For 48
        MoveR -15,-39
        LeftClick 1
        MoveR 0,13
        LeftClick 1
        MoveR 0,13
        LeftClick 1
        MoveR 0,13
        LeftClick 1
        MoveR 0,-150
        MoveR 0,150
    EndFor
    Delay 100
    VBSCall FindPic(0,0,1024,768,"Attachment:\確認圖.bmp",0.6,intX,intY)
    Delay 200
    If intx>0 and inty>0
        Delay 100
        MoveTo intx,inty
        MoveR 37,12
        Delay 100
        LeftClick 2
    EndIf
Return 撿寶

這哪裡有錯內?
為何會跳頁?
最後一頁跳到第一頁會變成亂跳一下第一頁一下最後一頁?

= =
怎又沈帖啦
有沒有好心人可以幫我ㄧ下阿

這些人怎都這樣ㄚ
幫一下會死嗎?
求一下給個腳本幫忙問題
結果內有人理過嗎
人都很自私
我都把腳本打上來了
修改確沒人要幫

YCT41B 希望有大大 可以分享˙ˇ˙

t806189   你好 ^ ^
因為每個人用的腳本或許不太一樣  所以也沒啥太多的時間  在去研究別人所寫的內容
我  參考了你寫的內容(我沒實際運轉)  
<<<<<到是發現你所用 的""'"""刷新"""""是放在==回自己的水族箱>>>>
<<<<<然而你用迴圈40次  是循環好友的水族箱==不知是否問題出在這>>>
<<<<<導致於你目前好友在最後一頁無法刷新 回到第一頁>>>>>>>>>>>
你在調整相關排序試試   或許會有改善
還有你未加入判斷劍魚的腳本  當揀的貝 不多時 會大失血喔
劍魚的部份比較多人發問  我有貼目前用的     在網內"開心樂園"的網誌上你不嫌棄可以參考
我是用自己寫的  跑起來順  我就沒再多研究
現在只想 找個方法 在 揀貝殼時能略過空白處 這樣就太完美了  c c

我沒看到你執行的動作 所以不清楚你的問題到底是怎樣
不過該程式原則上是沒問題的 (我之前用過 很好用 定位定的很成功 但應該不是這個新的版本)
此版本大致上看了一下 應該也沒問題
再最後一頁跳第一頁程式為 以下部分 作一下部分說明(黃色部分)
Sub 點至自己水族箱
    Delay 100
   Gosub 開好友表 (滑鼠所在位子)
    Delay 500
    VBSCall FindPic(0,0,1024,768,"Attachment:\邀請好友加入圖.bmp",0.6,intX,intY)(判斷是否到最後一位)
    Delay 200
    If intx>0 and inty>0
        Delay 100                    
        Gosub 關好友表               
        Delay 100                     
        Gosub 回自己水族箱      
        Delay 100                     
        Goto 畫面上下定位           
    EndIf   (以上為 不是到最後一位的正常工作)                                                     
    Rem 刷新 (以下就是找到圖 "邀請好友加入圖" 就是到了好友的最後一位)
    Delay 100
    MoveR -10,-55 (滑鼠移到相對位子 即上方"滑鼠所在位子"往上10單位 往左55單位 就是好友選單中的刷新圖像)
    Delay 100
    LeftClick 2
    Delay 100
    Rem 點自己
    MoveR -131,3 (在刷新選單後 又一到相對位子 就是好友選單中的自己)
    Delay 100
    LeftClick 2
    Delay 100
    Gosub 自己水族箱工作
    Delay 100
Return 點至自己水族箱

以上的程式都沒問題 所以不清楚你為何會出錯
該段程式 再程式一開始時就徵調用過 所以一開始沒問題 最後也應該沒問題
所以啦 應該不是別人不幫你 而是程式應該沒問題
幾個建議給你
1.把程式製作成小精靈 不要用載掛腳本的方式(有時軟體會有問題 造成程式誤動作)
2.建議將螢幕解析度 調成1024*768

我難得回來一次 看到你的問題 回答你一下 可能我說的答案你不滿意也沒解決問題 但是你給的誤動作說明 實在也不怎麼清楚 我只能據你說的猜可能哪有問題 所以請見諒啦(而且我也不是寫程式的高手)