Search the Community

Hi, I am trying to create a script wich checks my hardware and my internet information. The hardware part is done and I got my external IP-check working but I have searched far and wide but not came up wich an example for an internet speed check. Can any one help me. Below you will find my script: #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" GUICreate("Mijn Salon - Check", 283, 311, -1, -1) GUICtrlCreateGroup("Systeem info", 8, 8, 265, 145) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $PROC = GUICtrlCreateInput("", 16, 32, 249, 21) $READPROC = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString") GUICtrlSetData($PROC, $READPROC) GUICtrlSetState($PROC, $GUI_DISABLE) $RAM = GUICtrlCreateInput("RAM", 16, 56, 121, 21) Local $aMem = MemGetStats() $mem = $aMem[1] /1024 $mem1= $mem /1024 $mem2= Round($mem1, 0) GUICtrlSetData($RAM, $mem2 & " GB Geheugen") GUICtrlSetState($RAM, $GUI_DISABLE) $MODEL = GUICtrlCreateInput("", 144, 56, 121, 21) $READMODEL1 = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\Bios", "SystemManufacturer") $READMODEL2 = RegRead("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\Bios", "BaseBoardProduct") GUICtrlSetData($MODEL, $READMODEL1 & " " & $READMODEL2) GUICtrlSetState($MODEL, $GUI_DISABLE) $WINDOWS = GUICtrlCreateInput("", 16, 80, 249, 21) $READOS = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName") If @OSArch = "X86" Then $ARCH = "32-Bit" Else $ARCH = "64-Bit" EndIf GUICtrlSetData($WINDOWS, $READOS & " " & $ARCH) GUICtrlSetState($WINDOWS, $GUI_DISABLE) $IE = GUICtrlCreateInput("", 16, 104, 249, 21) Local $sVersion = FileGetVersion(@ProgramFilesDir & "\Internet Explorer\iexplore.exe") GUICtrlSetData($IE, "Internet Explorer: " & $sVersion) GUICtrlSetState($IE, $GUI_DISABLE) $SILVERLIGHT = GUICtrlCreateInput("SILVERLIGHT", 16, 128, 249, 21) $Silverlight_Version = _NavInfo_GetSilverlightVersion() If Not @error Then GUICtrlSetData($SILVERLIGHT, "Silverlight: " & $Silverlight_Version) EndIf GUICtrlSetState($SILVERLIGHT, $GUI_DISABLE) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlCreateGroup("Internet info", 8, 160, 265, 113) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $SPEED = GUICtrlCreateInput("SPEED", 16, 184, 249, 21) $IPADRES = GUICtrlCreateInput("", 16, 216, 249, 21) $PublicIP = _GetIP() GUICtrlSetData($IPADRES, $PublicIP) GUICtrlSetState($IPADRES, $GUI_DISABLE) $PROVIDER = GUICtrlCreateInput("PROVIDER", 16, 248, 249, 21) GUICtrlCreateGroup("", -99, -99, 1, 1) $SAVE = GUICtrlCreateButton("Opslaan naar .txt", 8, 280, 131, 25) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $MAIL = GUICtrlCreateButton("Send E-mail", 144, 280, 131, 25) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $SAVE SAVE() Case $MAIL MAIL() Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func SAVE() $READIE = GUICtrlRead($IE) $IEDONE = StringTrimLeft($READIE, 19) $READSILVER = GUICtrlRead($SILVERLIGHT) $SILVERDONE = StringTrimLeft($READSILVER, 13) If FileExists(@Desktopdir & "\check.txt") Then FileDelete(@desktopdir & "\check.txt") EndIf $DEBITNR = InputBox("Invoeren", "Voer klantnaam in:", "") $MEDEWERKER = InputBox("Invoeren", "Uitgevoerd door:", "") $FILE = FileOpen(@desktopdir & "\check.txt", 1) $1 = GUICtrlRead($PROC) $2 = GUICtrlRead($RAM) $3 = GUICtrlRead($MODEL) $4 = GUICtrlRead($WINDOWS) $5 = $IEDONE $6 = $SILVERDONE $7 = GUICtrlRead($SPEED) $8 = GUICtrlRead($IPADRES) $9 = GUICtrlRead($PROVIDER) FileWrite($FILE, "Klantnaam: " & $DEBITNR & @CRLF) FileWrite($FILE, "Datum: " & @MDAY & "-" & @MON & "-" & @YEAR & @CRLF & @CRLF) FileWrite($FILE, "Processor: " & $1 & @CRLF) FileWrite($FILE, "Geheugen: " & $2 & @CRLF) FileWrite($FILE, "Model: " & $3 & @CRLF) FileWrite($FILE, "Windows: " & $4 & @CRLF) FileWrite($FILE, "Internet Explorer: " & $5 & @CRLF) FileWrite($FILE, "Silverlight: " & $6 & @CRLF & @CRLF) FileWrite($FILE, "Internet Snelheid: " & $7 & @CRLF) FileWrite($FILE, "IP-Adres: " & $8 & @CRLF) FileWrite($FILE, "Internet Provider: " & $9 & @CRLF & @CRLF) FileWrite($FILE, "Uitgevoerd door: " & $MEDEWERKER) MsgBox(4096, "Klaar", "Check is klaar en opgeslagen op het bureaublad") EndFunc Func MAIL() EndFunc