hola amigos disculpen la ignorancia pero como implemento este codigo en
delphi 7. Saludos
Código:
Option Explicit
Private Sub Command1_Click()
Dim Aux As String, PosIni As Integer, PosFin As Integer
'Navegas en el contol el sitio
Me.WebBrowser1.Navigate "http://contribuyente.seniat.gob.ve/BuscaRif/BuscaRif.jsp"
'Esperas a que se cargue la pagina
Call WaitBrowserReady(WebBrowser1)
'completas el sitio con el numero
Me.WebBrowser1.Document.All.p_rif.Value = Me.Text1
'Haces click en buscar
WebBrowser1.Document.All.busca.Click
Call WaitBrowserReady(WebBrowser1)
'Ya tenes el dato, ahora lo guardamos en un auxiliar
Aux = UCase(WebBrowser1.Document.body.innerHTML)
'ahora sacas lo que queres. Yo lo hago buscando la ultima vez que esta
'el Rif que pusiste. Mira el codigo fuente de la pagina sino
PosIni = MyInstrLast(Aux, Me.Text1)
'Buscamos de vuelta, ahora encontrando el principio del nombre
PosIni = InStr(PosIni, Aux, ";", vbTextCompare)
'buscas la posicion fianl que esta delimitada por el </b>
PosFin = InStr(PosIni, Aux, "</b>", vbTextCompare)
MsgBox Mid(Aux, PosIni + 1, PosFin - PosIni - 1)
End Sub
Private Sub WaitBrowserReady(ByRef obj As Object)
DoEvents
While obj.Busy = True
DoEvents
Wend
End Sub
Private Function MyInstrLast(ByVal pstrText As String, ByVal pstrSearch As String) As Double
Dim pos As Double, Aux As Double, ctrl1 As Double
pos = 0
Do
Aux = InStr(pos + 1, UCase(pstrText), UCase(pstrSearch))
If Aux <> 0 Then pos = Aux
Loop Until Aux = 0
MyInstrLast = pos
End Function