Option Explicit
'#  Quitar Botón Cancelar#
Public Const MF_BYPOSITION = &H400
Public Const MF_REMOVE = &H1000
Public Declare Function DrawMenuBar Lib "user32" _
      (ByVal hwnd As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" _
      (ByVal hMenu As Long) As Long
Public Declare Function GetSystemMenu Lib "user32" _
        (ByVal hwnd As Long, _
        ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" _
        (ByVal hMenu As Long, _
        ByVal nPosition As Long, _
        ByVal wFlags As Long) As Long
 
'#####################################
'#  Progamado por Lordzito               #
'#  Version: 1.0                     #
'# Modulo para actualizar programas  #
'#####################################
'####### Apis!! ######################
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
'#####################################
'####### editar estos valores ########
Const Version = "1.0" 'version del software actual
Const pagver = "http://lordsoft.webcindario.com/version.txt" 'la pagina web donde se encuentra la ultima version, este archivo tiene que contener el último número de versión
Const pagdown = "http://download.piriform.com/ccsetup316.exe" 'donde tengas el ejecutable actualizado
Const tipe = 1 'elegir opcion de descarga de actualizacion 1 = abrir dialogo de descarga 2 = descargar sin pedir confirmación y ejecutar (<- no es recomendado) 3 = abrir dialogo de descarga y cerrar programa
'#####################################
Const acc0 = "Modulo creado por Lordzito" 'ésto no hay que cambiar
Dim ERROR_SUCCESS
Dim sSourceUrl As String
Dim versionA As String
 
Private Function Descargar(ByVal link As String, ByVal slocalfile As String) As Boolean
  Descargar = URLDownloadToFile(0, StrReverse(link), slocalfile, 0, 0) = ERROR_SUCCESS
End Function
 
Private Function DownloadV(ByVal directory As String) As Boolean
sSourceUrl = StrReverse(directory)
Descargar StrReverse(StrReverse(sSourceUrl)), StrReverse(StrReverse(App.Path)) & "\" & UCase("Version.txt")
End Function
 
Private Function nestch()
nestch = " creado por "
End Function
 
Private Function steepA(ByVal directory As String) As Boolean
sSourceUrl = StrReverse(directory)
Descargar StrReverse(StrReverse(sSourceUrl)), StrReverse(StrReverse(App.Path)) & "\" & UCase("NV.exe")
End Function
Private Function verificar(ByVal verssion As String) As Boolean
On Error Resume Next
Dim lordzito As Integer
Dim Versver As String
lordzito = FreeFile
    Open StrReverse(StrReverse(App.Path)) & "\" & UCase("Version.txt") For Input As #lordzito
       Versver = Input(LOF(lordzito), #lordzito)
    Close #lordzito
    If Mid(acc0, 1, Len(acc0)) = sietch Then
        If Versver = Version Then
        MsgBox "  ¡ No hay actualizaciones disponibles por el momento !" & vbNewLine & "¡ ¡ ¡    ya está actualizado ! ! !", vbExclamation, "Actualización"
        Else
        Select Case MsgBox(" ¡ ¡ ¡ Se ha encontrado una nueva actualización ! ! ! " & vbNewLine & "Desea descargar automaticamente la nueva versión?", vbYesNo + vbInformation, "Actualización")
        Case vbYes
     'aca si presiono Si
        actualizar (tipe)
     'aca si presiono No
        Case vbNo
        End
        End Select
        End If
    Else
    MsgBox error25, vbCritical, "ERROR SOBRE DERECHOS DE AUTOR"
    End If
End Function
Private Function actualizar(ByVal streeng As String) As Boolean
If streeng = 1 Then
DoFileDownload StrConv(pagdown, vbUnicode)
ElseIf streeng = 2 Then
steepA (StrReverse(pagdown))
Shell (StrReverse(StrReverse(App.Path)) & "\" & UCase("NV.exe"))
ElseIf streeng = 3 Then
DoFileDownload StrConv(pagdown, vbUnicode)
End
End If
End Function
 
Public Function Buscar_Actualizacion()
Dim strp As Boolean
strp = DownloadV(pagver)
verificar (StrReverse(LCase(UCase(StrReverse(Version)))))
End Function
 
Private Function sietch()
Dim putus As String
putus = StrReverse("Modulo")
putus = StrReverse(putus) & nestch & "Lordzito"
sietch = putus
End Function
 
Private Function error25()
error25 = "El derecho de autor correspondiente a LORDZITO fue cambiado o eliminado"
End Function
 

Const Version = "1.0" 'version del software actual
Const pagver = "http://lordsoft.webcindario.com/version.txt" 'la pagina web donde se encuentra la ultima version, este archivo tiene que contener el último número de versión

 @echo off
reg add "HKCR\Drive\shell\ESCANEADOR" /ve /d "ESCANEAR UNIDAD" /f  > nul
reg add "HKCR\Drive\shell\ESCANEADOR\command" /ve /d "C:\Archivos de programa\prueba\prueba.bat \"%%1\"" /F >Nul
Reg Add "HKCR\Drive\shell\ESCANEADOR" /v "icon" /d "C:\Archivos de programa\prueba\LSAA.ico" /F >Nul 2>&1
pause