vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: Frage zu Ping-Tipp 
Autor: Oggi
Datum: 13.01.03 23:20

Howdy Elwood,

Den Code habe ich vom vb@rchiv unter Tipps und Tricks "Ping - Rechner im Netzwerk erreichbar?" von Ralph Steinkönig. Gerade habe ich im Forum ne Codeerweiterung gefunden (PingTime), das wäre genau das was ich benötige.

' Benötigte API-Deklaration
Private Declare Function IsDestinationReachable Lib _
  "Sensapi.dll" Alias "IsDestinationReachableA" _
  (ByVal lpszDestination As String, _
  lpQOCInfo As QOCINFO) As Long
 
Private Type QOCINFO
  dwSize As Long
  dwFlags As Long
  dwInSpeed As Long
  dwOutSpeed As Long
End Type
 
Public Function Ping(ByVal IP As String) As Boolean
  Dim QuestStruct As QOCINFO
  Dim lReturn As Long
 
  ' Größe der Struktur
  QuestStruct.dwSize = Len(QuestStruct)
 
  ' Prüfen, ob Ziel erreichbar
  lReturn = IsDestinationReachable(IP, QuestStruct)
 
  ' Antwort auswerten
  If lReturn = 1 Then
    ' Antwort bekommen
    Ping = True
  Else
    ' keine Antwort
    Ping = False
  End If
End Function
 
Private Sub PingTime()
Dim nTime As Single
 
nTime = Timer
If Ping(sIP) Then
    nTime = Timer - nTime
    MsgBox "Computer ist erreichbar. Benötigte Zeit: " & _
      CStr(nTime) & " MSek."
End If
End Sub
MfG

Oggi
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Frage zu Ping-Tipp184Schü08.01.03 09:42
Re: Frage zu Ping-Tipp503Elwood09.01.03 22:35
Re: Frage zu Ping-Tipp506Oggi12.01.03 09:44
Re: Frage zu Ping-Tipp488Elwood12.01.03 19:45
Re: Frage zu Ping-Tipp492Oggi13.01.03 23:20
Re: Frage zu Ping-Tipp500Elwood14.01.03 08:16
Re: Frage zu Ping-Tipp493Oggi14.01.03 10:04
Welche Windows-Version (incl. SP) ? (oT)500Elwood14.01.03 10:12
Re: Welche Windows-Version (incl. SP) ? (oT)448Oggi14.01.03 15:44
Re: Welche Windows-Version (incl. SP) ? (oT)452Peter Ganzhorn14.01.03 16:22
probiert mal das Beispiel in der Anlage aus (oT)503Elwood14.01.03 16:38
Re: probiert mal das Beispiel in der Anlage aus (oT)728Oggi14.01.03 18:36
Re: Welche Windows-Version (incl. SP) ? (oT)560Oggi14.01.03 16:47
Also...467Elwood14.01.03 16:52
Re: Also...488Peter Ganzhorn14.01.03 16:55
dein proggi funkt net...470Peter Ganzhorn14.01.03 16:57
darauf kannst Du Dich verlassen...490Elwood14.01.03 17:02
das habe ich schon vor meinem ersten Posting gemacht...548Elwood14.01.03 16:59
Re: das habe ich schon vor meinem ersten Posting gem...495Peter Ganzhorn14.01.03 17:09
Re: das habe ich schon vor meinem ersten Posting gem...640Oggi14.01.03 18:44
Re: OK, hier ist der Quellcode der Funktioniert496Oggi14.01.03 21:36
Hi Oggi, schicke mir ein Mail mit dem Anhang, ich kann ihn h...466unbekannt14.01.03 21:39
Re: Firewall und Ping464Oggi14.01.03 21:49
Re: Quellcode download474Oggi14.01.03 21:51
Dann veröffentlichen wir das nicht. (oT)503unbekannt14.01.03 22:00

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel