Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » Ammyy Admin

Модерирует : gyra, Maz

 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

Открыть новую тему     Написать ответ в эту тему

qwasi



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору


Код:
 
 
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile=ammymail.exe
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_Res_Language=1033
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_Run_Au3Stripper=y
#Au3Stripper_Parameters=/pe /so /rm /mi=99
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
 
Opt("MustDeclareVars", 1)
 
Local $PID, $hWnD, $tInit, $hFileOpen, $aContent, $Result, $starttls, $uID, $IniFile
Local $maillogin, $mailpassword, $smtpserver, $smtpport, $mailfrom, $mailto, $organization, $enabletls
 
$IniFile = @ScriptDir & '\ammymail.ini'
If Not FileExists($IniFile) Then
    _Create_Ini($IniFile)
    Exit
EndIf
 
$PID = Run(@ScriptDir & '\aa.exe', '', @SW_SHOW)
$hWnD = WinWait('[CLASS:AmmyyAdmin3Main]', '', 15)
$tInit = TimerInit()
Do
    Sleep(250)
    $uID = StringRegExpReplace(ControlGetText($hWnD, "", "[CLASS:Edit; INSTANCE:1]"), '[^0-9]+', '')
    If TimerDiff($tInit) / 1000 > 15 Then ExitLoop
Until StringLen($uID) > 0
 
$maillogin = IniRead($IniFile, "mail", "maillogin", "")
$mailpassword = IniRead($IniFile, "mail", "mailpassword", "")
$smtpserver = IniRead($IniFile, "mail", "smtpserver", "")
$smtpport = IniRead($IniFile, "mail", "smtpport", "")
$enabletls = IniRead($IniFile, "mail", "enabletls", "1")
$mailfrom = IniRead($IniFile, "mail", "mailfrom", "")
$mailto = IniRead($IniFile, "mail", "mailto", "")
$organization = IniRead($IniFile, "mail", "organization", "Ammy Admin")
 
$starttls = ''
If $enabletls == 1 Then $starttls = '-starttls'
If Not $uID Then $uID = 'Unknown Error!'
Run(@ScriptDir & '\cmail.exe -host:' & $maillogin & ':' & $mailpassword & '@' & $smtpserver & ':' & $smtpport & _
        ' -from:' & $mailfrom & ':"' & $organization & '" -to:' & $mailto & ' -subject:"Ammy Admin Report" -body:"' & $uID & '" ' & $starttls, '', @SW_HIDE)
 
Exit
 
Func _Create_Ini($IniFile)
    Local $hFileOpen, $Result
    $hFileOpen = FileOpen($IniFile, 2)
    $Result = '' & _
            '[mail]' & @CRLF & _
            'organization=Ammyy Admin' & @CRLF & _
            'smtpserver=smtp.mail.ru' & @CRLF & _
            'smtpport=25' & @CRLF & _
            'enabletls=1' & @CRLF & _
            'mailto=' & @CRLF & _
            'mailfrom=' & @CRLF & _
            'maillogin=' & @CRLF & _
            'mailpassword=' & @CRLF
 
    FileWrite($hFileOpen, $Result)
    FileFlush($hFileOpen)
    FileClose($hFileOpen)
    Return $Result
EndFunc   ;==>_Create_Ini
 
 


Всего записей: 368 | Зарегистр. 13-03-2012 | Отправлено: 20:11 16-07-2016
Открыть новую тему     Написать ответ в эту тему

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Ammyy Admin


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.Board
© Ru.Board 2000-2020

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru