Legendd

if I rewrite it then the textbox does not work

I am beginner in the autoit programming. Would be necessary to simplify my code. #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Include <ScrollBarConstants.au3> #Include <GUIEdit.au3> #Region ### START Koda GUI section ### Form= $Title = "Installing Applications" $sText = "Preparing..." $Form1 = GUICreate($Title, 512, 216, -1, -1, -1) ;BitOR($WS_EX_TOPMOST,$WS_EX_WINDOWEDGE)) $Edit1 = GUICtrlCreateEdit($sText, 24, 64, 462, 128, BitOR($ES_AUTOVSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL)) $Progress1 = GUICtrlCreateProgress(24, 24, 462, 16) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### $ms = 1000 While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case Install() $iEnd = StringLen(GUICtrlRead($Edit1)) _GUICtrlEdit_SetSel($Edit1, $iEnd, $iEnd) _GUICtrlEdit_Scroll($Edit1, $SB_SCROLLCARET) GUICtrlSetData($Edit1, " done.", 1) Sleep($ms) MsgBox(0,$Title,"Installation is complete.") ExitLoop EndSwitch WEnd Func Install() $a = 7 $e = 100 / $a $p = 0 $n = 1 $p = $e * $n $aName = ("[" & $n & " of " & $a & "] - 7-Zip...") Run("calc.exe") ; RunWait(@ScriptDir & "\7z922.exe" & " /S","",@SW_HIDE) GuiCtrlSetData($Progress1, $p) $iEnd = StringLen(GUICtrlRead($Edit1)) _GUICtrlEdit_SetSel($Edit1, $iEnd, $iEnd) _GUICtrlEdit_Scroll($Edit1, $SB_SCROLLCARET) GUICtrlSetData($Edit1, " done." & @CRLF & $aName, 1) Sleep($ms) $n = $n + 1 $p = $e * $n $aName = ("[" & $n & " of " & $a & "] - Adobe Reader...") Run("calc.exe") ; RunWait(@ScriptDir & "\AdbeRdr_1000_en_US.exe" & " /sAll /msi /norestart ALLUSERS=1 EULA_ACCEPT=YES","",@SW_HIDE) GuiCtrlSetData($Progress1, $p) $iEnd = StringLen(GUICtrlRead($Edit1)) _GUICtrlEdit_SetSel($Edit1, $iEnd, $iEnd) _GUICtrlEdit_Scroll($Edit1, $SB_SCROLLCARET) GUICtrlSetData($Edit1, " done." & @CRLF & $aName, 1) Sleep($ms) $n = $n + 1 $p = $e * $n $aName = ("[" & $n & " of " & $a & "] - Audacity®, the Free, Cross-Platform Sound Editor...") Run("calc.exe") ; RunWait(@ScriptDir & "\audacity-win-2.0.3.exe" & " /sp- /verysilent /norestart","",@SW_HIDE) GuiCtrlSetData($Progress1, $p) $iEnd = StringLen(GUICtrlRead($Edit1)) _GUICtrlEdit_SetSel($Edit1, $iEnd, $iEnd) _GUICtrlEdit_Scroll($Edit1, $SB_SCROLLCARET) GUICtrlSetData($Edit1, " done." & @CRLF & $aName, 1) Sleep($ms) $n = $n + 1 $p = $e * $n $aName = ("[" & $n & " of " & $a & "] - Mozilla Firefox...") Run("calc.exe") ; RunWait(@ScriptDir & "\Firefox Setup 19.0.2" & " -ms","",@SW_HIDE) GuiCtrlSetData($Progress1, $p) $iEnd = StringLen(GUICtrlRead($Edit1)) _GUICtrlEdit_SetSel($Edit1, $iEnd, $iEnd) _GUICtrlEdit_Scroll($Edit1, $SB_SCROLLCARET) GUICtrlSetData($Edit1, " done." & @CRLF & $aName, 1) Sleep($ms) $n = $n + 1 $p = $e * $n $aName = ("[" & $n & " of " & $a & "] - Skype...") Run("calc.exe") ; RunWait(@ScriptDir & "\SkypeSetupFull.exe" & " /noie /nogoogle /verysilent /norestart","",@SW_HIDE) GuiCtrlSetData($Progress1, $p) $iEnd = StringLen(GUICtrlRead($Edit1)) _GUICtrlEdit_SetSel($Edit1, $iEnd, $iEnd) _GUICtrlEdit_Scroll($Edit1, $SB_SCROLLCARET) GUICtrlSetData($Edit1, " done." & @CRLF & $aName, 1) Sleep($ms) $n = $n + 1 $p = $e * $n $aName = ("[" & $n & " of " & $a & "] - VLC media player...") Run("calc.exe") ; RunWait(@ScriptDir & "\vlc-2.0.4-win32.exe" & " /S","",@SW_HIDE) GuiCtrlSetData($Progress1, $p) $iEnd = StringLen(GUICtrlRead($Edit1)) _GUICtrlEdit_SetSel($Edit1, $iEnd, $iEnd) _GUICtrlEdit_Scroll($Edit1, $SB_SCROLLCARET) GUICtrlSetData($Edit1, " done." & @CRLF & $aName, 1) Sleep($ms) $n = $n + 1 $p = $e * $n $aName = ("[" & $n & " of " & $a & "] - Winamp...") Run("calc.exe") ; RunWait(@ScriptDir & "\winamp563_full_emusic-7plus_all.exe" & " /S /install=SDRA","",@SW_HIDE) GuiCtrlSetData($Progress1, $p) $iEnd = StringLen(GUICtrlRead($Edit1)) _GUICtrlEdit_SetSel($Edit1, $iEnd, $iEnd) _GUICtrlEdit_Scroll($Edit1, $SB_SCROLLCARET) GUICtrlSetData($Edit1, " done." & @CRLF & $aName, 1) Sleep($ms) ; etc. EndFunc