Sono d'accordo con ciro...va bene controllare ma in fondo stiamo solo postando codice riutilizzabile anche da altri,.....infatti inserisco il link qui...tie!
codice:
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long,
ByVal lpOperation As String, ByVal lpFile As String,
ByVal lpParameters As String, ByVal lpDirectory As String,
ByVal nShowCmd As Long) As Long
Dim Status As String
Dim File As String
------------------------------------------------
'Comando per controllare l'aggiornamento
Private Sub Command1_Click()
'IMPORTANT: Inserire il path del sito web al posto di quello di esempio
Status = Inet1.OpenURL("file://" & App.Path & "\status.txt")
File = Inet2.OpenURL("file://" & App.Path & "\file.txt")
'for example your site is http://microsoft.com
'then type "http://microsoft.com/statusfile.txt"
'and "http://microsoft.com/file.txt"
Timer1.Enabled = True
End Sub
'controllo del file e dell'aggiornamento
Private Sub Timer1_Timer()
If Status = "1" Then
msgbox "Nuova versione disponibile."
launch 'per scaricare l'aggiornamento
Else
msgbox "Nessun aggiornamento disponibile"
launch2 'per visitare semplicemente il sito
End If
End Sub
'procedure per lanciare il recupero
Sub Launch()
ShellExecute Me.hwnd, "open", File, "", 0, 1
End Sub
Sub Launch2()
ShellExecute Me.hwnd, "open", "http://sito.com", "", 0, 1
End Sub
Si gioca tutto sulla presenza di questi due files, status.txt e file.txt
Sul primo è segnato lo stato...se il numero al suo interno è diverso da quello dello stesso file sul sito allora c'è un aggiornamento, altrimenti non ve ne sono
