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

Dim Terminado As Boolean

Terminado = False

Dim Terminado As Boolean
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()
Terminado = False
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
Terminado = True
wb.Document.Form1.enviar.Click
smsenviados.Text = smsenviados.Text + 1
Espera (5)
End Sub

Private Sub wb_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
If Terminado = True Then
wb.GoBack
End If
Terminado = False
End Sub