-
Notifications
You must be signed in to change notification settings - Fork 0
/
updater.au3
186 lines (186 loc) · 6.74 KB
/
updater.au3
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
;Auto Actualizador (Auto updater)
;Created by Mateo Cedillo.
;Script:
;Including scripts
#include <AutoItConstants.au3>
#include <MsgBoxConstants.au3>
#include "include\translator.au3"
global $idioma = ""
$ReadAccs = iniRead (@scriptDir &"\config\config.st", "Accessibility", "Enable enanced accessibility", "")
func checkupdate($S_Program, $s_executable, $s_DatURL, $s_Window)
$main = GUICreate($s_window)
GUISetState(@SW_SHOW)
sleep(10)
Local $yourexeversion = FileGetVersion($s_executable)
select
case $sLanguage ="es"
$newversion=" Tienes la "
$newversion2=", y está disponible la "
case $sLanguage ="eng"
$newversion=" You have the version "
$newversion2=", And is available the "
endselect
$fileinfo = InetGet($s_DatURL, $S_Program &"Web.dat")
FileCopy($s_Program &"Web.dat", @TempDir & "\" &$S_Program &"Web.dat")
$latestver = iniRead (@TempDir & "\" &$S_program &"Web.dat", "updater", "LatestVersion", "")
if $sLanguage ="Es" then
if $ReadAccs ="Yes" then
select
Case $latestVer = 0
speak("no se ha podido comprovar versión.")
Case $latestVer < $yourexeversion
speak("la versión que hemos buscado es menor a la que tienes.")
Case $latestVer > $yourexeversion
speak("actualización disponible!" & $newversion & $yourexeversion & $newversion2 & $latestver & ". Haz el favor de actualizar o si no, que te den.")
Case $latestVer >= $yourexeversion
speak("estás actualizado. Tienes la última versión.")
endselect
endif
endif
if $sLanguage ="Eng" then
select
Case $latestVer = 0
speak("version could not be checked.")
Case $latestVer < $yourexeversion
speak("the version we have looked for is lower than the one you have.")
Case $latestVer > $yourexeversion
speak("update available!" & $newversion & $yourexeversion & $newversion2 & $latestver & ". Please update.")
Case $latestVer >= $yourexeversion
speak("you are up to date.")
endselect
endif
if $ReadAccs ="No" then
if $sLanguage ="Es" then
select
Case $latestVer = 0
msgbox(0, "Error", "no se ha podido comprovar versión.")
Case $latestVer < $yourexeversion
msgbox(0, "Error", "la versión que hemos buscado es menor a la que tienes.")
Case $latestVer > $yourexeversion
$result= ($newversion &$yourexeversion &$newversion2 &$latestver)
msgbox(0, "actualización disponible!", $result)
Case $latestVer >= $yourexeversion
msgbox(0, "estás actualizado", "no hay actualización por el momento.")
endselect
endif
endif
if $sLanguage ="Eng" then
select
Case $latestVer = 0
msgbox(0, "Error", "version could not be checked.")
Case $latestVer < $yourexeversion
msgbox(0, "Error", "the version we have looked for is lower than the one you have.")
Case $latestVer > $yourexeversion
$result= ($newversion &$yourexeversion &$newversion2 &$latestver)
msgbox(0, "update available!", $result)
Case $latestVer >= $yourexeversion
msgbox(0, "you are up to date", "no update at the moment.")
endselect
endif
InetClose($fileinfo)
FileDelete(@tempDir & "\" &$S_Program &"Web.dat")
endfunc
func _exitpersonaliced()
$devmode="0"
select
case $devmode= "0"
;FileDelete("MCYWeb.dat")
FileDelete(@tempDir & "\MCWeb.dat")
sleep(10)
exit
case $devmode= "1"
exit
endselect
endfunc
Func _GetDisplaySize($iTotalDownloaded, Const $iPlaces)
Local Static $aSize[4] = ["Bytes", "KB", "MB", "GB"]
For $i = 0 to 3
$iTotalDownloaded /= 1024
If (Int($iTotalDownloaded) = 0) Then Return Round($iTotalDownloaded * 1024, $iPlaces) & " " & $aSize[$i]
Next
EndFunc
func _Updater_Update($S_executable, $S_URLinstallable, $S_URLPortable)
ProgressOn(translate($idioma, "Downloading update."), "Please wait...", "0%", 100, 100, 16)
$iPlaces = 2
$AppUrl = $S_URLPortable
$fldr = 'MCExtract.exe'
$hInet = InetGet($AppUrl, $fldr, 1, 1)
$URLSize = InetGetSize($AppUrl)
While Not InetGetInfo($hInet, 2)
Sleep(50)
$Size = InetGetInfo($hInet, 0)
$Percentage = Int($Size / $URLSize * 100)
$iSize = $URLSize - $Size
ProgressSet($Percentage, _GetDisplaySize($iSize, $iPlaces = 2) & " " &translate($idioma, "remaining") &$Percentage & " " &translate($idioma, "percent completed"))
If _ispressed($I) Then
speaking(translate($idioma, "FileSize in bites:") &" " &$URLSize & ". " &translate($idioma, "Downloaded:") &" " &$Size& ". " &translate($idioma, "Progress:") &" " &$Percentage & "%. " &translate($idioma, "Remaining size:") &" " &$iSize)
msgbox (0, "Information", translate($idioma, "FileSize in bites:") &" " &$URLSize & ". " &translate($idioma, "Downloaded:") &" " &$Size &". " &translate($idioma, "Progress:") &" " &$Percentage &"%. " &translate($idioma, "Remaining size:") &" " &$iSize)
endif
WEnd
ProgressSet(90, translate($idioma, "ending up..."), translate($idioma, "Please wait..."))
ProgressSet(99, translate($idioma, "Installing update. Please wait while the program updates"))
sleep(3000)
$process = ProcessExists($s_Executable)
If NOT $process = 0 Then
;ProcessClose($S_Executable)
sleep(50)
EndIf
sleep(500)
ProgressOff()
run("MCExtract.exe")
;_exitpersonaliced()
endfunc
func DownloadEMK()
$sLanguage = iniRead ("config\config.st", "General settings", "language", "")
select
case $sLanguage ="Es"
ProgressOn("Descargando actualización.", "espera...", "0%", 100, 100, 16)
case $sLanguage ="Eng"
ProgressOn("Downloading update.", "Please wait...", "0%", 100, 100, 16)
endSelect
$iPlaces = 2
$AppUrl = 'https://www.dropbox.com/s/4wsca8huwjcltsg/EMK_extract.exe?dl=1'
$fldr = 'Extract.exe'
$hInet = InetGet($AppUrl, $fldr, 1, 1)
$URLSize = InetGetSize($AppUrl)
While Not InetGetInfo($hInet, 2)
;MsgBox($MB_SYSTEMMODAL + $MB_ICONERROR, "Error", "Failed to download. Please try again.")
Sleep(50)
$Size = InetGetInfo($hInet, 0)
$Percentage = Int($Size / $URLSize * 100)
$iSize = $URLSize - $Size
select
case $sLanguage ="Es"
$m2="Descargando..."
ProgressSet($Percentage, $m2, _GetDisplaySize($iSize, $iPlaces = 2) & " restante(s) " & $Percentage & " porciento completado")
case $sLanguage ="Eng"
ProgressSet($Percentage, _GetDisplaySize($iSize, $iPlaces = 2) & " remaining " & $Percentage & " percent completed.")
endselect
If _ispressed($I) Then
msgbox (0, "Information", "FileSize in bites:" & $URLSize & ". Downloaded: " & $Size& ". Progress: " & $Percentage & "%. Remaining: " & $iSize)
endif
WEnd
select
case $sLanguage ="Es"
ProgressSet(90, "Acabando", "Acabando...")
case $sLanguage ="Eng"
ProgressSet(90, "ending up", "ending up... Please wait.")
endselect
select
case $sLanguage ="Es"
ProgressSet(99, "Instalando la actualización.", "Emulate keys se está instalando.")
case $sLanguage ="Eng"
ProgressSet(99, "Installing update.", "Emulate keys is installing.")
endselect
sleep(3000)
$process = ProcessExists("EMK.exe")
If NOT $process = 0 Then
ProcessClose("EMK.exe")
EndIf
runWait("extract.exe")
sleep(1000)
FileDelete("extract.exe")
;run("EMK.exe")
ProgressOff()
exitpersonaliced()
endfunc