codice:
Public Class Form1
Dim N As Integer
Dim I As Integer
Dim fatti_inviati As Integer
Dim Rimanenti As Integer
Dim Pausa As Integer
Dim Pausa2 As Integer
Dim User As Integer
Dim Chiudo As Integer
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliSeconds As Long)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If username.Text = "Inserisci Username" Then
User = MessageBox.Show("Non posso inviare, inserisci username! Vuoi inserirlo in una InputBox?", "Vuoi inserire?", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
If User = vbYes Then
username.Text = InputBox$("Immettere l'username:", "Username")
End If
ElseIf username.Text = "" Then
User = MessageBox.Show("Non posso inviare, inserisci username! Vuoi inserirlo in una InputBox?", "Vuoi inserire?", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
If User = vbYes Then
username.Text = InputBox$("Immettere l'username:", "Username")
End If
ElseIf username.Text = " " Then
User = MessageBox.Show("Non posso inviare, inserisci username! Vuoi inserirlo in una InputBox?", "Vuoi inserire?", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
If User = vbYes Then
username.Text = InputBox$("Immettere l'username:", "Username")
End If
Else
Pausa = n_pausa.Text
Pausa2 = Pausa * 1000
N = invia_n_volte.Text
fatti_inviati = "0"
For I = 1 To N
ProgressBar1.Value = 0
'QUI DEVO INSERIRE IL POST AL MODULO, IL DATO DA INVIARE E' SOLO USERNAME CHE E' IN UNA TEXT BOX!
fatti_inviati = fatti_inviati + 1
Rimanenti = N - fatti_inviati
Label9.Text = Rimanenti.ToString
Label7.Text = fatti_inviati.ToString
Label13.Show()
Label13.Update()
Label7.Update()
Label9.Update()
ProgressBar1.Value = 100
Label8.Text = "Dati inviati...".ToString
Label8.Update()
If Rimanenti = "0" Then
Label8.Text = "Invio completato...".ToString
Label8.Update()
MessageBox.Show("Ho terminato l'invio, ti ricordo che inviato queste volte i dati:" & fatti_inviati)
ProgressBar1.Value = 0
Else
Sleep(Pausa2)
End If
Next I
End If
Label13.Hide()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Chiudo = MessageBox.Show("Sei sicuro di voler uscire?", "Sei sicuro?", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Chiudo = vbYes Then
Close()
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label13.Hide()
End Sub
End Class
Posto un immagine di come ho strutturato la grafica...
Ricordo che devo mettere solo il POST, tutte le altre richieste sono apposto!
Grazie a tutti
Rispondi quotando
Che vuol dire??? 