Что нового

[Сеть, интернет] Загрузка антивирусных утилит v.8.0.0.11

ivsatel

Продвинутый
Сообщения
319
Репутация
84
AutoIt: 3.3.8.1
Версия: 8.0.0.11

Категория: Автоматизация, Интернет, Командная строка, Окна и диалоги, Файловая система, Элементы GUI

Описание:
Эта программа позволит выкачивать лечащие утилиты от:
Dr. Web, Касперский, Malwarebytes' Anti-Malware, AVZ, Hijack This, Universal Virus Sniffer, GMER, McAfee Avert Stinger, COMODO Cleaning Essentials, Emsisoft Emergency Kit, VirusTotal Uploader, Hitman Pro, ComboFix без посещения их сайтов.
А так же LivCD от:
Dr.Web, Kaspersky, Avira, ESET, BitDefender, TrendMicro, eScan, Comodo Rescue Disk, AVG Rescue CD, TrustPort LiveCD, VBA32 Rescue, AntiSMS.

Код/Пример:
Файл:
https://dl.dropbox.com/s/zhjtn8ed02l4q9v/%D0%97%D0%B0%D0%B3%D1%80%D1%83%D0%B7%D0%BA%D0%B0%20%D0%B0%D0%BD%D1%82%D0%B8%D0%B2%D0%B8%D1%80%D1%83%D1%81%D0%BD%D1%8B%D1%85%20%D1%83%D1%82%D0%B8%D0%BB%D0%B8%D1%82.exe?dl=1

Полный архив
https://dl-web.dropbox.com/get/SorDAU/SorDAU.zip?w=AAC-dDKxl23hqOtFE8Uy44j18sTbJpUufcMy8-05LDgR9A

Снимок:


История версий:
v.8.0.0.10
1 Проведена корректировка в связи с изменениями дизайна сайтов.
2 Теперь все месседжбоксы будут активны от 3 до 5 сек.

Источник: autoit-script.ru
Автор(ы): ivsatel
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
Re: [Сеть, интернет] Загрузка антивирусных утилит v.8.0.0.10

вторая ссылка мертвая


Добавлено:
Сообщение автоматически объединено:

и еще момент. при загрузке программы, когда она, видимо, проверяет версии утилит в инете появляется вот такое окно
оно не одно. просто как пример. хотя саму утилиту качает
OffTopic:
"невозможно" пишется слитно. не в обиду
 
Автор
I

ivsatel

Продвинутый
Сообщения
319
Репутация
84
Re: [Сеть, интернет] Загрузка антивирусных утилит v.8.0.0.10

joiner
Ссылку поправил.
А появление окон как я понимаю зависит от качества интернет канала. Т.е. чем хуже качество интернета тем больше вероятность появления таких ошибок.
На данный момент (у меня) таких ошибок нет.
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
Re: [Сеть, интернет] Загрузка антивирусных утилит v.8.0.0.10

скачал экзешник по второй ссылке. ошибки выкидывает те же что и на скрине.
приблизительная скорость инета

третья ссылка мертвая.
запустил прогу, выбрал пункт CD , выбрал AntiSMS. программа просто завершила работу.


Добавлено:
Сообщение автоматически объединено:

вобщем eScan LiveCD и AntiSMS в окне программы показывают 0мб. значит программа не достучалась или не дождалась ответа от сервера.
на AVZ тоже выдавала ошибку, но показывает объем программы и качает


Добавлено:
Сообщение автоматически объединено:

eScan LiveCD все-таки качает, хотя и не показала объем программы, только при выборе AntiSMS программа закрывается
 
Автор
I

ivsatel

Продвинутый
Сообщения
319
Репутация
84
Re: [Сеть, интернет] Загрузка антивирусных утилит v.8.0.0.10

joiner
У меня интернет более медленный. Проверить часть кода можно так:
Код:
Global $GetSMS = StringRegExp(BinaryToString(InetRead('http://forum.simplix.ks.ua/viewtopic.php?id=399', 1), 4), '(?si)return false[\;][\"][\>]AntiSMS (.*?)<', 3)
If @error Then
    MsgBox(48+262144, 'Error', 'Невозможно получить версию диска AntiSMS', 5)
Global $SMSFulDataU = '0'
Else
Global $SMSFulDataU = 'Версия AntiSMS ' & $GetSMS[0]
EndIf

MsgBox('','', $SMSFulDataU)


Конечно лучше было-бы реализовать все это на TCP ошибок меньше было-бы.
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
Re: [Сеть, интернет] Загрузка антивирусных утилит v.8.0.0.10

так все работает


