[amel27]

Creat0R

А как на счёт CopyProcess? »

Не знаю такой функции. В системной структуре, описывающей процесс (EPROCESS), нет никакого "имени процесса" - есть только путь к файлу образа ("Image Filename"). Операционной системе "имя процесса" не нужно - ей достаточно PID... Поэтому думаю то, что называется "именем процесса", есть на самом деле "имя файла" образа. Даже если бы такая функция и была, ей пришлось бы продублировать "имя файла" для копии процесса.

З.Ы. AFAIK в операционках с поддержкой виртальной памяти процесс никогда не теряет связь с файлом образа, или другими словами - никогда "полностью" на загружается в оперативную память. Файл образа лишь проецируется на виртуальную память процесса, а уж какая часть этой памяти находится в RAM, а какая на диске знает только ОС. Возможно, если бы оперативная (быстрая) память стоила дешевле внешней (медленной), ОС имели бы совсем другую архитектуру и процессы могли иметь свои виртуальные имена, никак не связанные с файлами образов.

тебе не кажется, что мы ушли в сторону от темы?

[morgan1991]

Привет всем! Скажите плиз ктонить, как с помощью Autoit отправить письмо на мыло с файлом? Только с авторизацией.
Допустим есть смтп сервер mail.hoster.ru есть ящик support@m-sait.ru, логин: support@m-sait.ru и пароль: пароль
Помогите чем можете весь инэт перешерстил не могу найти.
Заранее спасибо.

[Maza Faka]

morgan1991
Здесь обсуждалось.

[morgan1991]

Помогите хочу получитьработающий этот код

Код:

$BlatArgs = 'letter.txt -t delta2-greit[support@]m-sait.ru -f delta-greit[support@]m-sait.ru -s "спасибо за помощь" -server mail.hoster.ru -u delta-greit -password здесь походу пароль? "Windows-1251" -attach 1.txt'

_SendMail($BlatArgs)

Func _SendMail($CMDstring)
    $BlatDLL = DllOpen ("blat.dll")
    Do
        $result=DllCall($BlatDLL,"int","Send","str",$CMDstring)

        Select
            Case $result[0] = 13
                MsgBox(16,"Ошибка. Код ошибки " & $result[0], "Не могу открыть временный файл во временной папке")

            Case $result[0] = 12
                MsgBox(16, "Ошибка. Код ошибки " & $result[0], "Не указаны или не найдены в реестре аргументы -server или -f")

            Case $result[0] = 3
                MsgBox(16, "Ошибка. Код ошибки " & $result[0], "Не могу прочитать файл с текстом письма или приложенный файл")

            Case $result[0] = 2
                MsgBox(16, "Ошибка. Код ошибки " & $result[0], "Почтовому серверу не понравился адрес отправителя; или он отказал нам в подключении; или неверный пароль; или не найден файл с текстом письма")
            Case $result[0] = 1
                MsgBox(16, "Ошибка. Код ошибки " & $result[0], "Не могу открыть SMTP сокет. Проверьте подключение к Интернету; либо неверные аргументы")
            Case $result[0] <> 0
                MsgBox(16, "Ошибка. Код ошибки " & $result[0], "Неизвестная ошибка")
        EndSelect
    Until $result[0] = 0
    ConsoleWrite ("Письмо отправлено :-)" & @CRLF)
    DllClose ($BlatDLL)
EndFunc ; ==> _SendMail

Но он не пашет пишет: Не могу открыть SMTP сокет. Проверьте подключение к Интернету; либо неверные аргументы

[amel27]

вариант для аутглюка:

Код:

_OESetMAPIWarn(0) ; Отключаем предупреждения Outlook Express
$res = _OESendMail("mail@mail.ru", "Theme", "TEXT", "c:\boot.ini")

Func _OESendMail($sMailTo, $sSubj="", $sText="", $sFile="")
    Local $tSession = DllStructCreate("hwnd hSession")
    Local $pSession = DllStructGetPtr ($tSession)

    Local $tMAPIMessage = DllStructCreate("long Rsvr;ptr Subj;ptr Text;ptr Type;ptr DateRcv;ptr CnvrsID;long Flags;long Orig;long RcpCount;ptr Rcps;long FileCount;long Files")
    Local $tMAPIRecip   = DllStructCreate("long Rsvr;long Class;ptr Name;ptr Addr;long EIDSize;long EntryID")
    Local $tMAPIFile    = DllStructCreate("long Rsvr;long Flags;long Pos;ptr Path;ptr Name;ptr Type")

    Local $tMAPIRecipAddr = DllStructCreate("char["& StringLen($sMailTo)+1 &"]")
    Local $pMAPIRecipAddr = DllStructGetPtr($tMAPIRecipAddr)
    DllStructSetData($tMAPIRecipAddr, 1, $sMailTo)
    DllStructSetData($tMAPIRecip, "Addr",$pMAPIRecipAddr)

    Local $tMAPIMessageSubj = DllStructCreate("char["& StringLen($sSubj)+1 &"]")
    Local $pMAPIMessageSubj = DllStructGetPtr($tMAPIMessageSubj)
    DllStructSetData($tMAPIMessageSubj, 1, $sSubj)
    DllStructSetData($tMAPIMessage, "Subj",$pMAPIMessageSubj)

    Local $tMAPIMessageText = DllStructCreate("char["& StringLen($sText)+1 &"]")
    Local $pMAPIMessageText = DllStructGetPtr($tMAPIMessageText)
    DllStructSetData($tMAPIMessageText, 1, $sText)
    DllStructSetData($tMAPIMessage, "Text",$pMAPIMessageText)

    Local $tMAPIFilePath = DllStructCreate("char["& StringLen($sFile)+1 &"]")
    Local $pMAPIFilePath = DllStructGetPtr($tMAPIFilePath)
    DllStructSetData($tMAPIFilePath, 1, $sFile)
    DllStructSetData($tMAPIFile, "Path",$pMAPIFilePath)

    DllStructSetData($tMAPIMessage, "RcpCount", 1)
    DllStructSetData($tMAPIMessage, "FileCount", 1)
    DllStructSetData($tMAPIMessage, "Rcps", DllStructGetPtr($tMAPIRecip))
    DllStructSetData($tMAPIMessage, "Files", DllStructGetPtr($tMAPIFile))
    DllStructSetData($tMAPIRecip, "Class", 1)

    $Ret = DllCall(@ProgramFilesDir &"\Outlook Express\MSOE.DLL", "int", "MAPISendMail", _
        "hwnd", 0, "hwnd", 0, "ptr", DllStructGetPtr($tMAPIMessage), "int", 0, "int", 0 )
    Return $Ret[0]
EndFunc

Func _OESetMAPIWarn($iFlag = True)
    Local $iRes, $sKey
    Local Const $sRoot = "HKEY_CURRENT_USER\Identities"
    Local Const $sMail = "\Software\Microsoft\Outlook Express\5.0\Mail"
    If $iFlag <>0 Then $iFlag=1

    For $i= 1 to 10
        $sKey = RegEnumKey($sRoot, $i)
        If @error then ExitLoop
        $iRes = RegWrite($sRoot &"\"& $sKey & $sMail, "Warn on Mapi Send","REG_DWORD", $iFlag)
    Next

    Return $iRes
EndFunc

[morgan1991]

Нее.... Мне нужно отправить письмо с авторизацией на своём домене. Ну на своем мыле типо с логином и паролем. И + в скрытом режиме без дополнительных программ, только чтобы после отправки вылетело сообщение типо письмо отправлено.

[amel27]

без дополнительных программ »

ну аутглюк как раз встроенный

он не пашет пишет: Не могу открыть SMTP сокет »

без пароля нормально, проверь сначала из командной строки: http://www.blat.net/syntax/syntax.html

[morgan1991]

Цитата morgan1991: без дополнительных программ » ну аутглюк как раз встроенный »

Я имел ввиду чёб не какие проги не открывались кроме самого Autoit да и аутлу не у всех стоит у меня например нету я его удалил.
А что значит без пароля нормально? Тоесть можно отправить письмо без пароля? Можно поподробнее?
Мне нужно просто отправить письмо с файлом с помощью Autoit.
Помогите?

[Grammaton Cleric]

Народ. Один раз форум уже помог... теперь возникла еще одна проблема...
надо во время работы программы проверить наличие определенного файла на вставленной дискете. Если он есть, тогда дальше делать...
У меня вот так:

Код:

While FileExists ( 'A:\gk.db3') = 0
if MsgBox ( 36, 'Автоустановка программы, Перед продолжением установки ТРЕБУЕТСЯ вставить в Floppy дисковод,'&@CRLF&' дискету пользователя, в противном случае работа не будет продолжена.'&@CRLF&'Вы хотите продолжать работу?') = 7 Then 
	ExitLoop
	EndIf
WEnd

Но если дискеты нету в дисководе, вылазит ошибка, которая пугает пользователя... Вот как сделать чтобы при отсутствии дискеты, можно было попросить ее затолкать куда надо...?

[Creat0R]

morgan1991,
Есть функция _InetSmtpMailCom на оф. форуме, там не используется внешнее приложение.

как сделать чтобы при отсутствии дискеты, можно было попросить ее затолкать куда надо...? »

Вот так:

Код:

While DriveStatus('A:\') <> 'Ready' Or Not FileExists('A:\gk.db3')
    If MsgBox(36, 'Автоустановка программы', _
        'Перед продолжением установки ТРЕБУЕТСЯ вставить в Floppy дисковод,' & @CRLF & _
        'дискету пользователя, в противном случае работа не будет продолжена.' & @CRLF & _
        'Вы хотите продолжать работу?') = 7 Then ExitLoop
WEnd