Pesquisar na Comunidade
Mostrando resultados para as tags ''autoupdate''.
Atualmente, o índice de pesquisa está sendo processado. Os resultados atuais podem não estar completos.
Encontrado 1 registro
-
Bom Membros Da WebCheat Hoje Estou trazendo uma Source De Auto Update Para Loader ou Outros Progama Que Você Irá Criar ! 1- Crie Seu Projeto ! 2- Após Ter Criado De Dois Clique No Form 3- Cole O Code Que Você Irá Pega Logo Abaixo ! 4- Depois De Colar Você Irar modificar Os Host Para o Seu ! 5- Você Vai Criar um Bloco De Notas e Escreve a versão Do Seu Progama Nele 6- E Vai Salvar com o nome versao.txt ; Versão Voce DigitaAssim :[Hidden Content] 7- Apos Colocar O Codigo no Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Vocês Irão Public Class Form1 e Dar um Enter Para ele ir para baixo e colar Esse codigo que Está No Print (Print = [Hidden Content] ) 8- De F7 ou F11 E Seja Feliz Se Gostou Deixa Aquela Curtida haha Source Code 01 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load If System.IO.Directory.Exists("C:\Windows\Pasta") Then System.IO.Directory.Delete("C:\Windows\Pasta") End If If MessageBox.Show("Primeira Vez No Nosso Loader ? , Veja O Tutorial ", "Duvida|Tutorial", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = MsgBoxResult.Yes Then Process.Start("www.youtube.com") ' Link Do Video Tutorial Do Seu Loader End If Dim web As New WebClient 'Para o Download Da Nova Atualização Dim UltimaVersao As String = web.DownloadString("wwww.seuhost.com/versão") 'Para verificar a versão atual e decidir se há ou não updates. Dim VersaoDessePrograma As String = My.Application.Info.Version.ToString 'Encontra a versão do programa. If VersaoDessePrograma < UltimaVersao Then If MessageBox.Show("Detectamos Uma Nova Versão Do Loader!" & vbNewLine & "Você Deseja Atualizar?", "Update", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then 'Messagebox perguntando se a atualização deve ou não ser feita. My.Computer.Network.DownloadFile("www.seuhost.com/Loader.exe", Application.StartupPath & "\Atualizado\Loader.exe") 'Se for escolhido Yes, será baixada a nova versão do programa e criada uma nova pasta para colocar o arquivo baixado. MsgBox("O Seu Loader foi atualizado com sucesso, Apague a versão anterior! , E Inicie A Nova Versão " & vbNewLine & "O Loader vai ser Fechado.") 'Dizendo que o aplicativo vai fechar End 'Sai do aplicativo Else 'Se escolherem não End If Else MsgBox("O Seu Loader Está Loader já está atualizado", vbInformation, "Atualizado") 'Informa que o programa ja estava atualizado. Timer1.Start() If IO.File.Exists("C:\Windows\Pasta\Laoder.exe") Then IO.File.Delete("C:\Windows\Pasta\Loader.exe") End If End If Demostração [Hidden Content] Desculpe Pela Má Qualidade Do Video.
- 2 respostas
-
- 7
-
-
- autoupdate
- loader
- (e 5 mais)
