#include <FileConstants.au3>
#include <MsgBoxConstants.au3>
#include <file.au3>
#Include <Date.au3>
#include <Array.au3>

; ***** Create local logs
DirCreate (@scriptdir & "test")
$dir = (@scriptdir & "test"")
$log = FileOpen (@scriptdir & "test"\test.log",2)

; Function for reading - text file
Eof()

Func Eof()
    ; Create a constant variable in Local scope of the filepath that will be read/written to.
    Global Const $sFilePath = @scriptdir & "\systems.txt"

    ; Open the file for reading and store the handle to a variable.
    Global $hFileOpen = FileOpen($sFilePath, $FO_READ)
    If $hFileOpen = -1 Then
        MsgBox($MB_SYSTEMMODAL, "", "An error occurred when reading the file.")
        Return False
    EndIf

    ; Read the contents of the file using the handle returned by FileOpen.
    Global $sFileRead = FileReadLine($hFileOpen, 1)

    ; Close the handle returned by FileOpen.
    ;FileClose($hFileOpen)

    ; Display the contents of the file.
    MsgBox($MB_SYSTEMMODAL, "", "Contents of the file:" & @CRLF & $sFileRead)


EndFunc

; put the root in a variable
$sRoot = (@ScriptDir)

; Retrieve a list of all the folders in $sRoot, and store them as an array in $aList
Global $aList = _FileListToArrayRec ($sRoot, "*", 2, -2, 2) ; _FileListToArray("path" [, "Filter" [, Flag]])
; Look at what _FileListToArray() puts into $aList
_ArrayDisplay($aList)

; This is a loop that runs from 1 to the number of items listed in the first element of the returned array
For $i = 1 To $aList[0]

If $sFileRead = $sRoot & "\" & $aList[$i] Then
            _filewritelog ($log, "Deleting, " & $sFileRead)
EndIf

Next
FileClose($hFileOpen)

#include <WinHttp.au3>
 
If FileExists(@ScriptDir & "\a_text_file.txt") Then
    SendFile("a_text_file.txt")
Else
    MsgBox(64,"Error","Unknown file, nothing to do")
EndIf
 
If FileExists(@ScriptDir & "\another_text_file.txt") Then
    SendFile("another_text_file.txt")
Else
    MsgBox(64,"Error","Unknown file, nothing more to do")
EndIf
 
Exit
 
Func SendFile($sFileName)
 
 
    Local $sFolder = @ScriptDir & "\"
    Local $sFileData = FileRead($sFolder & $sFileName)
    Local $iFileLen = StringLen($sFileData)
 
    Local $bUseProxy = 0
    Local $sProxyIP = "0.0.0.0"
    Local $sProxyPort = "8080"
 
    Local $sUserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:33.0) Gecko/20100101 Firefox/33.0"
    Local $sMethod = "POST"
    Local $sHttpVersion = "HTTP/1.1"
 
    Local $iBytesWritten
    Local $sResponseHeader
    Local $sResponseData
    Local $hSession
    Local $hConnect
    Local $hRequest
 
    Local $sUrlPrefix = "http://"
    Local $sHostName = "posttestserver.com"
    Local $sUrlSuffix = "/"
    Local $sPHP_Script = "post.php"
    Local $sPHP_Param = "?dump&html&dir=testing_the_script"
 
    Local $sUserName = ""
    Local $sUserPass = ""
 
    ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    ; 1) Create/Open a session handle
    ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
    ;Depending on using a proxy we use the appropriate function call
    If $bUseProxy = 1 Then
        $hSession = _WinHttpOpen($sUserAgent,$WINHTTP_ACCESS_TYPE_NAMED_PROXY,$sProxyIP & ":" & $sProxyPort,$WINHTTP_NO_PROXY_BYPASS,0)
        If @error Then ConsoleWriteError("Step 1) _WinHttpOpen(" & $sUserAgent & "," & $WINHTTP_ACCESS_TYPE_NAMED_PROXY & "," & $sProxyIP & ":" & $sProxyPort & "," & $WINHTTP_NO_PROXY_BYPASS & ",0) raises error: " & @error & @CRLF)
        ConsoleWrite("Step 1) Proxy ==> $hSession: " & $hSession & @CRLF)
    Else
        $hSession = _WinHttpOpen($sUserAgent, $WINHTTP_ACCESS_TYPE_NO_PROXY,$WINHTTP_NO_PROXY_NAME,$WINHTTP_NO_PROXY_BYPASS,0)
        If @error Then ConsoleWriteError("Step 1) _WinHttpOpen(" & $sUserAgent & "," & $WINHTTP_ACCESS_TYPE_NO_PROXY & "," & $WINHTTP_NO_PROXY_NAME & "," & $WINHTTP_NO_PROXY_BYPASS & ",0) raises error: " & @error & @CRLF)
        ConsoleWrite("Step 1) No proxy ==> $hSession: " & $hSession & @CRLF)
    EndIf
 
 
    ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    ; 2) Create/Open connection handle
    ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
    ; Are we using HTTP or HTTPS?
    If StringInStr($sUrlPrefix,"Https",0) Then  ; HTTPS
        If $hSession Then $hConnect = _WinHttpConnect($hSession,$sURLPrefix & $sHostName & $sUrlSuffix,$INTERNET_DEFAULT_HTTPS_PORT)
        ConsoleWrite("Step 2) Executing function _WinHttpConnect(" & $hSession & "," & $sURLPrefix & $sHostName & $sUrlSuffix & "," & $INTERNET_DEFAULT_HTTPS_PORT & ") " & @CRLF)
        ConsoleWrite("Step 2) $hConnect: " & $hConnect & @CRLF)
 
    Else        ; HTTP
        If $hSession Then $hConnect = _WinHttpConnect($hSession,$sURLPrefix & $sHostName & $sUrlSuffix,$INTERNET_DEFAULT_HTTP_PORT)
        ConsoleWrite("Step 2) Executing function _WinHttpConnect(" & $hSession & "," & $sURLPrefix & $sHostName & $sUrlSuffix & "," & $INTERNET_DEFAULT_HTTP_PORT & ") " & @CRLF)
        ConsoleWrite("Step 2) $hConnect: " & $hConnect & @CRLF)
    EndIf
 
 
    ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    ; 3a) Create/Open a request handle
    ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
    ; Are we using HTTP or HTTPS?
    If StringInStr($sUrlPrefix,"Https",0) Then  ; HTTPS
        If $hConnect Then $hRequest = _WinHttpOpenRequest($hConnect,$sMethod, $sUrlSuffix & $sPHP_Script & $sPHP_Param, $sHttpVersion,$WINHTTP_NO_REFERER, "*/*", $WINHTTP_FLAG_SECURE)
        ConsoleWrite("Step 3a) Executing funcion: _WinHttpOpenRequest(" & $hConnect & "," & $sMethod & "," & $sUrlSuffix & $sPHP_Script & $sPHP_Param & "," & $sHttpVersion & "," & $WINHTTP_NO_REFERER & ",*/*," & $WINHTTP_FLAG_SECURE & ")" & @CRLF)
        ConsoleWrite("Step 3a) $hRequest: " & $hRequest & @CRLF)
    Else        ; HTTP
        If $hConnect Then $hRequest = _WinHttpOpenRequest($hConnect,$sMethod, $sUrlSuffix & $sPHP_Script & $sPHP_Param, $sHttpVersion,$WINHTTP_NO_REFERER, "*/*", Default)
        ConsoleWrite("Step 3a) Executing funcion: _WinHttpOpenRequest(" & $hConnect & "," & $sMethod & "," & $sUrlSuffix & $sPHP_Script & $sPHP_Param & "," & $sHttpVersion & "," & $WINHTTP_NO_REFERER & ",*/*," & Default & ")" & @CRLF)
        ConsoleWrite("Step 3a) $hRequest: " & $hRequest & @CRLF)
    EndIf
 
    If $sUserName <> "" Then
        ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        ; 3b)Pass credentionals before sending a request
        ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        _WinHttpSetCredentials($hRequest, $WINHTTP_AUTH_TARGET_SERVER, $WINHTTP_AUTH_SCHEME_BASIC, $sUserName,$sUserPass)
        If @error Then ConsoleWriteError("Step 3b) _WinHttpSetCredentials raised an error: " & @error & @CRLF)
        ConsoleWrite("Step 3b) Executing funcion: _WinHttpSetCredentials(" & $hRequest & "," & $WINHTTP_AUTH_TARGET_SERVER & "," & $WINHTTP_AUTH_SCHEME_BASIC & "," & $sUserName & "," & $sUserPass & ")" & @CRLF)
 
 
        ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        ; 3c)Send the request
        ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        If $hRequest Then _WinHttpSendRequest($hRequest,$WINHTTP_NO_ADDITIONAL_HEADERS,$WINHTTP_NO_REQUEST_DATA,0,0)
        If @error Then ConsoleWriteError("Step 3c) _WinHttpSendRequest raised an error: " & @error & @CRLF)
        ConsoleWrite("Step 3c) Executing funcion: _WinHttpSendRequest(" & $hRequest & "," & $WINHTTP_NO_ADDITIONAL_HEADERS & "," & $WINHTTP_NO_REQUEST_DATA & ",0,0)" & @CRLF)
        ConsoleWrite("Step 3c) $hRequest: " & $hRequest & @CRLF)
 
 
        ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        ; 3d) End the request
        ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        _WinHttpReceiveResponse($hRequest)
 
        $sResponseHeader = _WinHttpQueryHeaders($hRequest)
        If @error Then ConsoleWriteError("Step 3d) _WinHttpQueryHeaders raised an error: " & @error & @CRLF)
        ConsoleWrite("Step 3d) $sResponseHeader: " & $sResponseHeader & @CRLF)
 
        $iStatusCode = _WinHttpQueryHeaders($hRequest,$WINHTTP_QUERY_STATUS_CODE)
        If @error Then ConsoleWriteError("Step 3d) _WinHttpQueryHeaders raised an error: " & @error & @CRLF)
        ConsoleWrite("Step 3d) $iStatusCode: " & $iStatusCode & @CRLF & @CRLF)
    EndIf
 
 
    ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    ; 4) Send the next request
    ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    _WinHttpSendRequest($hRequest,$WINHTTP_NO_ADDITIONAL_HEADERS, $sFileData, $iFileLen,Default)
 
    If @error Then ConsoleWriteError("Step 4) _WinHttpSendRequest raised an error: " & @error & @CRLF)
    ConsoleWrite("Step 4) Executing function _WinHttpSendRequest(" & $hRequest & "," & $WINHTTP_NO_ADDITIONAL_HEADERS & "," &  $sFileData & "," & $iFileLen & ",Default)" & @CRLF)
    ConsoleWrite("Step 4) $hRequest: " & $hRequest & @CRLF)
 
 
    ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    ; 5) Write data to server
    ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    _WinHttpWriteData($hRequest,$sFileData,0)
 
    ;Success - Returns 1
    ;- @extended receives the number of bytes written.
 
    $iBytesWritten = @extended
    ;Despite a successful post, @extended remains 0
    ;Why??????
 
    ConsoleWrite("Step 5) Executing function _WinHttpWriteData(" & $hRequest & "," & $sFileData & ",0)" & @CRLF)
    If @error Then
        ConsoleWriteError("Step 5) _WinHttpWriteData raised an error: " & @error & @CRLF)
    Else
        ConsoleWrite("Step 5) File " & $sFolder & $sFileName & " succesfully send to " & $sHostName & " Total bytes written: " & $iBytesWritten & @CRLF)
    EndIf
 
 
    ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    ; 6) End the request
    ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    _WinHttpReceiveResponse($hRequest)
 
 
    ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    ; 7) Show response from server
    ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    $sResponseHeader = _WinHttpQueryHeaders($hRequest)
    ConsoleWrite("Step 7) $sResponseHeader: " & $sResponseHeader & @CRLF)
 
    $iStatusCode = _WinHttpQueryHeaders($hRequest,$WINHTTP_QUERY_STATUS_CODE)
    ConsoleWrite("Step 7) $iStatusCode: " & $iStatusCode & @CRLF)
    ConsoleWrite("Step 7) Remote server responded with: " & _WinHttpReadData($hRequest) & @CRLF)
 
 
    ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    ; 8) Close handles
    ; -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    _winHttpCloseHandle($hRequest)
    _winHttpCloseHandle($hConnect)
    _winHttpCloseHandle($hSession)
 
EndFunc

#region --- Au3Recorder generated code Start (v3.3.9.5 KeyboardLayout=00000409)  ---
#region --- Internal functions Au3Recorder Start ---
#include <Process.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>

Dim $Model
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$StrComputer = "localhost"

Func _DetectLaptop()
If $Model = "HP EliteBook 2530p" Or $Model = "HP EliteBook 2540p" Or $Model = "HP EliteBook 2560p" Or $Model = "HP EliteBook 2570p" Or $Model = "HP Compaq 6530b (FG996AW#ABA)" Or $Model = "HP ProBook 6455b" Or $Model = "HP ProBook 6465b" Or $Model = "HP ProBook 6475b" Or $Model = "HP EliteBook Folio 9470m" Or $Model = "HP ProBook 645 G1"  Or $Model = "HP EliteBook Folio 9480m" Then ; Not a laptop or system not supported, do nothing
_Au3RecordSetup()
EndIf
EndFunc

Func _Au3RecordSetup()
Opt('WinWaitDelay',100)
Opt('WinDetectHiddenText',1)
Opt('MouseCoordMode',0)
Local $aResult = DllCall('User32.dll', 'int', 'GetKeyboardLayoutNameW', 'wstr', '')
If $aResult[1] <> '00000409' Then
  MsgBox(64, 'Warning', 'Recording has been done under a different Keyboard layout' & @CRLF & '(00000409->' & $aResult[1] & ')')
