DjDiabolik

@Nine and to everyone: After some hours of fix and test......... i have completed my script: #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.14.5 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <FileConstants.au3> #include <MsgBoxConstants.au3> #include <WinAPIFiles.au3> #include <MsgBoxConstants.au3> Global $User = 'MyUser' Global $Pass = 'MyPass' Global $NumDown ='100' ;<- Specificare il Numero di Download da fare.... massimo 100 per account base ogni 24 ore! Global $UserAgent = '"Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:96.0) Gecko/20100101 Firefox/96.0"' Global $LinkBase = 'https://site.test/mame/currentroms/' Global $CurlOpz = '.\bin\curl -w "%%{http_code}" --show-error --retry 2 --fail-early --fail --connect-timeout 90 --user "' & $User & ':' & $Pass & '" --user-agent ' & $UserAgent ;Global $CurlOpz = '.\bin\curl --show-error --retry 2 --fail-early --fail --connect-timeout 90 --user "' & $User & ':' & $Pass & '" --user-agent ' & $UserAgent ;InputBox('Variabile', '$CurlOpz', $CurlOpz, '', 1500) ;<- Controllo Variabile Global $ShowLog = '.\log\ShowLog.log' Global $FileToDown = '.\tmp\FileToDownload.txt' Global $DownBatch = '.\tmp\Download.bat' Global $File, $Num, $i, $Down, $Down[101], $CmdStr, $Wait, $CheckFileExist, $Errors, $DownBatch, $DownTot ;Preparazioni prime righe file batch per Download FileOpen($DownBatch, 2) FileWrite($DownBatch, '@echo off' & @CRLF) ;FileClose($DownBatch) SetFile() ReadFile() ListFile() MadeBatch() Download() ShowLog() Func SetFile() ;$File = ('test.txt') ;<-Skip InputBox seguente ;$File = ('mame.txt') ;<-Skip InputBox seguente $File = InputBox("Richiesta", "Inserisci Nome TXT") ;, "", "", -1, -1, 0, 0) If @error = 1 Then Exit EndIf $CheckFileExist = FileExists('.\' & $File) If $CheckFileExist Then Else MsgBox($MB_SYSTEMMODAL, "", "File non esistente.... riprova!") SetFile() EndIf If $File = '' Then SetFile() EndIf EndFunc Func ReadFile() For $i = 1 To $NumDown Step 1 $Down[$i] = FileReadLine($File, $i) If $Down[$i] = '' then $DownTot = $i - 1 ;MsgBox($MB_SYSTEMMODAL, "", $DownTot) ;<- Verifica Numero di Download Totali ExitLoop EndIf ;MsgBox($MB_SYSTEMMODAL, "", $Down[$i]) Next EndFunc Func ListFile() FileOpen($FileToDown, 2) for $i = 1 to 100 step 1 If $Down[$i] = '' then ExitLoop EndIf $Down[$i] = $Down[$i] & '.zip' ;InputBox('Variabile', '$Down', $Down[$i], '', 1500) ;<- Controllo Variabile FileWrite($FileToDown, $i & '. '& $Down[$i] & @CRLF ) next FileClose($FileToDown) ;InputBox('Variabile', '$FileToDown', $FileToDown, '', 1500) ;<- Controllo Variabile Global $hWnd = Run('notepad.exe ' & $FileToDown, '') WinWait("[CLASS:Notepad]", "", 10) ;InputBox('Variabile', '$Test1', 'TEST', '', 1500) ;<- Controllo Variabile $TempVariable = MsgBox(36, 'Conferma il Download', 'Desideri Iniziare i Download ?') If $TempVariable = 7 Then ;WinClose($hWnd) ProcessClose($hWnd) Exit EndIf ;WinClose($hWnd) ProcessClose($hWnd) EndFunc Func MadeBatch() ;FileWrite($DownBatch, 'TEST 01') ;FileOpen($DownBatch, 1) ;Scrittura Righe per i Download For $i = 1 to 100 step 1 If $Down[$i] = '' then ExitLoop EndIf FileWrite($DownBatch, 'cls' & @CRLF & 'echo.' & @CRLF & 'ECHO Download n. ' & $i & ' di ' & $DownTot & @CRLF) ;FileWrite($DownBatch, 'Comando curl per Download' & @CRLF) $CmdStr = $CurlOpz & ' --output .\download\' & $Down[$i] & ' ' & $LinkBase & $Down[$i] & ' >.\log\down' & $i &'.log' & @CRLF ;InputBox('Variabile', '$CmdStr', $CmdStr, '', 1500) ;<- Controllo Variabile FileWrite($DownBatch, $CmdStr) ;FileWrite($DownBatch, $CurlOpz & ' --output .\download\' & $Down[$i] & ' ' & $LinkBase & $Down[$i] & 'Porcamadonna.log' & @CRLF) $Wait = Random(5,10,1) FileWrite($DownBatch, 'CHOICE /C:AB /T:' & $Wait & ' /D:A >NUL' & @CRLF) Next FileClose($DownBatch) EndFunc Func Download() ;Global $DOS = Run(@ComSpec & " /c " & ".\tmp\Download.bat") RunWait(@ComSpec & " /c " & ".\tmp\Download.bat") EndFunc Func ShowLog() FileOpen($ShowLog, 2) For $i = 1 to $DownTot $TempVariable = FileRead('.\log\down' & $i &'.log') FileWrite($ShowLog, 'Il File ' & $Down[$i] & ' ha restituito un Download con code: ' & $TempVariable & @CRLF) Next FileWrite($ShowLog, @CRLF & 'Legenda Code: 200 - Download OK 404 - File non trovato sul Server 401 - Errore di Autenticazione 000 - Errore Generico... Riprova più tardi...') FileClose($ShowLog) Global $hWnd = Run('notepad.exe ' & $ShowLog, '') WinWait("[CLASS:Notepad]", "", 10) EndFunc Now apparently it's works.......... i don't know if it's the correct ways of if it's the BEST ways but it's works. The download procedure it's works........... all files it's be tryed to download and log result http in a file. After all download i have add a feature to read all download log and merge it in a large log life open by notepad....... Problably on future release i can add to batch download a realtime check: If for example a download fail for error 401 (not 404 file not present on server) it's terminate the execution of script and terminate the download procedure because problably i have reach the limit of 100 download available every 24 hours....... I have also renamed the entire thread...... because it's not anymore related to Command prompt. Thanks for every support i obtain

