Hier is mein Kleines nutzloses Skript
das ich aus langeweile geschreiben habe
Spoiler anzeigen
#include<GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
_GDIPlus_Startup()
$hGUI = GUICreate("Form1", 625, 443, 192, 124)
$Graphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
GUISetState(@SW_SHOW)
$Rot = _GDIPlus_PenCreate(0xFFFF0000)
$Gruen = _GDIPlus_PenCreate(0xFF00FF00)
$Blau = _GDIPlus_PenCreate(0xFF0000FF)
For $y = 1 To 442
For $x = 0 To 624
$Random = Random(1, 3,1)
Switch $Random
Case 1
_GDIPlus_GraphicsDrawLine($Graphic, $x, $y, 1, $y, $Rot)
Case 2
_GDIPlus_GraphicsDrawLine($Graphic, $x, $y, 1, $y, $Gruen)
Case 3
_GDIPlus_GraphicsDrawLine($Graphic, $x, $y, 1, $y, $Blau)
EndSwitch
Next
if GUIGetMsg() = -3 Then Exit
Next
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_GDIPlus_PenDispose($Rot)
_GDIPlus_PenDispose($Blau)
_GDIPlus_PenDispose($Gruen)
_GDIPlus_GraphicsDispose($Graphic)
_GDIPlus_Shutdown()
Exit
EndSwitch
WEnd
lof mit dem ding