Mensajes

Que puedo hacer de una me carga con el alert!!! no puedo hacer nada como puedo quitar eso?

Desactiva el javascript si usas Firefox:

Herramientas - Opciones - Contenido - Desactiva javascript.

Saludos, Dacan 

[Edit:]

Lo que no entiendo donde esta el mapa para poner las coordenadas.

Edit: Logrado!, Gran compañía esta, muy útil.

Saludos, Dacan 

Jaja logrado tanto trabajo que pase les doy una ayudita bloqueen el javascript antes de entrar.

Saludos, Dacan 

Buen Aporte esta interesante pero porque solo con 1.1.6 creo que se podria con las otras versiones también.

Saludos, Dacan 

Man ya he logrado todo eso sin tener que copiar código de los demás ya solo me falta algo para terminar la primera versión del programa y esta en este tema:

http://foro.elhacker.net/programacion_vb/duda_con_un_textbox-t231549.0.html

Pero de seguro dirán que ya esta en el foro, que novedad 

Saludos, Dacan 

Mira lo que podría poner seria:

Agradecimientos a los Usuarios del foro elhacker.net, a ver si se pueden pasar por mi otro tema de ayuda con un textbox por favor.

Saludos, Dacan 

Si como no, es un chiste verdad, quien te dijo a ti que saque los códigos de aquí, vuelvo a reiterar no veo donde se habla sobre eso en este foro o sera que estoy ciego 

Saludos, Dacan 

Bueno he aquí mi duda:

Ese es el código que uso para conseguir el Código de Fuente de una pagina HTML pero algunas webs tiene un gran código de fuente y entonces lo corta y no se ve completo, ademas el TextBox tiene scroll Vertical así que debería verse completo.

Me Pueden Ayudar.

Código [Seleccionar] Expandir

Private Sub Command1_Click()
   
    strUrl = txtURLbox.Text
    'verificar si hay, al menos, 11 caracteres ("http://www.")
    If Len(strUrl) > 11 Then
        Screen.MousePointer = 15
       txtNote.Text = Inet1.OpenURL(strUrl)
       
     
        Screen.MousePointer = 0
    Else
        Screen.MousePointer = 0
        txtNote.Text = "Introduzca un nombre de documento válido en el cuadro URL"
    End If
    Exit Sub
manejadorerror:
    Screen.MousePointer = 0
    txtNote.Text = "Error en la conexión con el URL (" & Err.Description & ")"
End Sub

Saludos, Dacan 

Por fin lo logre:

Código [Seleccionar] Expandir

Inet1.OpenURL (strUrl)
txtNote.Text = Inet1.GetHeader

Espero que los demás no cojan el mismo trabajo que yo, pronto saco mi aplicación aquí un screenshot:



Saludos, Dacan 

[Tema Cerrado]

Bueno como dicen no conozco como es este foro y sus normas, así que nada Tema Cerrado (Alguien Cierrelo) ya que esto se esta convirtiendo en un chat y no quiero que luego vallan a pensar que soy el responsable.

No me molesto pues ahora mismo me encuentro del otro lado de la moneda, muchas gracias y nada sin rencores.

Edit: Me podrían aunquesea decir si se hace con Inet o con WinSock.

Saludos, Dacan