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
' -------------------------------
For i = 0 To 15 Espera(1) Winsock1.SendData "var" Next
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
' -------------------------------
For i = 0 To 15 Espera(1) Winsock1.SendData "var" Next
muchas gracias ... me a servidor bastante.. y es una exelente funcion..... para detener un proceso
« Última modificación: 1 Junio 2007, 19:44 pm por satan69 »