 Autor
|
Tema: Problema con Winsock (Leído 2,307 veces)
|
rapbyone
 Desconectado
Mensajes: 173
|
amigos, tengo el siguiente problema, tengo el siguiente codigo que me muestra la IP al presionar un botón, funciona sin problemas: Private Sub Command1_Click()
Winsock1.RemoteHost = Winsock1.LocalHostName
MsgBox Winsock1.LocalIP
End Sub El problema se da cuando cambio la IP local (desconecto el cable de red y me conecto por wifi) al presionar el botón, sigue mostrando la misma IP local, y no la actualizar, hasta que cierre y habrá la aplicación. ¿Como actualizo lo que muestre Winsco? ¿Hay algún otro método para mostrar la IP? gracias amigos 
|
|
|
|
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!! Tengo entendido que la propiedas localip se actualiza cuando se cambia el ip, pero si eso no te satisface podrias leer la salida de IPCONFIG. Este es un codigo de ejemplo de como leer la salida de ip config para un windows en español y devolver el ip Private Function getip() As String Dim objShell, objCmdExec Set objShell = CreateObject("WScript.Shell") Set objCmdExec = objShell.exec("ipconfig") getCommandOutput = objCmdExec.StdOut.ReadAll Set objShell = Nothing Set objCmdExec = Nothing Dim lineas() As String lineas = Split(getCommandOutput, vbNewLine) For x = 0 To UBound(lineas) If InStr(lineas(x), "Direcc") Then Exit For Next getip = Trim(Split(lineas(x), ":")(1)) End Function
GRACIAS POR LEER!!!
|
|
|
|
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
rapbyone
Desconectado
Mensajes: 173
|
HOLA!!! Tengo entendido que la propiedas localip se actualiza cuando se cambia el ip, pero si eso no te satisface podrias leer la salida de IPCONFIG. Este es un codigo de ejemplo de como leer la salida de ip config para un windows en español y devolver el ip Private Function getip() As String Dim objShell, objCmdExec Set objShell = CreateObject("WScript.Shell") Set objCmdExec = objShell.exec("ipconfig") getCommandOutput = objCmdExec.StdOut.ReadAll Set objShell = Nothing Set objCmdExec = Nothing Dim lineas() As String lineas = Split(getCommandOutput, vbNewLine) For x = 0 To UBound(lineas) If InStr(lineas(x), "Direcc") Then Exit For Next getip = Trim(Split(lineas(x), ":")(1)) End Function
GRACIAS POR LEER!!! Amigo, gracias por tu respuesta, disculpa la ignorancia, como utilizo la función para mostrarla en un textbox???
|
|
|
|
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!!  Posta... Deberias revisar tus bases... Text1.text = GetIP()
GRACIAS POR LEER!!! |
|
|
|
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
rapbyone
Desconectado
Mensajes: 173
|
HOLA!!! Posta... Deberias revisar tus bases... Text1.text = GetIP()
GRACIAS POR LEER!!! Justamente lo había conseguido, iba a editar el tema muchas, pero muchas gracias estimado
|
|
|
|
|
En línea
|
|
|
|
rapbyone
Desconectado
Mensajes: 173
|
lo ultimo, hay alguna forma de que la ventana de MS DOS se ejecute en segundo plano???
|
|
|
|
|
En línea
|
|
|
|
79137913
Desconectado
Mensajes: 1.169
4 Esquinas
|
HOLA!!!
Hay mil maneras de hacerlo, pero el metodo que te coloque ahi no puede por que exec no puede ser en hidemode.
Busca, interiorizate aprende , que parece que te falta.
No te doy la respuesta para que puedas aprender mas.
Mucha suerte.
GRACIAS POR LEER!!!
|
|
|
|
|
En línea
|
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"
79137913 *Shadow Scouts Team*
|
|
|
rapbyone
Desconectado
Mensajes: 173
|
HOLA!!!
Hay mil maneras de hacerlo, pero el metodo que te coloque ahi no puede por que exec no puede ser en hidemode.
Busca, interiorizate aprende , que parece que te falta.
No te doy la respuesta para que puedas aprender mas.
Mucha suerte.
GRACIAS POR LEER!!!
Gracias de todas maneras amigos, es verdad estoy recién aprendiendo, me salto la sintaxis de vb6, he aprendido mucho pero a través de ensayo y error, en fin.
|
|
|
|
|
En línea
|
|
|
|
|
| Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Problema con WinSock
Programación Visual Basic
|
eXoRTH
|
9
|
3,198
|
4 Julio 2005, 02:46 am
por Slasher-K
|
|
|
|
Problema con winsock :/
Programación Visual Basic
|
Tor
|
2
|
1,597
|
18 Julio 2005, 10:24 am
por sch3m4
|
|
|
|
problema winsock
Programación Visual Basic
|
jebg
|
2
|
1,551
|
21 Agosto 2005, 05:18 am
por NYlOn
|
|
|
|
problema con winsock
Programación Visual Basic
|
andoba
|
2
|
1,111
|
14 Julio 2006, 17:02 pm
por -POLACO-
|
|
|
|
problema con winsock
Programación Visual Basic
|
Wdeah
|
7
|
2,126
|
13 Septiembre 2006, 02:19 am
por WarGhost
|
 |
