Hier mein neues Programm.
Einige werden es schon kennen ;).
Möchte aber nun Feedback und Ideen zur Verbesserung haben.
Also sagt mir doch bitte mal was euch gefällt/nicht gefällt und was ich hätte besser machen können.
Code:
Spoiler anzeigen
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#NoTrayIcon
Opt("TrayMenuMode", 1)
$sInputBoxAnswer = InputBox("Passwort", "Bitte gebe das Passwort ein!", "", "*9", "-1", "-1", "-1", "-1")
If $sInputBoxAnswer = "autoit.de" Then
ElseIf $sInputBoxAnswer <> "autoit.de" Then
Exit
EndIf
$iMsgBoxAnswer = MsgBox(52, "Maus-O-Meter", "Dieses Programm erstellt eine .ini File im Script Verzeichniss!" & @CRLF & "Ist das in Ordnung für Sie?")
Select
Case $iMsgBoxAnswer = 6 ;Yes
Case $iMsgBoxAnswer = 7 ;No
Exit
EndSelect
$StartZeit = _NowCalc()
TraySetIcon("Shell32.dll", 23)
$Form1 = GUICreate("Maus-O-Meter", 353, 19, @DesktopWidth / 2 - 150, 0, $WS_POPUP)
$Label1 = GUICtrlCreateLabel("X:", 3, 3, 11, 17)
$Label2 = GUICtrlCreateLabel("", 15, 3, 55, 19)
$Label3 = GUICtrlCreateLabel("Y:", 75, 3, 11, 17)
$Label4 = GUICtrlCreateLabel("", 87, 3, 52, 19)
$Label5 = GUICtrlCreateLabel("Color:", 144, 3, 31, 17)
$Label6 = GUICtrlCreateLabel("", 181, 3, 83, 19)
$Label7 = GUICtrlCreateLabel("", 303, 3, 55, 19)
$Label8 = GUICtrlCreateLabel("Zähler", 264, 3, 42, 17)
GUISetState(@SW_SHOW)
$Form2 = GUICreate("Farb Vorschau", 353, 19, @DesktopWidth / 2 - 150, 19, $WS_POPUP)
GUISetState(@SW_SHOW)
HotKeySet("^s", "_Speichern")
HotKeySet("^c", "_Close")
HotKeySet("^h", "_Hide")
Func _Hide()
$status = InputBox("Zeigen/Verstecken", "Soll die Farbleiste versteckt oder gezeigt werden?" & @CRLF & "1 = verstecken 2 = zeigen")
If $status = 1 Then
WinSetState("Farb Vorschau", "", @SW_HIDE)
Else
WinSetState("Farb Vorschau", "", @SW_SHOW)
EndIf
EndFunc ;==>_Hide
Func _Zeitdiverenz(); Zeitdiverenz berechnen
$ZeitDiverenz = _DateDiff('s', $StartZeit, _NowCalc())
$Sekunden = $ZeitDiverenz - Int($ZeitDiverenz / 60) * 60
$Stunden = Int(Int($ZeitDiverenz / 60) / 60)
$Minuten = Int($ZeitDiverenz / 60) - $Stunden * 60
If $Minuten < 10 Then
$Minuten = "0" & $Minuten
ElseIf $Minuten = 0 Then
$Minuten = "00"
EndIf
If $Sekunden < 10 Then
$Sekunden = "0" & $Sekunden
ElseIf $Sekunden = 0 Then
$Sekunden = "00"
EndIf
If $Stunden < 10 Then
$Stunden = "0" & $Stunden
ElseIf $Stunden = 0 Then
$Stunden = "00"
EndIf
GUICtrlSetData($Label8, $Stunden & ":" & $Minuten & ":" & $Sekunden)
EndFunc ;==>_Zeitdiverenz
Func _Speichern()
$x = $maus[0] & "/1024"
$y = $maus[1] & "/768"
$uhrzeit = @HOUR & ":" & @MIN & ":" & @SEC
$datum = @WDAY & "." & @MON & "." & @YEAR
IniWrite(@ScriptDir & "/Maus-O-Meter.ini", $datum & " um " & $uhrzeit, "X:", $x)
IniWrite(@ScriptDir & "/Maus-O-Meter.ini", $datum & " um " & $uhrzeit, "Y:", $y)
IniWrite(@ScriptDir & "/Maus-O-Meter.ini", $datum & " um " & $uhrzeit, "Hex Color:", "0x" & Hex($farbe, 6))
EndFunc ;==>_Speichern
Func _Close()
Exit
EndFunc ;==>_Close
AdlibEnable("_Zeitdiverenz", 1000)
While 1
$maus = MouseGetPos()
$farbe = PixelGetColor($maus[0], $maus[1])
GUICtrlSetData($Label6, "0x" & Hex($farbe, 6))
GUISetBkColor($farbe)
If $maus[0] = 1023 Then
Sleep(30)
GUICtrlSetData($Label2, "1024/1024")
ElseIf $maus[1] = 767 Then
Sleep(30)
GUICtrlSetData($Label4, "768/768")
Else
Sleep(30)
GUICtrlSetData($Label2, $maus[0] & "/" & @DesktopWidth)
GUICtrlSetData($Label4, $maus[1] & "/" & @DesktopHeight)
EndIf
WEnd
[/autoit]