@Nine Thanks for suggesting i need to study your code suggested to include on my script ....... Anyway i have obtain an idea for do how i want........ instead to open a Command Prompt windows and write command inside i can wrote all download commands on a .cmd and execute this cmd. I thinks it's also a valid alternative for my necessity..... in this case i can also iconize the command prompt windows and wait all download it's be completed..... *EDIT* For knowledge.. it's the point i have reach: #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.14.5 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <FileConstants.au3> #include <MsgBoxConstants.au3> #include <WinAPIFiles.au3> #include <MsgBoxConstants.au3> Global $User = 'Myuser' Global $Pass = 'MyPass' Global $NumDown ='100' ;<- Specificare il Numero di Download da fare.... massimo 100 per account base ogni 24 ore! Global $UserAgent = '"Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:96.0) Gecko/20100101 Firefox/96.0"' Global $LinkBase = 'https://test.site.com/' Global $CurlOpz = '.\bin\curl -w "%{http_code}\n" --show-error --retry 2 --fail-early --fail --connect-timeout 90 --user ' & $User & ':' & $Pass & ' --user-agent ' & $UserAgent ;InputBox('Variabile', '$CurlOpz', $CurlOpz, '', 1500) ;<- Controllo Variabile Global $FileToDown = '.\tmp\FileToDownload.txt' Global $DownBatch = '.\tmp\Download.cmd' Global $File, $Num, $i, $Down, $Down[101], $CmdStr, $Wait, $CheckFileExist, $Errors, $DownBatch, $DownTot ;Preparazioni prime righe file batch per Download FileOpen($DownBatch, 2) FileWrite($DownBatch, '@echo off' & @CRLF) ;FileClose($DownBatch) SetFile() ReadFile() ListFile() MadeBatch() ;Download() Func SetFile() ;$File = ('test.txt') ;<-Skip InputBox seguente ;$File = ('mame.txt') ;<-Skip InputBox seguente $File = InputBox("Richiesta", "Inserisci Nome TXT") ;, "", "", -1, -1, 0, 0) If @error = 1 Then Exit EndIf $CheckFileExist = FileExists('.\' & $File) If $CheckFileExist Then Else MsgBox($MB_SYSTEMMODAL, "", "File non esistente.... riprova!") SetFile() EndIf If $File = '' Then SetFile() EndIf EndFunc Func ReadFile() For $i = 1 To $NumDown Step 1 $Down[$i] = FileReadLine($File, $i) If $Down[$i] = '' then $DownTot = $i - 1 ;MsgBox($MB_SYSTEMMODAL, "", $DownTot) ;<- Verifica Numero di Download Totali ExitLoop EndIf ;MsgBox($MB_SYSTEMMODAL, "", $Down[$i]) Next EndFunc Func ListFile() FileOpen($FileToDown, 2) for $i = 1 to 100 step 1 If $Down[$i] = '' then ExitLoop EndIf $Down[$i] = $Down[$i] & '.zip' ;InputBox('Variabile', '$Down', $Down[$i], '', 1500) ;<- Controllo Variabile FileWrite($FileToDown, $i & '. '& $Down[$i] & @CRLF ) next FileClose($FileToDown) ;InputBox('Variabile', '$FileToDown', $FileToDown, '', 1500) ;<- Controllo Variabile Run('notepad.exe ' & $FileToDown, '') Global $hWnd = WinWait("[CLASS:Notepad]", "", 10) ;InputBox('Variabile', '$Test1', 'TEST', '', 1500) ;<- Controllo Variabile $TempVariable = MsgBox(36, 'Conferma il Download', 'Desideri Iniziare i Download ?') If $TempVariable = 7 Then WinClose($hWnd) ;ProcessClose($iPID) Exit EndIf WinClose($hWnd) EndFunc Func MadeBatch() ;FileWrite($DownBatch, 'TEST 01') ;FileOpen($DownBatch, 1) ;Scrittura Righe per i Download For $i = 1 to 100 step 1 If $Down[$i] = '' then ExitLoop EndIf FileWrite($DownBatch, 'cls' & @CRLF & 'echo.' & @CRLF & 'Download n. ' & $i & ' di ' & $DownTot & @CRLF) ;FileWrite($DownBatch, 'Comando curl per Download' & @CRLF) FileWrite($DownBatch, $CurlOpz & ' --output .\Download\' & $Down[$i] & ' ' & $LinkBase & $Down[$i] & ' >Down' & $i &'Log.txt' & @CRLF) $Wait = Random(5,10,1) FileWrite($DownBatch, 'CHOICE /C:AB /T:' & $Wait & ' /D:A >NUL' & @CRLF) Next EndFunc Lol and end of all whit this i can obtain a .cmd to execute......... whit the Function "Download". as you can see I have the logs of each download saved in a .txt file... In a next future i thinks i can add a feature to check this log to see if some download as failed or somethings.... *EDIT* It's now present another i need to fix.... the notepad instance: When i open the file $FileToDown (.\tmp\FileToDown.txt) and confirm the start of download procedure (run the next create .cmd file) I need to close the windows of opened notepad.exe. Currently if i have two or different notepad instance this my script it's terminate all notepad windows....... lol. I need to understand how i can close only the notepad just opened contain the list of download......... mmmmmm *EDIT 2nd* Resolved the process close for notepad: Global $hWnd = Run('notepad.exe ' & $FileToDown, '') WinWait("[CLASS:Notepad]", "", 10) ;InputBox('Variabile', '$Test1', 'TEST', '', 1500) ;<- Controllo Variabile $TempVariable = MsgBox(36, 'Conferma il Download', 'Desideri Iniziare i Download ?') If $TempVariable = 7 Then ;WinClose($hWnd) ProcessClose($hWnd) Exit EndIf ;WinClose($hWnd) ProcessClose($hWnd) Continue to develop to end of script and first test for download some file started from file.txt......... Thanks for support......

