Estoy usando este code para armar el bot...
El tema es que cuando le doy al Command1 Que es para conectarse.. En el webbrowser1 aparece la pagina del log del fotolog y a los 10 seg Una error 404 de fotolog que no existe la pag a la que quize entrar
* 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
para k version de vb es ese codee ??
alo mejor i lo puedo modificar para metroflog
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
Daa... justo que lo empiezo a "modificar" me doy cuenta que ahora que fotolog cambio, el bot ya no funciona. Solucion? No se puede hacer click directamente en el boton porque ya no tiene nombre, asi que hay que recorrer todos los inputs del form 2 (seria el 1, ya que el 0 es el de busqueda, arriba de la pagina). Este es el codigo que he logrado arreglar
Me.WebBrowser1.Document.Forms(1).u_name.Value = Text1.Text
Me.WebBrowser1.Document.Forms(1).p_word.Value = Text2.Text
For i = 0 To WebBrowser1.Document.Forms(1).length - 1
If WebBrowser1.Document.Forms(1)(i).Type = "submit" Then
WebBrowser1.Document.Forms(1)(i).Click
End If
Next i
Call Espera(1000)
Reemplazar el codigo que cite antes por este.
Pero ahora no lo puedo seguir porque (al querer vaciar la ventana "debug") cerré el visual 6, al abrir el proyecto otra vez me tira error de que no puede encontrar "ieframe.dll\1" :huh: :huh:
Mientras voy a seguir probando, al menos el login ya funciona :P
Listo, resolvi todo y ya funciona :P
aca esta el codigo y el ejecutable listo para "Firmar"
http://www.mediafire.com/download.php?iuyenzjkzzj (http://www.mediafire.com/download.php?iuyenzjkzzj)
EDIT
Aca la version en .net
http://foro.elhacker.net/net/source_flogger_bot-t278127.0.html (http://foro.elhacker.net/net/source_flogger_bot-t278127.0.html)