WiFi Signalstärke in % auslesen

#include <Constants.au3>


While 1
    Sleep(1000)
    $sString = _CMDRead_WiFi_Signal("netsh wlan show networks mode=bssid")
    ConsoleWrite("1" & $sString & @CRLF)
WEnd




Func _CMDRead_WiFi_Signal($command)
    Local $CMDRead
    $CMD = Run(@ComSpec & " /c " & $command, @SystemDir, @SW_HIDE, $STDOUT_CHILD)
    ConsoleWrite("2" & @CRLF)
    If @error Then SetError(@error, @extended, 0)
    ConsoleWrite("3" & @CRLF)
    While 1
        $CMDRead &= StdoutRead($CMD)
        ;ConsoleWrite("ERROR")
        If @error Then ExitLoop
    WEnd
    ConsoleWrite("4" & @CRLF)
    $CMDRead_Start = StringInStr($CMDRead, "%") ; Nach % Suchen
    $CMDRead = StringMid($CMDRead, $CMDRead_Start - 3, 4) ; 3 Zeichen nach links zurück und 4 Zeichen danach ausgeben 99% als beispiel.
    ;Return ($CMDRead)
    Return SetError(@error, @extended, $CMDRead)
EndFunc   ;==>_CMDRead_WiFi_Signal

#include <Constants.au3>


While 1
	Sleep(1000)
	$sString = _CMDRead_WiFi_Signal("netsh wlan show networks mode=bssid >> " & @ScriptDir & "\temp.txt")
	ConsoleWrite($sString & @CRLF)
WEnd




Func send_cmd($CMD)
	 RunWait(@ComSpec & " /c " & $CMD, @SystemDir, @SW_HIDE, $STDOUT_CHILD)
EndFunc   ;==>send_cmd


Func _CMDRead_WiFi_Signal($command)
	send_cmd($command)


	$sFilePath = "temp.txt"


	Local $hFileOpen = FileOpen($sFilePath, $FO_READ)
	If $hFileOpen = -1 Then
		MsgBox($MB_SYSTEMMODAL, "", "An error occurred when reading the file.")
		Return False
	EndIf


	Local $sFileRead = FileRead($hFileOpen)
	FileClose($hFileOpen)


	$CMDRead_Start = StringInStr($sFileRead, "Signal             :") ; Nach % Suchen


	$sFileRead = StringMid($sFileRead, $CMDRead_Start + 20, 4) ; 3 Zeichen nach links zurück und 4 Zeichen danach ausgeben 99% als beispiel.


	Return SetError(@error, @extended, $sFileRead)
EndFunc   ;==>_CMDRead_WiFi_Signal