I have writed a AutoIT made to download some file (using curl) from a site started from a .txt file......... i problably know there's no BEST way to do this but it's the BEST i can do..... the script it's this: #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.14.5 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <FileConstants.au3> #include <MsgBoxConstants.au3> #include <WinAPIFiles.au3> #include <MsgBoxConstants.au3> Global $User = 'My Username' Global $Pass = 'Password' Global $NumDown ='100' ;<- The site have a limit of 100 files download every 24hour.... Global $UserAgent = 'Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:96.0) Gecko/20100101 Firefox/96.0' Global $LinkBase = 'https://testsite.com/' Global $CurlOpz = '.\bin\curl -w "%{http_code}\n" --show-error --retry 2 --fail-early --fail --connect-timeout 90 --user ' & $User & ':' & $Pass & ' --user-agent ' & $UserAgent Global $FileToDown = '.\tmp\FileToDownload.txt' Global $File, $Num, $i, $Down, $Down[101], $CmdStr, $Wait, $CheckFileExist, $Errors SetFile() ReadFile() ListFile() Download() Func SetFile() $File = InputBox("Richiesta", "Inserisci Nome TXT") ;, "", "", -1, -1, 0, 0) If @error = 1 Then Exit EndIf $CheckFileExist = FileExists('.\' & $File) If $CheckFileExist Then Else MsgBox($MB_SYSTEMMODAL, "", "File non esistente.... riprova!") SetFile() EndIf If $File = '' Then SetFile() EndIf EndFunc Func ReadFile() For $i = 1 To $NumDown Step 1 $Down[$i] = FileReadLine($File, $i) If $Down[$i] = '' then ExitLoop EndIf ;MsgBox($MB_SYSTEMMODAL, "", $Down[$i]) Next EndFunc Func ListFile() $TempVariable = FileOpen($FileToDown, 2) for $i = 1 to 100 step 1 If $Down[$i] = '' then ExitLoop EndIf $Down[$i] = $Down[$i] & '.zip' ;InputBox('Variabile', '$Down', $Down[$i], '', 1500) ;<- Controllo Variabile FileWrite($FileToDown, $i & '. '& $Down[$i] & @CRLF ) next FileClose($FileToDown) ;InputBox('Variabile', '$FileToDown', $FileToDown, '', 1500) ;<- Controllo Variabile Run('notepad.exe ' & $FileToDown, '') Global $hWnd = WinWait("[CLASS:Notepad]", "", 10) ;InputBox('Variabile', '$Test1', 'TEST', '', 1500) ;<- Controllo Variabile EndFunc Func Download() ;$Errors = 0 $TempVariable = MsgBox(36, 'Conferma il Download', 'Desideri Iniziare i Download ?') If $TempVariable = 7 Then WinClose($hWnd) ;ProcessClose($iPID) Exit EndIf WinClose("[CLASS:Notepad]", "") FileOpen('.\tmp\Failed.txt', 2) FileOpen('.\tmp\Downloaded.txt', 2) Run(@Comspec & " /k ", "", @SW_SHOWDEFAULT) Sleep(3000) ;Global $hWnd = WinWait("[ConsoleWindowClass]", "", 10) For $i = 1 to 100 step 1 If $Down[$i] = '' then ExitLoop EndIf $Wait = Random(1,5000,1) ;ControlSend($hCmd, "$Down[$i] & ' '") $hCmd = WinGetHandle("C:\WINDOWS\system32\cmd.exe") ControlSend($hCmd, "", "Edit1", "This is some text") Sleep($Wait) Next FileClose('\tmp\Failed.txt') FileClose('\tmp\Downloaded.txt') EndFunc This is the point i have reach........ i'm blocked at Download Procedure because i can't write/send anythings to the Command Prompt. After read a lot of thread this is the last tentative i do...... it's not works...... i can see the command prompt correctly open but nothings it's be appears on this.... The Func "SetFile" it's made from request the txt file name..... The Func "ReadFile" it's made and apparently it's works... it's read every line of requested txt file in some many variable. After that i can obtain many variable like $Down1 = aaaa $Down2 = bbbb directly readed from txt file The Func "ListFile" made all variable and add the extension...... after that i obtain $Down1 = aaaa.zip $Down2 = bbbb.zip etc etc Now the Func "Download".... At this point i have need to open a Command prompt and file after file download all zip file using curl...... Currently i have wrote another different and working script similar to this...... but this made a command prompt windows every file to download...... This time i stay to create a single Command Prompt windows and download all files one after one insted the end of all variable $DownXX... But i can't...... whit this i can see Command Prompt it's opened but i don't understand how i can "paste" the curl command to this command prompt...... There's some one can help in this way ? *EDIT* Reading better now here: https://www.autoitscript.com/autoit3/docs/functions/ControlSend.htm Controlsend it's "unreliable" for command prompt and it's suggested to use send...... ok but i need to send to a specific command prompt also if it's minimized (for example if i need to download in background). It's possible ? How i can do this ? Thanks in advance for suggestion..........

mmmmmmmmm.... Probably not the best route but I got something that works! Also for download section using CURL! I'm happy to post entire script (edited some parts)..... If you want to give me some advice and you have some improvement to do as well: #cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.14.5 Author: myName Script Function: Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <FileConstants.au3> #include <MsgBoxConstants.au3> #include <WinAPIFiles.au3> #include <MsgBoxConstants.au3> Global $User = 'User' Global $Pass = 'Pass' Global $NumDown ='50' ;<- Specificare il Numero di Download da fare.... Global $UserAgent = '"Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:70.0) Gecko/20100101 Firefox/70.0"' Global $LinkBase = 'https://www.testing.com/downloads/' ;<- Problably obtain error 000 host not found on curl output ;Global $LinkBase = 'https://www.google.com/download/' <- The second url used by me from some test.. alternate if need. Global $CurlOpz = 'curl -w "%{http_code}\n" --show-error -C - --retry 2 --fail-early --fail --connect-timeout 90 --user ' & $User & ':' & $Pass & ' --user-agent ' & $UserAgent ;InputBox('Variabile', '$CurlOpz', $CurlOpz, '', 1500) ;<- Controllo Variabile Global $FileToDown = '.\FileToDownload.txt' Global $File, $Num, $i, $Down, $Down[101], $CmdStr, $Wait, $CheckFileExist, $Errors;<-Look..set for 101 array. i need the first 100 line. SetFile() ReadFile() ListFile() Download() CheckErrors() Func SetFile() ;$File = ('test.txt') ;<-Skip InputBox seguente <-Test ;$File = ('mame.txt') ;<-Skip InputBox seguente <-Another Test $File = InputBox("Richiesta", "Inserisci Nome TXT") ;, "", "", -1, -1, 0, 0) If @error = 1 Then Exit EndIf $CheckFileExist = FileExists('.\' & $File) If $CheckFileExist Then Else MsgBox($MB_SYSTEMMODAL, "", "File non esistente.... riprova!") SetFile() EndIf If $File = '' Then SetFile() EndIf EndFunc Func ReadFile(); <-This works... simply array and simply loop For $i = 1 To $NumDown Step 1 $Down[$i] = FileReadLine($File, $i) If $Down[$i] = '' then ;<- This check.. has fewer lines than the number of downloads set it's exit from set value. ExitLoop EndIf ;MsgBox($MB_SYSTEMMODAL, "", $Down[$i]) Next EndFunc Func ReadFile_Da_Rivedere();<- This is totally test.... it's work but not how i desire. I need to study how _FileReadToArray works... $Down = FileReadToArray($File) ;$Num = @extended ;$Num = 5 For $i = 0 to $Num - 1 If $Down[$i] = '.zip' then Exit EndIf $Down[$i] = $Down[$i] & '.zip' ;MsgBox($MB_SYSTEMMODAL, "", $Down[$i]) next EndFunc Func ListFile() ;<- Another use... also here array works. $TempVariable = FileOpen($FileToDown, 2) for $i = 1 to 100 step 1 If $Down[$i] = '' then ;<- Similar upper... if variable empty exit from loop and for not create empty line. ExitLoop EndIf $Down[$i] = $Down[$i] & '.zip' ;InputBox('Variabile', '$Down', $Down[$i], '', 1500) ;<- Controllo Variabile FileWrite($FileToDown, $i & '. '& $Down[$i] & @CRLF ) :<- Look here! I know it's not the flair solution. I create a .txt for list file to parse to Download.... lol. next FileClose($FileToDown) ;InputBox('Variabile', '$FileToDown', $FileToDown, '', 1500) ;<- Controllo Variabile Run('notepad.exe ' & $FileToDown, '') ;<- After that i open the files whit notepad WinWait("[CLASS:Notepad]", "", 10) ;<- I dislike the @Maximize flag. Whit this i popup the notepad windows. ;InputBox('Variabile', '$Test1', 'Testing', '', 1500) ;<- Controllo Variabile EndFunc Func Download() ;$Errors = 0 ;<- Wrong place to set this variable Variable... $TempVariable = FileOpen('.\Failed.txt', 2);<- Open another .txt... here log all failed download $TempVariable = MsgBox(36, 'Conferma il Download', 'Desideri Iniziare i Download ?') ;<- Ask to user if want to start download. This appears upper the notepad windows whit the complete list of download... If $TempVariable = 7 Then WinClose("[CLASS:Notepad]", "") Exit EndIf WinClose("[CLASS:Notepad]", "") For $i = 1 to 100 step 1 If $Down[$i] = '' then ExitLoop EndIf $Wait = Random(5,10,1) ;<- Random wait between one download and another to "mask" the use of curl and script :). $CmdStr = ' /c "' & 'ECHO Download Numero: ' & $i & ' - ' & $Down[$i] & ' & ' & $CurlOpz & ' --output .\Download\' & $Down[$i] & ' ' & $LinkBase & $Down[$i] & ' >Log.txt ' & ' & CHOICE /C:AB /T:' & $Wait & ' /D:A >NUL"'; <-Complete string for command prompt and usage curl for every download ;InputBox('Variabile', '$CmdStr', $CmdStr, '', 1500) ;<- Controllo Variabile RunWait(@Comspec & $CmdStr) $CheckFileExist = FileRead(".\Log.txt") ;<- Here read the log.txt created upper here.. it's output of curl command and contain the http result for download. 200 ok.. 404 etc etc. Switch $CheckFileExist ;<- Look from here.... i have leave out two alternative... using the switch or use the also valid check whit if..else..then.. Case 200 Case 401 ; If $CheckFileExist = 401 Then MsgBox($MB_SYSTEMMODAL, "", 'Errore di Autenticazione o UserName e Password Errati') Exit Case 404 ; ElseIf $CheckFileExist = 404 Then FileWrite('.\Failed.txt', $i & '. '& $Down[$i] & ' con errore codice: ' & $CheckFileExist) $Errors = $Errors + 1 MsgBox($MB_SYSTEMMODAL, "", 'File non trovato nel server' & ' - ' & $Down[$i] & '! File Failed.txt creato!', 3) ;InputBox('Variabile', '$Errors', $Errors, '', 1500) ;<- Controllo Variabile ;MsgBox($MB_SYSTEMMODAL, "", $Errors, 3) Case 000 ; ElseIf $CheckFileExist = 000 Then FileWrite('.\Failed.txt', $i & '. '& $Down[$i] ' con errore codice: ' & $CheckFileExist) $Errors = $Errors + 1 MsgBox($MB_SYSTEMMODAL, "", 'Errore Generico / Sito Non Trovato o altro. Riprova il Download del file ' & $Down[$i] & ' più tardi! File Failed.txt creato!', 3) ;InputBox('Variabile', '$Errors', $Errors, '', 1500) ;<- Controllo Variabile ;MsgBox($MB_SYSTEMMODAL, "", $Errors, 3) EndSwitch ;EndIf Next FileClose('\Failed.txt') EndFunc Func CheckErrors() ;<- He report the result of all operation... all works.. i already tested from download 99 Files from the site for which the script was designed. I choose to download 100 files for Test..... result it's 99 because for one i have obtain Error 404 for a know motive. Site as limit to 100 files for days..... 99 completed and the error 404 it's also counted by site like a valid download and I don't know if this is avoidable... ;MsgBox($MB_SYSTEMMODAL, "", "Sono sul Func CheckErrors!") If $Errors = 0 then MsgBox($MB_SYSTEMMODAL, "", "Tutti i File sono stati scaricati correttamente nella cartella .\Download!! Complimenti!!") Else MsgBox($MB_SYSTEMMODAL, "", "Ci sono stati errori durante i Download!! Tutto è stato loggato nel file Failed.txt!!") EndIf EndFunc I have also leave all my commentated test inputbox or msgbox using for test the script I repeat again.... problably it's not clear... problably it's not fully optimized but it's works........

Wait a moment.... _FileReadToArray it's different than FileReadToArray ? I can try to watch also this solution but apparently this: Global $File, $i, $Down, $Down[100] Func ReadFile() For $i = 1 To 100 Step 1 $Down[$i] = FileReadLine($File, $i) If $Down[$i] = '' then ExitLoop EndIf MsgBox($MB_SYSTEMMODAL, "", $Down[$i]) Next EndFunc It's works... you thinks it's no good option ? Becuase ?

You suggest to use FileRead instead FileReadToArray ? Currently my txt files contain about 700 lines but sometimes can contain so much line....... I don't understand because there's can be usable somethings like this: Func ReadFile()       For $i = 1 To 100 Step 1         $Down[$i] = FileReadLine($File, $i)         MsgBox($MB_SYSTEMMODAL, "", $Down[$i])     Next EndFunc If this works it's the simpliest ways.... but when executes report errors at Array variable. Problably it's very simply things can be obtain whit a very difficult code ? Strange. *EDIT* OH MY GOD!! Problably it's not the best solution but it's works.... At first of script i have add this: Global $File, $Num, $i, $Down, $Down[100] Apparently this can create 100 spaces for Array! After do this..... the loop posted above it's apparently it's works.

@Subz Hi friends..... after 24 hours i have completed one version of my desire script. For the moment the solution about read one line and immediatelly after download it's a good idea but right now i'm try to write a script 2.0 will output a list of zip files and a confirmation to start download or not. For obtain this i thinks i need to store every line in a variable and whit a second loop try to found a way to list all variable zip files........ Using the MsgBox it's not a great idea...... how i can appears a list like code or text list ? I have also tryed to use this your suggestion but i thinks there's an errors..... It's say Down(FileReadLine) Error:Unknow Function Name problably because it's need to set a variable here. I have try $Down(FileReadLine($File,$Num) and it's not works. After that i have also tryed to output $Down50 and it's also no works.... *EDIT* Whit this: Func ReadFile()     For $Num = 1 To 5 Step 1         $Down(FileReadLine($File,$Num)         $Down = Down & '.zip'     Next EndFunc AutoIT report error: Variable cannot be accessed in this manner. Otherwise it's not works..... or I can't write it myself... this is full script 2.0 : #cs ----------------------------------------------------------------------------  AutoIt Version: 3.3.14.5  Author:         myName  Script Function:     Template AutoIt script. #ce ---------------------------------------------------------------------------- ; Script Start - Add your code below here #include <FileConstants.au3> #include <MsgBoxConstants.au3> #include <WinAPIFiles.au3> #include <MsgBoxConstants.au3> Global $User = "User" Global $Pass = "Pass" Global $UserAgent = '"Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:70.0) Gecko/20100101 Firefox/70.0"' Global $LinkBase = '"https://filelist.info/downloads/' Global $CurlOpz = '-w "%{http_code}\n" --show-error -C - --retry 3 --fail-early --fail --connect-timeout 90 --user ' & $User & ':' & $Pass & ' --user-agent ' & $UserAgent ;InputBox('Variabile', '$CurlOpz', $CurlOpz, '', 1500) ;<- Controllo Variabile Global $File, $Num, $Down Local $CheckFileExist SetFile() ReadFile() ListFile() Func SetFile()     $File = ('list.txt') ;<-Skip InputBox Seguente     ;$File = InputBox("Richiesta", "Inserisci Nome TXT") ;, "", "", -1, -1, 0, 0)     If @error = 1 Then         Exit     EndIf     $CheckFileExist = FileExists('.\' & $File)         If $CheckFileExist Then                      Else             MsgBox($MB_SYSTEMMODAL, "", "File non esistente.... riprova!")             SetFile()         EndIf     If $File = '' Then     SetFile()     EndIf EndFunc Func ReadFile()     For $Num = 1 To 5 Step 1         $Down = (FileReadLine($File,$Num) & '.zip')         ;$Down = Down & '.zip'     Next EndFunc Func ListFile()     InputBox('Variabile', '$Down', $Down, '', 1500) ;<- Controllo Variabile EndFunc there are several variables useful for future purposes like "LinkBase" and "CurlOpz" (need in future to download the zip files. For the moment for the moment i'm trying to bring up the listing on the screen........ but i can't This upper code it's works.... but i can't obtain $Down1, $Down2 etc etc. If i check value of $Down4 i obtain it's not declare. If i check the value of $Down i obtain correctly only the five line of list.txt. *EDIT After some TEST* This Part of upper script i write after some test.............. it's half works. Not how i want: Func ReadFile() $Down = FileReadToArray($File) $Num = @extended ;$Num = 5 For $i = 0 to $Num - 1 If $Down[$i] = '.zip' then Exit EndIf $Down[$i] = $Down[$i] & '.zip' ;MsgBox($MB_SYSTEMMODAL, "", $Down[$i]) next EndFunc Func ListFile() for $i = 0 to 5 - 1 If $Down[$i] = '.zip' then Exit EndIf InputBox('Variabile', '$Down', $Down[$i], '', 1500) ;<- Controllo Variabile next EndFunc The "ReadFile()" apparently works correctly (picked from help) and read all line and create for every line one variable. It's ok... but if i have a large file txt ?? How it's appen ?? On the "ListFile()" there's need some check or some help........ remember ?? I need to read the first 100 line or txt..... i don't have idea how i can do right now. Some Suggestion ? also if the file contains less than 100 lines i need to stop.... from this i have tryed 0 to 5 but i obtain an errors says "Incorrect Number or Dimension Range" when i tryed whit only 4 line .txt as source. Damn......

You speak about read line by line and store every line to a single variable ? At right now i'm stay to use an alternative ways. 1) A loop for line number. 2) Read Line Number 1 on txt 3) Download the .zip 4) Next on loop I have done so other things in this my script.... if i need much help i thinks it's can be better to open a different thread how i can post all my script.....

I have tryed somethigs similar.... but apparently there's can be obtain a working. Also some test i obtain this: Func Download() Global $LinkFile = $LinkBase & $Downzip & '"' Global $LinkFinale = $CurlCmd & " --output .\Download\" & $DownZip & $LinkFile Global $Answer1 = MsgBox($MB_OKCANCEL, "TEST", $LinkFinale) If $Answer1 = 1 Then MsgBox($MB_SYSTEMMODAL,"","Start Download") EndIf If $Answer1 = 2 Then MsgBox($MB_SYSTEMMODAL,"","Ciao Ciao... Bambina") EndIf EndFunc I have set a variable for MsgBox..... after this the check of this variable working good. I thinks i can open directly a new thread whit all my script test............ i thinks i can post all my script to obtain a much better help from this forum.. right ?

Oh.. interesting... great suggestion For moment i stay to try to download the zip every read line..... in this mode: Func ReadFile()     For $Num = 1 to 5 step 1         Global $Down = FileReadLine($File, $Num)         Global $DownZip = $Down & ".zip"         Download()     Next EndFunc   ;==>ReadFile After the function download it's complete it's step back read next line and function Download as reach again... It's a valid alternative instead to create 100 variable for every line..... at the end i need only to download the first 100 zip in the txt files... similar result. It's problably useless to create 100 different variables. Read line 1 - > Download -> Read Line 2 -> Download. It's also a valid alternative for my reach whit this script *EDIT 1 to 5... 5 it's for do test.... *Edit 2parts* I'm right now again block at download section: Func Download() Global $LinkFile = $LinkBase & $Downzip & '"' Global $LinkFinale = $CurlCmd & " --output .\Download\" & $DownZip & $LinkFile MsgBox($MB_OKCANCEL, "TEST", $LinkFinale) If $IDCANCEL = 2 then MsgBox($MB_SYSTEMMODAL,"","Ciao Ciao... Bambina") EndIf MsgBox($MB_SYSTEMMODAL,"","Start Download") ;Run ($LinkFinale) EndFunc I need to skip the download if i click cancel on msgbox..... there's no GOTO or similar on autoit and i have try to use func and it's not help.... how i can do this ?

Hi boys&Friends... i return here for try to found some help..... i'm stay to create a script based download list using curl. I'm blocked from hours in this parts of code.... i can post this part: Func ReadFile()     For $Num = 1 to 100 step 1         Global $Down[$Num] = FileReadLine($File, $Num)         Global $DownZip[$Num] = $Down[$Num] & ".zip"         ;MsgBox($MB_SYSTEMMODAL, "TEST", $Down & ".zip")     Next     MsgBox($MB_SYSTEMMODAL, "TEST", $DownZip[50]) EndFunc   ;==>ReadFile The $File it's a text file present on same path of .au3. That's it's contain a list files for each line.... somethings like: aaaa bbbb cccc dddd etc etc. This files contain much more 100 line but i need to read only the first 100 line and it's my desire to obtain every line a variable. After that i need to obtain a variable like $Down50 contain the line 50 of the txt file (plus i have add the extension .zip) for parse download. I have tryes some variable.... $Down($Num), $Down[$Num], and many others and apparently not works..... How i can do this ? Instead to create 100 different variable.... i thinks i can read one line and download zip files on another func. After download complete step back to loop and next line etc etc..... you thinks it's a good idea ?

mmmmmmmm... ok.... i try to wait some days/weeks if someone can notified this thread.... if not i thinks i can start a my project from zero and i hope it's not much difficult to develops somethigs similar to this....

yes.... infact i can obtain also an answer by not developers directly like you do. I have ask i'm stay fo search somethigs similar and i have explain my request........................ You thinks best idea it's opened a newest thread for same request ?

mmmmmmmmmm... i stay somethings similar........... for example. Instead put all "Games" on desktop of my windows i try to search an app and when i launch a games this same app it's self closing and leave the desktop cleaning........... It's there working in this mode ?

one or two fixed bug related /s or /r option every run the app............... and a newest option in this 3.2. Now the /f option it's used (force the close of runnig app) when /t it's setted to 0! All Right in this 3.2: #NoTrayIcon #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=exit.ico #AutoIt3Wrapper_Outfile_x64=ShutdownGUI x64 3.2.exe #AutoIt3Wrapper_Compression=4 #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <MsgBoxConstants.au3> #include <WinAPIFiles.au3> ;Legge Variabili dal file .ini Global $SettingsFile = @ScriptDir & "\ShutdownGUI_settings.ini" ReadIniFile() #Region ### START Koda GUI section ### Form=D:\AutoIT\Miei Progetti\Shutdown GUI\ShutdownGUI.kxf $Main = GUICreate("Shutdown GUI 3.2", 508, 205, 192, 124) $Label1 = GUICtrlCreateLabel("Ore", 72, 24, 21, 17) $Label2 = GUICtrlCreateLabel("Minuti", 208, 24, 32, 17) $Label3 = GUICtrlCreateLabel("Secondi", 344, 24, 43, 17) $Checkbox1 = GUICtrlCreateCheckbox("Riavvia PC", 64, 112, 97, 17) $Checkbox2 = GUICtrlCreateCheckbox("Spegni PC", 168, 112, 97, 17) If $ValCheckbox = 0 then GUICtrlSetState($Checkbox1, $GUI_CHECKED) GUICtrlSetState($Checkbox2, $GUI_UNCHECKED) Global $Opt1 = "/r " Else GUICtrlSetState($Checkbox1, $GUI_UNCHECKED) GUICtrlSetState($Checkbox2, $GUI_CHECKED) Global $Opt1 = "/s " EndIf $Input1 = GUICtrlCreateInput("", 8, 168, 361, 21,$ES_READONLY) $Label4 = GUICtrlCreateLabel("Preview Comando:", 8, 144, 93, 17) $Esegui = GUICtrlCreateButton("Esegui", 376, 128, 113, 65) $SetOre = GUICtrlCreateInput($ValOre, 56, 48, 73, 54, $ES_READONLY) GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xE3E3E3) GUICtrlCreateUpdown(-1) GUICtrlSetLimit(-1, 59, 0) $SetMinuti = GUICtrlCreateInput($ValMinuti, 208, 48, 73, 54, $ES_READONLY) GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xE3E3E3) GUICtrlCreateUpdown(-1) GUICtrlSetLimit(-1, 59, 0) $SetSecondi = GUICtrlCreateInput($ValSecondi, 344, 48, 73, 54, $ES_READONLY) GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xE3E3E3) GUICtrlCreateUpdown(-1) GUICtrlSetLimit(-1, 59, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Run ("shutdown /a") Global $MainCommand = "shutdown " ;Global $Opt1 = "/r " Converti() Global $Opt2 = "/t " & $TotaleSecondi If $TotaleSecondi = 0 then Global $Opt2 = "/t " & $TotaleSecondi & " /f" EndIf GUICtrlSetData ( $Input1, $MainCommand & $Opt1 & $Opt2 ) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE WriteIniFile() Exit Case $Checkbox1 GUICtrlSetState ( $Checkbox2 , $GUI_UNCHECKED ) GUICtrlSetState ( $Checkbox1 , $GUI_CHECKED ) Global $ValCheckbox = 0 Global $Opt1 = "/r " If $TotaleSecondi = 0 then Global $Opt2 = "/t " & $TotaleSecondi & " /f" EndIf GUICtrlSetData ( $Input1, $MainCommand & $Opt1 & $Opt2 ) Case $Checkbox2 GUICtrlSetState ( $Checkbox1 , $GUI_UNCHECKED ) GUICtrlSetState ( $Checkbox2 , $GUI_CHECKED ) Global $ValCheckbox = 1 Global $Opt1 = "/s " If $TotaleSecondi = 0 then Global $Opt2 = "/t " & $TotaleSecondi & " /f" EndIf GUICtrlSetData ( $Input1, $MainCommand & $Opt1 & $Opt2 ) Case $Esegui WriteIniFile() $Comando = $MainCommand & $Opt1 & $Opt2 Run ($Comando) Exit Case $SetOre Converti() Global $Opt2 = "/t " & $TotaleSecondi If $TotaleSecondi = 0 then Global $Opt2 = "/t " & $TotaleSecondi & " /f" EndIf GUICtrlSetData ( $Input1, $MainCommand & $Opt1 & $Opt2 ) Case $SetMinuti Converti() Global $Opt2 = "/t " & $TotaleSecondi If $TotaleSecondi = 0 then Global $Opt2 = "/t " & $TotaleSecondi & " /f" EndIf GUICtrlSetData ( $Input1, $MainCommand & $Opt1 & $Opt2 ) Case $SetSecondi Converti() Global $Opt2 = "/t " & $TotaleSecondi If $TotaleSecondi = 0 then Global $Opt2 = "/t " & $TotaleSecondi & " /f" EndIf GUICtrlSetData ( $Input1, $MainCommand & $Opt1 & $Opt2 ) EndSwitch WEnd Func Converti() Global $OreInSecondi = GUICtrlRead ($SetOre) * 3600 Global $MinutiInSecondi = GUICtrlRead ($SetMinuti) * 60 Global $Secondi = GUICtrlRead ($SetSecondi) Global $TotaleSecondi = $OreInSecondi + $MinutiInSecondi + $Secondi EndFunc Func ReadIniFile() Global $ValOre = IniRead($SettingsFile, "LastUsage", "LastOre", "0") Global $ValMinuti = IniRead($SettingsFile, "LastUsage", "LastMinuti", "1") Global $ValSecondi = IniRead($SettingsFile, "LastUsage", "LastSecondi", "0") Global $ValCheckbox = IniRead($SettingsFile, "LastUsage", "LastCheckbox", "0") EndFunc Func WriteIniFile() IniWrite($SettingsFile, "LastUsage", "LastOre", GUICtrlRead ($SetOre)) IniWrite($SettingsFile, "LastUsage", "LastMinuti", GUICtrlRead ($SetMinuti)) IniWrite($SettingsFile, "LastUsage", "LastSecondi", GUICtrlRead ($SetSecondi)) IniWrite($SettingsFile, "LastUsage", "LastCheckbox", $ValCheckbox) EndFunc