Question : Visual Basic 6 -- Comment vérifier si port « est établi » avec le Winsock ou une alternative ?

Fondamentalement j'ai un programme qui doit vérifier si son un port est établi à un IP/server. Il emploie le vieux codage VB6 en ce moment. Il y a tellement si tout va bien une manière de faire it.

Similar à faire un netstat /a par exemple, vous obtiendrait quelque chose comme le
TCP 83.188.245.170 : 53954 c-24-98-162-231 : 2544 ESTABLISHED


So que vous savez qu'il est relié réellement à un serveur. Je peux vérifier le port de serveur pour voir si son relié, mais parfois moi ne suis pas relié réellement au serveur mais le serveur est EN FONCTIONNEMENT. Fondamentalement, je dois vérifier si je suis relié pour déterminer à recharger mon application ou not.

Is ceci possible ? Si oui, comment ? Merci ! Tout que j'ai besoin est même une manière simple de vérifier si son ouvert/fermé/etc. Je sais il y a Winsock, mais je ne suis pas sûr comment je peux l'employer pour vérifier un LOCALPORT si le son relié/chose d'established.

The est, JE SAIS que vous pouvez vérifier using un winsock.listen sur le port 53954. Mais le port change quand vous rebranchez puisque son juste un de base « a établi » le port. Ainsi je devrais réussir l'IP courant ses ou n'importe quoi de pareil. class= de

Réponse : Visual Basic 6 -- Comment vérifier si port « est établi » avec le Winsock ou une alternative ?

ce que je ferais appelle le netstat du code vb6 using Shell et noter le rendement à un certain dossier de résultat, puis pour l'analyser et pour obtenir l'information que j'ai besoin au sujet des ports :

par exemple, pour le port 443 :

Faible RetVal
RetVal = Shell (« netstat - | trouvaille » : 443 " > c:\temp\netstat.log ", 1)

le dossier de rendement devrait regarder n'importe quoi de pareil :

  TCP 0.0.0.0 : 443 0.0.0.0 : 0 ÉCOUTANT
  TCP 172.20.1.78 : 37623 216.166.12.33 : 443 ÉTABLI
  TCP 172.20.1.78 : 37625 216.166.12.33 : 443 ÉTABLI
  TCP 172.20.1.78 : 37629 216.166.12.33 : 443 ÉTABLI
  TCP 172.20.1.78 : 37630 216.166.12.33 : 443 ÉTABLI
  TCP 172.20.1.78 : 37648 216.166.12.33 : 443 ÉTABLI
  TCP 172.20.1.78 : 37649 216.166.12.33 : 443 ÉTABLI
  TCP [: :]: 443 [: :]: 0 ÉCOUTANT