Beiträge von UEZ

**UEZ**

Mit Fileread:

[autoit]

Global $decoded, $string, $array, $i, $file

[/autoit][autoit][/autoit][autoit]

$file = FileOpen(@ScriptDir & "\ansii.txt", 0)
While 1
$string &= FileReadLine($file)
If @error = -1 Then ExitLoop
Wend
FileClose($file)
$array = StringRegExp($string, "\d+", 3)
For $i = 0 To UBound($array) - 2
$decoded &= $array[$i] & ", "
Next
$decoded &= $array[UBound($array) - 1]
$file = FileOpen(@ScriptDir & "\ansii_converted.txt", 1)
FileWrite($file, $decoded)
FileClose($file)
MsgBox(0, "Test", $decoded)

[/autoit]

Gruß,
UEZ

**UEZ**

Das Problem ist, dass das Zeichnen in das Spiel asynchron läuft und es zwangsmäßig flimmert. Auch in Andy's Beispiel flimmert der gefüllte Kreis, wenn du mit der Maus drüber fährst!

Gruß,
UEZ

**UEZ**

Zitat von Lava

ah ok.

Problematisch ist es ja dann, wenn das Programm den Bildschirm sehr häufig aktualisiert.
Auch wenn man so oft wie möglich drüberzeichnet lässt sich ein Flimmern nicht ganz verhindern.

Ich denke da ist dann nichts zu machen, oder täusche ich mich?

Du täuscht dich nicht! Warum willst du in ein anderes Programm hinein zeichnen?

UEZ

**UEZ**

Hier mein Vorschlag:

[autoit]

#include <Array.au3>
Global $decoded, $string, $array, $i
$string = "Chr(54) & Chr(52) & Chr(53)" & @CRLF & "Chr(6) & Chr(57) & Chr(58)"
$array = StringRegExp($string, "\d+", 3)
For $i = 0 To UBound($array) - 2
$decoded &= $array[$i] & ", "
Next
$decoded &= $array[UBound($array) - 1]
MsgBox(0, "Test", $decoded)

[/autoit]

Gruß,
UEZ

PS: mein erster StringRegExp Einsatz

**UEZ**

Ein Schönheitsfehler hat dein Skript, nämlich 100% CPU Last

Einfach Zeile 25 mit dieser ersetzten: until not WinExists("Rechner") * Sleep(30)

Ciao,
UEZ

**UEZ**

Siehe Post#18

UEZ

**UEZ**

Hi xp_fan,

wenn du die Uhr raus aus dem Bildschirm bewegst, dann wird die Grafik entsprechend gelöscht und nicht aktualisiert!

Ich war mal so frei und habe nur ein wenig deinen Code modifiziert!

Vieles kann man bestimmt über Schleifen lösen, aber das überlasse ich dir

Spoiler anzeigen

[autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;scripted by xp_fan;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <Process.au3>
#include <Misc.au3>

[/autoit] [autoit][/autoit] [autoit]

#NoTrayIcon

[/autoit] [autoit][/autoit] [autoit]

Opt("TrayMenuMode", 1)
HotKeySet("{ESC}", "_Ende")

[/autoit] [autoit][/autoit] [autoit]

Global $st = IniRead(@ScriptDir & "\GDIPlusDigitaluhr.ini", "Transparenz", "Transparenz", "255")
Global $udc = IniRead(@ScriptDir & "\GDIPlusDigitaluhr.ini", "Farbe", "Vordergrund", "0xFF00FF00")
Global $coloractive, $choosecoloractive
Global $colornotactive, $choosecolornotactive
Global $hPen1, $hPen2, $hPen3

[/autoit] [autoit][/autoit] [autoit]

If $CmdLine[0] = 2 Then
_SelectColors($CmdLine[1], $CmdLine[2])
Else
_SelectColors(IniRead(@ScriptDir & "\GDIPlusDigitaluhr.ini", "Farbe", "Vordergrund", "0xFF00FF00"), IniRead(@ScriptDir & "\GDIPlusDigitaluhr.ini", "Farbe", "Hintergrund", "0xFF004400"))
EndIf

[/autoit] [autoit][/autoit] [autoit]

Global $ini = @ScriptDir & "\GDIPlusDigitaluhr.ini"
Global $aPoints1[7][2], $aPoints4[7][2]
Global $title = "GDI+ Digitaluhr V. 2.0"
Global $width = 620, $height = 175
Global $hWnd = GUICreate($title, $width, $height, "", "", $WS_POPUP)
GUISetBkColor(0x000000)
Global $Label1 = GUICtrlCreateLabel("", 0, 0, $width, $height, Default, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)
WinSetTrans($title, "", $st)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Global $counter = 0
Global $counter2 = 0
Global $counter3 = 0

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_Startup()

[/autoit] [autoit][/autoit] [autoit]

Global $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
Global $hBitmap = _GDIPlus_BitmapCreateFromGraphics($width, $height, $hGraphic)
Global $hBackbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
;~ _GDIPlus_GraphicsSetSmoothingMode($hBackbuffer, 4)

[/autoit] [autoit][/autoit] [autoit]

$context = GUICtrlCreateContextMenu($Label1)
$farben = GUICtrlCreateMenu("Farben", $context)
$rot = GUICtrlCreateMenuItem("Rot", $farben)
$gruen = GUICtrlCreateMenuItem("Grün", $farben)
$blau = GUICtrlCreateMenuItem("Blau", $farben)
$lila = GUICtrlCreateMenuItem("Lila", $farben)
$orange = GUICtrlCreateMenuItem("Orange", $farben)
$gelb = GUICtrlCreateMenuItem("Gelb", $farben)
$wei = GUICtrlCreateMenuItem("Weiß", $farben)
$t = GUICtrlCreateMenu("Transparenz", $context)
$nichtt = GUICtrlCreateMenuItem("Nicht transparent", $t)
$schwacht = GUICtrlCreateMenuItem("Schwach transparent", $t)
$halbt = GUICtrlCreateMenuItem("Halb transparent", $t)
$ontop = GUICtrlCreateMenu("Always on Top", $context)
$aoty = GUICtrlCreateMenuItem("Ja", $ontop)
$aotn = GUICtrlCreateMenuItem("Nein", $ontop)
GUICtrlCreateMenuItem("", $context)
$www = GUICtrlCreateMenuItem("Autoit.de aufrufen", $context)
GUICtrlCreateMenuItem("", $context)
$aktualisieren = GUICtrlCreateMenuItem("Uhr aktualisieren", $context)
GUICtrlCreateMenuItem("", $context)
$about = GUICtrlCreateMenuItem("Über diese Programm", $context)
GUICtrlCreateMenuItem("", $context)
$exit = GUICtrlCreateMenuItem("Beenden", $context)

[/autoit] [autoit][/autoit] [autoit]

WinSetOnTop($title, "", 1)
GUICtrlSetState($aoty, $GUI_CHECKED)
Switch $udc
Case "0xFFFF0000"
GUICtrlSetState($rot, $GUI_CHECKED)
Case "0xFF0000FF"
GUICtrlSetState($blau, $GUI_CHECKED)
Case "0xFF00FF00"
GUICtrlSetState($gruen, $GUI_CHECKED)
Case "0xFF8B00FF"
GUICtrlSetState($lila, $GUI_CHECKED)
Case "0xFFFFA100"
GUICtrlSetState($orange, $GUI_CHECKED)
Case "0xFFFFFF00"
GUICtrlSetState($gelb, $GUI_CHECKED)
Case "0xFFFFFFFF"
GUICtrlSetState($wei, $GUI_CHECKED)
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

Switch $st
Case 255
GUICtrlSetState($nichtt, $GUI_CHECKED)
Case 200
GUICtrlSetState($nichtt, $GUI_CHECKED)
Case 150
GUICtrlSetState($halbt, $GUI_CHECKED)
EndSwitch

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

_GDIPlus_GraphicsDrawEllipse($hBackbuffer, 196, 50, 15, 15, $hPen1)
_GDIPlus_GraphicsDrawEllipse($hBackbuffer, 196, 100, 15, 15, $hPen1)
_GDIPlus_GraphicsDrawEllipse($hBackbuffer, 405, 50, 15, 15, $hPen1)
_GDIPlus_GraphicsDrawEllipse($hBackbuffer, 405, 100, 15, 15, $hPen1)

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_GraphicsFillEllipse($hBackbuffer, 196, 50, 15, 15, $hPen3)
_GDIPlus_GraphicsFillEllipse($hBackbuffer, 196, 100, 15, 15, $hPen3)
_GDIPlus_GraphicsFillEllipse($hBackbuffer, 405, 50, 15, 15, $hPen3)
_GDIPlus_GraphicsFillEllipse($hBackbuffer, 405, 100, 15, 15, $hPen3)

[/autoit] [autoit][/autoit] [autoit]

U1()
U2()
U3()
U4()
U5()
U6()
_Dot()

[/autoit] [autoit][/autoit] [autoit]

Global $Hour = @HOUR
Global $Minutes = @MIN
Global $Seconds1 = StringLeft(@SEC, 1)
Global $Seconds2 = StringRight(@SEC, 1)

[/autoit] [autoit][/autoit] [autoit]

Global $sleep = 50
GUIRegisterMsg($WM_TIMER, "_Update") ;$WM_TIMER = 0x0113 ; Vielen Dank an UEZ für diesen Abschnitt
DllCall("User32.dll", "int", "SetTimer", "hwnd", $hWnd, "int", 0, "int", $sleep, "int", 0); Vielen Dank an UEZ für diesen Abschnitt

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()
Switch $msg
Case $rot
IniWrite($ini, "Farbe", "Vordergrund", "0xFFFF0000")
IniWrite($ini, "Farbe", "Hintergrund", "0xFF220000")
Sleep(200)
_Farbe(0xFFFF0000, 0xFF440000)
Case $gruen
IniWrite($ini, "Farbe", "Vordergrund", "0xFF00FF00")
IniWrite($ini, "Farbe", "Hintergrund", "0xFF002200")
Sleep(200)
_Farbe(0xFF00FF00, 0xFF004400)
Case $blau
IniWrite($ini, "Farbe", "Vordergrund", "0xFF0000FF")
IniWrite($ini, "Farbe", "Hintergrund", "0xFF000022")
Sleep(200)
_Farbe(0xFF0000FF, 0xFF000044)
Case $lila
IniWrite($ini, "Farbe", "Vordergrund", "0xFF8B00FF")
IniWrite($ini, "Farbe", "Hintergrund", "0xFF000022")
Sleep(200)
_Farbe(0xFF8B00FF, 0xFF000044)
Case $orange
IniWrite($ini, "Farbe", "Vordergrund", "0xFFFFA100")
IniWrite($ini, "Farbe", "Hintergrund", "0xFF441A00")
Sleep(200)
_Farbe(0xFFFFA100, 0xFF441A00)
Case $gelb
IniWrite($ini, "Farbe", "Vordergrund", "0xFFFFFF00")
IniWrite($ini, "Farbe", "Hintergrund", "0xFF222200")
Sleep(200)
_Farbe(0xFFFFFF00, 0xFF444400)
Case $wei
IniWrite($ini, "Farbe", "Vordergrund", "0xFFFFFFFF")
IniWrite($ini, "Farbe", "Hintergrund", "0xFF222222")
Sleep(200)
_Farbe(0xFFFFFFFF, 0xFF444444)
Case $www
ShellExecute("www.autoit.de")
Case $nichtt
GUICtrlSetState($nichtt, $GUI_CHECKED)
GUICtrlSetState($schwacht, $GUI_UNCHECKED)
GUICtrlSetState($halbt, $GUI_UNCHECKED)
WinSetTrans($title, "", 255)
IniWrite($ini, "Transparenz", "Transparenz", "255")
U1()
U2()
U3()
U4()
U5()
U6()
_Dot()
Case $schwacht
GUICtrlSetState($schwacht, $GUI_CHECKED)
GUICtrlSetState($halbt, $GUI_UNCHECKED)
GUICtrlSetState($nichtt, $GUI_UNCHECKED)
WinSetTrans($title, "", 200)
IniWrite($ini, "Transparenz", "Transparenz", "200")
U1()
U2()
U3()
U4()
U5()
U6()
_Dot()
Case $halbt
GUICtrlSetState($halbt, $GUI_CHECKED)
GUICtrlSetState($schwacht, $GUI_UNCHECKED)
GUICtrlSetState($nichtt, $GUI_UNCHECKED)
WinSetTrans($title, "", 150)
IniWrite($ini, "Transparenz", "Transparenz", "150")
U1()
U2()
U3()
U4()
U5()
U6()
_Dot()
Case $aoty
WinSetOnTop($title, "", 1)
GUICtrlSetState($aoty, $GUI_CHECKED)
GUICtrlSetState($aotn, $GUI_UNCHECKED)
Case $aotn
WinSetOnTop($title, "", 0)
GUICtrlSetState($aotn, $GUI_CHECKED)
GUICtrlSetState($aoty, $GUI_UNCHECKED)
Case $aktualisieren
U1()
U2()
U3()
U4()
U5()
U6()
_Dot()
Case $about
MsgBox(262208, "Über dieses Programm", "Dieses Programm wurde von xp_fan aus der deutschen AutoIt-Community http://www.autoit.de geschrieben!" & Chr(10) & "Besonderen Dank an tobi_girst, Oscar, Andy und UEZ von Autoit.de für ihre Hilfe!")
U1()
U2()
U3()
U4()
U5()
U6()
_Dot()
Case $exit
_Ende()
EndSwitch
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, 0, $width, $height)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func U1()
$h1 = StringLeft(@HOUR, 1)
Switch $h1
Case 0
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $coloractive, $colornotactive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);0
Case 1
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);1
Case 2
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive, $colornotactive);2
Case 3
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive, $coloractive);3
Case 4
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $colornotactive, $coloractive, $colornotactive, $coloractive, $colornotactive, $coloractive, $coloractive);4
Case 5
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive);5
Case 6
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive);6
Case 7
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $coloractive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);7
Case 8
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);8
Case 9
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive);9
EndSwitch
EndFunc ;==>U1

[/autoit] [autoit][/autoit] [autoit]

Func U2()
$h2 = StringRight(@HOUR, 1)
Switch $h2
Case 0
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $coloractive, $colornotactive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);0
Case 1
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);1
Case 2
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive, $colornotactive);2
Case 3
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive, $coloractive);3
Case 4
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $colornotactive, $coloractive, $colornotactive, $coloractive, $colornotactive, $coloractive, $coloractive);4
Case 5
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive);5
Case 6
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive);6
Case 7
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $coloractive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);7
Case 8
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);8
Case 9
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive);9
EndSwitch
EndFunc ;==>U2

[/autoit] [autoit][/autoit] [autoit]

Func U3()
$h3 = StringLeft(@MIN, 1)
Switch $h3
Case 0
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $coloractive, $colornotactive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);0
Case 1
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);1
Case 2
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive, $colornotactive);2
Case 3
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive, $coloractive);3
Case 4
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $colornotactive, $coloractive, $colornotactive, $coloractive, $colornotactive, $coloractive, $coloractive);4
Case 5
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive);5
Case 6
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive);6
Case 7
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $coloractive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);7
Case 8
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);8
Case 9
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive);9
EndSwitch
EndFunc ;==>U3

[/autoit] [autoit][/autoit] [autoit]

Func U4()
$h4 = StringRight(@MIN, 1)
Switch $h4
Case 0
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $coloractive, $colornotactive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);0
Case 1
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);1
Case 2
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive, $colornotactive);2
Case 3
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive, $coloractive);3
Case 4
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $colornotactive, $coloractive, $colornotactive, $coloractive, $colornotactive, $coloractive, $coloractive);4
Case 5
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive);5
Case 6
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive);6
Case 7
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $coloractive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);7
Case 8
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);8
Case 9
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive);9
EndSwitch
EndFunc ;==>U4

[/autoit] [autoit][/autoit] [autoit]

Func U5()
$h5 = StringLeft(@SEC, 1)
Switch $h5
Case 0
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $coloractive, $colornotactive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);0
Case 1
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);1
Case 2
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive, $colornotactive);2
Case 3
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive, $coloractive);3
Case 4
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $colornotactive, $coloractive, $colornotactive, $coloractive, $colornotactive, $coloractive, $coloractive);4
Case 5
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive);5
Case 6
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive);6
Case 7
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $coloractive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);7
Case 8
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);8
Case 9
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive);9
EndSwitch
EndFunc ;==>U5

[/autoit] [autoit][/autoit] [autoit]

Func U6()
$h6 = StringRight(@SEC, 1)
Switch $h6
Case 0
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $coloractive, $colornotactive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);0
Case 1
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);1
Case 2
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive, $colornotactive);2
Case 3
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive, $coloractive);3
Case 4
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $colornotactive, $coloractive, $colornotactive, $coloractive, $colornotactive, $coloractive, $coloractive);4
Case 5
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive);5
Case 6
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive);6
Case 7
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $coloractive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);7
Case 8
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);8
Case 9
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive);9
EndSwitch
EndFunc ;==>U6

[/autoit] [autoit][/autoit] [autoit]

