Mensajes

Checa este proyecto:

https://htmlagilitypack.codeplex.com/

Excelente, ya habia oido de ella pero tampoco lograba hacerla funcionar pero bueno Google bastante hasta que encontre un ejemplo sencillo y explicativo de como usar los NODOs..

Ahora hay un problema la web que trato de parsear se carga en IEFRAME y me da error con el HTMLAGILITY... estuve pensando en usar algun componente como el Webbrowser que me deje una ves que este cargada la pagina completa acceder al codigo HTML y hacer la busqueda cruda...

??? Que crees??

Hola amigos pues eso ando buscando algun code para aprender a parsear un HTML... lo que ando tratando de hacer es cargar un CAPTCHA en un PictureBox... gracias cualquier ayuda... Les dejo algo que encontre pero no se hacerlo funcionar...

http://www.codeproject.com/Articles/19407/HTML-Parsing-using-NET-Framework

Salu2

["img"]

Amigos vengo en busca de ideas para capturar un captchat de una web la etiqueta "img" no tiene el parametro ID los únicos parametros que tiene son el ancho y el alto, y lo otro es que el tipo de imagen que se muestra es ".png" no hay ninguna otra imagen en la web con esa extension, alguna idea de como podre capturarlo y mostrarlo en picturebox o webbrowser... ayuda...

encontre el siguiente ejemplo pero no lo entiendo bien si alguien pudiera desmenuzarlo un poco mas...

Código (vbnet) [Seleccionar] Expandir



'1) Put this Sub in your Project.
'You need:

'    PictureBox --> name = PictureBox1
'    WebBrowser --> name = WebBrowser1


