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

Hola gente, estoy usando winsocks. Ya pude lograr la conexion e incluso enviar un texto.
Pero lo que yo envio por ejemplo "C1 87 37 BF" Esta en hex, y dicho llega como texto...
El tema es que yo quiero que llegue al servidor como Hex.
Aca esta mi code

Winsock1.SendData ("C1 87 37 BF")

Si me pueden ayudar desde ya muchisimas gracias

Hola gente, perdonen por mi post anterior :S
Ahora ya estoy desarrollando mi code y necesito ayuda en  esto:

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
 

Bueno
me tira error en esto:

Text1.Text = Text1.Text & _

"*** Conexion establecida." & vbCrLf

Me dice error de sintaxis. Que podria ser?  y como lo podria arreglar?

Hola gente, estoy en un proyecto importante, en el cual necesito mandar un paquete tipo los del WPE Pro a una determinada ip que se muestre en un shoutbox .... Gracias por la ayuda