BlackBoard (http://www.black-board.net/index.php)
- Design, Programmierung & Entwicklung (http://www.black-board.net/board.php?boardid=55)
-- Programmieren (http://www.black-board.net/board.php?boardid=4)
--- VB Prüfen, ob IP existiert (http://www.black-board.net/thread.php?threadid=5881)


Geschrieben von kilone am 17.06.2002 um 21:10:

  Prüfen, ob IP existiert

Hi Leute ich bins mal wieder großes Grinsen großes Grinsen und wollte mal fragen ob ihr mir bei meinem folgenden problem helfen könnt?
Ich will nen Programm schreiben das alle paar secunden im Netzwerk nach einer bestimmten IP scannt und
mir bescheit gibt wenn er die IP findet und wenn sie wieder weg ist.



Geschrieben von autlegend am 17.06.2002 um 21:41:

 

Klar du kannst es entweder mit Ping machen also alle paar Sekunden die eine IP anpingen oder du machst es(so is es auf jeden Fall viel einfacher unter VB)du versuchst dich einfach mittels Winsock(TCP-Protocol) zu connecten...



Geschrieben von kilone am 19.06.2002 um 17:04:

 

also mit winsock bekomme ich das nicht auf die reihe er connektet einfach nicht. Wie kann ich das mit dem ping machen?



Geschrieben von Medusa am 20.06.2002 um 19:06:

 

@autlegend:
Wenn du das mit dem Winsock versuchst, brauchst du ja einen offenen Port, auf den du connecten kannst. Wenn der Rechner aber keinen offen hat? Und wenn doch, welcher?

@kilone:
Hier steht, wie man einen Rechner anpingt. Der Code is ziehmlich lang, mit vielem Special-Zeugs. Kannst ja n bissle umformen.



Geschrieben von kilone am 21.06.2002 um 07:13:

Augenzwinkern

Gut danke werde mir den Code mal angucken. Nen offener Port ist 5000 (Ich will ihn aber nicht Nuken!)



Geschrieben von scar am 21.06.2002 um 08:18:

  hier nen ganz leichter quelle mit winsock wenn ein port offen ist !

Private Sub Command1_Click()
Winsock1.Close
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = 5000
Winsock1.Connect
End Sub

Private Sub Winsock1_Connect()
MsgBox ("Verbidung erfolgreich")
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 ("Keine Verbidnung")
End Sub



Geschrieben von autlegend am 24.06.2002 um 22:08:

 

Ja eh aber er hat geschrieben das es nur um sein Netzwerk geht da wird er doch wohl nen offenen Port haben omg


Forensoftware: Burning Board 2.3.6, entwickelt von WoltLab GmbH