xmattex (Normal User)
Newbie
Messaggi: 9
Iscritto: 24/06/2008
|
Ciao a tt, ho provato con il tasto search ma niente, volevo saprere una cosa:
è possibile creare 2 form:
nella form1 è quella che devo spiegarvi cosa volgio fare
nella form2 metto il programma
io vorrei fare che nella form 2 c'è un codice che se rileva l'aggiornamento, sul sito dove lo ho hostato, lo scarica; se invece non c'è passa direttamente al form2 senza nemmeno far visualizzare la 1.
è possibile?? ciao
|
|
antometal (Member)
Guru
Messaggi: 691
Iscritto: 12/09/2007
|
si che è possible
dovresti usare il componente inet
una volta per verificare le prensenza dell' aggiornamento
e una seconda volta per scaricare il file aggiornato
|
|
xmattex (Normal User)
Newbie
Messaggi: 9
Iscritto: 24/06/2008
|
non sono praticissimo di vb6, conosco solo i modi x fare i programmi + semplici e nn ho mai sentito parlare di qst componente. ho fatto ora una ricerca rapida anke su qst sito e ho trovato un topic solo su inet ma nn ho capito molto.
il codice sarebbe così: Inet1.Execute e poi l'url del file ke deve essere scaricato e dopo metto, se non c'è upload, form2.show??
siate pazzienti cn me ho anko molto da imparare
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
x scaricare un file con inet:
Codice sorgente - presumibilmente VB.NET |
Public Sub DownloadBinaryFile(strSourceFile As String, strDestinationFile As String) 'Parametri input: 'strSourceFile: URL del file completo del nome (es."www.miosito.xxx\zippato.zip") 'Parametri output 'strDestinationFile : Percorso e nome del file da salvare Dim bytInputData() As Byte Dim IntNumberFile As Integer bytInputData() = inet1.OpenURL(strSourceFile, icByteArray) IntNumberFile = FreeFile Open strDestinationFile For Binary As #IntNumberFile Put #IntNumberFile, , bytInputData() Close #IntNumberFile End Sub
|
|
|
xmattex (Normal User)
Newbie
Messaggi: 9
Iscritto: 24/06/2008
|
grz cmq vb6 mi dà errore mi sà ke è meglio ke lascio perdere. Io metto così il codice:
Codice sorgente - presumibilmente VB.NET |
Public Sub DownloadBinaryFile(strSourceFile As String, strDestinationFile As String) 'Parametri Input: strSourceFile: ("www.miosito.dsa/file.exe") 'Parametri Output strDestinationFile: ("C:\Programmi\Vari") Dim bytInputData() As Byte Dim IntNumberFile As Integer bytInputData() = inet1.OpenURL(strSourceFile, icByteArray) IntNumberFile = FreeFile Open strDestinationFile For Binary As #IntNumberFile Put #IntNumberFile, , bytInputData() Close #IntNumberFile End Sub
|
eppure mi da errore nella parte dove metto il link.
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Ho visto ke nel codice hai messo:
'Parametri Input:
strSourceFile: ("www.miosito.dsa/file.exe")
'Parametri Output
strDestinationFile: ("C:\Programmi\Vari")
invece sn commenti cioè:
'Parametri Input:
'strSourceFile: ("www.miosito.dsa/file.exe")
'Parametri Output
'strDestinationFile: ("C:\Programmi\Vari")
Se ti da errore in qualkosa cmq specifica cosa ti dice...
|
|
xmattex (Normal User)
Newbie
Messaggi: 9
Iscritto: 24/06/2008
|
ora almeno nn mi da + errore in quella parte mi dice solo errore se lascio la scritta del button:
Private sub command1()
end sub
xò io volevo metterlo in un button o direttamente nella form. cmq esiste anke il metodo ke fa automaticamente sovrascrivere il file nuovo dell'update su quello vekkio??
|
|
GrG (Member)
Guru^2
Messaggi: 3430
Iscritto: 21/08/2007
|
Postato originariamente da xmattex:
ora almeno nn mi da + errore in quella parte mi dice solo errore se lascio la scritta del button:
Private sub command1()
end sub
|
Non ho capito dove sta l'errore e poi ti avevo detto di dirmi cosa ti dice vb...
xò io volevo metterlo in un button o direttamente nella form. cmq esiste anke il metodo ke fa automaticamente sovrascrivere il file nuovo dell'update su quello vekkio?? |
bè penso che se esiste già un file con lo stesso nome lo sovrascrive automaticamente... |
|
xmattex (Normal User)
Newbie
Messaggi: 9
Iscritto: 24/06/2008
|
allora io questo codice di autoaggiornamento lo volgio mettere in un bottone o direttamente nella form. Ho provato con il botton e e vb6 mi dice:
expected end sub e mi sottolinea
Codice sorgente - presumibilmente Visual Basic 6 |
Private Sub Command1_Click()
|
credo ke lo sottolinea xk c'è già la scritta
Public Sub ma se la tolgo per mettere Private Sub mi da errore nel pezzo successivo dicendo funzioni non definite.
|
|