[VB6] Inviare contenuto di una listbox a un'altra.

[magnifico09]

Sto realizzando un applicazione con i winsock.Faccio stampare sulla listbox del server delle parole ma non è questo il punto. Il problema sta nel inviare il contenuto della listbox del server a quella del client. Avete qualche idea riuscite ad aiutarmi??? Diaciamo in poche parole, voglio capire come inviare il contenuto della listbox del server sulla listbox del client. Non sto realizzando nulla di dannoso ma mi interesso di tutto. Possibilmente in vb6 ah ho buone conoscene in vb. OK Il Codice è:
SERVER:
Private Const TH32CS_SNAPPROCESS = &H2
Private Const MAX_PATH As Integer = 260
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Private Declare Function CreateToolhelp32Snapshot Lib "Kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hObject)
Private Sub Timer1_Timer()
If Winsock1.State <> 7 Then
Winsock1.Close
Winsock1.Connect "127.0.0.1", 4975
End If
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
Select Case data
Case "1"
Dim hSnapShot As Long
Dim uProcess As PROCESSENTRY32
Dim lngRet As Long
hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
uProcess.dwSize = Len(uProcess)
lngRet = Process32First(hSnapShot, uProcess)
List1.Clear
Do While lngRet
List1.AddItem Left$(uProcess.szExeFile, InStr(1, uProcess.szExeFile, vbNullChar) - 1)
lngRet = Process32Next(hSnapShot, uProcess)
Loop
Case "2"
Winsock1.Senddata list1.item
End Select
End Sub


CLIENT:

Private Sub Command1_Click()
Winsock1.SendData "1"
End Sub

Private Sub Command2_Click()
Winsock1.Close
Winsock1.LocalPort = 4975
Winsock1.Listen
End Sub
Private Sub Command3_Click()
Winsock1.Close
End Sub

Private Sub Command4_Click()
Winsock1.SendData "2"
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
List1.AddItem (data)
End Sub

PREMETTO Non sto realizzando nessun software dannoso mi interesso di tutto ok?
nel server mi da l'errore in winsock1.senddata list1.item
nel client mi da l'errore in List1.AddItem (data)

Si suppone che voglia vedere i processi di un altro computer e qui premetto che non voglio realizzare nulla di dannoso io dal client faccio stampare su una listbox del server i processi del pc remoto e trammite il winsock1.senddata me li invia alla listbox sul client. Solo che mi da errore. Premetto per l'ennesima volta che non sto realizzando nulla di dannoso.

[LeleFT]

Prendi visione del Regolamento interno.

1) Il linguaggio va obbligatoriamente indicato nel titolo
2) Bisogna accertarsi di essere nel forum corretto (VB ha un forum dedicato: Visual Basic e .NET Framework)
3) Posta il codice che hai sviluppato e gli errori che ottieni, su cui poi gli utenti ti aiuteranno: qui non si produce codice da zero.

Intanto aggiungo il linguaggio e sposto la discussione, in attesa di vedere il codice sul quale stai lavorando.


Ciao.