Wikipete Posted May 30, 2008 Share Posted May 30, 2008 Hi I have given you my whole script in a vague attempt to get to the bottom of a problem that has been angering me all day. I cannot create a successful GUI. Please help. expandcollapse popup#cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.10.0 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here ;--------------------------------------------Title-Sequence------------------------------------------------ #include <GuiConstants.au3> Blockinput(1) Run ("progress.exe", "C:\Documents and Settings\Admin\Desktop\") Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\1.bmp", 354, 335, 480, 400, 1) Sleep (2000) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\2.bmp", 354, 335, 480, 400, 1) Sleep (2500) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\3.bmp", 354, 335, 480, 400, 1) Sleep (1500) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\4.bmp", 354, 335, 480, 400, 1) Sleep (800) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\5.bmp", 354, 335, 480, 400, 1) Sleep (800) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\4.bmp", 354, 335, 480, 400, 1) Sleep (800) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\5.bmp", 354, 335, 480, 400, 1) Sleep (800) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\4.bmp", 354, 335, 480, 400, 1) Sleep (800) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\5.bmp", 354, 335, 480, 400, 1) Sleep (800) Splashoff() Blockinput (0) ;----------------------------------------------SCRIPT SETTINGS--------------------------------------------- Global $installprogramsitem ;------------------------------------End of Title Sequence-, Main GUI below-------------------------------- GuiCreate("Peter Bryant's 'Macrolism' software CD.", 400, 400) ; MENU $installprograms = GUICtrlCreateMenu ("&Install Programs") $installprogramsitem = GUICtrlCreateMenuitem ("Run",$installprograms) GUICtrlSetState(-1,$GUI_DEFBUTTON) ;-------------------------------------------------------------- $filemenu = GUICtrlCreateMenu ("&Auto-it") $runautoittutorial = GUICtrlCreateMenuitem ("&Run Tutorial",$filemenu) $aboutautoit = GUICtrlCreateMenuitem ("&About",$filemenu) $autoitwebsite = GUICtrlCreateMenuitem ("&Official Website",$filemenu) ;-------------------------------------------------------------- $filemenu = GUICtrlCreateMenu ("&Win-spy") $runautoittutorial = GUICtrlCreateMenuitem ("&Run Tutorial",$filemenu) $aboutautoit = GUICtrlCreateMenuitem ("&About",$filemenu) $autoitwebsite = GUICtrlCreateMenuitem ("&Official Website",$filemenu) ;-------------------------------------------------------------- $filemenu = GUICtrlCreateMenu ("&Macro-Recorder") $runautoittutorial = GUICtrlCreateMenuitem ("&Run Tutorial",$filemenu) $aboutautoit = GUICtrlCreateMenuitem ("&About",$filemenu) $autoitwebsite = GUICtrlCreateMenuitem ("&Official Website",$filemenu) ;-------------------------------------------------------------- $filemenu = GUICtrlCreateMenu ("&Useful Items") $fourm = GUICtrlCreateMenuitem ("&AutoIt Forum",$filemenu) $paint = GUICtrlCreateMenuitem ("MS &Paint",$filemenu) $notepad = GUICtrlCreateMenuitem ("MS &Notepad",$filemenu) ;------------------------------------------------------------- $filemenu = GUICtrlCreateMenu ("&Help") $runautoittutorial = GUICtrlCreateMenuitem ("Help &Software",$filemenu) $autoitwebsite = GUICtrlCreateMenuitem ("Macrolism &Website",$filemenu) ;--------------------------------------GUI CONTENT----------------------------------------------------- ; PIC GuiCtrlCreatePic("C:\Documents and Settings\Admin\Desktop\Program Files\1.bmp", 300, 280, 100,100) GuiCtrlCreatePic("C:\Documents and Settings\Admin\Desktop\Program Files\5(2).bmp", 0, 280, 100,100) GuiCtrlCreatePic("C:\Documents and Settings\Admin\Desktop\Program Files\GUI footer.bmp", 100, 280, 200,100) GuiCtrlSetColor(-1,00000000) ; TABS GuiCtrlCreateTab(10, 10, 380, 250) GuiCtrlCreateTabItem("Welcome!") GuiCtrlCreateLabel("Welcome to Peter Bryant's 'Macrolism' Software CD.", 20, 40) GuiCtrlCreateLabel("Welcome. I do hope you have read the book that came with this software", 20, 60) GuiCtrlCreateLabel("CD, and I hope that you are ready to get creating your very own magic.", 20, 72) GuiCtrlCreateLabel("Please remember that I have had this software tested before being publis-", 20, 92) GuiCtrlCreateLabel("hed and it found no errors. However, I do not know how your system is", 20, 104) GuiCtrlCreateLabel("calibrated, and therefore could not predict the results on your computer", 20, 116) GuiCtrlCreateLabel("Therefore, I do not accept any responcibility for you running this softw-", 20, 136) GuiCtrlCreateLabel("ware on your system.", 20, 148) GuiCtrlCreateLabel("If you encounter any problems, please refer to the help sections in the", 20, 170) GuiCtrlCreateLabel("Macrolism book.", 20, 182) GuiCtrlCreateLabel("I wish you many successes with the infomation contained within", 20, 204) GuiCtrlCreateLabel("'Macrolism'", 20, 216) GuiCtrlCreateLabel("Peter Bryant - 'Macrolism' Creator.", 20, 240) GuiCtrlCreateTabItem("Getting Started") GuiCtrlCreateLabel("I am glad you have decided to get on with some learning about 'Macrolism'", 20, 40) GuiCtrlCreateLabel("You will see above that there is several menu's applicable to various part's", 20, 60) GuiCtrlCreateLabel("of the software on this disk.", 20, 72) GuiCtrlCreateLabel("Each of the menu's above will take you to the relavent tutorial if you click", 20, 82) GuiCtrlCreateLabel("on it and then click 'Run'.", 20, 104) GuiCtrlCreateLabel("Other options are included and you are welcome to discover these for", 20, 116) GuiCtrlCreateLabel("yourself.", 20, 128) GuiCtrlCreateLabel("First however, you need to install all the relavent applications onto your", 20, 150) GuiCtrlCreateLabel("computer system. To do this, please click 'Install Applications' in the top", 20, 162) GuiCtrlCreateLabel("left of your screen", 20, 174) GuiCtrlCreateTabItem("Tutorials") GuiCtrlCreateLabel("Included, for your benifit within this CD are 3 tutorials.", 20, 40) GuiCtrlCreateLabel("These tutorials are designed to get you familiar with working with Auto-it,", 20, 60) GuiCtrlCreateLabel("Win-spy and JitBit Macro-recorder; the main applications for this magic trick.", 20, 72) GuiCtrlCreateTabItem("Your Notes") GuiCtrlCreateLabel("Write any thoughts or sudden insparations in this page blank space.", 20, 40, 350, 20) GuiCtrlCreateInput("Put your idea's, thoughts and idea's on this.", 40, 70, 310, 150, _ BitOR($ES_MULTILINE, $ES_WANTRETURN, $PBS_VERTICAL, $PBS_SMOOTH, $ES_AUTOVSCROLL, $ES_LEFT)) GuiCtrlCreateLabel("Please note: Notes will not be stored after you close this program!", 40, 225, 400, 20) GuiCtrlCreateTabItem("Terms") GuiCtrlCreateLabel("Please note that this software is given to you under the following conditions:", 20, 40, 400, 20) GuiCtrlCreateInput("Terms And Conditions for Peter Bryant's 'Macrolism' Software.", 40, 70, 310, 150, _ BitOR($ES_MULTILINE, $ES_WANTRETURN, $PBS_VERTICAL, $PBS_SMOOTH, $ES_AUTOVSCROLL, $ES_READONLY, $ES_CENTER), $WS_EX_CLIENTEDGE) ;-----------------------------------Menus and Programs------------------------------------------------- While 1 $msg = GUIGetMsg() If $msg = $installprogramsitem Then $installprograms = Run ("Program Load.exe", "C:\Documents and Settings\Admin\Desktop") If @error <> 1 Then GUICtrlCreateMenuitem ($file,$recentfilesmenu) EndIf WEnd GUIDelete() Exit ;------------------------------------------------------------------------------------------------------ ; GUI MESSAGE LOOP GuiSetState() While GuiGetMsg() <> $GUI_EVENT_CLOSE WEnd Run (Brain.exe). Link to comment Share on other sites More sharing options...
ReaImDown Posted May 30, 2008 Share Posted May 30, 2008 Hi I have given you my whole script in a vague attempt to get to the bottom of a problem that has been angering me all day. I cannot create a successful GUI. Please help. expandcollapse popup#cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.10.0 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here ;--------------------------------------------Title-Sequence------------------------------------------------ #include <GuiConstants.au3> Blockinput(1) Run ("progress.exe", "C:\Documents and Settings\Admin\Desktop\") Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\1.bmp", 354, 335, 480, 400, 1) Sleep (2000) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\2.bmp", 354, 335, 480, 400, 1) Sleep (2500) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\3.bmp", 354, 335, 480, 400, 1) Sleep (1500) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\4.bmp", 354, 335, 480, 400, 1) Sleep (800) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\5.bmp", 354, 335, 480, 400, 1) Sleep (800) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\4.bmp", 354, 335, 480, 400, 1) Sleep (800) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\5.bmp", 354, 335, 480, 400, 1) Sleep (800) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\4.bmp", 354, 335, 480, 400, 1) Sleep (800) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\5.bmp", 354, 335, 480, 400, 1) Sleep (800) Splashoff() Blockinput (0) ;----------------------------------------------SCRIPT SETTINGS--------------------------------------------- Global $installprogramsitem ;------------------------------------End of Title Sequence-, Main GUI below-------------------------------- GuiCreate("Peter Bryant's 'Macrolism' software CD.", 400, 400) ; MENU $installprograms = GUICtrlCreateMenu ("&Install Programs") $installprogramsitem = GUICtrlCreateMenuitem ("Run",$installprograms) GUICtrlSetState(-1,$GUI_DEFBUTTON) ;-------------------------------------------------------------- $filemenu = GUICtrlCreateMenu ("&Auto-it") $runautoittutorial = GUICtrlCreateMenuitem ("&Run Tutorial",$filemenu) $aboutautoit = GUICtrlCreateMenuitem ("&About",$filemenu) $autoitwebsite = GUICtrlCreateMenuitem ("&Official Website",$filemenu) ;-------------------------------------------------------------- $filemenu = GUICtrlCreateMenu ("&Win-spy") $runautoittutorial = GUICtrlCreateMenuitem ("&Run Tutorial",$filemenu) $aboutautoit = GUICtrlCreateMenuitem ("&About",$filemenu) $autoitwebsite = GUICtrlCreateMenuitem ("&Official Website",$filemenu) ;-------------------------------------------------------------- $filemenu = GUICtrlCreateMenu ("&Macro-Recorder") $runautoittutorial = GUICtrlCreateMenuitem ("&Run Tutorial",$filemenu) $aboutautoit = GUICtrlCreateMenuitem ("&About",$filemenu) $autoitwebsite = GUICtrlCreateMenuitem ("&Official Website",$filemenu) ;-------------------------------------------------------------- $filemenu = GUICtrlCreateMenu ("&Useful Items") $fourm = GUICtrlCreateMenuitem ("&AutoIt Forum",$filemenu) $paint = GUICtrlCreateMenuitem ("MS &Paint",$filemenu) $notepad = GUICtrlCreateMenuitem ("MS &Notepad",$filemenu) ;------------------------------------------------------------- $filemenu = GUICtrlCreateMenu ("&Help") $runautoittutorial = GUICtrlCreateMenuitem ("Help &Software",$filemenu) $autoitwebsite = GUICtrlCreateMenuitem ("Macrolism &Website",$filemenu) ;--------------------------------------GUI CONTENT----------------------------------------------------- ; PIC GuiCtrlCreatePic("C:\Documents and Settings\Admin\Desktop\Program Files\1.bmp", 300, 280, 100,100) GuiCtrlCreatePic("C:\Documents and Settings\Admin\Desktop\Program Files\5(2).bmp", 0, 280, 100,100) GuiCtrlCreatePic("C:\Documents and Settings\Admin\Desktop\Program Files\GUI footer.bmp", 100, 280, 200,100) GuiCtrlSetColor(-1,00000000) ; TABS GuiCtrlCreateTab(10, 10, 380, 250) GuiCtrlCreateTabItem("Welcome!") GuiCtrlCreateLabel("Welcome to Peter Bryant's 'Macrolism' Software CD.", 20, 40) GuiCtrlCreateLabel("Welcome. I do hope you have read the book that came with this software", 20, 60) GuiCtrlCreateLabel("CD, and I hope that you are ready to get creating your very own magic.", 20, 72) GuiCtrlCreateLabel("Please remember that I have had this software tested before being publis-", 20, 92) GuiCtrlCreateLabel("hed and it found no errors. However, I do not know how your system is", 20, 104) GuiCtrlCreateLabel("calibrated, and therefore could not predict the results on your computer", 20, 116) GuiCtrlCreateLabel("Therefore, I do not accept any responcibility for you running this softw-", 20, 136) GuiCtrlCreateLabel("ware on your system.", 20, 148) GuiCtrlCreateLabel("If you encounter any problems, please refer to the help sections in the", 20, 170) GuiCtrlCreateLabel("Macrolism book.", 20, 182) GuiCtrlCreateLabel("I wish you many successes with the infomation contained within", 20, 204) GuiCtrlCreateLabel("'Macrolism'", 20, 216) GuiCtrlCreateLabel("Peter Bryant - 'Macrolism' Creator.", 20, 240) GuiCtrlCreateTabItem("Getting Started") GuiCtrlCreateLabel("I am glad you have decided to get on with some learning about 'Macrolism'", 20, 40) GuiCtrlCreateLabel("You will see above that there is several menu's applicable to various part's", 20, 60) GuiCtrlCreateLabel("of the software on this disk.", 20, 72) GuiCtrlCreateLabel("Each of the menu's above will take you to the relavent tutorial if you click", 20, 82) GuiCtrlCreateLabel("on it and then click 'Run'.", 20, 104) GuiCtrlCreateLabel("Other options are included and you are welcome to discover these for", 20, 116) GuiCtrlCreateLabel("yourself.", 20, 128) GuiCtrlCreateLabel("First however, you need to install all the relavent applications onto your", 20, 150) GuiCtrlCreateLabel("computer system. To do this, please click 'Install Applications' in the top", 20, 162) GuiCtrlCreateLabel("left of your screen", 20, 174) GuiCtrlCreateTabItem("Tutorials") GuiCtrlCreateLabel("Included, for your benifit within this CD are 3 tutorials.", 20, 40) GuiCtrlCreateLabel("These tutorials are designed to get you familiar with working with Auto-it,", 20, 60) GuiCtrlCreateLabel("Win-spy and JitBit Macro-recorder; the main applications for this magic trick.", 20, 72) GuiCtrlCreateTabItem("Your Notes") GuiCtrlCreateLabel("Write any thoughts or sudden insparations in this page blank space.", 20, 40, 350, 20) GuiCtrlCreateInput("Put your idea's, thoughts and idea's on this.", 40, 70, 310, 150, _ BitOR($ES_MULTILINE, $ES_WANTRETURN, $PBS_VERTICAL, $PBS_SMOOTH, $ES_AUTOVSCROLL, $ES_LEFT)) GuiCtrlCreateLabel("Please note: Notes will not be stored after you close this program!", 40, 225, 400, 20) GuiCtrlCreateTabItem("Terms") GuiCtrlCreateLabel("Please note that this software is given to you under the following conditions:", 20, 40, 400, 20) GuiCtrlCreateInput("Terms And Conditions for Peter Bryant's 'Macrolism' Software.", 40, 70, 310, 150, _ BitOR($ES_MULTILINE, $ES_WANTRETURN, $PBS_VERTICAL, $PBS_SMOOTH, $ES_AUTOVSCROLL, $ES_READONLY, $ES_CENTER), $WS_EX_CLIENTEDGE) ;-----------------------------------Menus and Programs------------------------------------------------- While 1 $msg = GUIGetMsg() If $msg = $installprogramsitem Then $installprograms = Run ("Program Load.exe", "C:\Documents and Settings\Admin\Desktop") If @error <> 1 Then GUICtrlCreateMenuitem ($file,$recentfilesmenu) EndIf WEnd GUIDelete() Exit ;------------------------------------------------------------------------------------------------------ ; GUI MESSAGE LOOP GuiSetState() While GuiGetMsg() <> $GUI_EVENT_CLOSE WEndjust use Koda [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u] Link to comment Share on other sites More sharing options...
Airwolf Posted May 30, 2008 Share Posted May 30, 2008 (edited) There is no GuiSetState() before the first loop. The only GuiSetState() I see is after the GuiDelete() and Exit. Edited May 30, 2008 by Airwolf123 Certifications: A+, Network+, Security+, Linux+, LPIC-1, MCSA | Languages: AutoIt, C, SQL, .NETBooks: AutoIt v3: Your Quick Guide - $7.99 - O'Reilly Media - September 2007-------->[u]AutoIt v3 Development - newbie to g33k[/u] - Coming Soon - Fate Publishing - Spring 2013UDF Libraries: SkypeCOM UDF Library | ADUC Computers OU Cleanup | Find PixelChecksumExamples: Skype COM Examples - Skype4COMLib Examples converted from VBS to AutoIt Link to comment Share on other sites More sharing options...
Wikipete Posted May 30, 2008 Author Share Posted May 30, 2008 just use Koda This is the clean script from Koda. GUI does not appear at all. expandcollapse popup#include <GuiConstants.au3> Blockinput(1) Run ("progress.exe", "C:\Documents and Settings\Admin\Desktop\") Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\1.bmp", 354, 335, 480, 400, 1) Sleep (2000) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\2.bmp", 354, 335, 480, 400, 1) Sleep (2500) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\3.bmp", 354, 335, 480, 400, 1) Sleep (1500) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\4.bmp", 354, 335, 480, 400, 1) Sleep (800) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\5.bmp", 354, 335, 480, 400, 1) Sleep (800) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\4.bmp", 354, 335, 480, 400, 1) Sleep (800) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\5.bmp", 354, 335, 480, 400, 1) Sleep (800) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\4.bmp", 354, 335, 480, 400, 1) Sleep (800) Splashoff() Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\5.bmp", 354, 335, 480, 400, 1) Sleep (800) Splashoff() Blockinput (0) ;----------------------------------------------SCRIPT SETTINGS--------------------------------------------- Global $installprogramsitem ;------------------------------------End of Title Sequence-, Main GUI below-------------------------------- GuiCreate("Peter Bryant's 'Macrolism' software CD.", 400, 400) ; MENU $installprograms = GUICtrlCreateMenu ("&Install Programs") $installprogramsitem = GUICtrlCreateMenuitem ("Run",$installprograms) GUICtrlSetState(-1,$GUI_DEFBUTTON) ;-------------------------------------------------------------- $filemenu = GUICtrlCreateMenu ("&Auto-it") $runautoittutorial = GUICtrlCreateMenuitem ("&Run Tutorial",$filemenu) $aboutautoit = GUICtrlCreateMenuitem ("&About",$filemenu) $autoitwebsite = GUICtrlCreateMenuitem ("&Official Website",$filemenu) ;-------------------------------------------------------------- $filemenu = GUICtrlCreateMenu ("&Win-spy") $runautoittutorial = GUICtrlCreateMenuitem ("&Run Tutorial",$filemenu) $aboutautoit = GUICtrlCreateMenuitem ("&About",$filemenu) $autoitwebsite = GUICtrlCreateMenuitem ("&Official Website",$filemenu) ;-------------------------------------------------------------- $filemenu = GUICtrlCreateMenu ("&Macro-Recorder") $runautoittutorial = GUICtrlCreateMenuitem ("&Run Tutorial",$filemenu) $aboutautoit = GUICtrlCreateMenuitem ("&About",$filemenu) $autoitwebsite = GUICtrlCreateMenuitem ("&Official Website",$filemenu) ;-------------------------------------------------------------- $filemenu = GUICtrlCreateMenu ("&Useful Items") $fourm = GUICtrlCreateMenuitem ("&AutoIt Forum",$filemenu) $paint = GUICtrlCreateMenuitem ("MS &Paint",$filemenu) $notepad = GUICtrlCreateMenuitem ("MS &Notepad",$filemenu) ;------------------------------------------------------------- $filemenu = GUICtrlCreateMenu ("&Help") $runautoittutorial = GUICtrlCreateMenuitem ("Help &Software",$filemenu) $autoitwebsite = GUICtrlCreateMenuitem ("Macrolism &Website",$filemenu) ;--------------------------------------GUI CONTENT----------------------------------------------------- ; PIC GuiCtrlCreatePic("C:\Documents and Settings\Admin\Desktop\Program Files\1.bmp", 300, 280, 100,100) GuiCtrlCreatePic("C:\Documents and Settings\Admin\Desktop\Program Files\5(2).bmp", 0, 280, 100,100) GuiCtrlCreatePic("C:\Documents and Settings\Admin\Desktop\Program Files\GUI footer.bmp", 100, 280, 200,100) GuiCtrlSetColor(-1,00000000) ; TABS GuiCtrlCreateTab(10, 10, 380, 250) GuiCtrlCreateTabItem("Welcome!") GuiCtrlCreateLabel("Welcome to Peter Bryant's 'Macrolism' Software CD.", 20, 40) GuiCtrlCreateLabel("Welcome. I do hope you have read the book that came with this software", 20, 60) GuiCtrlCreateLabel("CD, and I hope that you are ready to get creating your very own magic.", 20, 72) GuiCtrlCreateLabel("Please remember that I have had this software tested before being publis-", 20, 92) GuiCtrlCreateLabel("hed and it found no errors. However, I do not know how your system is", 20, 104) GuiCtrlCreateLabel("calibrated, and therefore could not predict the results on your computer", 20, 116) GuiCtrlCreateLabel("Therefore, I do not accept any responcibility for you running this softw-", 20, 136) GuiCtrlCreateLabel("ware on your system.", 20, 148) GuiCtrlCreateLabel("If you encounter any problems, please refer to the help sections in the", 20, 170) GuiCtrlCreateLabel("Macrolism book.", 20, 182) GuiCtrlCreateLabel("I wish you many successes with the infomation contained within", 20, 204) GuiCtrlCreateLabel("'Macrolism'", 20, 216) GuiCtrlCreateLabel("Peter Bryant - 'Macrolism' Creator.", 20, 240) GuiCtrlCreateTabItem("Getting Started") GuiCtrlCreateLabel("I am glad you have decided to get on with some learning about 'Macrolism'", 20, 40) GuiCtrlCreateLabel("You will see above that there is several menu's applicable to various part's", 20, 60) GuiCtrlCreateLabel("of the software on this disk.", 20, 72) GuiCtrlCreateLabel("Each of the menu's above will take you to the relavent tutorial if you click", 20, 82) GuiCtrlCreateLabel("on it and then click 'Run'.", 20, 104) GuiCtrlCreateLabel("Other options are included and you are welcome to discover these for", 20, 116) GuiCtrlCreateLabel("yourself.", 20, 128) GuiCtrlCreateLabel("First however, you need to install all the relavent applications onto your", 20, 150) GuiCtrlCreateLabel("computer system. To do this, please click 'Install Applications' in the top", 20, 162) GuiCtrlCreateLabel("left of your screen", 20, 174) GuiCtrlCreateTabItem("Tutorials") GuiCtrlCreateLabel("Included, for your benifit within this CD are 3 tutorials.", 20, 40) GuiCtrlCreateLabel("These tutorials are designed to get you familiar with working with Auto-it,", 20, 60) GuiCtrlCreateLabel("Win-spy and JitBit Macro-recorder; the main applications for this magic trick.", 20, 72) GuiCtrlCreateTabItem("Your Notes") GuiCtrlCreateLabel("Write any thoughts or sudden insparations in this page blank space.", 20, 40, 350, 20) GuiCtrlCreateInput("Put your idea's, thoughts and idea's on this.", 40, 70, 310, 150, _ BitOR($ES_MULTILINE, $ES_WANTRETURN, $PBS_VERTICAL, $PBS_SMOOTH, $ES_AUTOVSCROLL, $ES_LEFT)) GuiCtrlCreateLabel("Please note: Notes will not be stored after you close this program!", 40, 225, 400, 20) GuiCtrlCreateTabItem("Terms") GuiCtrlCreateLabel("Please note that this software is given to you under the following conditions:", 20, 40, 400, 20) GuiCtrlCreateInput("Terms And Conditions for Peter Bryant's 'Macrolism' Software.", 40, 70, 310, 150, _ BitOR($ES_MULTILINE, $ES_WANTRETURN, $PBS_VERTICAL, $PBS_SMOOTH, $ES_AUTOVSCROLL, $ES_READONLY, $ES_CENTER), $WS_EX_CLIENTEDGE) ;-----------------------------------Menus and Programs------------------------------------------------- While 1 $msg = GUIGetMsg() If $msg = $installprogramsitem Then $installprograms = Run ("Program Load.exe", "C:\Documents and Settings\Admin\Desktop") If @error <> 1 Then exit EndIf WEnd GUIDelete() Exit ;------------------------------------------------------------------------------------------------------ ; GUI MESSAGE LOOP GuiSetState() While GuiGetMsg() <> $GUI_EVENT_CLOSE WEnd Run (Brain.exe). Link to comment Share on other sites More sharing options...
ReaImDown Posted May 30, 2008 Share Posted May 30, 2008 do you have the newest version? [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u] Link to comment Share on other sites More sharing options...
res2cpu Posted May 30, 2008 Share Posted May 30, 2008 i had a quick mess about, try this.I removed the keyboard and mouse kills #cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.10.0 Author: myName Script Function: Template AutoIt script.#ce ----------------------------------------------------------------------------; Script Start - Add your code below here;--------------------------------------------Title-Sequence------------------------------------------------#include <GuiConstants.au3>Run ("progress.exe", "C:\Documents and Settings\Admin\Desktop\")Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\1.bmp", 354, 335, 480, 400, 1)Sleep (2000)Splashoff()Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\2.bmp", 354, 335, 480, 400, 1)Sleep (2500)Splashoff()Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\3.bmp", 354, 335, 480, 400, 1)Sleep (1500)Splashoff()Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\4.bmp", 354, 335, 480, 400, 1)Sleep (800)Splashoff()Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\5.bmp", 354, 335, 480, 400, 1)Sleep (800)Splashoff()Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\4.bmp", 354, 335, 480, 400, 1)Sleep (800)Splashoff()Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\5.bmp", 354, 335, 480, 400, 1)Sleep (800)Splashoff()Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\4.bmp", 354, 335, 480, 400, 1)Sleep (800)Splashoff()Splashimageon("Loading","C:\Documents and Settings\Admin\Desktop\Program Files\5.bmp", 354, 335, 480, 400, 1)Sleep (800)Splashoff()Blockinput (0);----------------------------------------------SCRIPT SETTINGS---------------------------------------------Global $installprogramsitem;------------------------------------End of Title Sequence-, Main GUI below--------------------------------GuiCreate("Peter Bryant's 'Macrolism' software CD.", 400, 400); MENU$installprograms = GUICtrlCreateMenu ("&Install Programs")$installprogramsitem = GUICtrlCreateMenuitem ("Run",$installprograms)GUICtrlSetState(-1,$GUI_DEFBUTTON);--------------------------------------------------------------$filemenu = GUICtrlCreateMenu ("&Auto-it")$runautoittutorial = GUICtrlCreateMenuitem ("&Run Tutorial",$filemenu)$aboutautoit = GUICtrlCreateMenuitem ("&About",$filemenu)$autoitwebsite = GUICtrlCreateMenuitem ("&Official Website",$filemenu);--------------------------------------------------------------$filemenu = GUICtrlCreateMenu ("&Win-spy")$runautoittutorial = GUICtrlCreateMenuitem ("&Run Tutorial",$filemenu)$aboutautoit = GUICtrlCreateMenuitem ("&About",$filemenu)$autoitwebsite = GUICtrlCreateMenuitem ("&Official Website",$filemenu);--------------------------------------------------------------$filemenu = GUICtrlCreateMenu ("&Macro-Recorder")$runautoittutorial = GUICtrlCreateMenuitem ("&Run Tutorial",$filemenu)$aboutautoit = GUICtrlCreateMenuitem ("&About",$filemenu)$autoitwebsite = GUICtrlCreateMenuitem ("&Official Website",$filemenu);--------------------------------------------------------------$filemenu = GUICtrlCreateMenu ("&Useful Items")$fourm = GUICtrlCreateMenuitem ("&AutoIt Forum",$filemenu)$paint = GUICtrlCreateMenuitem ("MS &Paint",$filemenu)$notepad = GUICtrlCreateMenuitem ("MS &Notepad",$filemenu);-------------------------------------------------------------$filemenu = GUICtrlCreateMenu ("&Help")$runautoittutorial = GUICtrlCreateMenuitem ("Help &Software",$filemenu)$autoitwebsite = GUICtrlCreateMenuitem ("Macrolism &Website",$filemenu);--------------------------------------GUI CONTENT-----------------------------------------------------; PICGuiCtrlCreatePic("C:\Documents and Settings\Admin\Desktop\Program Files\1.bmp", 300, 280, 100,100)GuiCtrlCreatePic("C:\Documents and Settings\Admin\Desktop\Program Files\5(2).bmp", 0, 280, 100,100)GuiCtrlCreatePic("C:\Documents and Settings\Admin\Desktop\Program Files\GUI footer.bmp", 100, 280, 200,100)GuiCtrlSetColor(-1,00000000); TABSGuiCtrlCreateTab(10, 10, 380, 250)GuiCtrlCreateTabItem("Welcome!")GuiCtrlCreateLabel("Welcome to Peter Bryant's 'Macrolism' Software CD.", 20, 40)GuiCtrlCreateLabel("Welcome. I do hope you have read the book that came with this software", 20, 60)GuiCtrlCreateLabel("CD, and I hope that you are ready to get creating your very own magic.", 20, 72)GuiCtrlCreateLabel("Please remember that I have had this software tested before being publis-", 20, 92)GuiCtrlCreateLabel("hed and it found no errors. However, I do not know how your system is", 20, 104)GuiCtrlCreateLabel("calibrated, and therefore could not predict the results on your computer", 20, 116)GuiCtrlCreateLabel("Therefore, I do not accept any responcibility for you running this softw-", 20, 136)GuiCtrlCreateLabel("ware on your system.", 20, 148)GuiCtrlCreateLabel("If you encounter any problems, please refer to the help sections in the", 20, 170)GuiCtrlCreateLabel("Macrolism book.", 20, 182)GuiCtrlCreateLabel("I wish you many successes with the infomation contained within", 20, 204)GuiCtrlCreateLabel("'Macrolism'", 20, 216)GuiCtrlCreateLabel("Peter Bryant - 'Macrolism' Creator.", 20, 240)GuiCtrlCreateTabItem("Getting Started")GuiCtrlCreateLabel("I am glad you have decided to get on with some learning about 'Macrolism'", 20, 40)GuiCtrlCreateLabel("You will see above that there is several menu's applicable to various part's", 20, 60)GuiCtrlCreateLabel("of the software on this disk.", 20, 72)GuiCtrlCreateLabel("Each of the menu's above will take you to the relavent tutorial if you click", 20, 82)GuiCtrlCreateLabel("on it and then click 'Run'.", 20, 104)GuiCtrlCreateLabel("Other options are included and you are welcome to discover these for", 20, 116)GuiCtrlCreateLabel("yourself.", 20, 128)GuiCtrlCreateLabel("First however, you need to install all the relavent applications onto your", 20, 150)GuiCtrlCreateLabel("computer system. To do this, please click 'Install Applications' in the top", 20, 162)GuiCtrlCreateLabel("left of your screen", 20, 174)GuiCtrlCreateTabItem("Tutorials")GuiCtrlCreateLabel("Included, for your benifit within this CD are 3 tutorials.", 20, 40)GuiCtrlCreateLabel("These tutorials are designed to get you familiar with working with Auto-it,", 20, 60)GuiCtrlCreateLabel("Win-spy and JitBit Macro-recorder; the main applications for this magic trick.", 20, 72)GuiCtrlCreateTabItem("Your Notes")GuiCtrlCreateLabel("Write any thoughts or sudden insparations in this page blank space.", 20, 40, 350, 20)GuiCtrlCreateInput("Put your idea's, thoughts and idea's on this.", 40, 70, 310, 150)GuiCtrlCreateLabel("Please note: Notes will not be stored after you close this program!", 40, 225, 400, 20)GuiCtrlCreateTabItem("Terms")GuiCtrlCreateLabel("Please note that this software is given to you under the following conditions:", 20, 40, 400, 20)GuiCtrlCreateInput("Terms And Conditions for Peter Bryant's 'Macrolism' Software.", 40, 70, 310, 150)GUISetState(@SW_SHOW);-----------------------------------Menus and Programs-------------------------------------------------While 1 $msg = GUIGetMsg() If $msg = $installprogramsitem Then $installprograms = Run ("Program Load.exe", "C:\Documents and Settings\Admin\Desktop") If @error <> 1 Then GUICtrlCreateMenuitem ($file,$recentfilesmenu) EndIf WEndExit;------------------------------------------------------------------------------------------------------; GUI MESSAGE LOOPGuiSetState()While GuiGetMsg() <> $GUI_EVENT_CLOSEWEnd Link to comment Share on other sites More sharing options...
Wikipete Posted May 30, 2008 Author Share Posted May 30, 2008 do you have the newest version?No. I don't think so, does it come with Autoit?! Run (Brain.exe). Link to comment Share on other sites More sharing options...
ReaImDown Posted May 30, 2008 Share Posted May 30, 2008 No. I don't think so, does it come with Autoit?!nope, open koda, goto help then latest version and download [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u] Link to comment Share on other sites More sharing options...
Wikipete Posted May 30, 2008 Author Share Posted May 30, 2008 nope, open koda, goto help then latest version and download Oh I see, I have been doing it the hard way!Sorry, I thought you were reffuring to the syntax checker when you said Koda.I tried to import it in, but "some problem occoured".Hum. Run (Brain.exe). Link to comment Share on other sites More sharing options...
ReaImDown Posted May 30, 2008 Share Posted May 30, 2008 http://www.autoitscript.com/fileman/users/lookfar/formdesign.html [u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u] 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