Hola

[elsita]

Bien les explico la situación, estoy creando un programa muy sencillo pero no tanto, bien quiero que cuando el usuario del programa haga click en un command button el programa se quede a la escucha de que cambie la ip, cuando cambie la ip que agregue una linea al registro que seria la siguiente:

Código [Seleccionar] Expandir

[HKEY_LOCAL_MACHINE\SOFTWARE\D2Server\D2GS]
@="Diablo II Close Game Server"
"D2CSIP"="200.200.200.200"

"D2DBSIP"="200.200.200.200"

donde dice 200.200.200.200 creo que es mas que obvio que ahi va a ir la ip, bien espero que me puedan ayudar, desde ya Gracias

[soplo]

Hola Elsita

Primero bienvenida

Segundo que aquí no hacemos software a medida. Lo que pides no es nada del otro mundo, por aquí tienes mucha información de como acceder al registro y comprobar si te han cambiado la ip es tan fácil como guardar socket.localip en un string y luego con un timer comparar el string y el socket.localip a ver si son distintos.

Postea lo que has hecho y se te puede corregir, pero no esperes que te lo hagan.

Un saludo

[elsita]

Hola, primero que nada gracias, pero yo nunca pedi que me hicieran el software nada más que me den una idea de como hacerlo, es que yo ya tenia parte del codigo lo unico que me faltaba era como hacer eso que dije anteriormente Bye

[elsita]

yo lo que hice fue así

Código [Seleccionar] Expandir

Label2.Caption = Winsock1.LocalIP
pero esto me da la ip "192.168.x.x"

[soplo]

Pues ya está

Declarar una variable de formulario

Código [Seleccionar] Expandir

Dim SwPoneraLaEscucha as boolean

'El valor de esa variable es true cuando deseamos que se ponga a comprobar la ip)

Código [Seleccionar] Expandir

sub command1_click()
   SwPonerAlaEscucha=true
end sub

'Comprobar cada intervalo de tiempo si la variable está a true (esto es si debe comprobar la ip y en su caso comprobar

Código [Seleccionar] Expandir

sub timer1_timer()
   if not SwPoneraLaEscucha then
      exit sub
   endif

   if winsock1.localip<>label2 then
      poner_a_la_escucha()
      Agregar_A_Registro()
   endif
end sub

[elsita]

ok tengo otro problema cuando quiero agregar por ejemplo la 2da linea miren:

Código [Seleccionar] Expandir


shell ("reg add /f @="Diablo II Close Game Server"") termina en comillas y no me deja como puedo hacer?

[soplo]

Hola

Código [Seleccionar] Expandir

shell ('reg add /f @="Diablo II Close Game Server"')

[WarGhost]

Creo que eso no funciona, usa esto :

Código [Seleccionar] Expandir

shell "reg add /f @=""Diablo II Close Game Server"""

[soplo]

Si funciona, y lo tuyo también

[WarGhost]

ha mi por lo menos no me funciona  :