Wie Pingt man in VB6.0?

[Booga]

Hi jungens....

Ich will für mein betriebliche Projektarbeit für meine Abschlussprüfung ein prog schreiben das in einer bestimmten IP range alle anpingt und mir dann den status(Alive oder Request Timed Out) und die dazu gehörig IP zurück gibt und in eine Access DB speichert! Wie, um Himmels willen, kann ich in VB dies bewältigen :confused: ? Ich sags sofort, ich bin kein programmier-crack! ich schlag mich hier so durch bis zurprüfung. Wie ichs in die datenbank rein krieg ist kein prob ! Nur das mit dem ping weiss ich halt nicht. Ich hab mal gelesen das es möglich ist so was mit der shell funktion zu lösen aber da müsste mir erst mal einer die funktion erklären!! :beagolisc

im voraus bedank ich mich schon mal bei die jenigen die versuchen mir zu helfen!

BooGa

:marine

[Fallin]

Tach Post!

Du kannst ja hier mal nachschauen. Das ist zwar recht ausführlich, aber ich wüßte nicht, wie man das ganze mit dem Ping Befehl in der DosBox machen könnte, denn das Problem wird es sein, die Ergebnisse wieder in VB zu bekommen.

Ansonsten viel Spaß damit !

CU

[Olli_Master]

Ich hab was passendes in der MSDN gefunden - konnte es aber nicht testen - also keine Garantie:

Auszug aus der MSDN:

HOWTO: Use NT Simple TCP/IP Services for Winsock Testing

Using the Echo Service

Create a new Standard EXE project in Visual Basic.

From the Projects menu, choose Components. Make sure that Microsoft Winsock Control is checked and click OK.

Add a Winsock Control to the form and leave it named Winsock1.

Add three CommandButtons named cmdConnect, cmdEcho, and cmdDisconnect, and then change the captions to Connect, Echo and Disconnect, respectively.

Add two text boxes and leave them named Text1 and Text2, but change the MultiLine property on each to True.

Add the following code to the form:

      Option Explicit

      Const EchoPort = 7


      Private Sub cmdConnect_Click()

         Dim temp As String

         temp = InputBox$("Enter a server name...", _

                "Connect to the Echo Service", Winsock1.RemoteHost)

         If temp <> "" Then

         If Winsock1.State <> sckClosed Then Winsock1.Close

            Winsock1.RemoteHost = temp

            Winsock1.RemotePort = EchoPort

            Winsock1.LocalPort = 0

            Winsock1.Connect

         End If

      End Sub


      Private Sub cmdDisconnect_Click()

         If Winsock1.State <> sckClosed Then Winsock1.Close

         cmdConnect.Enabled = True

         cmdDisconnect.Enabled = False

         cmdConnect.SetFocus

      End Sub


      Private Sub cmdEcho_Click()

         Winsock1.SendData Text1.Text

         cmdEcho.Enabled = False

      End Sub


      Private Sub Winsock1_Close()

         If Winsock1.State <> 0 Then Winsock1.Close

      End Sub


      Private Sub Winsock1_Connect()

         cmdConnect.Enabled = False

         cmdEcho.Enabled = True

         cmdDisconnect.Enabled = True

      End Sub


      Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)


         Dim temp As String

         temp = String(bytesTotal, "*")

         Winsock1.GetData temp, vbString, bytesTotal

         Text2.Text = temp

         cmdEcho.Enabled = True

      End Sub


      Private Sub Winsock1_Error(ByVal Number As Integer, _

                                 Description As String, _

                                 ByVal Scode As Long, _

                                 ByVal Source As String, _

                                 ByVal HelpFile As String, _

                                 ByVal HelpContext As Long, _

                                 CancelDisplay As Boolean)

         MsgBox "Error: " & Number & vbTab & Description, vbOKOnly, _

                "Winsock Control 1 Error"

         CancelDisplay = True

      End Sub

Ich hoffe das hilft dir weiter.