Func _Dot()
_GDIPlus_PenSetColor($hPen1, $colornotactive)
_GDIPlus_BrushSetSolidColor($hPen2, $coloractive)
_GDIPlus_BrushSetSolidColor($hPen3, $colornotactive)
If $counter = 1 Then
_GDIPlus_GraphicsFillEllipse($hBackbuffer, 196, 50, 15, 15, $hPen3)
_GDIPlus_GraphicsFillEllipse($hBackbuffer, 196, 100, 15, 15, $hPen3)
_GDIPlus_GraphicsFillEllipse($hBackbuffer, 405, 50, 15, 15, $hPen3)
_GDIPlus_GraphicsFillEllipse($hBackbuffer, 405, 100, 15, 15, $hPen3)
$counter = 0
Else
_GDIPlus_GraphicsFillEllipse($hBackbuffer, 196, 50, 15, 15, $hPen2)
_GDIPlus_GraphicsFillEllipse($hBackbuffer, 196, 100, 15, 15, $hPen2)
_GDIPlus_GraphicsFillEllipse($hBackbuffer, 405, 50, 15, 15, $hPen2)
_GDIPlus_GraphicsFillEllipse($hBackbuffer, 405, 100, 15, 15, $hPen2)
$counter = 1
EndIf
EndFunc ;==>_Dot

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Update()
Select
Case @HOUR <> $Hour
U1()
U2()
Case @MIN <> $Minutes
U1()
U2()
U3()
U4()
U5()
U6()
Case $Seconds1 <> StringLeft(@SEC, 1)
U5()
U6()
_Dot()
Case $Seconds2 <> StringRight(@SEC, 1)
U6()
_Dot()
EndSelect
$Seconds1 = StringLeft(@SEC, 1)
$Seconds2 = StringRight(@SEC, 1)
$Minutes = @MIN
$Hour = @HOUR
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, 0, $width, $height)
EndFunc ;==>_Update

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _7s($x, $y, $delete = 0, $c1 = $colornotactive, $c2 = $colornotactive, $c3 = $colornotactive, $c4 = $colornotactive, $c5 = $colornotactive, $c6 = $colornotactive, $c7 = $colornotactive)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Local $aPoints1[7][2], $aPoints2[7][2], $aPoints3[7][2], $aPoints4[7][2], $aPoints5[7][2], $aPoints6[7][2], $aPoints7[7][2], $hPen[14], $Graphic[14]
If $delete = 0 Then

[/autoit] [autoit][/autoit] [autoit]

$Posx1 = $x
$Posy1 = $y + 1
$aPoints1[0][0] = 6

[/autoit] [autoit][/autoit] [autoit]

$aPoints1[1][0] = $Posx1
$aPoints1[1][1] = $Posy1 - 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints1[2][0] = $Posx1 + 10
$aPoints1[2][1] = $Posy1 - 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints1[6][0] = $Posx1 + 10
$aPoints1[6][1] = $Posy1 + 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints1[3][0] = $Posx1 + 50
$aPoints1[3][1] = $Posy1 - 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints1[5][0] = $Posx1 + 50
$aPoints1[5][1] = $Posy1 + 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints1[4][0] = $Posx1 + 60
$aPoints1[4][1] = $Posy1 - 5

[/autoit] [autoit][/autoit] [autoit]

;~ _GDIPlus_Startup()

[/autoit] [autoit][/autoit] [autoit]

;~ $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
$hPen[0] = _GDIPlus_PenCreate($c1)
$hPen[1] = _GDIPlus_BrushCreateSolid($c1)
$Graphic[0] = _GDIPlus_GraphicsDrawPolygon($hBackbuffer, $aPoints1, $hPen[0])
$Graphic[1] = _GDIPlus_GraphicsFillPolygon($hBackbuffer, $aPoints1, $hPen[1])

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;2;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Posx2 = $x
$Posy2 = $y + 63
$aPoints2[0][0] = 6

[/autoit] [autoit][/autoit] [autoit]

$aPoints2[1][0] = $Posx2
$aPoints2[1][1] = $Posy2

[/autoit] [autoit][/autoit] [autoit]

$aPoints2[2][0] = $Posx2 + 10
$aPoints2[2][1] = $Posy2 - 7

[/autoit] [autoit][/autoit] [autoit]

$aPoints2[6][0] = $Posx2 + 10
$aPoints2[6][1] = $Posy2 + 7

[/autoit] [autoit][/autoit] [autoit]

$aPoints2[3][0] = $Posx2 + 50
$aPoints2[3][1] = $Posy2 - 7

[/autoit] [autoit][/autoit] [autoit]

$aPoints2[5][0] = $Posx2 + 50
$aPoints2[5][1] = $Posy2 + 7

[/autoit] [autoit][/autoit] [autoit]

$aPoints2[4][0] = $Posx2 + 60
$aPoints2[4][1] = $Posy2
$hPen[2] = _GDIPlus_PenCreate($c2)
$hPen[3] = _GDIPlus_BrushCreateSolid($c2)
$Graphic[2] = _GDIPlus_GraphicsDrawPolygon($hBackbuffer, $aPoints2, $hPen[2])
$Graphic[3] = _GDIPlus_GraphicsFillPolygon($hBackbuffer, $aPoints2, $hPen[3])

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;3;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Posx3 = $x - 1
$Posy3 = $y + 125
$aPoints3[0][0] = 6

[/autoit] [autoit][/autoit] [autoit]

$aPoints3[1][0] = $Posx3
$aPoints3[1][1] = $Posy3 + 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints3[2][0] = $Posx3 + 10
$aPoints3[2][1] = $Posy3 - 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints3[6][0] = $Posx3 + 10
$aPoints3[6][1] = $Posy3 + 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints3[3][0] = $Posx3 + 50
$aPoints3[3][1] = $Posy3 - 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints3[5][0] = $Posx3 + 50
$aPoints3[5][1] = $Posy3 + 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints3[4][0] = $Posx3 + 60
$aPoints3[4][1] = $Posy3 + 5

[/autoit] [autoit][/autoit] [autoit]

$hPen[4] = _GDIPlus_PenCreate($c3)
$hPen[5] = _GDIPlus_BrushCreateSolid($c3)
$Graphic[4] = _GDIPlus_GraphicsDrawPolygon($hBackbuffer, $aPoints3, $hPen[4])
$Graphic[5] = _GDIPlus_GraphicsFillPolygon($hBackbuffer, $aPoints3, $hPen[5])

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;vertikal;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;4;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Posx4 = $x + 3
$Posy4 = $y
$aPoints4[0][0] = 6

[/autoit] [autoit][/autoit] [autoit]

$aPoints4[1][0] = $Posx4 - 5
$aPoints4[1][1] = $Posy4

[/autoit] [autoit][/autoit] [autoit]

$aPoints4[2][0] = $Posx4 + 5
$aPoints4[2][1] = $Posy4 + 10

[/autoit] [autoit][/autoit] [autoit]

$aPoints4[3][0] = $Posx4 + 5
$aPoints4[3][1] = $Posy4 + 50

[/autoit] [autoit][/autoit] [autoit]

$aPoints4[4][0] = $Posx4 - 5
$aPoints4[4][1] = $Posy4 + 60

[/autoit] [autoit][/autoit] [autoit]

$aPoints4[5][0] = $Posx4 - 5
$aPoints4[5][1] = $Posy4 + 50

[/autoit] [autoit][/autoit] [autoit]

$aPoints4[6][0] = $Posx4 - 5
$aPoints4[6][1] = $Posy4 + 10
$hPen[6] = _GDIPlus_PenCreate($c4)
$hPen[7] = _GDIPlus_BrushCreateSolid($c4)
$Graphic[6] = _GDIPlus_GraphicsDrawPolygon($hBackbuffer, $aPoints4, $hPen[6])
$Graphic[7] = _GDIPlus_GraphicsFillPolygon($hBackbuffer, $aPoints4, $hPen[7])

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;5;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Posx5 = $x + 3
$Posy5 = $y + 66
$aPoints5[0][0] = 6

[/autoit] [autoit][/autoit] [autoit]

$aPoints5[1][0] = $Posx5 - 5
$aPoints5[1][1] = $Posy5

[/autoit] [autoit][/autoit] [autoit]

$aPoints5[2][0] = $Posx5 + 5
$aPoints5[2][1] = $Posy5 + 10

[/autoit] [autoit][/autoit] [autoit]

$aPoints5[3][0] = $Posx5 + 5
$aPoints5[3][1] = $Posy5 + 50

[/autoit] [autoit][/autoit] [autoit]

$aPoints5[4][0] = $Posx5 - 5
$aPoints5[4][1] = $Posy5 + 60

[/autoit] [autoit][/autoit] [autoit]

$aPoints5[5][0] = $Posx5 - 5
$aPoints5[5][1] = $Posy5 + 50

[/autoit] [autoit][/autoit] [autoit]

$aPoints5[6][0] = $Posx5 - 5
$aPoints5[6][1] = $Posy5 + 10
$hPen[8] = _GDIPlus_PenCreate($c5)
$hPen[9] = _GDIPlus_BrushCreateSolid($c5)
$Graphic[8] = _GDIPlus_GraphicsDrawPolygon($hBackbuffer, $aPoints5, $hPen[8])
$Graphic[9] = _GDIPlus_GraphicsFillPolygon($hBackbuffer, $aPoints5, $hPen[9])

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;6;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Posx6 = $x + 56
$Posy6 = $y
$aPoints6[0][0] = 6

[/autoit] [autoit][/autoit] [autoit]

$aPoints6[1][0] = $Posx6 + 5
$aPoints6[1][1] = $Posy6

[/autoit] [autoit][/autoit] [autoit]

$aPoints6[2][0] = $Posx6 + 5
$aPoints6[2][1] = $Posy6 + 10

[/autoit] [autoit][/autoit] [autoit]

$aPoints6[3][0] = $Posx6 + 5
$aPoints6[3][1] = $Posy6 + 50

[/autoit] [autoit][/autoit] [autoit]

$aPoints6[4][0] = $Posx6 + 5
$aPoints6[4][1] = $Posy6 + 60

[/autoit] [autoit][/autoit] [autoit]

$aPoints6[5][0] = $Posx6 - 5
$aPoints6[5][1] = $Posy6 + 50

[/autoit] [autoit][/autoit] [autoit]

$aPoints6[6][0] = $Posx6 - 5
$aPoints6[6][1] = $Posy6 + 10
$hPen[10] = _GDIPlus_PenCreate($c6)
$hPen[11] = _GDIPlus_BrushCreateSolid($c6)
$Graphic[10] = _GDIPlus_GraphicsDrawPolygon($hBackbuffer, $aPoints6, $hPen[10])
$Graphic[11] = _GDIPlus_GraphicsFillPolygon($hBackbuffer, $aPoints6, $hPen[11])

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;7;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Posx7 = $x + 56
$Posy7 = $y + 66
$aPoints7[0][0] = 6

[/autoit] [autoit][/autoit] [autoit]

$aPoints7[1][0] = $Posx7 + 5
$aPoints7[1][1] = $Posy7

[/autoit] [autoit][/autoit] [autoit]

$aPoints7[2][0] = $Posx7 + 5
$aPoints7[2][1] = $Posy7 + 10

[/autoit] [autoit][/autoit] [autoit]

$aPoints7[3][0] = $Posx7 + 5
$aPoints7[3][1] = $Posy7 + 50

[/autoit] [autoit][/autoit] [autoit]

$aPoints7[4][0] = $Posx7 + 5
$aPoints7[4][1] = $Posy7 + 60

[/autoit] [autoit][/autoit] [autoit]

$aPoints7[5][0] = $Posx7 - 5
$aPoints7[5][1] = $Posy7 + 50

[/autoit] [autoit][/autoit] [autoit]

$aPoints7[6][0] = $Posx7 - 5
$aPoints7[6][1] = $Posy7 + 10
$hPen[12] = _GDIPlus_PenCreate($c7)
$hPen[13] = _GDIPlus_BrushCreateSolid($c7)
$Graphic[12] = _GDIPlus_GraphicsDrawPolygon($hBackbuffer, $aPoints7, $hPen[12])
$Graphic[13] = _GDIPlus_GraphicsFillPolygon($hBackbuffer, $aPoints7, $hPen[13])
Else
For $i = 0 To 12 Step 2
_GDIPlus_PenDispose($hPen[$i])
Next
For $ii = 1 To 13 Step 2
_GDIPlus_BrushDispose($hPen[$i])
Next
;~ For $iii = 0 To 13
;~ _GDIPlus_GraphicsDispose($hGraphic)
;~ Next
;~ _GDIPlus_Shutdown()
EndIf
EndFunc ;==>_7s

[/autoit] [autoit][/autoit] [autoit]

Func _SelectColors($choosecoloractive = 0xFF00FF00, $choosecolornotactive = 0xFF002200)
$coloractive = $choosecoloractive
$colornotactive = $choosecolornotactive
_GDIPlus_PenSetColor($hPen1, $colornotactive)
_GDIPlus_BrushSetSolidColor($hPen2, $coloractive)
_GDIPlus_BrushSetSolidColor($hPen3, $colornotactive)
EndFunc ;==>_SelectColors

[/autoit] [autoit][/autoit] [autoit]

Func _Ende()
GUIRegisterMsg($WM_TIMER, "")
_GDIPlus_PenDispose($hPen1)
_GDIPlus_BrushDispose($hPen2)
_GDIPlus_BrushDispose($hPen3)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_GraphicsDispose($hBackbuffer)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
Exit
EndFunc ;==>_Ende

[/autoit] [autoit][/autoit] [autoit]

Func _Farbe($active, $notactive); Vielen Dank an Oscar für diese Funktion
GUIRegisterMsg($WM_TIMER, "")
_GDIPlus_PenDispose($hPen1)
_GDIPlus_BrushDispose($hPen2)
_GDIPlus_BrushDispose($hPen3)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_GraphicsDispose($hBackbuffer)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
GUIDelete()
$param1 = String($active)
$param2 = String($notactive)
$s2 = String(@ScriptName)
If @OSArch = 'X86' Then
$autoit = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt', 'InstallDir') & '\AutoIt3.exe' ; für 32 Bit
Else
$autoit = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\AutoIt v3\AutoIt', 'InstallDir') & '\AutoIt3_x64.exe' ; für 64 Bit
EndIf
Run(Chr(34) & $autoit & Chr(34) & " " & $s2 & " " & $param1 & " " & $param2)
Exit
EndFunc ;==>_Farbe

[/autoit]

Voraussetzung ist AutoIt v3.3.2.0!

Gruß,
UEZ

**UEZ**

Zitat von Bitboy

Wie gesagt, meine Funktion ist nur für XP, wie Oscar schon bemerkte haben sich die Regkeys mit VISTA geändert.

Mir geht es auch erstmal nur um XP, wenn das sauber läuft kann man Oscars und meine Funktion zu einer zusammenbasteln.

Sorry, habe ich überlesen!

Gruß,
UEZ

**UEZ**

Zitat von Bitboy

So hab hier mal eine neue Version für XP. Bitte mal testen.

Mit folgendem könnte es Probleme geben: Zeile 63 Da in der Registry die deutschen bezweichnungen gespeichert sind (Gerät, Funktion) wird der Aufruf bei anderssprachigen Betriebssystemen nicht funktionieren. Daneben bin ich mir nciht sicher ob meine Zuordnung der Geräte wirklich korrekt ist, hab leider zu wenig Hardware für ausführliche Tests.

ToDo: Rückgabe von Fehlern.

Ich bekomme ein leeres Array zurück!

Testsystem Vista x32.

Gruß,
UEZ

**UEZ**

Zitat von Oscar

Der Hinweis auf den Reg_Binary-Key "VolatileSettings" hat mich entscheidend weiter gebracht. Jetzt habe ich die Funktion für Win7 fertig.
Es werden immer Einträge aus RegKeys benutzt, kein "raten" mehr.

So weit erstmal die Win7-Monitor-Erkennung:
...
Nach Weihnachten mache ich mich an die Funktion für den Rest. Danke, Bitboy, für den Hinweis.

User mit Win7 könnten die Funktion mal testen. Normalerweise müsste es jetzt passen...

Die Erkennung der akt. und max. Auflösung stimmt nicht:
[1],[2] akt. Auflösung ist nicht 0x0
[1] max. Auflösung sollte 1920x1200 stehen

Testsystem: Vista x32.

Gruß,
UEZ

**UEZ**

Irgendwie komme ich von diesem Thema nicht weg!

Hier nun mit der Sperre der Cursor Tasten:

Spoiler anzeigen

[autoit]

;by UEZ
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
Opt("GUIOnEventMode", 1)

[/autoit] [autoit][/autoit] [autoit]

$dll = DllOpen("user32.dll")
$hGUI = GUICreate("Seriennummer", 232, 90)
$input = GUICtrlCreateInput("", 42, 30, 140)
$Label = GUICtrlCreateLabel("Format: XXXX-XXXX-XXXX-XXXX", 32, 8, 163, 17)
GUICtrlSetLimit($input, 19)
$Button = GUICtrlCreateButton("Weiter", 144, 56, 75, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState()
$iLen_prev = 0
$iCurPos = 0
GUIRegisterMsg($WM_COMMAND, '_WM_COMMAND')
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

[/autoit] [autoit][/autoit] [autoit]

While Sleep(10)
$aCaret_pos = WinGetCaretPos()
If _IsPressed("25", $dll) Or _IsPressed("26", $dll) Then ;left or up
Send("{RIGHT}")
ElseIf _IsPressed("27", $dll) Or _IsPressed("28", $dll) Then ;right or down
DllCall("User32.dll", 'int', 'SetCaretPos', 'int', $aCaret_pos[0], 'int', $aCaret_pos[1])
EndIf
$aPos = GUIGetCursorInfo($hGUI)
If $aPos[2] And $aPos[4] = $input Then
ControlFocus("", "", $input)
Send("{Right 50}")
EndIf

[/autoit] [autoit][/autoit] [autoit]

WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _Exit()
DllClose($dll)
Exit
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
If BitAND($wParam, 0x0000FFFF) = $input Then
GUICtrlSetData($input, StringUpper(GUICtrlRead($input))) ;upper letters
$i = GUICtrlRead($input)
$iLen = StringLen($i) + 1
If Mod($iLen, 5) = 0 And $iLen > $iLen_prev And $iLen < 20 Then GUICtrlSetData($input, $i & "-")
If Mod($iLen, 5) = 0 And $iLen < $iLen_prev Then GUICtrlSetData($input, StringLeft($i, $iLen - 2))
$iLen_prev = $iLen
If $iLen = 20 Then
GUICtrlSetState($Button, $GUI_ENABLE)
Else
GUICtrlSetState($Button, $GUI_DISABLE)
EndIf
EndIf
Return $GUI_RUNDEFMSG
EndFunc

[/autoit]

Gruß,
UEZ

**UEZ**

Zitat von Oscar

UEZ: Bei Deinem Script muss man den Bindestrich extra löschen. Mein Script löscht den Bindestrich, sobald man den Buchstaben danach löscht.

Oscar du bist der Meister!

~~Ferner enthält meine Version noch ein Bug!~~

Fies ist es, wenn man Seriennummer eingibt und anschließend irgend wo in der Mitte ein Zeichen löscht, weil man eine Veränderung machen möchte (auch in deiner Version) ...

Gruß,
UEZ

**UEZ**

Zitat von PrideRage

Gute Arbeit.
Aber mich nervts das die Uhr stehen bleibt wenn man sie bewegt.

Na dann probiere mal dies aus:

Spoiler anzeigen

[autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;scripted by xp_fan;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <Process.au3>

[/autoit] [autoit][/autoit] [autoit]

Opt("TrayMenuMode", 1)
HotKeySet("{ESC}", "_Ende")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

If $CmdLine[0] = 2 Then
_SelectColors($CmdLine[1], $CmdLine[2])
Else
_SelectColors(0xFFFF0000, 0xFF440000)
EndIf

[/autoit] [autoit][/autoit] [autoit]

_Start()

[/autoit] [autoit][/autoit] [autoit]

Func _Start()

[/autoit] [autoit][/autoit] [autoit]

Global $aPoints1[7][2], $aPoints4[7][2]
Global $hGUI = GUICreate("GDI+ Digitaluhr V. 1.1", 620, 175, "", "", $WS_POPUP) ;$WS_EX_LAYERED
Global $hWnd = WinGetHandle("GDI+ Digitaluhr V. 1.1")
GUISetBkColor(0x000000)
Global $Label1 = GUICtrlCreateLabel("", 0, 0, 620, 175, Default, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)
WinSetOnTop("GDI+ Digitaluhr V. 1.1", "", 1)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Global $counter = 0
Global $counter2 = 0
Global $counter3 = 0

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_Startup()

[/autoit] [autoit][/autoit] [autoit]

Global $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
$hPen1 = _GDIPlus_PenCreate($colornotactive)
$hPen2 = _GDIPlus_BrushCreateSolid($coloractive)
$hPen3 = _GDIPlus_BrushCreateSolid($colornotactive)

[/autoit] [autoit][/autoit] [autoit]

$context = GUICtrlCreateContextMenu($Label1)
$farben = GUICtrlCreateMenu("Farben", $context)
$rot = GUICtrlCreateMenuItem("Rot", $farben)
$gruen = GUICtrlCreateMenuItem("Grün", $farben)
$blau = GUICtrlCreateMenuItem("Blau", $farben)
$lila = GUICtrlCreateMenuItem("Lila", $farben)
$orange = GUICtrlCreateMenuItem("Orange", $farben)
$gelb = GUICtrlCreateMenuItem("Gelb", $farben)
$wei = GUICtrlCreateMenuItem("Weiß", $farben)
GUICtrlCreateMenuItem("", $context)
$www = GUICtrlCreateMenuItem("Autoit.de aufrufen", $context)
GUICtrlCreateMenuItem("", $context)
$aktualisieren = GUICtrlCreateMenuItem("Uhr aktualisieren", $context)
GUICtrlCreateMenuItem("", $context)
$about = GUICtrlCreateMenuItem("Über diese Programm", $context)
GUICtrlCreateMenuItem("", $context)
$exit = GUICtrlCreateMenuItem("Beenden", $context)

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_GraphicsDrawEllipse($hGraphic, 196, 50, 15, 15, $hPen1)
_GDIPlus_GraphicsDrawEllipse($hGraphic, 196, 100, 15, 15, $hPen1)
_GDIPlus_GraphicsDrawEllipse($hGraphic, 405, 50, 15, 15, $hPen1)
_GDIPlus_GraphicsDrawEllipse($hGraphic, 405, 100, 15, 15, $hPen1)

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_GraphicsFillEllipse($hGraphic, 196, 50, 15, 15, $hPen3)
_GDIPlus_GraphicsFillEllipse($hGraphic, 196, 100, 15, 15, $hPen3)
_GDIPlus_GraphicsFillEllipse($hGraphic, 405, 50, 15, 15, $hPen3)
_GDIPlus_GraphicsFillEllipse($hGraphic, 405, 100, 15, 15, $hPen3)

[/autoit] [autoit][/autoit] [autoit]

U1()
U2()
U3()
U4()
U5()
U6()
_Dot()

[/autoit] [autoit][/autoit] [autoit]

Global $Hour = @HOUR
Global $Minutes = @MIN
Global $Seconds1 = StringLeft(@SEC, 1)
Global $Seconds2 = StringRight(@SEC, 1)

[/autoit] [autoit][/autoit] [autoit]

Global $sleep = 100
GUIRegisterMsg($WM_TIMER, "_Update") ;$WM_TIMER = 0x0113
DllCall("User32.dll", "int", "SetTimer", "hwnd", $hwnd, "int", 0, "int", $sleep, "int", 0)

[/autoit] [autoit][/autoit] [autoit]

While 1
$msg = GUIGetMsg()
Switch $msg
Case $rot
_Farbe(0xFFFF0000, 0xFF440000)
Case $gruen
_Farbe(0xFF00FF00, 0xFF004400)
Case $blau
_Farbe(0xFF0000FF, 0xFF000044)
Case $lila
_Farbe(0xFF8B00FF, 0xFF000044)
Case $orange
_Farbe(0xFFFFA100, 0xFF441A00)
Case $gelb
_Farbe(0xFFFFFF00, 0xFF444400)
Case $wei
_Farbe(0xFFFFFFFF, 0xFF444444)
Case $www
ShellExecute("www.autoit.de")
Case $aktualisieren
U1()
U2()
U3()
U4()
U5()
U6()
_Dot()
Case $about
MsgBox(262208, "Über dieses Programm", "Dieses Programm wurde von xp_fan aus der deutschen AutoIt-Community http://www.autoit.de geschrieben!" & Chr(10) & "Besonderen Dank an tobi_girst, Oscar und Andy von Autoit.de für ihre Hilfe!")
U1()
U2()
U3()
U4()
U5()
U6()
_Dot()
Case $exit
_Ende()
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>_Start

[/autoit] [autoit][/autoit] [autoit]

Func U1()
$h1 = StringLeft(@HOUR, 1)
Switch $h1
Case 0
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $coloractive, $colornotactive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);0
Case 1
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);1
Case 2
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive, $colornotactive);2
Case 3
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive, $coloractive);3
Case 4
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $colornotactive, $coloractive, $colornotactive, $coloractive, $colornotactive, $coloractive, $coloractive);4
Case 5
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive);5
Case 6
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive);6
Case 7
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $coloractive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);7
Case 8
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);8
Case 9
_7s(20, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(20, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive);9
EndSwitch
EndFunc ;==>U1

[/autoit] [autoit][/autoit] [autoit]

Func U2()
$h2 = StringRight(@HOUR, 1)
Switch $h2
Case 0
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $coloractive, $colornotactive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);0
Case 1
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);1
Case 2
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive, $colornotactive);2
Case 3
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive, $coloractive);3
Case 4
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $colornotactive, $coloractive, $colornotactive, $coloractive, $colornotactive, $coloractive, $coloractive);4
Case 5
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive);5
Case 6
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive);6
Case 7
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $coloractive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);7
Case 8
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);8
Case 9
_7s(115, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(115, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive);9
EndSwitch
EndFunc ;==>U2

[/autoit] [autoit][/autoit] [autoit]

Func U3()
$h3 = StringLeft(@MIN, 1)
Switch $h3
Case 0
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $coloractive, $colornotactive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);0
Case 1
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);1
Case 2
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive, $colornotactive);2
Case 3
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive, $coloractive);3
Case 4
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $colornotactive, $coloractive, $colornotactive, $coloractive, $colornotactive, $coloractive, $coloractive);4
Case 5
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive);5
Case 6
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive);6
Case 7
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $coloractive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);7
Case 8
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);8
Case 9
_7s(230, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(230, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive);9
EndSwitch
EndFunc ;==>U3

[/autoit] [autoit][/autoit] [autoit]

Func U4()
$h4 = StringRight(@MIN, 1)
Switch $h4
Case 0
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $coloractive, $colornotactive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);0
Case 1
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);1
Case 2
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive, $colornotactive);2
Case 3
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive, $coloractive);3
Case 4
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $colornotactive, $coloractive, $colornotactive, $coloractive, $colornotactive, $coloractive, $coloractive);4
Case 5
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive);5
Case 6
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive);6
Case 7
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $coloractive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);7
Case 8
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);8
Case 9
_7s(325, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(325, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive);9
EndSwitch
EndFunc ;==>U4

[/autoit] [autoit][/autoit] [autoit]

Func U5()
$h5 = StringLeft(@SEC, 1)
Switch $h5
Case 0
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $coloractive, $colornotactive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);0
Case 1
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);1
Case 2
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive, $colornotactive);2
Case 3
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive, $coloractive);3
Case 4
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $colornotactive, $coloractive, $colornotactive, $coloractive, $colornotactive, $coloractive, $coloractive);4
Case 5
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive);5
Case 6
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive);6
Case 7
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $coloractive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);7
Case 8
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);8
Case 9
_7s(440, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(440, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive);9
EndSwitch
EndFunc ;==>U5

[/autoit] [autoit][/autoit] [autoit]

Func U6()
$h6 = StringRight(@SEC, 1)
Switch $h6
Case 0
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $coloractive, $colornotactive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);0
Case 1
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);1
Case 2
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive, $colornotactive);2
Case 3
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive, $coloractive);3
Case 4
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $colornotactive, $coloractive, $colornotactive, $coloractive, $colornotactive, $coloractive, $coloractive);4
Case 5
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $colornotactive, $coloractive);5
Case 6
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive);6
Case 7
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $coloractive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $coloractive, $coloractive);7
Case 8
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive, $coloractive);8
Case 9
_7s(535, 20, 0, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive, $colornotactive)
_7s(535, 20, 0, $coloractive, $coloractive, $coloractive, $coloractive, $colornotactive, $coloractive, $coloractive);9
EndSwitch
EndFunc ;==>U6

[/autoit] [autoit][/autoit] [autoit]

Func _Dot()
$hPen1 = _GDIPlus_PenCreate($colornotactive)
$hPen2 = _GDIPlus_BrushCreateSolid($coloractive)
$hPen3 = _GDIPlus_BrushCreateSolid($colornotactive)
If $counter = 1 Then
_GDIPlus_GraphicsFillEllipse($hGraphic, 196, 50, 15, 15, $hPen3)
_GDIPlus_GraphicsFillEllipse($hGraphic, 196, 100, 15, 15, $hPen3)
_GDIPlus_GraphicsFillEllipse($hGraphic, 405, 50, 15, 15, $hPen3)
_GDIPlus_GraphicsFillEllipse($hGraphic, 405, 100, 15, 15, $hPen3)
$counter = 0
Else
_GDIPlus_GraphicsFillEllipse($hGraphic, 196, 50, 15, 15, $hPen2)
_GDIPlus_GraphicsFillEllipse($hGraphic, 196, 100, 15, 15, $hPen2)
_GDIPlus_GraphicsFillEllipse($hGraphic, 405, 50, 15, 15, $hPen2)
_GDIPlus_GraphicsFillEllipse($hGraphic, 405, 100, 15, 15, $hPen2)
$counter = 1
EndIf
EndFunc ;==>_Dot

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Update()
$mp = WinGetPos("GDI+ Digitaluhr V. 1.1")
While $mp[0] And $mp[1] < -10
$mp = WinGetPos("GDI+ Digitaluhr V. 1.1")
U1()
U2()
U3()
U4()
U5()
U6()
$counter2 = 1
Sleep(900)
WEnd
Select
Case $counter2 = 1 And $mp[0] And $mp[1] < -10
U1()
U2()
U3()
U4()
U5()
U6()
$counter2 = 0
Case @HOUR <> $Hour
U1()
U2()
Case @MIN <> $Minutes
U1()
U2()
U3()
U4()
U5()
U6()
Case $Seconds1 <> StringLeft(@SEC, 1)
U1()
U2()
U3()
U4()
U5()
U6()
Case $Seconds2 <> StringRight(@SEC, 1)
U6()
_Dot()
EndSelect
$Seconds1 = StringLeft(@SEC, 1)
$Seconds2 = StringRight(@SEC, 1)
$Minutes = @MIN
$Hour = @HOUR
EndFunc ;==>_Update

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _7s($x, $y, $delete = 0, $c1 = $colornotactive, $c2 = $colornotactive, $c3 = $colornotactive, $c4 = $colornotactive, $c5 = $colornotactive, $c6 = $colornotactive, $c7 = $colornotactive)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Local $aPoints1[7][2], $aPoints2[7][2], $aPoints3[7][2], $aPoints4[7][2], $aPoints5[7][2], $aPoints6[7][2], $aPoints7[7][2], $hPen[14], $Graphic[14]
If $delete = 0 Then

[/autoit] [autoit][/autoit] [autoit]

$Posx1 = $x
$Posy1 = $y + 1
$aPoints1[0][0] = 6

[/autoit] [autoit][/autoit] [autoit]

$aPoints1[1][0] = $Posx1
$aPoints1[1][1] = $Posy1 - 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints1[2][0] = $Posx1 + 10
$aPoints1[2][1] = $Posy1 - 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints1[6][0] = $Posx1 + 10
$aPoints1[6][1] = $Posy1 + 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints1[3][0] = $Posx1 + 50
$aPoints1[3][1] = $Posy1 - 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints1[5][0] = $Posx1 + 50
$aPoints1[5][1] = $Posy1 + 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints1[4][0] = $Posx1 + 60
$aPoints1[4][1] = $Posy1 - 5

[/autoit] [autoit][/autoit] [autoit]

_GDIPlus_Startup()

[/autoit] [autoit][/autoit] [autoit]

$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
$hPen[0] = _GDIPlus_PenCreate($c1)
$hPen[1] = _GDIPlus_BrushCreateSolid($c1)
$Graphic[0] = _GDIPlus_GraphicsDrawPolygon($hGraphic, $aPoints1, $hPen[0])
$Graphic[1] = _GDIPlus_GraphicsFillPolygon($hGraphic, $aPoints1, $hPen[1])

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;2;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Posx2 = $x
$Posy2 = $y + 63
$aPoints2[0][0] = 6

[/autoit] [autoit][/autoit] [autoit]

$aPoints2[1][0] = $Posx2
$aPoints2[1][1] = $Posy2

[/autoit] [autoit][/autoit] [autoit]

$aPoints2[2][0] = $Posx2 + 10
$aPoints2[2][1] = $Posy2 - 7

[/autoit] [autoit][/autoit] [autoit]

$aPoints2[6][0] = $Posx2 + 10
$aPoints2[6][1] = $Posy2 + 7

[/autoit] [autoit][/autoit] [autoit]

$aPoints2[3][0] = $Posx2 + 50
$aPoints2[3][1] = $Posy2 - 7

[/autoit] [autoit][/autoit] [autoit]

$aPoints2[5][0] = $Posx2 + 50
$aPoints2[5][1] = $Posy2 + 7

[/autoit] [autoit][/autoit] [autoit]

$aPoints2[4][0] = $Posx2 + 60
$aPoints2[4][1] = $Posy2
$hPen[2] = _GDIPlus_PenCreate($c2)
$hPen[3] = _GDIPlus_BrushCreateSolid($c2)
$Graphic[2] = _GDIPlus_GraphicsDrawPolygon($hGraphic, $aPoints2, $hPen[2])
$Graphic[3] = _GDIPlus_GraphicsFillPolygon($hGraphic, $aPoints2, $hPen[3])

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;3;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Posx3 = $x - 1
$Posy3 = $y + 125
$aPoints3[0][0] = 6

[/autoit] [autoit][/autoit] [autoit]

$aPoints3[1][0] = $Posx3
$aPoints3[1][1] = $Posy3 + 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints3[2][0] = $Posx3 + 10
$aPoints3[2][1] = $Posy3 - 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints3[6][0] = $Posx3 + 10
$aPoints3[6][1] = $Posy3 + 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints3[3][0] = $Posx3 + 50
$aPoints3[3][1] = $Posy3 - 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints3[5][0] = $Posx3 + 50
$aPoints3[5][1] = $Posy3 + 5

[/autoit] [autoit][/autoit] [autoit]

$aPoints3[4][0] = $Posx3 + 60
$aPoints3[4][1] = $Posy3 + 5

[/autoit] [autoit][/autoit] [autoit]

$hPen[4] = _GDIPlus_PenCreate($c3)
$hPen[5] = _GDIPlus_BrushCreateSolid($c3)
$Graphic[4] = _GDIPlus_GraphicsDrawPolygon($hGraphic, $aPoints3, $hPen[4])
$Graphic[5] = _GDIPlus_GraphicsFillPolygon($hGraphic, $aPoints3, $hPen[5])

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;vertikal;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;4;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Posx4 = $x + 3
$Posy4 = $y
$aPoints4[0][0] = 6

[/autoit] [autoit][/autoit] [autoit]

$aPoints4[1][0] = $Posx4 - 5
$aPoints4[1][1] = $Posy4

[/autoit] [autoit][/autoit] [autoit]

$aPoints4[2][0] = $Posx4 + 5
$aPoints4[2][1] = $Posy4 + 10

[/autoit] [autoit][/autoit] [autoit]

$aPoints4[3][0] = $Posx4 + 5
$aPoints4[3][1] = $Posy4 + 50

[/autoit] [autoit][/autoit] [autoit]

$aPoints4[4][0] = $Posx4 - 5
$aPoints4[4][1] = $Posy4 + 60

[/autoit] [autoit][/autoit] [autoit]

$aPoints4[5][0] = $Posx4 - 5
$aPoints4[5][1] = $Posy4 + 50