Добавлено:
Сообщение автоматически объединено:

сегодня проверил на ХР - никаких ошибок в проверке версий.
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
качал CureIT , скачалось процентов пять, потом закачка началась по новой. инет не прерывался
 
Автор
I

ivsatel

Продвинутый
Сообщения
319
Репутация
84
joiner
joiner сказал(а):
Вот функция для CureIT.
Код:
;Функция загрузки Dr.Web
Func _1()
; Скрыть основное окно
GUISetState(@SW_HIDE, $hGui)

; Проверка, если размер имеющегося файла равен полученому из интернета размеру то выход из функции
if FileGetSize(@ScriptDir & '\drweb-cureit.exe') = $InetSizeDrWeb Then
	Return
EndIf

; Начать загрузку если размер файла в интернете не равен 0
	If $InetSizeDrWeb > 0 Then
TrayTip ( "Загрузка.", "Загружаю антивирусную утилиту от Dr.Web.", 3, 1+16)
	Sleep(100)

; Создание прогресса и загрузка
ProgressOn('Скачивание файла', 'Dr.WEB-CureIt', '0 %', -1, -1, 18)
	Local $hDownloadDr = InetGet('http://download.geo.drweb.com/pub/drweb/cureit/drweb-cureit.exe', @ScriptDir & '\drweb-cureit.exe', 1, 1)
Do
    If InetGetInfo($hDownloadDr, 1) Then
        Local $iPersent = Round((InetGetInfo($hDownloadDr, 0) / InetGetInfo($hDownloadDr, 1)) * 100)
        ProgressSet($iPersent, $iPersent & ' %, ' & _WinAPI_StrFormatByteSize(InetGetInfo($hDownloadDr, 0)) _
		& ' (' & _WinAPI_StrFormatByteSize(InetGetInfo($hDownloadDr, 1)) & ')')
TraySetState(1)
TraySetToolTip('Dr.Web CureIt! загружен на '&$iPersent&' %')
	EndIf
    Sleep(500)
Until InetGetInfo($hDownloadDr, 2)
InetClose($hDownloadDr)
ProgressOff()
Sleep(500)

; Не начинать загрузку если размер файла в интернете равен 0
Else
		MsgBox('', '', 'Файл drweb-cureit.exe на сервере отсутствует', 3)
		Return
	EndIf

; Проверка загруженного, если ошибка то рекурсия _1()
Local $FileSizeDF = FileGetSize(@ScriptDir & "\drweb-cureit.exe")
Sleep(500)
If $InetSizeDrWeb <> $FileSizeDF Then
	_1()
EndIf

; Запись в лог

; Проверяет, является ли файл открытым, перед тем как использовать функции чтения/записи в файл
If $file = -1 Then
    MsgBox(4096, "Ошибка", "Невозможно открыть файл для записи.", 5)
    Return
Else
$file = FileOpen(@ScriptDir & '\logdown.log', 1)
FileWriteLine($file, 'Утилита - drweb-cureit.exe залита ' & @MDAY &'-'& @MON &' в '& @HOUR &'-'& @MIN & ' '& $DrWeb)

FileClose($file)
EndIf

EndFunc
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
я отдельно использовал функцию закачки утилиты от Веба. все работает. сам косяк был при запуске закачки из полной программы. возможно какая то проверка срабатывает не корректно.
но это не постоянно так. через время опять качал через программу и повтора закачки не было.
 

Dark-Side

Знающий
Сообщения
72
Репутация
17
OffTopic:
Интересная задумка, но автору придется все время следить за обновлением ссылок/дизайна сайтов и изменять программу, а кому надо что-то скачать - просто вобьет это в гугл, перейдет на сайт и скачает. Не думаю что кому-то придет в голову вместо прямого скачивания антивируса с сайта разработчика искать какую-то программу-посредника через которую можно было бы это скачать, да и причем для ее постоянной работы ее обновлять придется, из-за той же смены ссылок/дизайна сайтов (хотя с другой стороны, кому нужно постоянно устанавливать антивирусы на свой единственный компьютер?). Кстати, есть большая вероятность что у пользователя программы нет антивируса раз он ищет его, так что он просто может побояться что-то непонятное, загружающее антивирусы, скачивать (а вдруг это вирус нацелены на тех у кого нет антивируса?) и опять же сам скачает с сайта.
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
Makc, ты почти не прав. нередки ситуации, когда при переходе на сайта создателей антивиря браузер блокируется (система заражена). и скачать можно только по прямой ссылке. вот эта программа и предлагает прямые ссылки. естественно, что автору программы нужно будет отслеживать изменения и обновлять ее.
 
Верх