[freddiaz07]

hola amigos disculpen la ignorancia pero como implemento este codigo en
delphi 7. Saludos

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