Imprimir Página - enviar varias veces senddata

Título: enviar varias veces senddata
Publicado por: 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

Título: Re: enviar varias veces senddata
Publicado por: 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

Título: Re: enviar varias veces senddata
Publicado por: satan69 en 1 Junio 2007, 01:37 am

Cita de: Red Mx en 31 Mayo 2007, 23:10 pm

no funciona ....

Título: Re: enviar varias veces senddata
Publicado por: yeikos 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

Código:

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

Título: Re: enviar varias veces senddata
Publicado por: satan69 en 1 Junio 2007, 03:49 am

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

Código:

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

Título: Re: enviar varias veces senddata
Publicado por: yeikos en 1 Junio 2007, 10:01 am

Código:

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

Título: Re: enviar varias veces senddata
Publicado por: satan69 en 1 Junio 2007, 18:36 pm

Cita de: YeIk0s en 1 Junio 2007, 10:01 am

Código:

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: satan69 en 31 Mayo 2007, 22:14 pm