autostudy

study.dgjy.net

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

;1280x800
;200 tab width
Local $pX=85, $pY=15
While True
   For $i = 0 To 3 Step 1
	   ;MsgBox($MB_SYSTEMMODAL, "", "Count down!" & @CRLF & $i)
	   MouseMove($pX+$i*200,$pY,0)
	   MouseClick($MOUSE_CLICK_LEFT)
	   Sleep(3000)
	   StartPlay()
	   Sleep(3000)
   Next
WEnd


Func StartPlay()
   ;MouseMove(154, 17, 0)
   ;MouseClick($MOUSE_CLICK_LEFT)
   ;Sleep(1000)
   $iColor = PixelGetColor(486,446)
   If $iColor = 0x999999 Then
	  $iColor = PixelGetColor(460,450)
	  If $iColor = 0x999999 Then
		 ;replay
		 Send("{BROWSER_REFRESH}")
		 Return
	  EndIf
   EndIf

   $iColor = PixelGetColor(78,672)
   If $iColor = 0x999999 or $iColor = 0x808080 Then
	  ;MsgBox($MB_SYSTEMMODAL, "", "The hex color is: " & Hex($iColor, 6))
	  MouseMove(80, 580, 0)
	  Sleep(1000)
	  MouseClick($MOUSE_CLICK_LEFT)
	  Return
   EndIf

   $iColor = PixelGetColor(78,634)
   If $iColor = 0x808080 Then
	  ;MsgBox($MB_SYSTEMMODAL, "", "The hex color is: " & Hex($iColor, 6))
	  MouseMove(80, 580, 0)
	  Sleep(1000)
	  MouseClick($MOUSE_CLICK_LEFT)
	  Return
   EndIf
EndFunc