Ho trovato la soluzione e la scrivo in modo che se qualcuno ha il mio stesso problema qui può trovare la soluzione
basta fare un programma in vb che invia un comando al dos
----------------------------------------
sc stop sharedaccess disattiva il firewall di windows
---------------------------------
sc start sharedaccess attiva il firewall di windows