enviar varias veces senddata

[satan69]

hola mucahchos... como podria enviar varias veces Winsock1.SendData Datos.. por ejemplo este...  ya estando conectado el winsock

[Red Mx]

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

[satan69]

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 ....

[yeikos]

hola mucahchos... como podria enviar varias veces Winsock1.SendData Datos.. por ejemplo este...  ya estando conectado el winsock

Código [Seleccionar] Expandir


For i = 0 To 20
Winsock1.SendData "var"
Next

[satan69]

hola mucahchos... como podria enviar varias veces Winsock1.SendData Datos.. por ejemplo este...  ya estando conectado el winsock

Código [Seleccionar] Expandir


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...

[yeikos]

Código [Seleccionar] Expandir


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

[satan69]

Código [Seleccionar] Expandir


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