VB 6.0 chiudo una porta

[meronet]

Ciao a tutti
Volevo chiedervi se vi era un modo semplice per chiudere una porta della scheda di rete tramite Visual Basic..

Ad esempio se entrate in dos e digitate netstat -a
vi appariranno tutte le connessioni attive tcp e udp

di solito appare un indirizzo ip + il numero della porta


esempio 128.128.128.128:8080

Io vorrei fare un applicazione che mi chiude la porta desiderata
Sono graditi suggerimenti e spunti ...
ringrazio tutti

[raffaeu]

Posso darti solamente un spunto.
Devi usare il WMI cosi' sei in grado di operare sia sulla scheda di rete locale che in quelle dei pc in rete.

Oppure, come da me, script vbs che gira sul server al login della macchina ...

[meronet]

un pò di codice....
ma solo un pò
giusto per
si facilità la ricerca !!!

[raffaeu]

con questo hai i nomi di tutti i pc in rete

strComputer = "DC1"

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItem in colItems
	nomePC = objitem.CSName
Next

[meronet]

come si utilizza questo codice....

[raffaeu]

Questa è la query WMI

Select * from Win32_OperatingSystem

tu devi trovare la query che ti da le schede di rete presenti nel PC.

Cerca su MSDN.com nel sito microsoft.

Purtroppo le query sono tantissime e non me le ricordo tutte.

[meronet]

un' altra strada !!!

[raffaeu]

Normalmente quando chiedi in un forum, evita di far fare ricerche inutili agli utenti se poi la soluzione che ti viene data 'non ti piace' o 'è troppo complicata', allora se sai tu che strada vuoi prendere perchè chiedi qui???

Usa le API Networking

Qui l' elenco con i tutorial

http://www.mentalis.org/apilist/apilist.php

Altre vie non ne conosco ma molto meglio che impari a usare il WMI e non le API ...

[meronet]

a me piace
quando si entra in un argomento nuovo
di avere il quadro completo della situazione

per risolvere un quesito
ci sono varie strade.....
cercarne altre non significa non accontentarsi
ma ampliare le proprie conoscenze

in riferimento a questa discussione
non metto in dubbio
che la soluzione prospettata inizialmente
sia ottima

ti ringrazio davvero per il tuo apporto