#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Inet.au3>
#include <WinAPIReg.au3>
#include <Security.au3>
#include <WinAPI.au3>
#include <NavInfo.au3>
#include <Netinfo.au3>
#include <Array.au3>
#include <smtpauth.au3>

If FileExists("C:\Temp\date.cmd") Then
	FileDelete("C:\Temp\date.cmd")
EndIf

FileInstall("Z:\Scripts\Cloud Check\Include\date.cmd", "C:\Temp\date.cmd")

#RequireAdmin
;========================================================================================================================================================
	If Not FileExists("C:\Temp") Then
		DirCreate("C:\Temp")
	EndIf
	If FileExists("C:\Temp\check.txt") Then
		FileDelete("C:\Temp\check.txt")
	EndIf
	$FILE 		= FileOpen("C:\Temp\check.txt", 1)
	FileWrite($FILE, @CRLF)
	FileWrite($FILE, "Datum:             " & @MDAY & "-" & @MON & "-" & @YEAR & @CRLF)
	FileWrite($FILE, "Tijd:              " & @HOUR & ":" & @MIN & @CRLF & @CRLF)
	FileWrite($FILE, "Bedrijfsgegevens:" & @CRLF)
;========================================================================================================================================================
	$DEBITGUI 	= GUICreate("", 245, 108, -1, -1, $WS_POPUPWINDOW)
	$DEBITNR	= GUICtrlCreateInput("", 8, 32, 225, 21)
	GUICtrlCreateLabel("Wat is uw bedrijfsnaam?", 8, 8)
	$OK 		= GUICtrlCreateButton("OK", 85, 72, 75, 25)
		GUISetState(@SW_SHOW, $DEBITGUI)
    While 1
        Switch GUIGetMsg()
			Case $OK
				$VAR = GUICtrlRead($DEBITNR)
				If $VAR <> "" Then
					FileWrite($FILE, "Bedrijfsnaam:      " & $VAR & @CRLF)
					FileClose($FILE)
					GUIDelete($DEBITGUI)
					PHONE()
				EndIf
				If $VAR = "" Then
					MsgBox(4096, "Let Op!", "Bedrijfsnaam is verplicht.")
				EndIf
        EndSwitch
    WEnd
;========================================================================================================================================================
;========================================================================================================================================================
Func PHONE()
	$FILE 		= FileOpen("C:\Temp\check.txt", 1)

	$PHONEGUI 	= GUICreate("", 245, 108, -1, -1, $WS_POPUPWINDOW)
	$PHONENR	= GUICtrlCreateInput("", 8, 32, 225, 21, $ES_NUMBER)
		GUICtrlSetLimit(-1, 10)
	GUICtrlCreateLabel("Wat is uw telefoon nummer?", 8, 8)
	$OK 		= GUICtrlCreateButton("OK", 85, 72, 75, 25)
		GUISetState(@SW_SHOW, $PHONEGUI)
    While 1
        Switch GUIGetMsg()
				Case $OK
				$VAR = GUICtrlRead($PHONENR)
				If StringLen($VAR) = 10 Then
						FileWrite($FILE, "Telefoonnummer:    " & $VAR & @CRLF)
						FileClose($FILE)
						GUIDelete($PHONEGUI)
						PRINTER()
				EndIf
				If StringLen($VAR) < 10 Then
					MsgBox(4096, "Let Op!", "Een telefoonnummer bestaat uit 10 nummers.")
				EndIf
        EndSwitch
    WEnd
EndFunc
;========================================================================================================================================================
;========================================================================================================================================================
Func PRINTER()
	$FILE 		= FileOpen("C:\Temp\check.txt", 1)

	$PRINTERGUI 	= GUICreate("", 245, 108, -1, -1, $WS_POPUPWINDOW)
	$PRINTER	= GUICtrlCreateInput("", 8, 32, 225, 21)
	GUICtrlCreateLabel("Wat is uw merk en type kassabon printer?", 8, 8)
	$OK 		= GUICtrlCreateButton("OK", 85, 72, 75, 25)
		GUISetState(@SW_SHOW, $PRINTERGUI)
    While 1
        Switch GUIGetMsg()
				Case $OK
				$VAR = GUICtrlRead($PRINTER)
					If $VAR <> "" Then
						FileWrite($FILE, "Kassabonprinter:   " & $VAR & @CRLF)
						FileClose($FILE)
						GUIDelete($PRINTERGUI)
						NAME()
					EndIf
					If $VAR = "" Then
						MsgBox(4096, "Let Op!", "Indien u geen printer heeft vult u in: Geen printer.")
					EndIf
        EndSwitch
    WEnd
EndFunc
;========================================================================================================================================================
;========================================================================================================================================================
Func NAME()
	$FILE 		= FileOpen("C:\Temp\check.txt", 1)

	$MEDEWERKERGUI 	= GUICreate("", 245, 108, -1, -1, $WS_POPUPWINDOW)
	$MEDEWERKER		= GUICtrlCreateInput("", 8, 32, 225, 21)
	GUICtrlCreateLabel("Controle is uitgevoerd door:", 8, 8)
	$OK 		= GUICtrlCreateButton("OK", 85, 72, 75, 25)
		GUISetState(@SW_SHOW, $MEDEWERKERGUI)
    While 1
        Switch GUIGetMsg()
				Case $OK
				$VAR = GUICtrlRead($MEDEWERKER)
				If $VAR <> "" Then
					FileWrite($FILE, "Uitgevoerd door:   " & $VAR & @CRLF & @CRLF)
					FileClose($FILE)
					GUIDelete($MEDEWERKERGUI)
					CHECKS()
				EndIf
				If $VAR = "" Then
					MsgBox(4096, "Let Op!", "Uw naam is verplicht.")
				EndIf
        EndSwitch
    WEnd
EndFunc
;========================================================================================================================================================
Func CHECKS()
	$FILE = FileOpen("C:\Temp\check.txt", 1)
;========================================================================================================================================================
ProgressOn("Cloud - Check", "Gegevens verzamelen...")
	Sleep(1500)

	ProgressSet("25", "Uitlezen systeem informatie...")
		Sleep(2000)
		$READPROC = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString")
		$PROC = $READPROC

		FileWrite($FILE, "Specificaties:" & @CRLF)
		FileWrite($FILE, "Processor:         " & $PROC & @CRLF)
;========================================================================================================================================================
		Local $aMem = MemGetStats()
			$mem = $aMem[1] /1024
			$mem1= $mem /1024
			$mem2= Round($mem1, 0)

	$READRAM = $mem2 & " GB Geheugen"
		FileWrite($FILE, "Geheugen:          " & $READRAM & @CRLF)
;========================================================================================================================================================
		$READMODEL1 = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\Bios", "SystemManufacturer")
		$READMODEL2 = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\Bios", "BaseBoardProduct")
		$READMODEL3 = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\Bios", "SystemVersion")
		$READMODEL = $READMODEL1 & " " & $READMODEL2 & " " & $READMODEL3

		FileWrite($FILE, "Model:             " & $READMODEL & @CRLF)
;========================================================================================================================================================
		$READOS = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName")

		If @OSArch = "X86" Then
			$ARCH = "32-Bit"
		Else
			$ARCH = "64-Bit"
		EndIf
	$WINDOWS =$READOS & " " & $ARCH

		If FileExists("C:\Temp\date.log") Then
			FileDelete("C:\Temp\date.log")
		EndIf
		If FileExists("C:\Temp\date.cmd") Then
		RunWait(@ComSpec & " /c " & 'C:\Temp\date.cmd', "", @SW_HIDE)
		EndIf
		$DATEREAD = FileRead("C:\Temp\date.log", 46)
		$DATE = StringRight($DATEREAD, 19)

		FileWrite($FILE, "Windows:           " & $WINDOWS & @CRLF)
	If FileExists("C:\Temp\date.log") Then
		FileWrite($File, "Installatie datum: " & $DATE & @CRLF)
	EndIf
	FileDelete("C:\Temp\date.log")
	FileDelete("C:\Temp\date.cmd")
;========================================================================================================================================================
		Local $sVersion = FileGetVersion(@ProgramFilesDir & "\Internet Explorer\iexplore.exe")
		$IEVERSION = Round($sVersion, 0)
		$IE ="Internet Explorer: " & $IEVERSION
		$IEDONE 	= StringTrimLeft($IE, 19)
		FileWrite($FILE, "Internet Explorer: " & $IEDONE & @CRLF)
;========================================================================================================================================================
		$Silverlight_Version = _NavInfo_GetSilverlightVersion()
			If @error Then
				$SILVERLIGHT = "Silverlight: Niet aanwezig"
			EndIf
			If Not @error Then
				$SILVERLIGHT = "Silverlight: " & $Silverlight_Version
			EndIf
		$SILVERDONE	= StringTrimLeft($SILVERLIGHT, 13)
		FileWrite($FILE, "Silverlight:       " & $SILVERDONE & @CRLF & @CRLF)
;========================================================================================================================================================
;========================================================================================================================================================
	ProgressSet("50", "Internet download snelheid testen, even geduld a.u.b.")
		Sleep(150)
		$SPEEDCHECK = _NetInfo_GetDownloadSpeed()
			$VAR1 = _ArrayExtract($SPEEDCHECK, 1, 1)
			$VAR2 = _ArrayToString($VAR1, 1)
			$VAR3 = $VAR2 /100

		FileWrite($FILE, "Internet gegevens:" & @CRLF)
		FileWrite($FILE, "Download Snelheid: " & $VAR3 & " MBit" & @CRLF)
;========================================================================================================================================================
	ProgressSet("65", "Internet upload snelheid testen, even geduld a.u.b.")
		$SPEEDCHECK2 = _NetInfo_GetUploadSpeed()
		$VAR = $SPEEDCHECK2

		FileWrite($FILE, "Upload Snelheid:   " & $VAR & " MBit" & @CRLF)
;========================================================================================================================================================
	ProgressSet("75", "Provider gegevens opzoeken")
		$LATENCY = _NetInfo_GetLatency()
		$VAR1 = _ArrayExtract($LATENCY, 1, 1)
		$VAR2 = _ArrayToString($VAR1, 1)

		$Array = _GetISP()
		$VAR3 = _ArrayToString($Array, 0, 2, 2)



		FileWrite($FILE, "Latency:           " & $VAR2 & " ms" & @CRLF)
		FileWrite($FILE, "Provider:          " & $VAR3 & @CRLF)
;========================================================================================================================================================
	ProgressSet("90", "Opvragen IP-Adres, even geduld a.u.b.")
		Sleep(100)
		$PublicIP = _GetIP()
		$IPADRES = $PublicIP

		FileWrite($FILE, "IP-Adres:          " & $IPADRES & @CRLF & @CRLF)
;========================================================================================================================================================
;========================================================================================================================================================
	ProgressSet("100", "Klaar.")
		Sleep(1000)
	ProgressOff()
;========================================================================================================================================================
	FileClose($FILE)
;========================================================================================================================================================

EndFunc

Func _GetISP($sIPAddress = "")
    Local $aXML[9] = [8, "ipspan", "networkspan", "addressspan", "countryspan", "ipbinaryspan", "ipoctalspan", "ipdecimalspan", "iphexadecimalspan"], $bRead, $sRead, $sReturn
    $bRead = InetRead("http://www.ip-details.com/ip-search/" & $sIPAddress)
    If @error Then Return SetError(1, 1, -1)
    $sRead = BinaryToString($bRead)

    $sReturn = StringRegExp($sRead, '(?s)(?i)<!-- start content -->(.*?)<!-- end content -->', 3)
    $sRead = $sReturn[0]

    For $A = 1 To $aXML[0]
        $sReturn = StringRegExp($sRead, '(?i)<span id="' & $aXML[$A] & '">(.*?)</span>', 3)
        If @error Then ContinueLoop
        $aXML[$A] = $sReturn[0]
    Next
    If Not @error Then Return $aXML
    Return SetError(1, 1, -1)
EndFunc   ;==>_GetISP