Hallo wollte mir einen random Icon Generator schreiben habe es so getestet aber kriege es nicht hin das ganze anzuspeichern die Lösung ist auch etwas blöd vlt hat jemand eine bessere Idee wie man das ganze umsetzen kann möglichst einfach da ich noch ziemlicher Anfänger bin da ganze ist ziemlich hingebastelt ist wird wenn es funktioniert noch entrümpelt und optimiert keine sorge
Edit:was ich auch noch nicht ganz verstanden habe ist warum obwohl ich die Farbe random erzeuge meist grünlich ist eher selten rot oder blau ...
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <GDIPlus.au3>
#include <array.au3>
$gui = GUICreate("gdiplus", 300,300)
$string1 = ""
Local $array1[0]
while 1
$1 = Random(1,300,1)
$2 = Random(1,300,1)
$3 = Random(1,300,1)
$4 = Random(1,300,1)
$5 = random(1,6,1)
$6 = random(1,6,1)
$7 = random(1,6,1)
$8 = random(1,255,1)
$9 = random(1,255,1)
$10 = random(1,255,1)
$string = ""
$counter = 0
do
$5 = ""
$5 = random(1,6,1)
$counter = $counter +1
if $5 = 1 then
$string1 = "AA"
EndIf
if $5 = 2 then
$string1 = "BB"
EndIf
if $5 = 3 then
$string1 = "CC"
EndIf
if $5 = 4 then
$string1 = "DD"
EndIf
if $5 = 5 then
$string1 = "EE"
EndIf
if $5 = 6 then
$string1 = "FF"
EndIf
_ArrayAdd($array1,$string1)
[/autoit][autoit][/autoit][autoit]$string2 = $string1 & $string1
;MsgBox(0,"",$5 & " string:" & $string2)
Until $counter = 3
;$key = $array1[$
;_ArrayDisplay($array1, "daks")
$key = "0x" & $array1[0] & $8 & $array1[1] & $9 & $array1[2] & $10
;$key = ClipGet()
;MsgBox(0,"",$key)
_ArrayDelete($array1, 0)
_ArrayDelete($array1, 1)
_ArrayDelete($array1, 2)
_ArrayDelete($array1, 3)
_ArrayDelete($array1, 4)
_ArrayDelete($array1, 5)
_ArrayDelete($array1, 6)
_ArrayDelete($array1, 7)
_ArrayDelete($array1,
;ClipPut($key)
[/autoit][autoit][/autoit][autoit];0xAA99AA9AA211
GUISetState()
_GDIPlus_Startup()
$grafik = _GDIPlus_GraphicsCreateFromHWND($gui)
_GDIPlus_GraphicsDrawLine($grafik,$1,$2,$3,$4, _GDIPlus_PenCreate($key,11))
Sleep(19)
_GDIPlus_GraphicsDrawEllipse($grafik,$1, $2,$3, $4)
;_GDIPlus_GraphicsDraw
$bitmap = _GDIPlus_BitmapCreateFromHBITMAP($grafik)
_GDIPlus_ImageSaveToFile($bitmap, @ScriptDir&"\Gespeichert.ico")
WEnd