USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Internet)

Título da Dica:  Verificando atualizações para o seu programa "VIA INTERNET" (LiveUpdate)
Postada em 12/3/2004 por Josefh Hennyere         
'Insina num form, 1INET(Microsoft Internet Transfer Control) e um Comand Button)
'Cole o código no Form


Option Explicit

Public Url As String
Public Err As String

Function AddBackSlash(TPathName As String) As String
    If Right(TPathName, 1) = "\" Then AddBackSlash = TPathName Else AddBackSlash = TPathName & "\"
End Function

Private Sub Command1_Click()
Dim VerificaUrl() As Byte
Dim VerificaErr() As Byte

Url = "http://www.jhsmdesigners.kit.net/downloads/msxccv1.1_2000.rar" 'local do arquivo de download
Err = "http://www.jhsmdesigners.kit.net/err.htm" 'esta página não existe, porisso chamei de página de erro

VerificaUrl() = Inet.OpenURL(Url, 1) 'identifica informações do arquivo de download
VerificaErr() = Inet.OpenURL(Err, 1) 'identifica informações da página de erro

If Trim(VerificaUrl()) <> Trim(VerificaErr()) Then  'faz a comparação das páginas

Dim TFile As Long
    TFile = FreeFile
            Open AddBackSlash(App.Path) & "Update.zip" For Binary As #TFile 'Faz o download
                Put #TFile, , VerificaUrl()
            Close #TFile
            MsgBox "Download concluído em " & App.Path & "\Update.zip", vbInformation
Exit Sub
Else
MsgBox "Atualização não disponível", vbCritical
Exit Sub
End If
End Sub


'Josefh Hennyere
 


CyberWEB Network Ltda.    © Copyright 2000-2018   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página