obtener texto.

Iniciado por astaroth_15, 29 Diciembre 2007, 01:56 AM

0 Miembros y 1 Visitante están viendo este tema.

astaroth_15

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
Tienes Menos Cabeza Que Un Muñeco De Nieves

demoniox12

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!
By Demoniox

astaroth_15

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
Tienes Menos Cabeza Que Un Muñeco De Nieves

demoniox12

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!
By Demoniox