Nie odczytuje godziny.

[DarHor]

Mam taki oto kod: 

 

 

HotKeySet("{home}", "start")
HotKeySet("{end}", "start")
$hour = @HOUR
$min = @
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 180, 156, 262, 446)
$Label1 = GUICtrlCreateLabel("Home - Start", 16, 8, 63, 17)
$Label2 = GUICtrlCreateLabel("End - Stop", 112, 8, 54, 17)
$Input1 = GUICtrlCreateInput("12", 24, 40, 73, 21)
$Input2 = GUICtrlCreateInput("14", 24, 64, 73, 21)
$Input3 = GUICtrlCreateInput("16", 24, 88, 73, 21)
$Input4 = GUICtrlCreateInput("18", 24, 112, 73, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd


func start()

	While 1

	If $hour = GUICtrlRead($Input1) And $min = "00" Then
		MouseClick("right")
		TrayTip("Status", "Click", 1)
		Sleep(60000)

	Elseif $hour = GUICtrlRead($Input2) And $min = "00" Then
		MouseClick("right")
		TrayTip("Status", "Click", 1)
		Sleep(60000)

	Elseif $hour = GUICtrlRead($Input3) And $min = "00" Then
		MouseClick("right")
		TrayTip("Status", "Click", 1)
		Sleep(60000)

	Elseif $hour = GUICtrlRead($Input4) And $min = "00" Then
		MouseClick("right")
		TrayTip("Status", "Click", 1)
		Sleep(60000)

	ElseIf $hour = GUICtrlRead($Input1) And $min = "00" Then
		MouseClick("right")
		TrayTip("Status", "Click", 1)
		Sleep(60000)

	EndIf

	WEnd

EndFunc

Func stop()
	Exit
EndFunc

 

 

 

I wszystko jest okej, prócz tego że nie działa o godzinie 12. Coś źle napisałem? ;/

[aleklejawa]

Drobny błąd:

HotKeySet("{end}", "start")

Lepiej użyć

Switch...Case...EndSwitch

do takich programów:

Local $msg
Switch @HOUR

    Case 6 To 11

        $msg = "Good Morning"

    Case 12 To 17

        $msg = "Good Afternoon"

    Case 18 To 21

        $msg = "Good Evening"

    Case Else

        $msg = "What are you still doing up?"

EndSwitch



MsgBox(0, Default, $msg)

A wszystko prosto z AutoItHelp w SciTE.

[DarHor]

Drobny błąd:

HotKeySet("{end}", "start")

Lepiej użyć

Switch...Case...EndSwitch

do takich programów:

Local $msg
Switch @HOUR

    Case 6 To 11

        $msg = "Good Morning"

    Case 12 To 17

        $msg = "Good Afternoon"

    Case 18 To 21

        $msg = "Good Evening"

    Case Else

        $msg = "What are you still doing up?"

EndSwitch



MsgBox(0, Default, $msg)

A wszystko prosto z AutoItHelp w SciTE.

ten drobny błąd zauważyłem dziś rano. Ale nie o niego też pytałem. ;P

 

Zaraz sprawdzę to co podałeś.

 

@Edit Wydaje mi się że to nie zadziała. Bo bot ma równo 0 12 np kliknąć a później czekać do następnej godziny.

[aleklejawa]

Można zmienić np:

 

Case 12

 

Case 12 to 13

[DarHor]

Ale wtedy znów będzie sprawdzało cały czas i będzie klikać przez całą godzinę....;/