uTorrent刷上傳量

#include <AutoItConstants.au3>
#include <MsgBoxConstants.au3>

;1280x800 maximum
;Local Const $USERIP = "192.168.2.35:51413"
Local Const $USERIP = "192.168.192.1:52308"
Local Const $TIMES = 10000
Local $iColor = PixelGetColor(920, 210)
For $i = $TIMES To 1 Step -1
	;MsgBox($MB_SYSTEMMODAL, "", "Count down!" & @CRLF & $i)
   For $j = 20*20 To 1 Step -1
	  $iColor = PixelGetColor(920, 210)
	  If $iColor = 0xABD679 Or $iColor = 0x86C43F Then
		 ExitLoop
	  EndIf
	  Sleep(3000)
   Next
   DownTorrent()
Next



Func DownTorrent()
   Sleep(5000)
   Local $iColor = PixelGetColor(920, 210)

   ;If $iColor <> 0xABD679 And $iColor <> 0x86C43F Then
	;  Return
   ;EndIf

   ;MsgBox($MB_SYSTEMMODAL, "", "The decimal color is: " & $iColor)
   ;MsgBox($MB_SYSTEMMODAL, "", "The hex color is: " & Hex($iColor, 6))

   If $iColor = 0xABD679 Then
	  ;MsgBox($MB_SYSTEMMODAL, "", "Seeding")
	  MouseMove(900, 210, 0)
	  MouseClick($MOUSE_CLICK_LEFT)
	  Sleep(1000)
	  MouseMove(600, 160, 0)
	  MouseClick($MOUSE_CLICK_LEFT)
	  Sleep(1000)
   EndIf

   $iColor = PixelGetColor(920, 210)
   If $iColor = 0x86C43F Then
	  DirRemove("W:\TEMP",$DIR_REMOVE)
	  ;MsgBox($MB_SYSTEMMODAL, "",FileDelete("W:\TEMP\*.*"))
	  Sleep(1000)
	  DirCreate("W:\TEMP")
	  Sleep(1000)
   EndIf

   MouseMove(600, 210, 0)
   MouseClick($MOUSE_CLICK_RIGHT)
   Sleep(1000)
   Send("h")
   Sleep(1000)
   MouseMove(600, 210, 0)
   MouseClick($MOUSE_CLICK_RIGHT)
   Sleep(1000)
   Send("s")
   Sleep(1000)
   MouseMove(700, 630, 0)
   MouseClick($MOUSE_CLICK_RIGHT)
   Sleep(1000)
   Send("a")
   Sleep(1000)
   Send($USERIP)
   Sleep(1000)
   Send("!o")
   ;192.168.192.1:52308

   ;MsgBox($MB_SYSTEMMODAL, "", "Finish!")
EndFunc