Título: obtener texto. Publicado por: astaroth_15 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 Título: Re: obtener texto. Publicado por: demoniox12 en 29 Diciembre 2007, 11:11 am Código: If InStr(1, Variable_a_buscar_el_msj, "Bienvenido") > 0 Then salu2! Título: Re: obtener texto. Publicado por: astaroth_15 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
Título: Re: obtener texto. Publicado por: demoniox12 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! |