Temas

em bueno lei uno de los post de COMO HACER UN BOT  y me sirvio mucho, cosa que ahora ya lo termine, funciona al 100% con un par de modificiaciones. este este el codigo que saque del foro y que funciona a la perfeccion:

Código [Seleccionar] Expandir


Sub COLEcTOR()
Espera 2000
datos = WebBrowser1.Document.documentelement.innerhtml
Dim PosIni As Integer, PosFin As Integer, Matriz() As String
Matriz = Split(datos, vbCrLf)
For n = 0 To UBound(Matriz)
    PosIni = InStr(Matriz(n), "<P><A href=" & Chr(34) & "http://www.fotolog.com/")
    If PosIni <> 0 Then
        PosFin = InStr(PosIni, Matriz(n), """>")
        Text5.Text = Text5.Text & "/" & Mid(Matriz(n), PosIni + 35, PosFin - (PosIni + 35)) & vbCrLf
    End If
Next
End Sub


Lo que hace es crear un array de todos los usuarios con el codigo de base:

Código [Seleccionar] Expandir


<a href="http://www.fotolog.com/XXXXXXXXXXXXXXXX">XXXXXXXXXXXXXXXX</a>

y hay otros usuarios que tienen el codigo de la manera siguiente:

Código [Seleccionar] Expandir

<a href="http://www.fotolog.com/XXXXXXXXXXXXXXXX" class="goldcamera">XXXXXXXXXXXXXXXX</a>

XXX..= nombre de los usuarios

en sintesis, lo que hace el programa es entrar a un "fotolog" atraves de un WebBrowser y presionando 1 boton hace una lista de todos los "fotologs" que dejaron un mensaje en un TextBox, pero no logro adaptar el codigo para que tambien incluya a los GOLDCAMERA que son otros tipos de usuarios.. estoy hace dias con esto y probe de muchas formas y sigue sin funcionar... les agradeceria si me pueden dar una mano...