Hallo E*PVP Community,
ich habe mal wieder ein Problem in AutoIt.
Und dazu noch einige Fragen.
Ich möchte eine GUI erstellen in der was eingelesen werden soll und dann soll diese varibal in der For schleife genutzt werden .
Die For schleife soll dann ganz viele GUI's mit der Random funktion an verschiedene Positionen auf dem desktop erstellen. Die Main GUI soll dann gelöscht werden nachdem man auf Ok gedrückt hat.
Jedoch man soll sie nicht beenden können ausßer mit einem Hotkey.
Dann noch 2 Fragen:
Wie kann ich in autoIt Schrift ändern bzw. größe nändern?
Und kann man die MsgBox auf dem Desktop positionieren ?
Hier der Quelltext:
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
HotKeySet("{<}","Stop")
Opt("GUIOnEventMode",1)
$loop = True
$var3 = Random(10,1200)
$var4 = Random(10,750)
$main = GUICreate("Langeweile?", 200, 70,$var3,$var4)
$input = GUICtrlCreateInput("1-100",150,15,50)
GUICtrlCreateLabel("Wie Langweilig ist dir!?",5,15)
$button = GUICtrlCreateButton("Ok",40,40,60)
GUICtrlSetOnEvent($button,"Button")
GUISetState(@SW_Show)
GUISetOnEvent($GUI_EVENT_CLOSE,"Close")
While 1
Sleep(1000)
WEnd
For $i = $zahl to 1 Step -1
$var3 = Random(10,1200)
$var4 = Random(10,750)
GUICreate("Langeweile", 150, 50,$var3,$var4)
GUICtrlCreateLabel("Ich wünsche dir Spaß!",5,10)
$button1 = GUICtrlCreateButton("Ok",40,30,60)
GUICtrlSetOnEvent($button1,"Button1")
GUISetState(@SW_Show)
GUISetOnEvent($GUI_EVENT_CLOSE,"Close")
Next
Func Button1 ()
GUIDelete()
EndFunc
Func Button ()
$Msg = GUIGetMsg()
Switch $Msg
Case $button
$zahl = GUICtrlRead($input)
EndSwitch
EndFunc
Func Stop()
$loop = False
GUIDelete()
MsgBox(0,"Close","Programm wurde erfolgreich beendet!")
Exit
EndFunc
Func Close()
If @GUI_WINHANDLE = $main Then
MsgBox(0,"Tja","Dieser Knopf funktioniert leider nicht!",5)
EndIf
Danke schonmal im Vorraus!
Liebe Grüße
*scarface*
Ps:Wie kann ich den Quelltext in einen Spoiler nmachen oder so dass das wie in autoIt aussieht?
 |