EndIf

EndFunc

Func _WinWaitActivate($title,$text,$timeout=0)
    WinWait($title,$text,$timeout)
    If Not WinActive($title,$text) Then WinActivate($title,$text)
    WinWaitActive($title,$text,$timeout)
EndFunc

_AU3RecordSetup()
#endregion --- Internal functions Au3Recorder End ---
Run('C:\Program Files (x86)\Hewlett-Packard\HP Connection Manager\HPConnectionManager.exe')
_WinWaitActivate("HP Connection Manager","")
Send("{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{ENTER}")
_WinWaitActivate("Preferences","")
Send("{TAB}{TAB}{DOWN}{TAB}{TAB}{SPACE}{TAB}{SPACE}{TAB}{SPACE}{TAB}{SPACE}{TAB}{ENTER}")
;Send("{TAB}{TAB}{DOWN}{TAB}{TAB}{SPACE}{TAB}{SPACE}{TAB}{SPACE}{TAB}{SPACE}{TAB}{SPACE}{TAB}{ENTER}")
_WinWaitActivate("HP Connection Manager","")
Send("{ALTDOWN}{F4}{ALTUP}{TAB}{ENTER}")
#endregion --- Au3Recorder generated code End ---

sleep (10000)

_Win32_ComputerSystem() ;Get Model

