Mensajes

servira para los clicks del adsense? o ... solo sirven para los juegos? ...

MUchas gracias.
Ahora mismo veo el post.

Si busque en google, pero ya me artan las puras publicidades y nada serio, por eso decidi preguntar por aca...

Muchas gracias a todds de nuevo.

Hola, este es uno de mis primeros post,

queria preguntar si algun programador de vb o vb.net me da lo mismo,

sabe como hacer o que me una orientacion para poder hacer un programa automatico, tipo bot que clickee en pagina web cierto link o cierta imagen...

Me gustaria que me den ayuda como para empezar...

gracias a todos.

perdon era una pavada y asta solucionado....

voy a ver q pasa  con el server .... y les aviso

hola q tal...

la verdad hace muy mucho que no participo de un foro...pero ahora vuelvo..

bueno he encontrado el cod. fuente de un programa en vb6 de un chat simple, supuestamente ya estaba listo para compilar, pero como siempre me saltan errores..

codigo del cliente:

Private Sub bntConnect_Click()
On Error GoTo ErrSub

    With Winsock1
        .Close
        .RemoteHost = txtIP
        .RemotePort = txtPort
        .Connect
    End With
Exit Sub
ErrSub:
MsgBox "Error : " & Err.Description, vbCritical
End Sub


Private Sub bntSend_Click()
On Error GoTo ErrSub


    Winsock1.SendData txtSend

    txtLog = txtLog & "Cliente : " & txtSend & vbCrLf
    txtSend = ""

Exit Sub
ErrSub:
MsgBox "Error : " & Err.Description
Winsock1_Close ' cierra la conexión
End Sub

Private Sub Winsock1_Close()

    Winsock1.Close  'Cierra la conexión
    txtLog = txtLog & "*** Desconectado" & vbCrLf

End Sub

Private Sub Winsock1_Connect()

txtLog = "Conectado a " & Winsock1.RemoteHostIP & vbCrLf

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim dat As String
   
    Winsock1.GetData dat, vbString
    txtLog = txtLog & "Servidor : " & dat & vbCrLf

End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, _
                           Description As String, _
                           ByVal Scode As Long, _
                           ByVal Source As String, _
                           ByVal HelpFile As String, _
                           ByVal HelpContext As Long, _
                           CancelDisplay As Boolean)

    txtLog = txtLog & "*** Error : " & Description & vbCrLf

    Winsock1_Close
End Sub

cuando quiero compilarlo me salta error " error de compilacion no se encontro el metodo o el miembro de datos"

y automaticamente me selecciona lo siguiente:

With Winsock1
        .Close


me pueden ayudar? nose que puede ser. gracias y saludos

PD: tengo windows vista, no se si eso influenciara.