Foro de elhacker.net

Private Sub VotarDos()

    On Error GoTo Reload
         
    WebBrowser.Document.Forms(0).Elements(1).Click
    
    Votados = Votados + 1
    VotadosPost = VotadosPost + 1
    Exit Sub
Reload: Form_Load

End Sub

Call VotarDos

Const URL_DESEADA ="http://www.tudire.com"

Private Sub Form_Activate()
    Me.WebBrowser.Navigate URL_DESEADA, navNoReadFromCache + navNoWriteToCache + navNoHistory
End Sub

Private Sub timer1_timer()
    On Error GoTo Reload
     
    WebBrowser.Document.Forms(0).Elements(1).Click
    
    Votados = Votados + 1
    VotadosPost = VotadosPost + 1
    Exit Sub
    Me.WebBrowser.Navigate URL_DESEADA, navNoReadFromCache + navNoWriteToCache + navNoHistory
    Me.WebBrowser.Refresh

Reload: Form_Load
end sub

Private Sub timer1_timer()
    On Error GoTo nopasana

    Me.WebBrowser.Navigate txturl.text    'cargamos la url
    Me.WebBrowser.Refresh                     'refrescamos el control

   'aki realizas que se clickee el valor que deseas
    
   
     txtvotos.text=txtvotos.text+1
    Exit Sub
   
Reload: resume next
end sub

Private Sub cmdparar_Click()
    tmrrevotar.Enabled = False  'desactivamos
End Sub

Private Sub cmdvotar_Click()
    tmrrevotar.Enabled = True   'activamos
End Sub

Private Sub tmrrevotar_Timer()
'el timer esta puesto a intervalo de 2000 por supuesto empieza enabled=false
On Error Resume Next

    Me.WebBrowser.Navigate txturl.Text        'cargamos la url
   'aki realizas que se seleccione el valor de puntuación indicado por el txt...

  
   
    txtvotos.Text = txtvotos.Text + 1   'aumentamos contador de votos
  
End Sub

Private Sub Timer1_Timer()
WebBrowser1.Document.Forms(0).Publicar.Click
End Sub