Crazy GUI

Waluev

Naja hier mal ne kleine Spielerei (Spinnerei), hatte nix zu tun.

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

#include <GUIConstants.au3>

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

$main = GUICreate("GUI")
GUISetState(@SW_SHOW)

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

CrazyGUI(200, 100)

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

While 1
$Msg = GUIGetMsg()
Select
Case $Msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

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

Func CrazyGUI($Number, $wait)
For $i = 1 To $Number
GUISetBkColor(Random(0, 16777215, 1))
WinMove("GUI", "", Random(1, 1024, 1), Random(1, 768, 1), Random(40, 500, 1), Random(40, 500, 1))
Sleep($wait)
Next
EndFunc

[/autoit]

vielleicht, braucht es ja mal jemand.

Einzig interessanter Bestandteil des Skriptes ist wahrscheinlich der GUIBkFlash...hier mal als extra Funktion

[autoit]

Func GUIBkFlash($Number, $wait)
For $i = 1 To $Number
GUISetBkColor(Random(0, 16777215, 1));thx an GTA für die Hilfe beim Farbrandom
Sleep($wait)
Next
EndFunc

[/autoit]

also dann viel Spaß damit

Walle

sc4ry

lustige sache ...

schön wäre eigentlich noch, wenn man das ganze nicht so einfach abschalten könnte *hehe*

wär natürlich ne ärgerei *hehe*

Waluev

Hab das mal noch bissche abgeändert, ich nenne es jetzt Disco Time, wieso nur?^^

[autoit]

#include <GUIConstants.au3>
#NoTrayIcon

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

HotKeySet("{ESC}", "_Exit")

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

$main = GUICreate("Disco Time",370,340)

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

$Button1 = GUICtrlCreateButton("",10,10,50,50)
$Button2 = GUICtrlCreateButton("",70,10,50,50)
$Button3 = GUICtrlCreateButton("",130,10,50,50)
$Button4 = GUICtrlCreateButton("",190,10,50,50)
$Button5 = GUICtrlCreateButton("",250,10,50,50)
$Button6 = GUICtrlCreateButton("",310,10,50,50)
$Button7 = GUICtrlCreateButton("",10,70,50,50)
$Button8 = GUICtrlCreateButton("",70,70,50,50)
$Button9 = GUICtrlCreateButton("",130,70,50,50)
$Button10 = GUICtrlCreateButton("",190,70,50,50)
$Button11 = GUICtrlCreateButton("",250,70,50,50)
$Button12 = GUICtrlCreateButton("",310,70,50,50)
$Button13 = GUICtrlCreateButton("",10,140,50,50)
$Button14 = GUICtrlCreateButton("",70,140,50,50)
$Button15 = GUICtrlCreateButton("",130,140,50,50)
$Button16 = GUICtrlCreateButton("",190,140,50,50)
$Button17 = GUICtrlCreateButton("",250,140,50,50)
$Button18 = GUICtrlCreateButton("",310,140,50,50)
$Button19 = GUICtrlCreateButton("",10,210,50,50)
$Button20 = GUICtrlCreateButton("",70,210,50,50)
$Button21 = GUICtrlCreateButton("",130,210,50,50)
$Button22 = GUICtrlCreateButton("",190,210,50,50)
$Button23 = GUICtrlCreateButton("",250,210,50,50)
$Button24 = GUICtrlCreateButton("",310,210,50,50)
$Button25 = GUICtrlCreateButton("",10,280,50,50)
$Button26 = GUICtrlCreateButton("",70,280,50,50)
$Button27 = GUICtrlCreateButton("",130,280,50,50)
$Button28 = GUICtrlCreateButton("",190,280,50,50)
$Button29 = GUICtrlCreateButton("",250,280,50,50)
$Button30 = GUICtrlCreateButton("",310,280,50,50)
GUISetState(@SW_SHOW)

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

DO
CrazyGUI(99999, 100)
Until Not WinExists("GUI")

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

Func _Exit()
Exit
EndFunc

Func CrazyGUI($Number, $wait)
For $i = 1 To $Number
GUISetBkColor(Random(0, 16777215, 1))
GUICtrlSetBkColor($Button1, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button2, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button3, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button4, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button5, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button6, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button7, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button8, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button9, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button10, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button11, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button12, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button13, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button14, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button15, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button16, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button17, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button18, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button19, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button20, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button21, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button22, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button23, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button24, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button25, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button26, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button27, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button28, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button29, Random(0, 16777215, 1))
GUICtrlSetBkColor($Button30, Random(0, 16777215, 1))
Sleep($wait)
Next
EndFunc

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

;~ WinMove("GUI", "", Random(1, 1024, 1), Random(1, 768, 1), Random(40, 500, 1), Random(40, 500, 1))

[/autoit]

viel Spaß xD

Walle

**Alina**

Hallo Waluev.

Krass, fehlt nur noch maximale Bildschirmgröße.

LG, Lina

snoozer

Zitat

Original von Alina
Hallo Waluev.

Krass, fehlt nur noch maximale Bildschirmgröße.

LG, Lina

ich sag dazu dann nur noch blockinput......^^

snoozer

Waluev

HI, ich könnte maximale Bildschirmgröße machen, nur weiß ich dann nicht, wie das mit den Buttons gehen soll, die sind ja dann immer unterschiedlich in der Anzahl.

Ich wollte das ja ursprünglich über ein Array lösen (ja auch ich hatte das mal vor ) aber das geht blöd, da er die Buttons dann alle nur nacheinander aufbaut und das sieht blöd aus.

Ich schau mal ob ich was hinbekomme, und vlt mach ich auch ein "Fies"Tool draus^^

Walle

Edit: Mein Vorstellung wäre das sich das synchron zur Musik bewegt bzw verändert, nur pee meint das wäre zu pro für mich *pfff*

sc4ry

also ich wollte nur loswerden, dass ich deine version 1 besser finde =)

Waluev

da leuchtet es aber nicht so bunt und blinkt auch nicht so wild

Walle

teh_hahn

Hi, fand die Idee ganz witzig und habe die Funktionen mal etwas "überarbeitet", damit man sie auch wirklich als UDF verwenden kann!

GUICrazy.au3

Spoiler anzeigen

[autoit]

#include-once

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

#cs ----------------------------------------------------------------------------
UDF Name..........: _GUISetCrazyBk
UDF Version.......: 1.0
Change Date.......: 2007-08-24
UDF Description...: Changes the background color of a GUI in disco mode.

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

Author(s).........: Waluev (autoit.de)
teh_hahn <[email='sPiTsHiT@gmx.de'][/email]>
Company...........: none
URL...............: http://www.autoit.de/

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

Parameter(s)......: $I_COUNT - Specifies the number of times to change the background color of the GUI.
$S_WINTITLE - [optional] Specifies the title of the GUI.
$S_WINTEXT - [optional] Specifies the text of the GUI.
$I_INTERVAL - [optional] Specifies the time between the change of the background color of the GUI (default = 250).
$I_SETORG - [optional] Specifies whether to set the background color of the GUI to its original or not.
0 = Do not change the background color of the GUI to its original.
1 = (default) Change the background color of the GUI to its original.
Return Value......: Success: Returns 1
Failure: Returns 0 if the GUI does not exist.

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

AutoIt Version....: 3.2.4.9
Note(s)...........: none
#ce ----------------------------------------------------------------------------
Func _GUISetCrazyBk(Const $I_COUNT, Const $S_WINTITLE = "", Const $S_WINTEXT = "", Const $I_INTERVAL = 250, Const $I_SETORG = 1)
Local Const $H_WINHANDLE = WinGetHandle($S_WINTITLE, $S_WINTEXT)
If $H_WINHANDLE == "" Then
Return (0)
EndIf

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

For $i = 1 To $I_COUNT Step 1
GUISetBkColor(Random(0, 16777215, 1), $H_WINHANDLE)
Sleep($I_INTERVAL)
Next

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

If $I_SETORG == 1 Then
GUISetBkColor(0xD4D0C8, $H_WINHANDLE)
EndIf

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

Return (1)
EndFunc ;==>_GUISetCrazyBk

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

#cs ----------------------------------------------------------------------------
UDF Name..........: _GUISetCrazyPos
UDF Version.......: 1.0
Change Date.......: 2007-08-24
UDF Description...: Changes the position of a GUI in disco mode.

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

Author(s).........: Waluev (autoit.de)
teh_hahn <[email='sPiTsHiT@gmx.de'][/email]>
Company...........: none
URL...............: http://www.autoit.de/

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

Parameter(s)......: $I_COUNT - Specifies the number of times to change the position of the GUI.
$S_WINTITLE - [optional] Specifies the title of the GUI.
$S_WINTEXT - [optional] Specifies the text of the GUI.
$I_INTERVAL - [optional] Specifies the time between the change of the position of the GUI (default = 250).
$I_SETORG - [optional] Specifies whether to set the position of the GUI to its original or not.
0 = Do not change the position of the GUI to its original.
1 = (default) Change the position of the GUI to its original.
Return Value......: Success: Returns 1
Failure: Returns 0 if the GUI does not exist.

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

AutoIt Version....: 3.2.4.9
Note(s)...........: none
#ce ----------------------------------------------------------------------------
Func _GUISetCrazyPos(Const $I_COUNT, Const $S_WINTITLE = "", Const $S_WINTEXT = "", Const $I_INTERVAL = 250, Const $I_SETORG = 1)
Local Const $H_WINHANDLE = WinGetHandle($S_WINTITLE, $S_WINTEXT)
If $H_WINHANDLE == "" Then
Return (0)
EndIf

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

Local Const $A_ORGWINPOS = WinGetPos($S_WINTITLE, $S_WINTEXT)
Local $a_winpos = -1

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

For $i = 1 To $I_COUNT Step 1
$a_winpos = WinGetPos($S_WINTITLE, $S_WINTEXT)
WinMove($S_WINTITLE, $S_WINTEXT, Random(0, @DesktopWidth - $a_winpos[2], 1), Random(0, @DesktopHeight - $a_winpos[3], 1))
Sleep($I_INTERVAL)
Next

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

If $I_SETORG == 1 Then
WinMove($S_WINTITLE, $S_WINTEXT, $A_ORGWINPOS[0], $A_ORGWINPOS[1], $A_ORGWINPOS[2], $A_ORGWINPOS[3])
EndIf

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

Return (1)
EndFunc ;==>_GUISetCrazyPos

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

#cs ----------------------------------------------------------------------------
UDF Name..........: _GUICtrlSetCrazyBk
UDF Version.......: 1.0
Change Date.......: 2007-08-24
UDF Description...: Changes the background color of GUI-controls in disco mode.

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

Author(s).........: Waluev (autoit.de)
teh_hahn <[email='sPiTsHiT@gmx.de'][/email]>
Company...........: none
URL...............: http://www.autoit.de/

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

Parameter(s)......: $I_COUNT - Specifies the number of times to change the background color of the GUI-control(s).
$CONTROLID - Specifies the GUI-control(s) to change the background color.
If $CONTROLID is a variable only one GUI-control will be changed.
If $CONTROLID is an array every GUI-control from $CONTROLID[0...n] will be changed.
$I_INTERVAL - [optional] Specifies the time between the change of the background color of the GUI-control(s) (default = 250).
$I_SETORG - [optional] Specifies whether to set the GUI-control(s) to their original color or not.
0 = Do not change the GUI-control(s) to their original color.
1 = (default) Change the GUI-control(s) to their original color.
Return Value......: Success: Returns 1
Failure: Returns 0 if $CONTROLID is not an array or the GUI-control does not exist.

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

AutoIt Version....: 3.2.4.9
Note(s)...........: none
#ce ----------------------------------------------------------------------------
Func _GUICtrlSetCrazyBk(Const $I_COUNT, Const $CONTROLID, Const $I_INTERVAL = 250, Const $I_SETORG = 1)
If IsArray($CONTROLID) == 1 Then
For $i = 1 To $I_COUNT Step 1
For $p = 0 To UBound($CONTROLID) - 1 Step 1
GUICtrlSetBkColor($CONTROLID[$p], Random(0, 16777215, 1))
Next
Sleep($I_INTERVAL)
Next

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

If $I_SETORG == 1 Then
For $p = 0 To UBound($CONTROLID) - 1 Step 1
GUICtrlSetBkColor($CONTROLID[$p], 0xD4D0C8)
Next
EndIf

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

Return (1)
ElseIf GUICtrlGetHandle($CONTROLID) <> 0 Then
For $i = 1 To $I_COUNT Step 1
GUICtrlSetBkColor($CONTROLID, Random(0, 16777215, 1))
Sleep($I_INTERVAL)
Next

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

If $I_SETORG == 1 Then
GUICtrlSetBkColor($CONTROLID, 0xD4D0C8)
EndIf

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

Return (1)
EndIf

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

Return (0)
EndFunc ;==>_GUICtrlSetCrazyBk

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

Func _GUISetCrazy(Const $I_COUNT, Const $S_WINTITLE = "", Const $S_WINTEXT = "", Const $A_CONTROLIDS = -1, Const $I_INTERVAL = 250, Const $I_SETORG = 1)
Local Const $H_WINHANDLE = WinGetHandle($S_WINTITLE, $S_WINTEXT)
If $H_WINHANDLE == "" Then
Return (0)
EndIf

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

Local Const $A_ORGWINPOS = WinGetPos($S_WINTITLE, $S_WINTEXT)
Local $a_winpos = -1

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

For $i = 1 To $I_COUNT Step 1
$a_winpos = WinGetPos($S_WINTITLE, $S_WINTEXT)
WinMove($S_WINTITLE, $S_WINTEXT, Random(0, @DesktopWidth - $a_winpos[2], 1), Random(0, @DesktopHeight - $a_winpos[3], 1))
GUISetBkColor(Random(0, 16777215, 1), $H_WINHANDLE)
For $p = 0 To UBound($A_CONTROLIDS) - 1 Step 1
GUICtrlSetBkColor($A_CONTROLIDS[$p], Random(0, 16777215, 1))
Next
Sleep($I_INTERVAL)
Next

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

If $I_SETORG == 1 Then
WinMove($S_WINTITLE, $S_WINTEXT, $A_ORGWINPOS[0], $A_ORGWINPOS[1], $A_ORGWINPOS[2], $A_ORGWINPOS[3])
GUISetBkColor(0xD4D0C8, $H_WINHANDLE)
For $p = 0 To UBound($A_CONTROLIDS) - 1 Step 1
GUICtrlSetBkColor($A_CONTROLIDS[$p], 0xD4D0C8)
Next
EndIf

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

Return (1)
EndFunc ;==>_GUISetCrazy

[/autoit]

GUICrazy_Example.au3

Spoiler anzeigen

[autoit]

#NoTrayIcon
#include <GUIConstants.au3>
#include "GUICrazy.au3"

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

Local Const $I_COUNT = 10
Local Const $I_INTERVAL = 250
Local Const $I_RETURNTOORG = 1

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

Local Const $S_WINTITLE = "Crazy Windows"
Local $a_controls[30]
Local $h_maingui = -1
Local $msg = -1
$h_maingui = GUICreate($S_WINTITLE, 370, 340)
$a_controls[0] = GUICtrlCreateButton("", 10, 10, 50, 50)
$a_controls[1] = GUICtrlCreateButton("", 70, 10, 50, 50)
$a_controls[2] = GUICtrlCreateButton("", 130, 10, 50, 50)
$a_controls[3] = GUICtrlCreateButton("", 190, 10, 50, 50)
$a_controls[4] = GUICtrlCreateButton("", 250, 10, 50, 50)
$a_controls[5] = GUICtrlCreateButton("", 310, 10, 50, 50)
$a_controls[6] = GUICtrlCreateButton("", 10, 70, 50, 50)
$a_controls[7] = GUICtrlCreateButton("", 70, 70, 50, 50)
$a_controls[8] = GUICtrlCreateButton("", 130, 70, 50, 50)
$a_controls[9] = GUICtrlCreateButton("", 190, 70, 50, 50)
$a_controls[10] = GUICtrlCreateButton("", 250, 70, 50, 50)
$a_controls[11] = GUICtrlCreateButton("", 310, 70, 50, 50)
$a_controls[12] = GUICtrlCreateButton("", 10, 140, 50, 50)
$a_controls[13] = GUICtrlCreateButton("", 70, 140, 50, 50)
$a_controls[14] = GUICtrlCreateButton("", 130, 140, 50, 50)
$a_controls[15] = GUICtrlCreateButton("", 190, 140, 50, 50)
$a_controls[16] = GUICtrlCreateButton("", 250, 140, 50, 50)
$a_controls[17] = GUICtrlCreateButton("", 310, 140, 50, 50)
$a_controls[18] = GUICtrlCreateButton("", 10, 210, 50, 50)
$a_controls[19] = GUICtrlCreateButton("", 70, 210, 50, 50)
$a_controls[20] = GUICtrlCreateButton("", 130, 210, 50, 50)
$a_controls[21] = GUICtrlCreateButton("", 190, 210, 50, 50)
$a_controls[22] = GUICtrlCreateButton("", 250, 210, 50, 50)
$a_controls[23] = GUICtrlCreateButton("", 310, 210, 50, 50)
$a_controls[24] = GUICtrlCreateButton("", 10, 280, 50, 50)
$a_controls[25] = GUICtrlCreateButton("", 70, 280, 50, 50)
$a_controls[26] = GUICtrlCreateButton("", 130, 280, 50, 50)
$a_controls[27] = GUICtrlCreateButton("", 190, 280, 50, 50)
$a_controls[28] = GUICtrlCreateButton("", 250, 280, 50, 50)
$a_controls[29] = GUICtrlCreateButton("", 310, 280, 50, 50)
GUISetState(@SW_SHOW, $h_maingui)

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

MsgBox(64, $S_WINTITLE, "_GUICtrlSetCrazyBk" & @CR & "Count: " & $I_COUNT & @CR & "Interval: " & $I_INTERVAL & @CR & "Return to OrigCol: " & $I_RETURNTOORG)
_GUICtrlSetCrazyBk ($I_COUNT, $a_controls, $I_INTERVAL, $I_RETURNTOORG)
MsgBox(64, $S_WINTITLE, "_GUISetCrazyBk" & @CR & "Count: " & $I_COUNT & @CR & "Interval: " & $I_INTERVAL & @CR & "Return to OrigCol: " & $I_RETURNTOORG)
_GUISetCrazyBk ($I_COUNT, $S_WINTITLE, "", $I_INTERVAL, $I_RETURNTOORG)
MsgBox(64, $S_WINTITLE, "_GUISetCrazyPos" & @CR & "Count: " & $I_COUNT & @CR & "Interval: " & $I_INTERVAL & @CR & "Return to OrigPos: " & $I_RETURNTOORG)
_GUISetCrazyPos ($I_COUNT, $S_WINTITLE, "", $I_INTERVAL, $I_RETURNTOORG)
MsgBox(64, $S_WINTITLE, "_GUISetCrazy" & @CR & "Count: " & $I_COUNT & @CR & "Interval: " & $I_INTERVAL & @CR & "Return to OrigPos: " & $I_RETURNTOORG)
_GUISetCrazy ($I_COUNT, $S_WINTITLE, "", $a_controls, $I_INTERVAL, $I_RETURNTOORG)

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

While 1
$msg = GUIGetMsg()
Select
Case $msg == $GUI_EVENT_CLOSE
ExitLoop 1
EndSelect
WEnd
Exit (0)

[/autoit]

Bei der Funktion _GUISetCrazy bin ich mir noch nicht ganz sicher. Vielleicht wäre es hier besser noch einen Parameter $I_MODE einzubauen, der je nachdem die Unterschiedlichen Aktionen ausführt und nicht standardmäßig alle.
Für Verbesserungsvorschläge (Code, Geschwindigkeit, aber auch weitere Ideen etc.) wäre ich dankbar!