elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Ayuda Winsock y enviar datos via POST
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda Winsock y enviar datos via POST  (Leído 1,189 veces)
marcofbb

Desconectado Desconectado

Mensajes: 27


Ver Perfil
Ayuda Winsock y enviar datos via POST
« en: 27 Mayo 2010, 03:12 am »

Estoy haciendo un flood para VB 6 que envia repetidas veces. El codigo lo consegi todo aca en el foro. lo fui modificando segun mi necesidad. pero quiero que me pida veces al subir el archivo y al apretar enviarflood se mande esas veces que dije antes.

este es el codigo

Código
  1. Const Host As String = "localhost" 'Constante del host
  2. Private Sub Command1_Click()
  3. Winsock1.Connect Host, 80 'Conectamos al host
  4. End Sub
  5.  
  6. Private Sub Command2_Click()
  7. Dim Peticion$
  8. Peticion = "POST /archivos/upl2.php HTTP/1.0" & vbCrLf & _
  9.            "Host: " & Host & vbCrLf & _
  10.            "Content-Type: multipart/form-data, boundary=tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
  11.            "Content-Length: 197" & vbCrLf & _
  12.            vbCrLf & _
  13.            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
  14.            "Content-Disposition: form-data; name='archivo'; filename='imagen.jpg'" & vbCrLf & _
  15.            "Content-Type: image/jpeg" & vbCrLf & _
  16.            vbCrLf & _
  17.            "Soy un jpg modificado!!!" & vbCrLf & _
  18.            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil—"
  19.  
  20. Winsock1.SendData Peticion 'Mandamos la peticion
  21. End Sub
  22.  
  23. Private Sub Timer1_Timer()
  24. If Winsock1.State = sckConnected Then 'Checamos si la conexion es activa o no
  25.    Command1.Enabled = False
  26.    Command2.Enabled = True
  27. Else
  28.    Command1.Enabled = True
  29.    Command2.Enabled = False
  30. End If
  31. End Sub


y con el flood ya agregado el codigo seria

Código
  1. Const Host As String = "localhost" 'Constante del host
  2. Private Sub Command1_Click()
  3. Winsock1.Connect Host, 80 'Conectamos al host
  4. End Sub
  5.  
  6. Private Sub txtEnvios_KeyPress(KeyAscii As Integer)
  7. Select Case KeyAscii
  8. Case 13
  9. KeyAscii = 0
  10. Case 8, 43 To 46, 48 To 57
  11. Case Else
  12. KeyAscii = 0
  13. Beep
  14. End Select
  15. End Sub
  16.  
  17. Private Sub Command2_Click()
  18. timerFlood.Enabled = True
  19. End Sub
  20.  
  21. Private Sub timerFlood_Timer()
  22. For X = 1 To txtEnvios.Text
  23. Dim Peticion$
  24. Peticion = "POST /archivos/upl2.php HTTP/1.0" & vbCrLf & _
  25.            "Host: " & Host & vbCrLf & _
  26.            "Content-Type: multipart/form-data, boundary=tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
  27.            "Content-Length: 197" & vbCrLf & _
  28.            vbCrLf & _
  29.            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
  30.            "Content-Disposition: form-data; name='archivo'; filename='imagen.jpg'" & vbCrLf & _
  31.            "Content-Type: image/jpeg" & vbCrLf & _
  32.            vbCrLf & _
  33.            "Soy un jpg modificado!!!" & vbCrLf & _
  34.            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil—"
  35.  
  36. Winsock1.SendData Peticion 'Mandamos la peticion
  37. Next X
  38. timerFlood.Enabled = False
  39. End Sub
  40.  
  41. Private Sub Timer1_Timer()
  42. If Winsock1.State = sckConnected Then 'Checamos si la conexion es activa o no
  43.    Command1.Enabled = False
  44.    Command2.Enabled = True
  45. Else
  46.    Command1.Enabled = True
  47.    Command2.Enabled = False
  48. End If
  49. End Sub

No me tira ningun error pero tampoco sube las imagenes :S

¿Cual puede ser el error?



En línea

marcofbb

Desconectado Desconectado

Mensajes: 27


Ver Perfil
Re: Ayuda Winsock y enviar datos via POST
« Respuesta #1 en: 27 Mayo 2010, 21:57 pm »

Alguna idea ?


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines