Fråga : Visual Basic 6 -- Hur man kontrollerar, om port är ”etablerat” med winsocken eller ett alternativ?

I stort jag har ett program som behöver att kontrollera, om dess en port är etablerad till en IP/server. Den använder den gammala kodifiera rätten VB6 nu. Så hopefully det finns a långt som gör it.

Similar till att göra en netstat /a for example, dig skulle får något lik
TCP 83.188.245.170: 53954 c-24-98-162-231: 2544 ESTABLISHED


So du vet att den förbinds faktiskt till en server. Jag kan kontrollera serverporten för att se, om dess förbindelse, men ibland jag förmiddagen inte faktiskt förbindelse till serveren men serveren är UPP. I stort jag behöver att kontrollera om I-förmiddagen förbindelse för att bestämma att starta om min applikation eller not.

Is denna möjlighet? Om så, hur? Tack! Allt jag behöver, är även ett enkelt långt att kontrollera, om dess öppet/stängt/Etc. jag vet det finns winsocken, men I-förmiddagen inte sure, hur jag kan använda den för att kontrollera en LOCALPORT, om förbindelsedess/tinget för established.

The är, MIG VET att du kan kontrollera using en winsock.listen på port 53954. Men porten ändrar, när du återinkopplar efter dess rättvist en grundläggande ”etablerad” port. Så jag skulle behov att få strömIPEN dess på eller något något liknande som. " klar "

Svar : Visual Basic 6 -- Hur man kontrollerar, om port är ”etablerat” med winsocken eller ett alternativ?

gör kallar netstat från vb6en kodifierar using Shell och loggar som tillverkas till något resultat sparar, då parse det och får informationen som vad jag skulle, jag behöver om portarna:

till exempel för port 443:

Dunkla RetVal
RetVal = Shell (”netstat - | fynd”: 443 " > c:\temp\netstat.log ", 1)

tillverkade sparar bör se något något liknande detta:

  TCP 0.0.0.0: 443 0.0.0.0: 0 LYSSNA
  TCP 172.20.1.78: 37623 216.166.12.33: 443 ETABLERAT
  TCP 172.20.1.78: 37625 216.166.12.33: 443 ETABLERAT
  TCP 172.20.1.78: 37629 216.166.12.33: 443 ETABLERAT
  TCP 172.20.1.78: 37630 216.166.12.33: 443 ETABLERAT
  TCP 172.20.1.78: 37648 216.166.12.33: 443 ETABLERAT
  TCP 172.20.1.78: 37649 216.166.12.33: 443 ETABLERAT
  TCP [::]: 443 [::]: 0 LYSSNA