Help me to complete my script.......

DjDiabolik · February 6, 2022

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

Edited February 8, 2022 by DjDiabolik

Nine · February 6, 2022

Here how you can have a convo with DOS command prompt :

#include <WinAPIConv.au3>
#include <Constants.au3>

Opt("MustDeclareVars", 1)

OnAutoItExitRegister(_Exit)

Global $iPID = Run(@ComSpec, "", @SW_SHOW, $STDIN_CHILD+$STDERR_MERGED)
ProcessWait($iPID)
MsgBox ($MB_SYSTEMMODAL,"",ReadStream ($iPID))

Local $sRep
While True
  $sRep = InputBox("Convo with DOS console", "Enter DOS command :", "", "", 500)
  If @error Then ExitLoop
  StdinWrite ($iPID, $sRep & @CRLF)
  MsgBox ($MB_SYSTEMMODAL,"", ReadStream($iPID))
WEnd

Func ReadStream ($iPID, $iDelay = 300)
  Local $vData, $sStream
  Do
    Sleep ($iDelay)
    $vData = StdoutRead($iPID)
    If @error Then Exit ConsoleWrite("[ERROR] reading child Stream" & @CRLF)
    $sStream &= $vData
  Until $vData = ""
  ConsoleWrite ($sStream & @CRLF)
  Return _WinAPI_OemToChar ($sStream)
EndFunc

Func _Exit()
  StdioClose($iPID)
  ProcessClose($iPID)
EndFunc

DjDiabolik · February 7, 2022

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

Edited February 7, 2022 by DjDiabolik

DjDiabolik · February 8, 2022

@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

Block all input without UAC	Save/Retrieve Images to/from Text	Monitor Management (VCP commands)
Tool to search in text (au3) files	Date Range Picker	Virtual Desktop Manager
Sudoku Game 2020	Overlapped Named Pipe IPC	HotString 2.0 - Hot keys with string
x64 Bitwise Operations	Multi-keyboards HotKeySet	Recursive Array Display
Fast and simple WCD IPC	Multiple Folders Selector	Printer Manager
GIF Animation (cached) Debug Messages Monitor UDF	Screen Scraping Round Corner GUI UDF	Multi-Threading Made Easy

Sign In

Help me to complete my script.......

Recommended Posts

DjDiabolik

Nine

DjDiabolik

DjDiabolik

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta