Foro de elhacker.net

'**************************************************
'**************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 20000
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