Messages

Hola, tengo un ultimo problema, el Label2.Caption =  Winsock1.localip me da la ip 192.168.x.x pero quiero que me de la que me da el Isp por que si no el programa no serviria de nada.

ahh me olvidaba yo puse que para que mueva el mouse se muestre la info, no ahi alguna forma de que muestre la winsock.localip sin tener que hacer alguna opcion con el mouse sobre la label?

Code Select Expand

SwPonerAlaEscucha As Boolean
Private Sub Command1_Click()
   SwPonerAlaEscucha = True
End Sub

Private Sub Form_Load()

End Sub

Private Sub forma_Click()
Form3.Show
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.Caption = Winsock1.LocalIP
End Sub

Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label4.Caption = Winsock1.LocalHostName
End Sub

Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label6.Caption = Winsock1.RemoteHost
End Sub

Private Sub sobre_Click()
Form2.Show
End Sub

Private Sub timer1_timer()
   If Not SwPonerAlaEscucha Then
   GoTo timer1_timer
   End If

   If Winsock1.LocalIP <> Label2 Then
Set ws = CreateObject("WScript.Shell")
ws.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\D2Server\D2GS", " & Chr(34) & ""@=Diablo II Close Game Server"" & Chr(34) & """
ws.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\D2Server\D2CS", "" & Chr(34) & "" & Winsock1.LocalIP & "" & Chr(34) & ""
ws.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\D2Server\D2DBS", "" & Chr(34) & "" & Winsock1.LocalIP & "" & Chr(34) & ""
   End If
End Sub
End Sub
así quedo

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

Code Select Expand


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

yo lo que hice fue así

Code Select Expand

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

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

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:

Code Select Expand

[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