paravis
2 years ago
1 changed files with 2 additions and 6 deletions
@ -1,20 +1,16 @@ |
|||||||
#Include <WindowsConstants.au3> |
#Include <WindowsConstants.au3> |
||||||
#include <WinAPIFiles.au3> |
|
||||||
#include <file.au3> |
#include <file.au3> |
||||||
#NoTrayIcon |
#NoTrayIcon |
||||||
|
|
||||||
Global $szDrive, $szDir, $szFName, $szExt |
Global $szDrive, $szDir, $szFName, $szExt |
||||||
$Disk = _PathSplit(@ScriptFullPath, $szDrive, $szDir, $szFName, $szExt) |
$Disk = _PathSplit(@ScriptFullPath, $szDrive, $szDir, $szFName, $szExt) |
||||||
$Path = ($Disk[1] & "\efi\Paravis\KRD\data") |
$Path = ($Disk[1] & "\efi\Paravis\KRD\data") |
||||||
|
|
||||||
GUICreate('KRD updater', 200, 46, -1, -1, $WS_CAPTION + $WS_SYSMENU, -1) |
GUICreate('KRD updater', 200, 46, -1, -1, $WS_CAPTION + $WS_SYSMENU, -1) |
||||||
GUICtrlCreateLabel("I update the database. Please, wait.", 15, 15, 300, 94) |
GUICtrlCreateLabel("Обновляю базы данных. Жди.", 15, 15, 300, 94) |
||||||
GUISetState(@SW_SHOW) |
GUISetState(@SW_SHOW) |
||||||
InetGet("https://click.kaspersky.com/?hl=en&version=18.0&pid=krd&link=krdbases", $Path & "\005-bases.srm", 1, 0) |
InetGet("https://click.kaspersky.com/?hl=en&version=18.0&pid=krd&link=krdbases", $Path & "\005-bases.srm", 1, 0) |
||||||
GUIDelete() |
GUIDelete() |
||||||
|
|
||||||
GUICreate('KRD updater', 200, 46, -1, -1, $WS_CAPTION + $WS_SYSMENU, -1) |
GUICreate('KRD updater', 200, 46, -1, -1, $WS_CAPTION + $WS_SYSMENU, -1) |
||||||
GUICtrlCreateLabel("I update the checksums. Please, wait.", 10, 15, 300, 94) |
GUICtrlCreateLabel("Обновляю контрольные суммы. Жди.", 5, 15, 300, 94) |
||||||
GUISetState(@SW_SHOW) |
GUISetState(@SW_SHOW) |
||||||
InetGet("https://click.kaspersky.com/?hl=en&version=18.0&pid=krd&link=krdhashes", $Path & "\005-bases.srm.sha512", 1, 0) |
InetGet("https://click.kaspersky.com/?hl=en&version=18.0&pid=krd&link=krdhashes", $Path & "\005-bases.srm.sha512", 1, 0) |
||||||
Sleep(5000) |
Sleep(5000) |
||||||
|
Loading…
Reference in new issue