hola mucahchos... como podria enviar varias veces Winsock1.SendData Datos.. por ejemplo este... ya estando conectado el winsock
a su ma tengo rato que no entro a VB
bueno hay varias formas
lo puedes hacer con un for , while
o si lo quieres cada cierto tiempo con un timer
for i=0 to 20
'codigo
next i
private sun timer1_timer()
'codigo
end sub
Cita de: Red Mx en 31 Mayo 2007, 23:10 PM
a su ma tengo rato que no entro a VB
bueno hay varias formas
lo puedes hacer con un for , while
o si lo quieres cada cierto tiempo con un timer
for i=0 to 20
'codigo
next i
private sun timer1_timer()
'codigo
end sub
no funciona ....
Cita de: satan69 en 31 Mayo 2007, 22:14 PM
hola mucahchos... como podria enviar varias veces Winsock1.SendData Datos.. por ejemplo este... ya estando conectado el winsock
For i = 0 To 20
Winsock1.SendData "var"
Next
Cita de: YeIk0s en 1 Junio 2007, 01:55 AM
Cita de: satan69 en 31 Mayo 2007, 22:14 PM
hola mucahchos... como podria enviar varias veces Winsock1.SendData Datos.. por ejemplo este... ya estando conectado el winsock
For i = 0 To 20
Winsock1.SendData "var"
Next
.
mae y si quiere que cada 1 segundo lo envie.. por ejemplo 15 seria 15 segundo...
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
Cita de: YeIk0s en 1 Junio 2007, 10:01 AM
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
;D ;D ;D