Func _Win32_ComputerSystem()
    ;Get General PC Info
    $objWMIService = ObjGet("winmgmts:\\" & $StrComputer & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    If IsObj($colItems) Then
        For $objItem In $colItems
            ;$DOMAIN = $objItem.Domain
            $Manufacturer = $objItem.Manufacturer
            $Model = $objItem.Model
            ;$MachineName = $objItem.Name
            ;$NumberOfProcessors = $objItem.NumberOfProcessors
            ;$PartOfDomain = $objItem.PartOfDomain
            ;$MEM = Round($objItem.TotalPhysicalMemory / 1024 / 1024, 0)
        Next
    EndIf
EndFunc   ;==>_Win32_ComputerSystem

_SelfDelete()

Func _SelfDelete($iDelay = 0)
    Local $sCmdFile
    FileDelete(@TempDir & "\scratch.bat")
    $sCmdFile = 'ping -n ' & $iDelay & '127.0.0.1 > nul' & @CRLF _
            & ':loop' & @CRLF _
            & 'del "' & @ScriptFullPath & '"' & @CRLF _
            & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
            & 'del ' & @TempDir & '\scratch.bat'
    FileWrite(@TempDir & "\scratch.bat", $sCmdFile)
    Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE)
EndFunc

Local $iAnswer = MsgBox(BitOR($MB_YESNO, $MB_SYSTEMMODAL), "Umstellung Union", "Umstellung - UNION"
 
If $iAnswer = 7 Then
    MsgBox($MB_SYSTEMMODAL, "Bye bye", "OK.  Bye!")
    Exit
EndIf
 
Func jumpToUnion() ;My jump funktion
    AutoItSetOption("SendKeyDelay", 50)
    Send("{TAB 26}")
    sleepTime100()
EndFunc
 
Func sleepTime100()
    Sleep(100)
EndFunc
 
Func sleepTime20()
    Sleep(20)
EndFunc
 
;Funktions for the Pixel Check Sums 
 
Func checkPixelUpDown()
 
If $iCheckSumOben <> PixelChecksum(50, 200, 1230, 410) Then
        MsgBox($MB_SYSTEMMODAL, "", "Ungültige Änderung! Im oberen Fensterbereich ")
        Exit
EndIf
        
If $iCheckSumUnten <> PixelChecksum(50, 485, 1230, 780) Then
        MsgBox($MB_SYSTEMMODAL, "", "Ungültige Änderung! Im unteren Fensterbereich")
        Exit
EndIf       
EndFunc
 
Func checkPixelUnion()
 
If $iCheckSumUnionL <> PixelChecksum(50, 420, 620, 490) Then
        MsgBox($MB_SYSTEMMODAL, "", "Ungültige Änderung! Links vom Unionsfeld")
        Exit
EndIf       
If $iCheckSumUnionR <> PixelChecksum(930, 420, 1230, 490) Then
        MsgBox($MB_SYSTEMMODAL, "", "Ungültige Änderung! Rechts vom Unionsfeld")
        Exit
EndIf       
EndFunc
 
Func checkPixelNextPage()
If $iCheckSumNextPage <> PixelChecksum(50, 215, 100, 360) Then
        MsgBox($MB_SYSTEMMODAL, "", "Ungültige Änderung! Auf zweiter Seite gesprungen")
        Exit
EndIf
EndFunc
 
;Checkt für ungültiges Kammando
Func checkPixelWrongAction()
If $iCheckSumWrongAction <> PixelChecksum(150, 930, 270, 960) Then
        MsgBox($MB_SYSTEMMODAL, "", "Ungültige Änderung! Ungültige Eingaben, SICLID bleibt hängen --> Fehler")
        Exit
EndIf
EndFunc
 
 
Local $sAnswer = InputBox ( "Anzahl der Haendler", "Anzahl der HändlerNummern") ; getting the loops
 
For $i = 1 To $sAnswer
 
;Go to Excel
WinActivate("Microsoft Excel - TestExcelSource.xlsx")
sleepTime20()
 
;Copy active cell
Send("^c")
sleepTime20()
 
;Go to my Program
WinActivate("MyProgram]") ;TEST
sleepTime20()
 
;Safe the checksums
Local $iCheckSumOben  = PixelChecksum(50, 200, 1230, 410)
Local $iCheckSumUnten = PixelChecksum(50, 485, 1230, 780)
 
Local $iCheckSumWrongAction = PixelChecksum(150, 930, 270, 960)
 
Local $iCheckSumUnionL = PixelChecksum(50, 420, 620, 490)
Local $iCheckSumUnionR = PixelChecksum(930, 420, 1230, 490)
 
;my jump funktion
jumpToUnion() ;HERE SOMETHING GOES WRONG DONT KNOW WHAT
 
;Paste the cell
Send("^v")
sleepTime100()
 
;new checksum for trying to jump out of the current page
Local $iCheckSumNextPage = PixelChecksum(50, 215, 100, 360)
 
 
;use my check funktions
checkPixelUpDown()
 
checkPixelWrongAction()
 
checkPixelUnion()
 
Send("{ENTER}")
sleepTime20()
 
checkPixelNextPage()
 
;Back to excel
WinActivate("Microsoft Excel - TestExcelSource.xlsx")
 
;Go 1 cell down
Send("{DOWN}")
 
Next ;start the loop again
 
Exit

Sleep(500) ;give the first "Processing..." window time to pop up
Local $hWnd1 = WinGetHandle("[REGEXPTITLE:(?i).*Processing.*?]")
WinWaitNotActive($hWnd1, "",150) ; Timeout after 150 seconds - since that would mean there is an issue
$hWnd1 = 0 ; reset window handle for next processing window
If WinExists("[REGEXPTITLE:(?i).*Processing.*?]") Then
    Local $hWnd1 = WinGetHandle("[REGEXPTITLE:(?i).*Processing.*?]")
WinWaitNotActive($hWnd1, "",150)
EndIf
$hWnd1 = 0
If WinExists("[REGEXPTITLE:(?i).*Processing.*?]") Then
    Local $hWnd1 = WinGetHandle("[REGEXPTITLE:(?i).*Processing.*?]")
WinWaitNotActive($hWnd1, "",150)
EndIf
$hWnd1 = 0
If WinExists("[REGEXPTITLE:(?i).*Processing.*?]") Then
    Local $hWnd1 = WinGetHandle("[REGEXPTITLE:(?i).*Processing.*?]")
WinWaitNotActive($hWnd1, "",150)
EndIf
Sleep(2000)
MouseClick("right", 280, 174, 1, 20)
Send("{DOWN 3}")
Sleep(2000)
Send("{RIGHT}")
Sleep(2000)
Send("{ENTER}")
Sleep(2000)
Send("{ESC}")
Sleep(2000)
;all done