'getcaptcha()
'Code:
Public Sub getcaptcha()
  Dim str As String = WebBrowser1.Document.GetElementById("recaptcha_image").InnerHtml 'Gets the html code for the recaptcha_image element
  Dim img As String = str.Remove(0, 33).Replace(""" width=300 height=57>", "") 'Deletes all the info around the link because the height and width will never change
  PictureBox1.ImageLocation = img 'Sets the ImageLocation to the URL of the ReCaptcha Image
    End Sub

'Then find the WebBrowser1 Document Completed Sub (shown below)
'Code:
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

  End Sub

'And Add this code below to the Sub Above ^^
'Code:
If WebBrowser1.DocumentTitle.Contains("Emk") Then
    getcaptcha() 'Runs the sub getcaptcha()
  End If

'So it would look like this
'Code:
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

    getcaptcha() 'Runs the sub getcaptcha()

  End Sub

'Read more: http://codertrick.blogspot.com/2011/07/get-captcha-image-in-picturebox-vbnet.html#ixzz1yo8AV2rM




Hola amigos(as), veran necesito crear un documento de WORD con una tabla y una serie de valores, navegando encontre un buen codigo que me permite esto, pero necesito cambiar la orientacion del documento, centrar todo el contenido entre otras cosas a continuacion el codigo...

Tiene que agregar una referencia a Microsoft Word y en el General poner la siguiente declaración

Código (vb.net) [Seleccionar] Expandir



Imports Word = Microsoft.Office.Interop.Word



Código (vb.net) [Seleccionar] Expandir



Private Sub cmboton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdboton.Click

' Create Word Application
Dim oWord As Word.Application = CreateObject("Word.Application")
' Create new word document
Dim oDoc As Word.Document = oWord.Documents.Add()
oWord.Visible = False

'Creando la tabla
'lst1.items.count+1[/i] es la cantidad de filas a crear y el parametro de al lado son las columnas.

Dim oTable As Word.Table = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, lst1.Items.Count + 1, 6)
oTable.Range.ParagraphFormat.SpaceAfter = 3

''Creo las columnas
oTable.Cell(1, 1).Range.Text = "Primera"
oTable.Cell(1, 2).Range.Text = "Segunda"
oTable.Cell(1, 3).Range.Text = "Tercera"
oTable.Cell(1, 4).Range.Text = "Cuarta"
oTable.Cell(1, 5).Range.Text = "Quinta"
oTable.Cell(1, 6).Range.Text = "Sexta"

'Esto es para que comienza a partir de la 2da fila.
Dim cell As Integer = 2

For i As Integer = 0 To lst1.Items.Count - 1
If InStr(lst1.Items(i), "Segunda").ToString <> 0 Then
oTable.Cell(cell, 2).Range.Text = NameFile(lst1.Items(i).ToString)
ElseIf InStr(lst1.Items(i), "Tercera") <> 0 Then
oTable.Cell(cell, 3).Range.Text = NameFile(lst1.Items(i).ToString)
ElseIf InStr(lst1.Items(i), "Cuarta") <> 0 Then
oTable.Cell(cell, 4).Range.Text = lst1.Items(i).ToString
ElseIf InStr(lst1.Items(i), "Quinta") <> 0 Then
oTable.Cell(cell, 5).Range.Text = lst1.Items(i).ToString
ElseIf InStr(lst1.Items(i), "Sexta") <> 0 Then
oTable.Cell(cell, 6).Range.Text = lst1.Items(i).ToString
End If
oTable.Cell(cell, 1).Range.Text = "BlaBla"
cell = cell + 1
Next

'make the first row bold and italic
oTable.Rows.Item(1).Range.Font.Bold = True
oTable.Rows.Item(1).Range.Font.Italic = True

'Save this word document
oDoc.SaveAs("D:\Prueba.doc", True)
oDoc.Close()
oWord.Application.Quit()



- Podria abrir una plantilla que ya tengo creada y modificar la tabla que ya trae ella?

La sintaxis esta bien, el problema esta en algun parametro o algo falta en ese codigo...

Si alguien tuviera algun code para pasar por POST se lo voy agradecer...

Salu2

Ese codigo esta dentro de una funcion que lo que hace es ir mirando cuantos Items de un listbox contienen la palabra Pelicula y lo va guardando en ese Array, supongo que podria ponerle de tamaño la cantidad de items que contiene ya que siempre sera menor, pero tendria que redimensionar despues ese tamaño, me das una manita con lo de redimensionar...gracias bro...tremendo cabo me has tirado hoy...

salu2

Código (vbnet) [Seleccionar] Expandir



Dim Videos() as String

Videos(cont) = lst1.Items(i).ToString & ","



que stoy haciendo mal, me da el siguiente error cuando trata de procesar la linea...

Object reference not set to an instance of an object

No me quedo claro si lo solucionaste entonces ya o no, pero acordate de poner los codigos dentro de las etiquetas de codigo:


[ code=vbnet]
' codigo
' codigo
[ /code]

Sin los espacios.. para que funcione

ah vale lo hare para la proxima, gracias man, publique un nuevo problema, si no estas muy ostinado de mi echame una ayudita, necesito enviar a un php unos datos por POST... si tienes algun ejemplo por ahi tirado, hazmelo llegar

Código (vb.net) [Seleccionar] Expandir


Try
Dim oWeb As New System.Net.WebClient()

oWeb.Headers.Add("Content-Type", "application/x-www-form-urlencoded")

Dim bytArguments As Byte() = System.Text.Encoding.ASCII.GetBytes("q=InTheory")
Dim bytRetData As Byte() = oWeb.UploadData("http://www.google.com/search", "GET", bytArguments)

Debug.Write(System.Text.Encoding.ASCII.GetString(bytRetData))
Catch ex As Exception
MsgBox(ex.Message)
End Try


Sera el parametro bytArguments

Muchisimas gracias por darme la idea era tan obvia recorriendo los lst era la solucion en cada evento y dentro de esos for agregar el codigo en cuestion, ahora mismo veo lo otro que me dijistes para quitar la funcion VerifyItem

gracias y te mantento al tanto...

Código (vbnet) [Seleccionar] Expandir



Private Sub lstadd_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

'el tc1 es un tabcontrol, tc1.SelectedIndex con esto obtengo el pag actual que es tiene el mismo indice que el
'del listbox....

If VerifyItem(lstname(tc1.SelectedIndex).SelectedItem.ToString) = False Then
lst1.Items.Add(lstname(tc1.SelectedIndex).SelectedItem)
GetInformation(lstname(tc1.SelectedIndex).SelectedItem)
Suma()
End If

End Sub

Private Sub lstselect_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

If lstname(tc1.SelectedIndex).SelectedIndex <> -1 Then
lsttime(tc1.SelectedIndex).SetSelected(lstname(tc1.SelectedIndex).SelectedIndex, True)
End If
Next

End Sub