Pergunta : Visual Basic 6 -- Como verific se porto “é estabelecido” com Winsock ou uma alternativa?

Basicamente eu tenho um programa que precise de verific se seu um porto é estabelecido a um IP/server. Está usando a codificação VB6 velha agora. Tão esperançosamente há uma maneira de fazer it.

Similar a fazer um netstat /a por exemplo, você começ algo como o
TCP 83.188.245.170: 53954 c-24-98-162-231: 2544 ESTABLISHED


So que você sabe que está conetado realmente a um usuário. Eu posso verific o porto de usuário para ver se sua conetada, mas eu não está conetada às vezes realmente ao usuário mas o usuário está ACIMA. Basicamente, eu preciso de verific se eu sou conetado para determinar recarregar meu aplicação ou not.

Is isto possível? Em caso afirmativo, como? Obrigado! Tudo que eu preciso é mesmo uma maneira simples de verific se seu aberto/fechado/etc. Eu sei há um Winsock, mas eu não sou certo como eu posso o usar para verific um LOCALPORT se o seu conetado/coisa de established.

The é, MIM SEI que você pode verific using um winsock.listen no porto 53954. Mas o porto muda quando você reconeta desde que seu apenas um básico “estabeleceu” o porto. Assim eu precisaria de começ sobre o IP atual seus ou qualquer outra coisa semelhante. class= do

Resposta : Visual Basic 6 -- Como verific se porto “é estabelecido” com Winsock ou uma alternativa?

o que eu faria está chamando o netstat do código vb6 using Shell e para registrar a saída a alguma lima do resultado, a seguir para analisá-la gramaticalmente e começ a informação que eu preciso sobre os portos:

por exemplo, para o porto 443:

RetVal não ofuscante
RetVal = Shell (“netstat - | achado”: 443 " > c:\temp\netstat.log ", 1)

a lima de saída deve olhar qualquer outra coisa semelhante:

  TCP 0.0.0.0: 443 0.0.0.0: 0 ESCUTANDO
  TCP 172.20.1.78: 37623 216.166.12.33: 443 ESTABELECIDO
  TCP 172.20.1.78: 37625 216.166.12.33: 443 ESTABELECIDO
  TCP 172.20.1.78: 37629 216.166.12.33: 443 ESTABELECIDO
  TCP 172.20.1.78: 37630 216.166.12.33: 443 ESTABELECIDO
  TCP 172.20.1.78: 37648 216.166.12.33: 443 ESTABELECIDO
  TCP 172.20.1.78: 37649 216.166.12.33: 443 ESTABELECIDO
  TCP [::]: 443 [::]: 0 ESCUTANDO