SpecialK Posted July 21, 2006 Share Posted July 21, 2006 (edited) Hello, i have a nice GUI where i can choose some Options to beeing installed. There are 3 Options automatically checked. Is there a chance to click the "Go" Button after 30 Seonds automatically? My script: GUICreate("Komponentenauswahl", 250, 180) GUICtrlCreateLabel ("Welche komponenten sollen installiert werden?", 10, 10, 500) $Word2003 = GUICtrlCreateCheckbox ("Word 2003", 10, 30, 120, 20) $Excel2003 = GUICtrlCreateCheckbox ("Excel 2003", 10, 50, 120, 20) $PP2003 = GUICtrlCreateCheckbox ("PowerPoint 2003", 10, 70, 120, 20) $Access2003 = GUICtrlCreateCheckbox ("Access 2003", 150, 30, 120, 20) $Outlook2003 = GUICtrlCreateCheckbox ("Outlook 2003", 150, 50, 120, 20) $Infopath = GUICtrlCreateCheckbox ("Infopath 2003", 150, 70, 120, 20) $Publisher2003 = GUICtrlCreateCheckbox ("Publisher 2003", 10, 90, 120, 20) $weiter = GUICtrlCreateButton("Weiter", 85, 140, 75, 25) GUICtrlSetState (4, 1) GUICtrlSetState (5, 1) GUICtrlSetState (6, 1) GUISetState () While 1 $msg = GUIGetMsg() If $msg = $weiter Or $msg = $GUI_EVENT_CLOSE Then ExitLoop Wend Edited July 21, 2006 by SpecialK Link to comment Share on other sites More sharing options...
Moderators big_daddy Posted July 21, 2006 Moderators Share Posted July 21, 2006 $Timer = TimerInit() While 1 $TimeDiff = TimerDiff($Timer) $msg = GUIGetMsg() If $msg = $weiter Or $TimeDiff > 30000 Or $msg = $GUI_EVENT_CLOSE Then ExitLoop WEnd Link to comment Share on other sites More sharing options...
SpecialK Posted July 21, 2006 Author Share Posted July 21, 2006 It works perfect! Thank you. SpecialK Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now