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 - Uploader
Forum - Visual Basic 6 - Uploader

Pagine: [ 1 2 3 4 ] Precedente | Prossimo
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 1:00
Giovedì, 01/01/1970
Ciao a tutti,
sono nuovo del forum. Leggendo i vari post ho visto che avete le competenze necessarie, spero, per potermi aiutare.
Ho un problema che non riesco a risolvere.
Praticamente ho sviluppato un programma Client/Server, ma che ha ancora bisogno di essere perfezionato, quindi devo effettuare varie modifiche.
Il mio problema è che sto cercando di sviluppare un programmino, un downloader. Lo so che esitono già dei downloader in questo sito, ma nessuno fa al caso mio.
Io vorrei caricare il programma compilato su un dominio a cui posso accedere tramite semplice URL (http:\\www.xxxx.xx\XX\xxxxxx.exe)
Ora vorrei dare la possibilità al mio programma di scaricarsi il compilato da questo URL, ma solo nel caso in cui la propria data di creazione sia precedente a quella del compilato presente all'URL.
So che bisogna usare delle API, ma non ho idea di quale serva al mio bisogno. Vi prego, aiutatemi, per favore!:d

P.S. Avrei bisogno, se possibile del codice che mi permette di farlo e quale libreria importare.

Ultima modifica effettuata da il 03/10/2007 alle 12:14
PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 16:13
Mercoledì, 03/10/2007
Nessuno può aiutarmi?? Vi prego!8-|8-|8-|8-|

PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 14:05
Giovedì, 04/10/2007
io avevo un problema simile ma al posto di guarare la versione del programma aveo creato un file txt in remoto e in locale col numero di versione maggiore.
se non coincidevano, riscaricava.

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 18:33
Giovedì, 04/10/2007
Si, infatti in questo momento ho usato questo metodo, anche se con una variante. Invece di creare un file di txt anche in locale, leggo la data di creazione del file EXE locale perchè ho notato che quando scarico la nuova versione, la data viene modificata con la data di download.
Non mi andava di scrivere altro codice per modificare il file di testo locale :D

Aspetto, cmq che qualcuno mi aiuti a risolvere il problema leggendo la data di creazione del file EXE remoto.

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 23:22
Venerdì, 05/10/2007
Allora ragazzi, anche se nessuno è riuscito a darmi una mano a parte P4p3r0g4, non è che me ne sono stato con le mani in mano ed ho cmq cercato di realizzare quello che volevo ... e ci sono riuscito.:k:
Come si dice!? Chi la dura la vince :asd:
Vi posto il codice perchè sono sicuro che a qualcuno interesserà. Basterà copiarlo e, de non ho dimenticato di scrivere qualcosa, mandarlo in esecuzione facendo le dovute modifiche.
Sono a disposizione per qualsiasi chiarimento, ammesso che sia in grado di farlo :D
Codice sorgente - presumibilmente VB.NET

  1. '  mettere i riferimenti a Microsoft Scripting Runtime (Progetto-->Riferimenti...)
  2.     ' ed importare il componente Microsoft Internet Transfer Controls 6.0
  3.     ' Inserire l'oggetto Inet su di una form, e copiare il codice nella sub Form_Load
  4. Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
  5. Private Declare Function DeleteUrlCacheEntry Lib "Wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
  6.  
  7. Dim msg, creazione As String
  8.  
  9. Private sub Form_Load()
  10.     Dim filespec As String
  11.     Dim fso As Scripting.FileSystemObject
  12.     Dim erFile As Scripting.File
  13.     Dim retVal As Integer
  14.    
  15.     Inet1.AccessType = icUseDefault
  16.     Inet1.Protocol = icHTTP
  17.     Inet1.RequestTimeout = 60
  18.     Inet1.URL = "http://www.miodominio.net/dir/ProgrammaRemoto.exe"
  19.    
  20.     Inet1.Execute Inet1.URL, "GET"
  21.     Do While Inet1.StillExecuting: DoEvents: Loop
  22.    
  23.     dimensione = Inet1.GetHeader("Content-length")
  24.     creazione = Inet1.GetHeader("last-modified")
  25.     creazione = Replace(Mid$(creazione, 6, 11), " ", "")
  26.     ' @mese, restituisce il corrispettivo valore numerico del mese ottenuto
  27.     ' perchè GetHeader restituisce la data nel formato 01 Jan 2000
  28.     ' {è un semplice Select case sui possibili mesi}
  29.     '
  30.     ' #Private Function mese(ByVal month As String) As String
  31.     creazione = Mid$(creazione, 1, 2) & "/" & mese(Mid(creazione, 3, 3)) & "/" & Mid(creazione, 6, 9)
  32.     creazione = DateValue(creazione)
  33.     filespec = App.Path & "\ProgrammaLocale.exe"
  34.     Set fso = CreateObject("Scripting.FileSystemObject")
  35.     If (fso.FileExists(filespec)) Then
  36.         Set erFile = fso.GetFile(filespec)
  37.         msg = erFile.DateLastModified
  38.         msg = Mid$(msg, 1, 10)
  39.     Else
  40.         MsgBox filespec & " non esiste.", vbCritical
  41.         End
  42.     End If    
  43.     msg = DateValue(msg)
  44.     If DateDiff("d", msg, creazione) > 0 Then
  45.         retVal = URLDownloadToFile(0, "http://www.miodominio.net/dir/ProgrammaRemoto.exe", App.Path + "/ProgrammaLocale.exe", 0, 0)
  46.         MsgBox "Programma aggiornato. Avvio dell'applicazione in corso."
  47.     Else
  48.         MsgBox "Non è necessario nessun aggiornamento. Avvio dell'applicazione in corso."
  49.     End If
  50.     Shell App.Path & "\ProgrammaLocale.exe"
  51.  
  52.     Inet1.Execute , "CLOSE"
  53.     Do While Inet1.StillExecuting: DoEvents: Loop
  54. End if



P.S.: Se fosse possibile a qualche moderatore, cambiare il titolo del post in qualcosa di + attinente, magari con Uploader non è facile trovarlo.:D:rotfl:

Ultima modifica effettuata da il 05/10/2007 alle 23:25
PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 14:55
Sabato, 06/10/2007
perchè non lo pubblichi come programma sul sito?

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 18:19
Sabato, 06/10/2007
Testo quotato

Postato originariamente da P4p3r0g4:

perchè non lo pubblichi come programma sul sito?



In che senso?
Come si fa? Non sono pratico di questo di forum.:-|

PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 19:43
Sabato, 06/10/2007
devi prima diventare membro così puoi caricare i tuoi prog sul sito e altro...

PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 19:43
Sabato, 06/10/2007
devi prima diventare membro così puoi caricare i tuoi prog sul sito e altro...

PM Quote
Pagine: [ 1 2 3 4 ] Precedente | Prossimo