TIMER

MARIOANDRADE 27/04/2014 15:26:39
#437665
Meus amigos, estou tentando fazer com que a cada dez minutos o programa visite um determinado site, mas o problema é que essa função
está encerrando ou ocultando o formulário, alguém sabe onde estou errando?
A propriedade Interva está 50000

Dim tempo as String

Private Sub Form_Load()
     tempo = 0
End Sub

Private Sub Timer1_Timer()
Dim r As Long
If tempo = 10 Then
    WebBrowser1.Navigate [Ô]http://www.vbmania.com.br[Ô]
    r = ShellExecute(0, [Ô]open[Ô], [Ô]http://www.vbmania.com.br[Ô], 0, 0, 1)
End
Else
    tempo = tempo + 1
End If
End Sub
MARCELO.TREZE 27/04/2014 20:21:02
#437667 Resposta escolhida
vamos lá colega primeiro o interval tem que ser 60000 (1 minuto)

se vc esta contando então o temp tem que ser um inteiro e não string

Dim tempo As Integer


Private Sub Form_Load()
     tempo = 0
End Sub


Private Sub Timer1_Timer()
Dim r As Long
If tempo = 10 Then
    WebBrowser1.Navigate [Ô]http://www.vbmania.com.br[Ô]
    r = ShellExecute(0, [Ô]open[Ô], [Ô]http://www.vbmania.com.br[Ô], 0, 0, 1)
tempo = 0 [txt-color=#007100][ô] o tempo que zerar sempre[/txt-color]
Else
    tempo = tempo + 1
End If
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar