緣份遊戲網 - 備份站

功能是全自動摘，鋤草，殺蟲，澆水，偷，幫好友鋤草，殺蟲，澆水
 
//本腳本為在電腦解析度1024*768下運行，IE為6.0
//自定義變數
UserVar yanshi=2 網路延時單位秒
UserVar yanshi1=5 網頁刷新時間單位秒
UserVar t=3 偷幾個號友（包括自己）
dim x(14),y(14)
//FLASH菜地座標定量陣列，支援14個菜地
//若座標不對，請自行使用抓點抓正確的座標點
x(0)=300:y(0)=220
x(1)=200:y(1)=270
x(2)=100:y(2)=320
x(3)=400:y(3)=270
x(4)=300:y(4)=320
x(5)=200:y(5)=370
x(6)=500:y(6)=320
x(7)=400:y(7)=370
x(8)=300:y(8)=420
x(9)=600:y(9)=370
x(10)=500:y(10)=420
x(11)=400:y(11)=470
x(12)=700:y(12)=420
x(13)=600:y(13)=470
Rem <開始>
//IE窗口控制碼
Plugin hwnd=Window.Find("IEFrame",0)
//Shell DocObject View
Plugin Hwnd = Window.FindEx(Hwnd, 0, "Shell DocObject View",0)
//IE頁面控制碼
Plugin Hwnd = Window.FindEx(Hwnd, 0, "Internet Explorer_Server", 0)
//IE裏FLASH控制碼
Plugin Hwnd1 = Window.FindEx(Hwnd, 0, "MacromediaFlashPlayerActiveX", 0)
//展開好友菜單
Plugin Bkgnd.MoveTo(hwnd1,900,270)
Plugin Bkgnd.LeftClick(hwnd1,900,270)
//依次選擇好友並採摘
z=0
a=1
For t
If a=11
Plugin Bkgnd.MoveTo(hwnd1,870,457)
Plugin Bkgnd.LeftClick(hwnd1,870,457)
Delay yanshi*1000
z=0
a=1
EndIf
Delay 500
Plugin Bkgnd.MoveTo(hwnd1,770,150+z)
Plugin Bkgnd.LeftClick(hwnd1,770,150+z)
Delay yanshi*1000
Gosub 采
z=z+31
a=a+1
EndFor
//刷新網頁
Plugin Bkgnd.KeyPress(Hwnd, 116)
Delay yanshi1*1000
Goto <開始>
EndScript
Sub 采
b=1
For 4
i=0
//采和偷
If b=1
Delay 100
Plugin Bkgnd.KeyPress(Hwnd1,82)
EndIf
//殺蟲
If b=2
Delay 100
Plugin Bkgnd.KeyPress(Hwnd1,69)
EndIf
//鋤草
If b=3
Delay 100
Plugin Bkgnd.KeyPress(Hwnd1,87)
EndIf
//澆水
If b=4
Delay 100
Plugin Bkgnd.KeyPress(Hwnd1,81)
EndIf
Delay 100
For 3
For 5
//移動到菜地並點擊滑鼠左鍵
Plugin Bkgnd.MoveTo(hwnd1,x(i),y(i))
Plugin Bkgnd.LeftClick(hwnd1,x(i),y(i))
i=i+1
Delay 100
EndFor
EndFor
b=b+1
EndFor
Delay 100
Return 采
//按鍵精靈 開心農場全自動摘，鋤草，殺蟲，澆水，偷，幫好友鋤草，殺蟲，澆水。