Visual Basic 6 - Progettino Client Server

Senti rompo le regole. ti faccio il programma e poi te lo commento tutto. però assicurami che se nel listato anche un solo passaggio non lo capisci chiedi spiegazioni.

noooo,questa è da segnalare!(scherzo)

ok ci sono ho finito. ho modificato un mio vecchio progetto. è molto simile ma non uguale. ho tolto alcune cose e aggiunto altre. spesso si può fare in modo più facile ma ho scritto di fretta tutto quello che veniva in mente. è già debuggato.
attualmente funziona in maniera doppia.
il client può sfogliare le cartelle del server e il server può aggiornare la schermata del client.
la form iniziale del server non è invisibile e è visibile in taskmanager. per renderla invisibile metti form.visble = false e .showintaskbar = false.
attualmente è impostata su server 127.0.0.1 ma basta che cambi l'ip del server e del client beh hai capito no?.
è disponibile in sorgenti vb

ti ringrazio ancora per la tua gentilezza..

e ti ringrazio per tutte le attenzioni!!!

Direi che forse un sorgente del progetto non esisteva.. hai fatto pertanto bene ad inserirlo nei progettini..

ora non mi é rimasta una cosa.. ma vorrei provarla..

prima di chiederti ulteriori spiegazioni..

Il mio attuale intento e scaricare il file che vedo nel mio Locale da Remoto.

Ci proverò..

Il progettino cmq vorrei provarlo da Locale a Remoto..e dovrei provarlo!!!

;-)

grazie ancora.. al risentirci!!!

Avrei ben capito tutto..

Mi son sempre voluto dedicare nell'essere autodidatta, ma anni fa nelle spiegazioni dei protocolli e nel famoso componente Winsock non c era tutto, per cui.. ho dovuto chiedere spiegazioni.

Sarà da molto che programmi in VB, sei rimasto al VB o sei passato al Net ? se posso..

La tua età?

Da quanto programmi in Vb?

Del resto.. puoi anche non rispondermi, ma credo che chiedendo info a una persona così gentile, l'amicizia é cio che prosegue..

Grazie ancora!!!!

Ora, come t ho scritto non mi rimane che.. capire come effettuare il DOWNLOAD di un file che vedo.. ;-)

Ci provo..

;-)

ho 17 anni e programmo in vb da agosto. me lo sono fatto insegnare da un'amico perchè dovevo crearmi un trojan. quando ho finito di crearlo mi sono accorto di saperne abbastanza da poter continuare a creare altri programmi utili.. e da qui il resto.
ieri ho installato il .net mi serve una dannatissima funzone esclusa dal vb6 e non ho la forza di impararmi un'altro linguaggio da solo.

Nel nostro campo non dovremmo soffermarci sui minimi requisiti e i minimi dettagli, ma dovremmo andare avanti.
Io la penso in questo modo..

Grazie ancora di tutto..

continuo il mio progettino per quanto riguarda il download..

spero che se dovessi aver problemi, come solito, posso contattarti..

grazie ancora..

ciao, come và?

potresti darmi un infarinatura sempre sul progetto di cui parlavamo, ma in questo caso per quanto riguarda il Download dei files che vedo?

Per quanto riguarda l' UPLOAD lo faccio in questo modo

Client:

FF = FreeFile
Dim Data As String, Istruzioni As String, i As Double, j As Double, k As Double, h As Double
Dim DatiChat As String, TempMess As Integer, Mess As String

winsock.GetData Istruzioni, vbString
DatiChat = Left(Istruzioni, 2)
Select Case Istruzioni
Case "OK"
Open NomeFile For Binary As FF
k = (DimensioneFile \ 8000) + 1
Do While Not EOF(FF)

i = i + 1

Data = Input(chunk, FF)
winsock.SendData Data
DoEvents
Loop

winsock.SendData "FN"

Close FF

Case "NO"

MsgBox "File rifiutato", vbCritical, "Attenzione"

Case "finito"


MsgBox "Trasferimento file completato", vbInformation, "Trasferimento file"

End Select

Dim data2 As String

