Создал(а) 'Kaspersky_Updater.au3'
This commit is contained in:
21
Kaspersky_Updater.au3
Normal file
21
Kaspersky_Updater.au3
Normal file
@@ -0,0 +1,21 @@
|
|||||||
|
#Include <WindowsConstants.au3>
|
||||||
|
#include <WinAPIFiles.au3>
|
||||||
|
#include <file.au3>
|
||||||
|
#NoTrayIcon
|
||||||
|
|
||||||
|
Global $szDrive, $szDir, $szFName, $szExt
|
||||||
|
$Disk = _PathSplit(@ScriptFullPath, $szDrive, $szDir, $szFName, $szExt)
|
||||||
|
$Path = ($Disk[1] & "\efi\Paravis\KRD\data")
|
||||||
|
|
||||||
|
GUICreate('KRD updater', 200, 46, -1, -1, $WS_CAPTION + $WS_SYSMENU, -1)
|
||||||
|
GUICtrlCreateLabel("I update the database. Please, wait.", 15, 15, 300, 94)
|
||||||
|
GUISetState(@SW_SHOW)
|
||||||
|
InetGet("https://click.kaspersky.com/?hl=en&version=18.0&pid=krd&link=krdbases", $Path & "\005-bases.srm", 1, 0)
|
||||||
|
GUIDelete()
|
||||||
|
|
||||||
|
GUICreate('KRD updater', 200, 46, -1, -1, $WS_CAPTION + $WS_SYSMENU, -1)
|
||||||
|
GUICtrlCreateLabel("I update the checksums. Please, wait.", 10, 15, 300, 94)
|
||||||
|
GUISetState(@SW_SHOW)
|
||||||
|
InetGet("https://click.kaspersky.com/?hl=en&version=18.0&pid=krd&link=krdhashes", $Path & "\005-bases.srm.sha512", 1, 0)
|
||||||
|
Sleep(5000)
|
||||||
|
Exit
|
||||||
Reference in New Issue
Block a user