elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  obtener texto.
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: obtener texto.  (Leído 2,034 veces)
astaroth_15

Desconectado Desconectado

Mensajes: 99


Tienes Menos Cuello Que Un Muñeco De Nieve


Ver Perfil
obtener texto.
« en: 29 Diciembre 2007, 01:56 am »

Hola, feliz navidad a todos, queria preguntar si se puede hacer esto, mirar tengo un codigo fuente que obtiene el codigo fuente de una pagina web, pero mi duda es, si al obtener el codigo fuente, si por ejemplo

la web tiene

Bienvenido

yo quiero que al obtener el codigo fuente, me diga si Bievenido esta en el codigo fuente de la pagina y me lo diga en un label, es posible? si es posible podriais ponermelo ? asias, aqui os dejo el codigo fuente para obtener el codigo de la pagina:


'debes tener el control internet transfer control registrado en tu equipo

Dim strUrl As String

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

Private Sub Command2_Click()
'nota: todo el archivo se almacena en una única cadena
CommonDialog1.DefaultExt = "HTM"
CommonDialog1.Filter = "archivos HTML (*.HTML;*.HTM)|*.HTML;HTM"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
    Open CommonDialog1.FileName For Output As #1
    Print #1, txtNote.Text
    Close #1
End If

End Sub

Private Sub Command3_Click()
 End
End Sub

Private Sub Command6_Click()
CommonDialog1.DefaultExt = "TXT"
CommonDialog1.Filter = "archivos de texto (*.TXT)|*.TXT"
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
    Open CommonDialog1.FileName For Output As #1
    Print #1, txtNote.Text
    Close #1
End If

End Sub


En línea

Tienes Menos Cabeza Que Un Muñeco De Nieves
demoniox12

Desconectado Desconectado

Mensajes: 204


El conocimiento es poder


Ver Perfil WWW
Re: obtener texto.
« Respuesta #1 en: 29 Diciembre 2007, 11:11 am »

Código:
If InStr(1, Variable_a_buscar_el_msj, "Bienvenido") > 0 Then
Label1.caption = "Si dice bienvenido"
else
Label1.caption = "No dice bienvenido"
end if

salu2!


En línea

By Demoniox
astaroth_15

Desconectado Desconectado

Mensajes: 99


Tienes Menos Cuello Que Un Muñeco De Nieve


Ver Perfil
Re: obtener texto.
« Respuesta #2 en: 29 Diciembre 2007, 20:51 pm »

gracias demoniox, ahora lo que mas necesito es como un Get list, desde google sacar todas las webs que empiecen por news.php por ejemplo entiendes? una paranolla pero no se como es tio.. busco y busco y no se.. ah una cosa, tengo el ie 7, y no me deja abrir en ieframe.dll que hago:S
En línea

Tienes Menos Cabeza Que Un Muñeco De Nieves
demoniox12

Desconectado Desconectado

Mensajes: 204


El conocimiento es poder


Ver Perfil WWW
Re: obtener texto.
« Respuesta #3 en: 29 Diciembre 2007, 21:17 pm »

hmm.. eso de listar.. deberias hacerlo vos.. creo yo que es bastante extenso el codigo..

y acerca del error del iframe.dll podrias utilizar un poco el buscador del foro..

http://foro.elhacker.net/index.php/topic,186967.msg889072.html

salu2!
En línea

By Demoniox
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[SOLUCIONADO] Obtener todos los recursos de tipo TEXTO de My.Resources
.NET (C#, VB.NET, ASP)
Eleкtro 2 2,252 Último mensaje 8 Enero 2013, 20:22 pm
por Eleкtro
2 delimitadores para obtener texto (vb.net)
.NET (C#, VB.NET, ASP)
<housedir> 4 5,761 Último mensaje 22 Julio 2013, 22:13 pm
por Eleкtro
Obtener texto de una web
Programación Visual Basic
broña 1 2,332 Último mensaje 12 Enero 2014, 08:12 am
por engel lex
Obtener texto de un elemento de una web
.NET (C#, VB.NET, ASP)
j0lama 1 3,238 Último mensaje 2 Febrero 2015, 02:12 am
por Eleкtro
Obtener y ordenar texto CMD y MediaInfo Cli
Scripting
betitogc2 3 3,430 Último mensaje 31 Marzo 2015, 19:36 pm
por betitogc2
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines