Local $9=InputBox("",""),$t=StringSplit($9,""), _
$s=Random(100,9*10^7,1),$w=@DesktopWidth,$o="", _
$x=GUICreate(""),$h=@DesktopHeight,$r=c(0,0,9,$s)
For $i=1 To $t[0];...............................
c($i,0,9,$s/Asc($t[$i]));........................
Next;............................................
Local $r=GUISetState(),$Col=PixelGetColor(0,0,$x)
For $i=1 To $t[0];...............................
$p=pixelGetColor($i,0,$x);.......................
$O&=Chr($s/$p);..................................
Next;............................................
GUICtrlCreateLabel($o,0,21,400,380);.............
Do;..............................................
Until GUIGetMsg()=-3;............................
Func c($2,$3,$4,$5);.............................
GUICtrlCreateLabel("",$2,$3,1,$4);...............
GUICtrlSetBkColor(-1,$5);........................
EndFunc;.........................................