Browse Source

Убрал лишние инклуды, сделал перевод.

master
paravis 2 years ago
parent
commit
812af2c5f4
  1. 8
      Kaspersky_Updater.au3

8
Kaspersky_Updater.au3

@ -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…
Cancel
Save