* 5 cajas de texto (Textbox)
 
  -La primera y segunda caja de texto sirve para el nombre y el usuario
  -La tercera es para escribir el mensaje a dejar
  -La cuarta nos muestra los fotolog en el cual se encuantra firmando
  -la quinta los usuarios que firmaron nuestro libro de visitas
 
    * 2 botones (CommandButton)
 
  - El primero es par ingresar
  - El segundo presionamos para devolver las firmas
 
    * 1 WebBrower
 
Código:
 
 '********************************************
'**************************************************
'**************Code Bot Fotolog Vb6******************
'**************Autor: By LixKeÜ *********************
'**********RESPETAR LA FIRMA DE AUTOR**************
'*************************************************
'*************************************************
Dim ne As Boolean, Ide As Boolean, Datos As String
Private Sub Command1_Click()
ne = True
WebBrowser1.Navigate "http://account.fotolog.com/login"
End Sub
 
Private Sub Command2_Click()
Dim matriz
matriz = Split(Text5.Text, "#")
For n = 1 To UBound(matriz)
WebBrowser1.Navigate "http://www.fotolog.com/" & matriz(n)
 Ide = True
 Text4.Text = "http://www.fotolog.com/" & matriz(n)
 Espera 18000
Next
End Sub
 
Private Sub Form_Load()
ne = False
Ide = False
End Sub
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
If ne = True Then
ne = False
Me.WebBrowser1.Document.Forms(0).u_name.Value = Text1.Text
Me.WebBrowser1.Document.Forms(0).p_word.Value = Text2.Text
Me.WebBrowser1.Document.Forms(0).submitIt.Click
 
WebBrowser1.Navigate "http://www.fotolog.com/" & Text1.Text
Call COLEcTOR
End If
 
If Ide = True Then
Ide = False
WebBrowser1.Document.All.Item("message").Value = Text3.Text
WebBrowser1.Document.All.Item("gb_form_button").Click
End If
End Sub
 
Sub mensajes()
WebBrowser1.Document.All.Item("message").Value = Text3.Text
WebBrowser1.Document.All.Item("gb_form_button").Click
End Sub
 
Public Function Espera(MiliSegundos As Single) 'Función que me dejo lympex para que se pueda esperar un tiempo x; o sea un sleep
  Dim ComienzoSeg As Single
  Dim FinSeg As Single
  ComienzoSeg = Timer
  FinSeg = ComienzoSeg + (MiliSegundos / 1000)
  Do While FinSeg > Timer
      DoEvents
      If ComienzoSeg > Timer Then
          FinSeg = FinSeg - 24 * 60 * 60
      End If
  Loop
End Function
 
Sub COLEcTOR()
Espera 15000
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))
    End If
Next
Command2.Enabled = True
End Sub

Winsock1.SendData ("C1 87 37 BF")

Private Sub Winsock1_Connect()
 
'desplegamos un mensaje en la ventana
 
Text1.Text = Text1.Text & _
 
"*** Conexion establecida." & vbCrLf
 
'desplazamos el scroll
 
Text1.SelStart = Len(Text1.Text)
 
End Sub