vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 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

Visual-Basic Einsteiger
Re: ping mit if-abfrage? 
Autor: tnt1000
Datum: 23.05.03 17:43
geht leider nicht. ich hab den folgenden code eingebunden:

' 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
MsgBox "1"
Else
' keine Antwort
MsgBox "0"
End If
End Function

End Function


...is der richtig eingebunden? - ich hab einfach ein neues formular erstellt und eifach da rein gepackt.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
ping mit if-abfrage?828tnt100023.05.03 17:23
Re: ping mit if-abfrage?531ModeratorDieter23.05.03 17:28
Re: ping mit if-abfrage?505tnt100023.05.03 17:43
Re: ping mit if-abfrage?499ModeratorDieter23.05.03 17:47
Re: ping mit if-abfrage?536tnt100023.05.03 17:59
Re: ping mit if-abfrage?474ModeratorDieter23.05.03 18:08
Re: ping mit if-abfrage?613tnt100023.05.03 18:17
Re: ping mit if-abfrage?460ModeratorDieter23.05.03 18:21
Re: ping mit if-abfrage?488tnt100023.05.03 18:51

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