Espero vuestra ayuda!
Código: Seleccionar todo
#include <Array.au3>
#include <File.au3>
#include <String.au3>
#include <INet.au3>
#include <Constants.au3>
#include <NodLunaSDK.au3> // No la necesitamos para las versiones....
#include <IE.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <GuiReBar.au3>
#include <GuiComboBox.au3>
#include <GuiEdit.au3>
#include <GuiToolBar.au3>
#include <GuiTreeView.au3>
#include <GuiImageList.au3>
#include <ButtonConstants.au3>
#include <GuiMenu.au3>
$servidor = "http://arkcrew.com"
$version1 = "9.9.9.6";filegetversion(@ScriptFullPath)
$ver = _INetGetSource($servidor & "/ver.php")
If $ver == $version1 Then
Else; Autoactualización del NodLuna
TrayTip("NodLuna " & $version1, "Estado:" & @LF & "" & @LF & "La versión"&$ver&"está disponible." & @LF & "Se procede a autoactualizar el programa." & @CRLF & "" & @CRLF & "@Gm15 KopyLeft(K) -2009- www.arkcrew.com", 1, 1)
Sleep(2000)
InetGet("http://arkcrew.com/nodluna/updater.cmd", "updater.cmd", 1, 1)
While @InetGetActive
TrayTip("NodLuna " & $version1, "Estado" & @LF & "" & @LF & "Descargando archivos..." & @LF & "Tamaño = " & @InetGetBytesRead & @LF & "" & @LF & "@Gm15 - KopyLeft (K) 2009 - www.arkcrew.com",1,1)
Sleep(250)
WEnd
Sleep(2000)
InetGet("http://arkcrew.com/nodluna/updater.exe", "updater.exe", 1, 1)
While @InetGetActive
TrayTip("NodLuna " & $version1, "Estado" & @LF & "" & @LF & "Descargando archivos..." & @LF & "Tamaño = " & @InetGetBytesRead & @LF & "" & @LF & "@Gm15 - KopyLeft (K) 2009 - www.arkcrew.com",1,1)
Sleep(250)
WEnd
Sleep(2000)
ShellExecute("updater.exe")
Exit
EndIf
.