problema nella gestione thread [vb.net]

[manuel 66]

Buongiorno a tutti, sto creando un programma per la condivisione di file che si articola in:
-client1 (invia i dati)
-client2 (riceve i dati)

con il client 1 nn ho problemi ed ecco il codice del thread:


Private Sub trasmetto1()

Control.CheckForIllegalCrossThreadCalls = False

Dim buff As Integer = buffer.Text
Dim c As Integer = 0
Dim totinv As Integer = 0
Dim nb As Integer = Math.Floor(peso / buff)

Dim res As Integer = (peso - (nb * buff)) 'controlla se avanza qualche byte dalla vivisione del peso dal buffer
sendinfo(ext & "/" & peso & "/" & buff & "/" & nb & "/" & res)


Thread.Sleep(5000)


For c = 0 To nb - 1
Dim space As New FileStream(path, FileMode.Open, FileAccess.Read)
space.Seek(c * buffer.Text, SeekOrigin.Current)
Dim tmp(buff) As Byte
space.Read(tmp, 0, buff)
Thread.Sleep(Delay.Text)
connection.Write(tmp, 0, buff)
space.Close()
totinv = totinv + buff
Dim perc As Decimal = ((totinv / peso) * 100)
Label4.Text = perc.ToString("0.00") & " %"
barra.Value = totinv
Next

Thread.Sleep(1000)

If res > 0 Then
Dim space1 As New FileStream(path, FileMode.Open, FileAccess.Read)
space1.Seek(nb * buffer.Text, SeekOrigin.Current)
Dim tmp1(res) As Byte
space1.Read(tmp1, 0, res)
Thread.Sleep(1000)
connection.Write(tmp1, 0, res)
space1.Close()
End If



Label4.Text = "0,00 %"
barra.Value = 0
totinv = 0


'inv1.Suspend()
'inv1.Abort()
en = 1 'abilitato
End Sub


il problema che avevo qui e che ho nel client 2 e che la prima volta che uso il thread.. tutto ok il file viene ricevuto/inviato correttamente, ma la 2 volta..
i thread mi saltavano le istruzioni(if,aggiornamento variabili,msgbox)
nel client 1 ho risolto cosi:

prima avevo semplicemente cosi:

dim inv1 as new thread(adressof trasmetto1)

poi ho risolto con:

dim inv1 as thread

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

inv1=new thread (addressof trasmetto1)
inv1.Start()

End Sub



invece questo non funziona nel client2.. perche ??


Private Sub wait()

Dim file(8192) As Byte


Control.CheckForIllegalCrossThreadCalls = False
tcp = listener.AcceptTcpClient
While (1 > 0)

Try

connection = tcp.GetStream
connection.Read(file, 0, buffer) 'steam mod qui
connection.Flush()



If c = 0 Then
Dim txt As String = ASCII.GetString(File)
txt = txt.Trim

ext = txt.Substring(0, txt.IndexOf("/"))
Label5.Text = "ext: " & ext
txt = txt.Replace(ext & "/", "")
peso = txt.Substring(0, txt.IndexOf("/"))
Label6.Text = "Byte: " & peso
txt = txt.Replace(peso & "/", "")
'barra.Maximum = peso
buffer = txt.Substring(0, txt.IndexOf("/"))
Label7.Text = "buff: " & buffer
txt = txt.Replace(buffer & "/", "")
block = txt.Substring(0, txt.IndexOf("/"))
Label8.Text = "part: " & block
txt = txt.Replace(block & "/", "")
res = txt
Label2.Text = "Res: " & res
barra.Maximum = peso



MsgBox("rivato il tutto")



canc(file)

Try
space = New FileStream("ciao" & ext, FileMode.Create, FileAccess.Write)
Catch
MsgBox("Errore, impossibile creare il File", , "Download")
Exit Sub
End Try

Else
Beep()
space.Write(file, 0, buffer)
tot = tot + buffer
barra.Value = tot
Label4.Text = "peso: " & tot
If tot = peso Then
barra.Value = 0
Label1.Text = "0,00 %"
tot = 0
res = 0
c = -1
i = 0
space.Close()
'<<<<<<<<<<<<<
'receiver.Abort()
'>>>>>>>>>>>>>>>
Beep()
End If
Dim perc As Decimal = (tot / peso) * 100
Label1.Text = perc.ToString("0.00") & " %"
Label3.Text = "Pass: " & c
If c = block Then
buffer = res
End If
canc(file)

End If
c = c + 1
Catch
End Try

End While
End Sub

tutte le correzioni e consigli son ben accetti, grazie.