FAIRE UN PING SOUS DOS AVEC VB

Function PingDos(AdIP As String)
    Dim Commande As String
    Dim Resultat As Long
    Dim Ad_a_tester As String
    Dim Handle As Long
    Dim Fichier As String
    Dim Ligne As String
    Dim EstOK As Boolean
    Dim t As Long

    Fichier = App.Path & "resultat.txt"
    Ad_a_tester = AdIP
    Commande = "c:\command.com /cping " & Ad_a_tester & " >" & Fichier

    Resultat = Shell(doCmd, vbMinimizedNoFocus)

    t = Timer
    Do
        If Timer - t > 5 Then Exit Do
        DoEvents
    Loop
    Do
        DoEvents
        Err = 0
        On Error Resume Next
        If FileLen(Fichier) <> 0 And Err = 0 Then Exit Do
    Loop
    EstOK = True
    Handle = FreeFile
    Open Fichier For Input As #Handle
        While Not EOF(Handle)
            Input #Handle, Ligne
            If InStr(Ligne, "d'attente de la demande") <> 0 Then
                EstOK = False
            End If
        Wend
    Close #Handle
    Kill Fichier
    If EstOK = True Then
        MsgBox (Ad_a_tester & " Trouvé !")
    Else
        MsgBox (Ad_a_tester & "Non trouvé")
    End If
End Function

' Pour l'executer :
PingDos("127,0,0,1")

• FAIRE UN PING (ICMP) EN VB 2005 (LE PLUS SIMPLEMENT DU MONDE)
• IMPRIMER LE CONTENU D'UN RICHTEXTBOX
• TESTEUR DE REGEX (REGULAR EXPRESSIONS)
• FORCER LE REBOOT SOUS WINDOWS NT OU WINDOWS 2000 (REDÉMARRAGE FORCÉ)
• COMPTER LES MOTS DANS UNE CHAINE DE CARACTÈRE

• CONTROLEUR DE PIECES
• HANDLISTER
• LE COMPILATEUR DESTE IDE
• TIC TAC TOE
• REDIRECTION D'UNE APPLICATION CONSOLE VERS UN TEXTBOX

• LCK **** GESTION DE PARC INFORMATIQUE
• PETIT LOGICIEL PERMETTANT DE SURVEILLER UNE LIAISON ADSL
• TRACEROUTE, TRAÇAGE DE SERVEUR OU D'IP
• ECRIRE DANS UNE CONSOLE AVEC VISUAL BASIC (WRITE IN A CONSOLE WITH VB)
• FAIRE UN PING (ICMP) EN VB 2005 (LE PLUS SIMPLEMENT DU MONDE)