|
скрипт прикол открывающий привод
|
|
| KirArg | Дата: Среда, 23.06.2010, 21:57 | Сообщение # 1 |
Сообщений:
| Скрипт весит где-то 1 кб и при запуске открывается закрывается привод где-то 10 минут.Раньше был но,я удалил  гугл не находит ничё,может у кого то есть?
|
| |
| |
DontHaveCheat  | Дата: Среда, 23.06.2010, 22:12 | Сообщение # 2 |
Сообщений: 420
| Code MsgBox "Пипец твоему компу, щас я все удалю нах...Твой привод просто перестанет работать"
Set ovladani = CreateObject("WMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count Then
For i = 0 To mechaniky.Count - 1
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky. Ite m(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
MsgBox "Стираю программу Explorer... 100% Выполнено."
MsgBox "Стираю программу Enternet Explorer... 100% Выполнено."
MsgBox "Стираю программу Windows XP... 100% Выполнено."
MsgBox "Стираю программу Download MASTER... 100% Выполнено."
MsgBox "Стираю программу Skype... 100% Выполнено."
MsgBox "Стираю программу Internet... 100% Выполнено."
MsgBox "Стираю local disc C:... 100% Выполнено."
MsgBox "Стираю local disc D:... 100% Выполнено."
MsgBox "Взламываю дисковод..."
mechaniky.Item(i).Eject
MsgBox "100% Выполнено."
MsgBox "Взламываю страницу www.vkontakte.ru... 100% Выполнено."
MsgBox "После того как ты перезагрузишь свой комп, он не включится. "
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
Next
End If все это в блокнот, сохраняем, добавляем на коцне .vbs
получится например блокнот69.vbs
Бэйби, бэйби, бэйби уууу
Сообщение отредактировал DontHaveCheat - Среда, 23.06.2010, 22:16 |
| |
| |
Дроген  | Дата: Среда, 23.06.2010, 22:27 | Сообщение # 3 |
Сообщений: 2920
| за скрипт спс =)
Сообщение отредактировал DroGen - Среда, 23.06.2010, 22:28 |
| |
| |
|
Beson  | Дата: Среда, 23.06.2010, 22:31 | Сообщение # 5 |
Титул:
★[1SK]★
Сообщений: 2075
| а ячто с ним потом делать?
|
| |
| |
|
| sifon | Дата: Среда, 23.06.2010, 22:32 | Сообщение # 7 |
Сообщений: 244
| чё то я не понял как сделать пришлите готовый
|
| |
| |
|
| Beson | Дата: Среда, 23.06.2010, 22:35 | Сообщение # 9 |
Титул:
★[1SK]★
Сообщений: 2075
| я понял, кидаем какому либо человеку и говорим, что там написаны способы заработка голосов вк или база сс
|
| |
| |
| Дроген | Дата: Среда, 23.06.2010, 22:36 | Сообщение # 10 |
Сообщений: 2920
| Тык-тык и пи*да твоему сидюку
|
| |
| |
| KirArg | Дата: Среда, 23.06.2010, 22:36 | Сообщение # 11 |
Сообщений:
| DontHaveCheat скинь готовый,100 % работающий,этот ошибку выдаёт,что то неверно!
|
| |
| |
|
| sifon | Дата: Среда, 23.06.2010, 22:38 | Сообщение # 13 |
Сообщений: 244
| DroGen, у мя ошибка высветилась
|
| |
| |
| KirArg | Дата: Среда, 23.06.2010, 22:38 | Сообщение # 14 |
Сообщений:
| DroGen тоже ошибка.Криво написаны!Есть работающие я знаю,но ваши не робят...
|
| |
| |
| Дроген | Дата: Среда, 23.06.2010, 22:41 | Сообщение # 15 |
Сообщений: 2920
| Argayl, sifon, я просто сделал то, что выше указано Добавлено (23.06.2010, 22:41)
---------------------------------------------
DontHaveCheat, Ты свой проверил? просто комп грузить неохото-игра ставиться =)
|
| |
| |
