Jump to content

What can you see that is wrong for this?!


Recommended Posts

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.

#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

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.

#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
just use Koda :)
[u][font="Century Gothic"]~я α и d γ ĵ . ċ . ѕ қ ϊ и и ε я~- My Programs -auto shutdownSleep funcdisallow programs[/font][/u]
Link to comment
Share on other sites

There is no GuiSetState() before the first loop. The only GuiSetState() I see is after the GuiDelete() and Exit. :)

Edited 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

just use Koda :)

This is the clean script from Koda.

GUI does not appear at all. :)

#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

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-----------------------------------------------------

; 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)

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

WEnd

Exit

;------------------------------------------------------------------------------------------------------

; GUI MESSAGE LOOP

GuiSetState()

While GuiGetMsg() <> $GUI_EVENT_CLOSE

WEnd

Link to comment
Share on other sites

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

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...