Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Onlinestatus im Hintergrund fortlaufend prüfen
Autor: Nils Christian
Datum: 22.04.11 22:38
Hallo, Vielleicht hilft Dir sowas? Dim sSQL As String Dim oWMI As Object Dim oResult As Object Dim oItem As Object '------------------------------ ' Feststellen ob Verbindung Verfügbar If My.Computer.Network.IsAvailable = True Then Label1.Text="Vorhanden" '------------------------------ 'Im Timer-Modul: oWMI = GetObject("winmgmts://./root\WMI") sSQL = "SELECT * FROM MSNdis_80211_ReceivedSignalStrength " & "WHERE Active=true" oResult = oWMI.ExecQuery(sSQL) For Each oItem In oResult With oItem Select Case .Ndis80211ReceivedSignalStrength Case Is >= -55 Label1.Text = "Hervorragend (5 Balken)" Case Is >= -67 Label1.Text = "Sehr gut (4 Balken)" Case Is >= -71 Label1.Text = "gut (3 Balken)" Case Is >= -79 Label1.Text = "schlecht (2 Balken)" Case Is > -1000 Label1.Text = "sehr schlecht (1 Balken)" Case Else Label1.Text = "keine Verbindung" End Select End With Next End Sub Ich arbeite mit: Windows 10 Professional 64-bit * Visual Basic 2010 Express

Onlinestatus im Hintergrund fortlaufend prüfen	1.671	DanielBodensee	22.04.11 17:42
Re: Onlinestatus im Hintergrund fortlaufend prüfen	1.377	Nils Christian	22.04.11 22:38
Re: Onlinestatus im Hintergrund fortlaufend prüfen	1.415	DanielBodensee	23.04.11 21:43
Re: Onlinestatus im Hintergrund fortlaufend prüfen	1.252	Manfred X	23.04.11 21:54

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen