GS-Zone
Facebook Twitter

Boton en el cliente para que busque la ip de la web Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

5

Nota » 30 May 2007 16:19

Hola....

Como veran no tengo muchas experiencia con el visual basic bueno yo estuve intentando hacer un boton en el cliente para que busque una ip determinada de una web....

si alguien puede ayudarme......

Gracias

Imagen
Zasqe
Usuario Registrado
14
Destructor de Mentes [3]
Registrado: 5 Años de membresía!
Ubicación: San Fernando
Mensajes: 637
Aportes: 2
Arriba

Nota » 30 May 2007 16:48

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub Command1_Click()
  2. Dim IPdesdeInet
  3. IPdesdeInet = frmMain.Inet1.OpenURL("http://www.tuweb.com.ar/ip.txt")
  4. IPTxt.Text = IPdesdeInet
  5. End Sub


tenes q hacer un boton que se llame command1 y, haces doble clic y le metes eso :P

NicoNZ
Usuario Registrado
Oraculo [1]
Registrado: 5 Años de membresía!
Ubicación: Almaaaagroo
Mensajes: 1101
Aportes: 2
Arriba

Nota » 30 May 2007 17:35

declara la variable como string

Imagen

No more BlasTeR, now I'm ArrayDude
http://www.nahuelrosso.com.ar

NicoNZ escribió:dejenlo, es porque perdio su cd edicion limitada de alex ubago

jajajaj que hdp
BlasTeR
Usuario Registrado
Aprendiz [7]
Registrado: 5 Años de membresía!Años de membresía
Ubicación: System32
Mensajes: 453
Aportes: 4
Arriba

Nota » 30 May 2007 18:05

En el FrmConnect Creas un Boton y lo nombras: "CmdIp"

Y de code Pones:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub Command1_Click()
  2. Dim IPWeb As String
  3. IPWeb = frmMain.Inet1.OpenURL("http://www.tuweb.com.ar/ip.txt")
  4. IPTxt.Text = IPWeb
  5. End Sub


La Ip Lleva Puntos y Eso Convierte la Variable en "String"

Si queres que Cargue cuando se abre el Frmconnect en el "Private Sub Form_Activate()"

Pones


Saludo
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Dim IPWeb As String
  2. IPWeb = frmMain.Inet1.OpenURL("http://www.tuweb.com.ar/ip.txt")
  3. IPTxt.Text = IPWeb


Y Listo

Saludos!

Imagen
DarkThom
Usuario Registrado
Oraculo [3]
Registrado: 5 Años de membresía!
Mensajes: 1581
Aportes: 14
Arriba

Nota » 30 May 2007 18:12

DarkThom escribió:En el FrmConnect Creas un Boton y lo nombras: "CmdIp"

Y de code Pones:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Private Sub[color=red] Command1_Click()[/color]
  2. Dim IPWeb As String
  3. IPWeb = frmMain.Inet1.OpenURL("http://www.tuweb.com.ar/ip.txt")
  4. IPTxt.Text = IPWeb
  5. End Sub


La Ip Lleva Puntos y Eso Convierte la Variable en "String"

Si queres que Cargue cuando se abre el Frmconnect en el "Private Sub Form_Activate()"

Pones


Saludo
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Dim IPWeb As String
  2. IPWeb = frmMain.Inet1.OpenURL("http://www.tuweb.com.ar/ip.txt")
  3. IPTxt.Text = IPWeb


Y Listo

Saludos!

r = sqr (2 / ( 3.14159 * 2360hab/km2 * 80 / 8 765.8 horas * 1 hora)
r = sqr(2 / ( 67.664km2))
r = sqr(0.02955km2)
r = 0.1719km2 (171.9m2)
alguien a r distancia está teniendo sexo.
Hello
Usuario Registrado
Oraculo [5]
Registrado: 5 Años de membresía!
Mensajes: 2276
Aportes: 1
Arriba

Volver a Otras versiones

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados