#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
|
