Código:
Option Explicit
Sub Espera(Segundos As Single)
Dim ComienzoSeg As Single
Dim FinSeg As Single
ComienzoSeg = timer
FinSeg = ComienzoSeg + Segundos
Do While FinSeg > timer
DoEvents
If ComienzoSeg > timer Then
FinSeg = FinSeg - 24 * 60 * 60
End If
Loop
End Sub
Private Sub cmdparar_Click()
timer.Enabled = False
smsenviados.Text = 0
End Sub
Private Sub cmdrun_Click()
timer.Enabled = True
End Sub
Private Sub Form_Load()
Wb.Navigate ("http://www.fci.edu.uy/inscripcion.htm")
End Sub
Private Sub Timer_Timer()
Wb.Document.form1.Nombre.Value = txtnombre
Wb.Document.form1.apellido.Value = txtapellido
Wb.Document.form1.ctedad.Value = txtedad
Wb.Document.GetElementById("E-mail").Value = txtmail
Wb.Document.form1.telefono.Value = txttel
Wb.Document.form1.mensaje.Value = txtmensaje
Wb.Document.form1.enviar.Click
smsenviados.Text = smsenviados.Text + 1
Espera (5)
Wb.GoBack
End Sub