Febrero 25, 2018, 01:36:19 pm

Autor Tema: [VB] Actualizador  (Leído 5880 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Root XOR

  • Moderador
  • *****
  • Mensajes: 401
  • Sexo: Masculino
  • Exclusive Root
    • Ver Perfil
[VB] Actualizador
« en: Diciembre 11, 2011, 11:12:06 pm »
Pequeño programa que realiza la actualización del ejecutable de alguna aplicación

Se necesita el siguiente código en el proyecto que utilizara el Actualizador.

Un Modulo,
Código: (Update.vb) You are not allowed to view links. Register or Login
Imports System.Net.WebClient
Module Update
    Private UPDATED As Boolean
    Private RutaAPL As String = "http://" & My.Settings.Servidor & "/" & My.Settings.Ubicacion & "/" & Application.ProductName
    Private Sub CHKUPDATE()
        Dim URL As String = RutaAPL & "/version.txt"
        Dim LOC As String = Application.StartupPath & "\version.txt"
        WebClient1.DownloadFileAsync(New Uri(URL), LOC)
    End Sub
    Private Sub STATUSUPDATE() Handles WebClient1.DownloadFileCompleted
        Dim LOC As String = Application.StartupPath & "\version.txt"
        Dim Read As String = My.Computer.FileSystem.ReadAllText(LOC)

        If Read = Application.ProductVersion Then
            UPDATED = True
        End If

        If Not Read = Application.ProductVersion Then
            If Read = "" Then
                MsgBox("Error al Comprobar la version Actual por favor comuniquese con el departamento de sistemas.", MsgBoxStyle.Critical, "ERROR")
                UPDATED = True
            Else
                MsgBox("La Aplicacion no esta Actualizada, Iniciando el Actualizador", MsgBoxStyle.Exclamation, "AVISO")
                UPDATED = False
            End If
        End If
        MAKEUPDATE()
    End Sub

    Private Sub MAKEUPDATE()

        If UPDATED = False Then
            Dim UrlUP As String = RutaAPL & "/Updater.exe"
            Dim ruta As String = Application.StartupPath & "\Updater.exe"

            If Exists(ruta) Then
                Process.Start(ruta)
            Else
                MsgBox("No se encuentra el actualizador." & vbCrLf & "Se Procedera a descargarlo y Ejecutarlo", MsgBoxStyle.Exclamation, "ATENCION")
                WebClient2.DownloadFile(New Uri(UrlUP), ruta)
                MAKEUPDATE()
            End If
            End
        End If
    End Sub
End Module
Desde la aplicación en el formulario Principal se debe realizar el Siguiente llamado de Función
Código: You are not allowed to view links. Register or Login
CHKUPDATE()

El codigo De el Programa que realizara la descarga de la neuva version es:

Código: You are not allowed to view links. Register or Login
Imports System.Net
Public Class frmDownldr

    Private URL As String = "http://" & My.Settings.Servidor & "/" & My.Settings.Ubicacion & "/" _
                            & My.Settings.Programa & "/" & My.Settings.Programa & ".exe"
    Private LOC As String = Application.StartupPath & "\" & My.Settings.Programa & ".exe"

    Private Sub frmDownldr_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        tmrStart.Enabled = True
    End Sub

    Private Sub DWNLDUPDATE()
        tmrStart.Enabled = False
        WebClient1.DownloadFile(New Uri(URL), LOC)
        MsgBox("Se completo la descarga de la nueva version", MsgBoxStyle.Information = MsgBoxStyle.OkOnly, "TODO BIEN")
        Process.Start(LOC)
        End
    End Sub

    Private Sub tmrStart_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrStart.Tick
        DWNLDUPDATE()
    End Sub
End Class

Dudas, Por Aqui

Saludos,


Desconectado .:.IlcOn14.:.

  • Yo vivo en CPH
  • ***
  • Mensajes: 1146
  • Sexo: Masculino
  • Simplemente Pro
    • Ver Perfil
Re:[VB] Actualizador
« Respuesta #1 en: Diciembre 12, 2011, 10:31:29 am »
Muy muy muy muy muy bueno r00t3x0r! :D
Fuck Youuuuuuuuu (8)(8)


exclamation
Actualizador de Ventanas

Iniciado por maxx93

6 Respuestas
1108 Vistas
Último mensaje Agosto 26, 2010, 11:18:46 am
por maxx93
xx
ACTUALIZADOR [AYUDA]

Iniciado por djgado

1 Respuestas
787 Vistas
Último mensaje Julio 21, 2011, 10:04:05 pm
por linkgl
question
Como hacer un Actualizador de un programa en VB6

Iniciado por Lordzito

8 Respuestas
2102 Vistas
Último mensaje Enero 28, 2012, 11:56:16 am
por Mr. X
question
Ayuda a encontrar problema en Actualizador

Iniciado por Lordzito

4 Respuestas
1011 Vistas
Último mensaje Abril 06, 2011, 04:31:41 pm
por Lordzito
xx
Upgen segunda version!!! actualizador del nod32

Iniciado por EL_luLE

0 Respuestas
3057 Vistas
Último mensaje Abril 21, 2008, 08:42:24 pm
por EL_luLE
xx
Como podriamos hacer un actualizador en Visual Basic?

Iniciado por Yucks

6 Respuestas
3912 Vistas
Último mensaje Abril 16, 2009, 02:41:55 pm
por Yucks
question
Hacer que actualizador creado en VB6 detecte versiones pero el primer digito.

Iniciado por Lordzito

4 Respuestas
1941 Vistas
Último mensaje Junio 15, 2012, 03:42:38 am
por th3y