Visual Basic - Problema al leer html

Life is soft - evento anual de software empresarial
   
Vista:

Problema al leer html

Publicado por Srm28 (1 intervención) el 12/10/2010 13:23:52
Hola a todos, soy nueva en el ambito de la programación y estoy haciendo un proyecto para el colegio con visual basic 2008. Necesito que mi aplicación sea capaz de encontrar "<input type='hidden' name='prova' value='ok' >" en un HTML haciendo click en el "button2" y que si lo encuentra salga un mensaje. La cuestion es que utilizando un html que lo contiene no me salta el mensage cuando le doy al boton. He empleado lo siguiente para que me funcionase:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim lonPos As Long, lonEnd As Long
Dim strStart As String, strEnd As String
Dim strHidden As String
strStart = "<form>"
strEnd = "</form>"
lonPos = InStr(1, "Html", strStart, vbTextCompare)
If lonPos > 0 Then
lonPos = lonPos + Len(strStart)
lonEnd = InStr(lonPos, "HTML", strEnd, vbTextCompare)
If lonEnd > 0 Then
strHidden = Mid("HTML", lonPos, lonEnd - lonPos)
If Mid("HTML", lonPos, lonEnd - lonPos) = ("<input type='hidden' name='prova' value='ok' >") Then MsgBox("Done")
End If
End If
End Sub

Podrian decirme cuan es el error?

Muchas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder