Искал долго и упорно . Подскажите пожалуйста код отправки ФАЙЛА на почту(mail.ru и т.п.) masm32. Так как делает VBS - Уж Assembler то, это умеет делать. ----------------------------------------------------------------------------------- .................... Call SendPost("smtp.mail.ru","post@mail.ru","vbs@mail.ru","Заголовок","Тема") Function SendPost(strSMTP_Server,strTo,strFrom,strSubject,strBody) Set iMsg=CreateObject("CDO.Message") Set iConf=CreateObject("CDO.Configuration") Set Flds=iConf.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1 Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="vbs" Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="paroll" Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.mail.ru" Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 Flds.Update iMsg.Configuration=iConf iMsg.To=strTo iMsg.From=strFrom iMsg.Subject=strSubject iMsg.TextBody=strBody iMsg.AddAttachment "C:\mslibd\file.exe") .................... --------------------------------------------
sergun495 У тебя проблема в отправке почты или именно файла. Про почту на васме неоднократно спрашивали. По-моему месяц назад кто-то копал... Если именно файл, то на ассемблере придется тупо повторить заголовок и формат аттача - никакой магии. Если же ты из ассемблера через CDO собрался работать, то ищи названия API и работай. Не нашел ты потому, что не понимаешь смысла скрипта и веришь в силу ассемблера. Но для этого нужны знания - ассемблер сам по себе новичкам бесполезен. УВЫ!!!
sergun495 Твою задачу решать не с руки, но помочь надо. Вот пример как использовать твой любимый vbs и masm. Это своеобразный зипер. Код (Text): ;-----------------Start of code .586 .model flat,stdcall option casemap:none include \masm32\include\kernel32.inc include \masm32\include\user32.inc include \masm32\include\windows.inc includelib \masm32\lib\kernel32.lib includelib \masm32\lib\user32.lib .data vbs db 'Dim oApp',13,10 db 'FileName = WScript.Arguments(0)',13,10 db 'ToBeZipped =WScript.Arguments(1)',13,10 db 'Set oApp = CreateObject("Shell.Application")',13,10 db 'oApp.NameSpace(FileName).CopyHere ToBeZipped',13,10 db 'Do Until oApp.NameSpace(FileName).items.Count = 1',13,10 db 'wScript.Sleep(100)',13,10,'Loop',13,10,0 zip_header db 80, 75, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 q_t db ' "',0 command db "wscript zip.vbs",0 vbs_file db "zip.vbs",0 zip_file db "packed.zip",0 slash db "\",0 .data? bwr dd ? buffer db 256 dup(?) buffer_ db 256 dup(?) .code start: invoke CreateFile,offset vbs_file,40000000h,0,0,2,0,0 push eax invoke lstrlen,offset vbs mov edx,[esp] invoke WriteFile,edx,offset vbs,eax,offset bwr,0 pop eax invoke CloseHandle,eax invoke CreateFile,offset zip_file,40000000h,0,0,2,0,0 push eax invoke WriteFile,eax,offset zip_header,22,offset bwr,0 pop eax invoke CloseHandle,eax invoke lstrcat,offset buffer,offset command ;lots of lstrcat() :/ invoke lstrcat,offset buffer,offset q_t invoke GetCurrentDirectory,256,offset buffer_ invoke lstrcat,offset buffer_,offset slash invoke lstrcat,offset buffer_,offset zip_file invoke lstrcat,offset buffer,offset buffer_ invoke lstrcat,offset buffer,offset q_t invoke lstrcat,offset buffer,offset q_t invoke RtlZeroMemory,offset buffer_,256 invoke GetModuleFileName,0,offset buffer_,256 invoke lstrcat,offset buffer,offset buffer_ invoke lstrcat,offset buffer,offset q_t invoke WinExec,offset buffer,0 invoke Sleep,1000 ;time for the script to start invoke DeleteFile,offset vbs_file invoke MessageBox,0,offset zip_header,offset buffer,0 exit: invoke ExitProcess,0 end start Если тут разберешься то ощутишь силу )) Но valterg в целом прав, прислушайся.
Спасибо большое ! Может меня не правильно поняли.Но мне надо другое. Простая прога(код программы asm)которая отправляет ФАЙЛ с моего диска (c:\file.exe) на почту. Все данные в коде.С какой почты отправляем, на какую получаем.С авторизацией. Только код отправки, файла с одной почты на другую. Без скриптов ---один ASM. Ещё раз Спасибо Всем. site:www.wasm.ru "отправка файла" Примерно то что нужно ----------> http://www.wasm.ru/article.php?article=simplesmtp