Dim icmp As ICMP_ECHO_REPLY
    Dim uStatus As Long
    uStatus = netPingIP(netHostToIP("www.vbarchiv.net"), icmp)
    If uStatus <> -1 Then
        MsgBox "Ping-Ergebnis: " & netEvalPingResponse(icmp.Status)
    End If

---
Sventke

Zitat:

also bei mir funktioniert die einwandfrei. bei ner adresse die nicht existiert kommt "Anfragetimeout" (62.32.111.32) bei ner funktionierenden adresse kam "OK"

---
Sventke

Zitat:

Du musst bei ping immer eine richtige IP-Adresse angeben. Wenn Du einen ungültigen Hostnamen via netHostToIP übergibst wird dieser zu 0.0.0.0 ausgewertet, weil er nicht existiert. Diese Adresse wird von Ping wiederum akzeptiert und er sagt OK.

---
Sventke

Zitat:

Mal schauen. Eigentlich sollte man ja das Ergebnis von netHostToIP abfangen und überprüfen.

---
Sventke

---
Sventke

<?php
  mail($emp, $betr, $msg, 
    "From: $abs \nReply-To: $mail\nX-Mailer: PHP/" . phpversion()); 	
  echo "eMail wurde versand";
?>

Zitat:

Dim s as String s = netHostToIP(...) If s = "0.0.0.0" Then MsgBox "Host unbekannt" Else ... End If

---
Sventke

---
Sventke

Zitat:

was meinst du denn damit? du befindest dich bei ftp wie bei einem normalen dateisystem in einem ordner und kannst durchnavigieren.

---
Sventke

Zitat:

netFormPost

<?php
  mail($emp, $betr, $msg, 
    "From: $abs \nReply-To: $mail\nX-Mailer: PHP/" . phpversion());    
  echo "eMail wurde versand";
?>

---
Sventke

Zitat:

Dim s as String s = netHostToIP(...) If s = "0.0.0.0" Then MsgBox "Host unbekannt" Else ... End If

---
Sventke

---
Sventke