Guten Abend,
der Skript soll die WiFi Signalstärke vom Laptop in % ausgeben.
Leider bin ich auf ein Problem gestoßen und komme nicht mehr weiter.
Dieser Skript funktioniert so weit, nur bleibt er willkürlich (vermutlich) hier stehen.
Der Skrtip zum debuggen. ~ Nach etwa 5 Minuten ist er zu 99% in der Endlosschleife.
Zeile 14 ist nur ein verzweifelter versuch gewesen das Problem zu lösen.
AutoIt
#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
Alles anzeigen