Frage : Visual Basic 6 -- Wie man überprüft, ob Hafen mit Winsock oder einer Alternative „hergestellt“ wird?

Im Allgemeinen habe ich ein Programm, das überprüfen muss, ob sein ein Hafen zu einem IP/server hergestellt. Er verwendet alte Kodierung VB6 im Augenblick. So hoffnungsvoll gibt es eine Weise, it.

Similar zum Handeln eines netstat /a zum Beispiel zu tun, Sie erhalten etwas wie
TCP 83.188.245.170: 53954 c-24-98-162-231: 2544 ESTABLISHED


So, das Sie kennen, dass es wirklich an einen Bediener angeschlossen. Ich kann den Bedienerhafen überprüfen, um zu sehen, wenn sein angeschlossen, aber manchmal ich nicht wirklich an den Bediener angeschlossen, aber der Bediener OBEN ist. Im Allgemeinen muss ich überprüfen, ob ich angeschlossen, um festzustellen, meine Anwendung oder not.

Is neu zu starten mögliches dieses? Wenn ja wie? Danke! Alle, die ich benötige, ist sogar eine einfache Weise, zu überprüfen ob sein geöffnetes/geschlossen/etc. Ich weiß, es Winsock gibt, aber ich nicht sicher bin, wie ich es benutzen kann, um ein LOCALPORT zu überprüfen, wenn sein angeschlossen/established.

The Sache ist, ICH WEISS, dass Sie using ein winsock.listen auf Hafen 53954 überprüfen können. Aber der Hafen ändert, wenn Sie wieder anschließen, da sein gerade ein grundlegendes Hafen „herstellte“. So müssen ich das gegenwärtige IP seine oder etwas Ähnliches an erhalten.

Antwort : Visual Basic 6 -- Wie man überprüft, ob Hafen mit Winsock oder einer Alternative „hergestellt“ wird?

was ich tun, benennt netstat vom Code vb6 using Shell und den Ausgang in irgendeiner Resultatsakte zu protokollieren, dann, sie zu analysieren und die Informationen zu erhalten, die ich über die Häfen benötige:

z.B. für Hafen 443:

Schwaches RetVal
RetVal = Shell („netstat - | Entdeckung“: 443 " > c:\temp\netstat.log ", 1)

die Ausgabedatei sollte etwas Ähnliches schauen:

  TCP 0.0.0.0: 443 0.0.0.0: 0 HÖREND
  TCP 172.20.1.78: 37623 216.166.12.33: 443 HERGESTELLT
  TCP 172.20.1.78: 37625 216.166.12.33: 443 HERGESTELLT
  TCP 172.20.1.78: 37629 216.166.12.33: 443 HERGESTELLT
  TCP 172.20.1.78: 37630 216.166.12.33: 443 HERGESTELLT
  TCP 172.20.1.78: 37648 216.166.12.33: 443 HERGESTELLT
  TCP 172.20.1.78: 37649 216.166.12.33: 443 HERGESTELLT
  TCP [::]: 443 [::]: 0 HÖREND