data2 = Left(Data, 2)
Select Case data2
Case "FA"
StrTOT = Mid(Data, 3)
POSIZIONE = 0
While InStr(POSIZIONE + 1, StrTOT, " " > 0
POSIZIONE = InStr(POSIZIONE + 1, StrTOT, " "
Wend

NomeFile = Left(StrTOT, POSIZIONE - 1)

DIMENSIONE = CLng(Mid(StrTOT, POSIZIONE + 1))

TESTO = "E' in arrivo un file di nome: " & NomeFile & " desideri accetarlo?"
FA = FreeFile

If MsgBox(TESTO, vbYesNo + vbInformation, "Lan File" = vbYes Then
winsock.SendData "YE"
If dir(NomeFile) <> "" Then
If MsgBox(TESTO3, vbYesNo + vbInformation, "Lan File" = vbYes Then
FileDaSalvare = App.Path & "\" & NomeFile
Kill FileDaSalvare
Else
winsock.SendData "NEIN"
Exit Sub

End If

End If

Open App.Path & "\" & NomeFile For Binary As FA
Else
winsock.SendData "NEIN"
Exit Sub
End If

Case "TR"
winsock.SendData "terminato"
MsgBox "Trasferimento file completato", vbInformation, "Lan file"

Close #1

Case Else

Put FF, , Data

End Select

'----
End Sub

uso un Common Dialog

ho inserito un Text, e due command button

Con il primo Text, creo lo Sfoglia

Private Sub sfoglia_Click()
On Error GoTo y
Dialog.DialogTitle = "Cerca il file da inviare al Server"
Dialog.Filter = "(*.*)|*.*"
Dialog.ShowOpen
NomeFile = Dialog.FileName
DimensioneFile = FileLen(NomeFile)
Nome (NomeFile)
DimensioneFile = FileLen(NomeFile)
car.Caption = car.Caption & NomeFile
y:
End Sub

car.Caption é una Label

e poi il command button

Private Sub manda_Click()
If Client.State = sckConnected Then
file = car.Caption
winsock.SendData "FF" & NomeFile & " " & DimensioneFile
Else
y:
End If
End Sub

che manda il pacchetto chiamato "FF"

DimensioneFile é una variabile

Function Nome(Param As String)
Dim POSIZIONE As Integer
POSIZIONE = 0
While InStr(POSIZIONE + 1, Param, "\" > 0
POSIZIONE = InStr(POSIZIONE + 1, Param, "\"
Wend

NomeFile = Mid(Param, POSIZIONE + 1)
End Function


Server...


Private WinVer As Boolean
Dim Size As Long
Dim StrTOT As String, FileDaSalvare As String, cont As Single
Dim POSIZIONE As Integer
Dim FileDaInviare As String
Dim DIMENSIONE As Long, DimensioneFileInvio
Dim DimensioneFile As Long
Dim NomeFile As String
Private Const chunk = 8000
Dim Cicli As Double, Bytes As Single, BytesTot As Single
Dim FF As Integer
Dim FA As Integer

Dati in Arrivo

Dim data2 As String

Dim TESTO As String, TESTO2 As String, TESTO3 As String
TESTO3 = "Il file esiste già, desideri sovrasriverlo?"
winsock.GetData Data, vbString

data2 = Left(Data, 2)
Select Case data2
Case "FF"
StrTOT = Mid(Data, 3)
POSIZIONE = 0
While InStr(POSIZIONE + 1, StrTOT, " " > 0
POSIZIONE = InStr(POSIZIONE + 1, StrTOT, " "
Wend

NomeFile = Left(StrTOT, POSIZIONE - 1)

DIMENSIONE = CLng(Mid(StrTOT, POSIZIONE + 1))

TESTO = "E' in arrivo un file di nome: " & NomeFile & " desideri accetarlo?"
FF = FreeFile

If MsgBox(TESTO, vbYesNo + vbInformation, "Lan File" = vbYes Then
winsock.SendData "OK"
If dir(NomeFile) <> "" Then
If MsgBox(TESTO3, vbYesNo + vbInformation, "Lan File" = vbYes Then
FileDaSalvare = App.Path & "\" & NomeFile
Kill FileDaSalvare
Else
winsock.SendData "NO"
Exit Sub

End If

End If

Open App.Path & "\" & NomeFile For Binary As FF
Else
winsock.SendData "NO"
Exit Sub
End If

Case "FN"
winsock.SendData "finito"
MsgBox "Trasferimento file completato", vbInformation, "Lan file"

Close #1

Case Else

Put FF, , Data

End Select

'-----

FA = FreeFile
Dim Istruzioni As String, i As Double, j As Double, k As Double, h As Double
Dim DatiChat As String, TempMess As Integer, Mess As String
winsock.GetData Istruzioni, vbString
DatiChat = Left(Istruzioni, 2)
Select Case Istruzioni
Case "YE"
Open NomeFile For Binary As FA
k = (DimensioneFile \ 8000) + 1
Do While Not EOF(FA)

i = i + 1

Data = Input(chunk, FA)
winsock.SendData Data
DoEvents
Loop

winsock.SendData "TR"

Close FA

Case "NEIN"

MsgBox "File rifiutato", vbCritical, "Attenzione"

Case "terminato"


MsgBox "Trasferimento file completato", vbInformation, "Trasferimento file"

End Select

Function Nome(Param As String)
Dim POSIZIONE As Integer
POSIZIONE = 0
While InStr(POSIZIONE + 1, Param, "\" > 0
POSIZIONE = InStr(POSIZIONE + 1, Param, "\"
Wend

NomeFile = Mid(Param, POSIZIONE + 1)
End Function

grazie ancora per la tua gentilezza