[/autoit] [autoit][/autoit] [autoit]

$aPoints4[6][0] = $Posx4 - 5
$aPoints4[6][1] = $Posy4 + 10
$hPen[6] = _GDIPlus_PenCreate($c4)
$hPen[7] = _GDIPlus_BrushCreateSolid($c4)
$Graphic[6] = _GDIPlus_GraphicsDrawPolygon($hGraphic, $aPoints4, $hPen[6])
$Graphic[7] = _GDIPlus_GraphicsFillPolygon($hGraphic, $aPoints4, $hPen[7])

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;5;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Posx5 = $x + 3
$Posy5 = $y + 66
$aPoints5[0][0] = 6

[/autoit] [autoit][/autoit] [autoit]

$aPoints5[1][0] = $Posx5 - 5
$aPoints5[1][1] = $Posy5

[/autoit] [autoit][/autoit] [autoit]

$aPoints5[2][0] = $Posx5 + 5
$aPoints5[2][1] = $Posy5 + 10

[/autoit] [autoit][/autoit] [autoit]

$aPoints5[3][0] = $Posx5 + 5
$aPoints5[3][1] = $Posy5 + 50

[/autoit] [autoit][/autoit] [autoit]

$aPoints5[4][0] = $Posx5 - 5
$aPoints5[4][1] = $Posy5 + 60

[/autoit] [autoit][/autoit] [autoit]

$aPoints5[5][0] = $Posx5 - 5
$aPoints5[5][1] = $Posy5 + 50

[/autoit] [autoit][/autoit] [autoit]

$aPoints5[6][0] = $Posx5 - 5
$aPoints5[6][1] = $Posy5 + 10
$hPen[8] = _GDIPlus_PenCreate($c5)
$hPen[9] = _GDIPlus_BrushCreateSolid($c5)
$Graphic[8] = _GDIPlus_GraphicsDrawPolygon($hGraphic, $aPoints5, $hPen[8])
$Graphic[9] = _GDIPlus_GraphicsFillPolygon($hGraphic, $aPoints5, $hPen[9])

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;6;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Posx6 = $x + 56
$Posy6 = $y
$aPoints6[0][0] = 6

[/autoit] [autoit][/autoit] [autoit]

$aPoints6[1][0] = $Posx6 + 5
$aPoints6[1][1] = $Posy6

[/autoit] [autoit][/autoit] [autoit]

$aPoints6[2][0] = $Posx6 + 5
$aPoints6[2][1] = $Posy6 + 10

[/autoit] [autoit][/autoit] [autoit]

$aPoints6[3][0] = $Posx6 + 5
$aPoints6[3][1] = $Posy6 + 50

[/autoit] [autoit][/autoit] [autoit]

$aPoints6[4][0] = $Posx6 + 5
$aPoints6[4][1] = $Posy6 + 60

[/autoit] [autoit][/autoit] [autoit]

$aPoints6[5][0] = $Posx6 - 5
$aPoints6[5][1] = $Posy6 + 50

[/autoit] [autoit][/autoit] [autoit]

$aPoints6[6][0] = $Posx6 - 5
$aPoints6[6][1] = $Posy6 + 10
$hPen[10] = _GDIPlus_PenCreate($c6)
$hPen[11] = _GDIPlus_BrushCreateSolid($c6)
$Graphic[10] = _GDIPlus_GraphicsDrawPolygon($hGraphic, $aPoints6, $hPen[10])
$Graphic[11] = _GDIPlus_GraphicsFillPolygon($hGraphic, $aPoints6, $hPen[11])

[/autoit] [autoit][/autoit] [autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;7;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
$Posx7 = $x + 56
$Posy7 = $y + 66
$aPoints7[0][0] = 6

[/autoit] [autoit][/autoit] [autoit]

$aPoints7[1][0] = $Posx7 + 5
$aPoints7[1][1] = $Posy7

[/autoit] [autoit][/autoit] [autoit]

$aPoints7[2][0] = $Posx7 + 5
$aPoints7[2][1] = $Posy7 + 10

[/autoit] [autoit][/autoit] [autoit]

$aPoints7[3][0] = $Posx7 + 5
$aPoints7[3][1] = $Posy7 + 50

[/autoit] [autoit][/autoit] [autoit]

$aPoints7[4][0] = $Posx7 + 5
$aPoints7[4][1] = $Posy7 + 60

[/autoit] [autoit][/autoit] [autoit]

$aPoints7[5][0] = $Posx7 - 5
$aPoints7[5][1] = $Posy7 + 50

[/autoit] [autoit][/autoit] [autoit]

$aPoints7[6][0] = $Posx7 - 5
$aPoints7[6][1] = $Posy7 + 10
$hPen[12] = _GDIPlus_PenCreate($c7)
$hPen[13] = _GDIPlus_BrushCreateSolid($c7)
$Graphic[12] = _GDIPlus_GraphicsDrawPolygon($hGraphic, $aPoints7, $hPen[12])
$Graphic[13] = _GDIPlus_GraphicsFillPolygon($hGraphic, $aPoints7, $hPen[13])
Else
For $i = 0 To 12 Step 2
_GDIPlus_PenDispose($hPen[$i])
Next
For $ii = 1 To 13 Step 2
_GDIPlus_BrushDispose($hPen[$i])
Next
For $iii = 0 To 13
_GDIPlus_GraphicsDispose($hGraphic)
Next
_GDIPlus_Shutdown()
EndIf
EndFunc ;==>_7s

[/autoit] [autoit][/autoit] [autoit]

Func _SelectColors($choosecoloractive = 0xFF00FF00, $choosecolornotactive = 0xFF004400)
Global $coloractive = $choosecoloractive
Global $colornotactive = $choosecolornotactive
EndFunc ;==>_SelectColors

[/autoit] [autoit][/autoit] [autoit]

Func _Ende()
GUIRegisterMsg($WM_TIMER, "")
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
Exit
EndFunc ;==>_Ende

[/autoit] [autoit][/autoit] [autoit]

Func _Farbe($active, $notactive)
GUIRegisterMsg($WM_TIMER, "")
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown()
GUIDelete()
$param1 = String($active)
$param2 = String($notactive)
$s2 = String(@ScriptName)
If @OSArch = 'X86' Then
$autoit = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt', 'InstallDir') & '\AutoIt3.exe' ; für 32 Bit
Else
$autoit = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\AutoIt v3\AutoIt', 'InstallDir') & '\AutoIt3_x64.exe' ; für 64 Bit
EndIf
Run(Chr(34) & $autoit & Chr(34) & " " & $s2 & " " & $param1 & " " & $param2)
Exit
EndFunc ;==>_Farbe

[/autoit]

@xp-fan: du solltest die Deklaration der Variablen lieber oben schreiben, als in Funktionen!

Gruß,
UEZ

**UEZ**

Normalerweise möchte man(n) es größer haben, aber hier die noch kürzere Variante:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$Form = GUICreate("Seriennummer", 232, 83)
$1 = GUICtrlCreateInput("", 48, 30, 136)
$Label = GUICtrlCreateLabel("Format: XXXX-XXXX-XXXX-XXXX", 32, 8, 163, 17)
GUICtrlSetLimit($1, 19)
$Button = GUICtrlCreateButton("Weiter", 144, 56, 75, 25, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState()
$iLen_prev = 0
GUIRegisterMsg($WM_COMMAND, '_WM_COMMAND')

[/autoit] [autoit][/autoit] [autoit]

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
If BitAND($wParam, 0x0000FFFF) = $1 Then
GUICtrlSetData($1, StringUpper(GUICtrlRead($1))) ;Großschreibung
$i = GUICtrlRead($1)
$iLen = StringLen($i) + 1
If Mod($iLen, 5) = 0 And $iLen > $iLen_prev And $iLen < 20 Then GUICtrlSetData($1, $i & "-")
If Mod($iLen, 5) = 0 And $iLen < $iLen_prev Then GUICtrlSetData($1, StringLeft($i, $iLen - 2))
$iLen_prev = $iLen
If $iLen = 20 Then
GUICtrlSetState($Button, $GUI_ENABLE)
Else
GUICtrlSetState($Button, $GUI_DISABLE)
EndIf
EndIf
Return $GUI_RUNDEFMSG
EndFunc

[/autoit]

Gruß,
UEZ

Edit: hoffentlich jetzt Bugfrei!

**UEZ**

Sollte jetzt gefixt sein! -> [ gelöst ] Nach jeden 4. Zeichen ein "-" setzen.

UEZ

**UEZ**

Hier noch eine Variante (ein Mix aus Oscar's und meiner Variante):

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test-Gui", 232, 83, 192, 124)
$1 = GUICtrlCreateInput("", 16, 32, 201, 21)
$Label1 = GUICtrlCreateLabel("Format: XXXX-XXXX-XXXX-XXXX", 32, 8, 163, 17)
$label_limit = 19
GUICtrlSetLimit($1, $label_limit)
$Button1 = GUICtrlCreateButton("Weiter", 144, 56, 75, 25, $WS_GROUP)
$iLen_prev = 0
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUIRegisterMsg($WM_COMMAND, '_WM_COMMAND')

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

Func _WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
Local $nNotifyCode, $nID, $sInput
$nNotifyCode = BitShift($wParam, 16)
$nID = BitAND($wParam, 0x0000FFFF)
If $nID = $1 Then
GUICtrlSetData($1, StringUpper(GUICtrlRead($1))) ;Großschreibung
$iLen = StringLen(GUICtrlRead($1))
If Mod($iLen + 1, 5) = 0 And $iLen < $label_limit And $iLen > $iLen_prev Then GUICtrlSetData($1,GUICtrlRead($1) & "-")
$iLen_prev = $iLen
If $iLen = $label_limit Then
GUICtrlSetState($Button1, $GUI_ENABLE)
Else
GUICtrlSetState($Button1, $GUI_DISABLE)
EndIf
EndIf
Return $GUI_RUNDEFMSG
EndFunc

[/autoit]

Gruß,
UEZ

**UEZ**

Hier mein Vorschlag:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test-Gui", 232, 83, 192, 124)
$1 = GUICtrlCreateInput("", 16, 32, 201, 21)
GUICtrlSetLimit($1, 16)
$Label1 = GUICtrlCreateLabel("Format: XXXX-XXXX-XXXX-XXXX", 32, 8, 163, 17)
$Button1 = GUICtrlCreateButton("Weiter", 144, 56, 75, 25, $WS_GROUP)
;~ GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

Global $output

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$aTemp = StringSplit(GUICtrlRead($1), "")
For $x = 1 To UBound($aTemp) - 1
$output &= $aTemp[$x]
If Mod($x, 4) = 0 And $x < UBound($aTemp) - 1 Then $output &= "-"
Next
MsgBox(0, "Format", $output)
EndSwitch
WEnd

[/autoit]

Gruß,
UEZ

Edit: habe noch GUICtrlSetLimit($1, 16) hinzugefügt!
Edit2: sorry, habe das "automatisch" überlesen! -> Oscar's Version unten ist deine Lösung!

**UEZ** · File_Seeker v0.85 Build 2010-12-01 Beta **UEZ** 1. Januar 2010 um 15:46

Zitat von Jam00

Müsste man nur mal ausprobieren was am schnellsten ist

Da sollte es keine großen Unterschiede geben, da etliche Leute das ähnlich geskriptet haben (auch besser)! Ich habe leider vorher nicht nach solchen Skripten gesucht, denn dann hätte ich mir die Arbeit auch sparen können!

Gruß,
UEZ

**UEZ** · File_Seeker v0.85 Build 2010-12-01 Beta **UEZ** 27. Dezember 2009 um 21:18

Vielleicht gibt es massig solcher Skripte, aber das hier ist mit echter Rekursion (Funktion ruft sich selbst wieder auf)!

Spoiler anzeigen

[autoit]

#include <Array.au3>
Dim $ergebnis[1]

[/autoit] [autoit][/autoit] [autoit]

$path = @WindowsDir

[/autoit] [autoit][/autoit] [autoit]

If StringRight($path, 1) <> "\" Then $path &= "\"
$depth = StringReplace($path, "\", "\")
$depth = @extended - 1
If StringLeft($path, 2) = "\\" Then $depth -= 2
$file = ".log" ;to search for any file use "*"
;~ $ergebnis = File_Seeker($path, $file, $ergebnis, 0, 1) ;searchs for ".log" (exact search)
;~ $ergebnis = File_Seeker($path, $file, $ergebnis, 0, 0, 1, 0) ;searchs for "*.log*" recursively but dir names are excluded
;~ $ergebnis = File_Seeker($path, $file, $ergebnis, 0, 0, 0, 0) ;searchs for "*.log*" but not recursive and no dir names
$ergebnis = File_Seeker($path, $file, $ergebnis, 1, 0, 1) ;searchs for files with extension .log but dir names are excluded

[/autoit] [autoit][/autoit] [autoit]

If Not @error Then
;~ _ArraySort($ergebnis)
_ArrayDisplay($ergebnis)
;~ Local $log
;~ For $i = 1 To UBound($ergebnis) - 1
;~ $log &= $ergebnis[$i] & @CRLF
;~ Next
;~ $file = FileOpen(@ScriptDir & "\Ergebnis.log", 1)
;~ FileWrite($file, $log)
;~ FileClose($file)
EndIf

[/autoit] [autoit][/autoit] [autoit]

Exit

[/autoit] [autoit][/autoit] [autoit]

;==================================================================================================
; Function Name: File_Seeker($path, $file, $array)
; Description: searchs for a file recursively on given drive
; Parameters: $path: path where to search
; $file: filename to search for
; $array: to save the search results
; Optional:
; $ext: search for file extension, e.g. .mp3
; $exact: to search for exact file name (not case sensitive)
; $rec: to search recursively for files and folders
; $folder: include also folder names to search pattern
; $maxr: maximum of recursion depth, 0 = maxiumum
; Return Value(s): an array with the full path of the files, $array[0] = amount of found files
; Version: v0.85 Build 2010-12-01 Beta
; Author(s): UEZ
;==================================================================================================
Func File_Seeker($path, $file, ByRef $aResults, $ext = 0, $exact = 0, $rec = 1, $folder = 0, $maxr = 0)
Local $extended, $d
If Not IsInt($maxr) Then Return SetError(2)
If $file <> "" And IsArray($aResults) And BitAND($ext, $exact) <> 1 Then
If StringLeft($path, 2) = "\\" Or (StringRegExp(StringLeft($path, 1), "(?i:[A-Z])") And StringMid($path, 2, 1) = ":") Then
If $maxr Then
$d = StringReplace($path, "\", "\")
$d = @extended - 1
If StringLeft($path, 2) = "\\" Then $d -= 2
$d -= $depth
;~ ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $d = ' & $d & ">=" & $maxr & ": " & $path & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
If $d > $maxr Then Return SetError(5)
EndIf
If StringRight($path, 1) <> "\" Then $path &= "\"
Local $seek, $suffix = ""
Local $search = FileFindFirstFile($path & "*")
If $search = -1 Then
Return SetError(3)
EndIf
While 1
$seek = FileFindNextFile($search)
$extended = @extended
If @error Then ExitLoop
If $extended And $rec Then File_Seeker($path & $seek & "\", $file, $aResults, $ext, $exact, $rec, $folder, $maxr)
If $exact And Not $ext Then
If $seek = $file Then _ArrayAdd($aResults, $path & $seek)
Else
If $ext Then
If StringRegExp($seek, "(?i:\" & $file & "+$\b)") And StringLeft($file, 1) = "." Then
If ($extended And $folder) Or Not $extended Then _ArrayAdd($aResults, $path & $seek)
EndIf
Else
If $file = "*" Then
If ($extended And $folder) Or Not $extended Then _ArrayAdd($aResults, $path & $seek)
Else
If StringInStr($file, ".") Then
If StringRegExp($seek, "(?i:\" & $file & ")+") Then
If ($extended And $folder) Or Not $extended Then _ArrayAdd($aResults, $path & $seek)
EndIf
Else
If StringRegExp($seek, "(?i:" & $file & ")+") Then
If ($extended And $folder) Or Not $extended Then _ArrayAdd($aResults, $path & $seek)
EndIf
EndIf
EndIf
EndIf
EndIf
WEnd
FileClose($search)
$aResults[0] = UBound($aResults) - 1
Return SetError(0, 0, $aResults)
Else
Return SetError(4)
EndIf
Else
Return SetError(1)
EndIf
EndFunc

[/autoit]

Kritik? Bugs?

Gruß,
UEZ

PS: na ja, hab' das Forum nach sowas durchsucht und musste feststellen, dass ich das Rad neu erfunden habe. Hier meine Variante

**UEZ**

Gefällt mir ganz gut - sehr übersichtlich!

Vorschläge:

Fenster zu klein -> Größe sollte individuell anpassbar sein (resizeable window)
wenn der Scan zu Ende ist, dann vielleicht ein MsgBox, denn z.Zt. sich man das nicht, obwohl der Balken bei 100% ist
Export Funktion in eine Datei, z.B. in CSV, Text

Gruß,
UEZ

Beiträge von UEZ

Array einlesen + bearbeiten

Fremdes Fenster mit GDI+ bearbeiten

Fremdes Fenster mit GDI+ bearbeiten

Array einlesen + bearbeiten

Fremdes Fenster mit GDI+ bearbeiten

GDIPlus Digitaluhr

GDIPlus Digitaluhr

GetMonitor-Funktion testen

GetMonitor-Funktion testen

GetMonitor-Funktion testen

Nach jeden 4. Zeichen ein "-" setzen

Nach jeden 4. Zeichen ein "-" setzen

GDIPlus Digitaluhr

Nach jeden 4. Zeichen ein "-" setzen

Nach jeden 4. Zeichen ein "-" setzen

Nach jeden 4. Zeichen ein "-" setzen

Nach jeden 4. Zeichen ein "-" setzen

File_Seeker v0.85 Build 2010-12-01 Beta

File_Seeker v0.85 Build 2010-12-01 Beta

AskSystem 1.7.3 - Optimierung nötig! :P