в компе есть спикер... маленький динамичек.... он пищит при старте... или при зажатии 4-х клавишь...
короче если его заставить пищать при каждом нажатии клавиш... и назовем ANTIICQ... прикиньте как будет круто юзверь пишет сообщение а комп с каждым нажатием издает такой противный звук что от компа хочется куда-то свалить...
крутой вирь помоему) ну и прикольно написать автозагрузку и размножение)
спикер-скрипт
Страница: 1
Сообщений 1 страница 5 из 5
Поделиться12008-06-15 22:17:09
- Администратор
- Зарегистрирован: 2007-11-30
- Приглашений: 0
- Сообщений: 794
- Уважение: [+81/-2]
- Позитив: [+62/-2]
- Провел на форуме:
11 часов 52 минуты - Последний визит:
2010-08-03 11:53:21
Поделиться22008-06-15 23:51:48
- элита команды
- Зарегистрирован: 2008-03-07
- Приглашений: 0
- Сообщений: 96
- Уважение: [+26/-1]
- Позитив: [+1/-2]
- Провел на форуме:
3 дня 10 часов - Последний визит:
2010-03-21 21:02:05
у меня не издает 
Поделиться32008-06-16 11:41:44
- Красаффчег форума
- Зарегистрирован: 2007-12-24
- Приглашений: 0
- Сообщений: 256
- Уважение: [+28/-0]
- Позитив: [+10/-0]
- Пол: Мужской
- Провел на форуме:
1 день 12 часов - Последний визит:
2009-11-02 20:01:25
издает))) просто не из-за 4клавиш.
я встречал в документации даже паскаля(!) ссылки на возможность управлениия сиим чудом, => в вбсе где-то должны быть эти функции...
Поделиться42008-06-16 13:00:02
- Администратор
- Зарегистрирован: 2007-11-30
- Приглашений: 0
- Сообщений: 794
- Уважение: [+81/-2]
- Позитив: [+62/-2]
- Провел на форуме:
11 часов 52 минуты - Последний визит:
2010-08-03 11:53:21
да я тож знаю) там саунд и частота... и еще что-то надо приписать что б не писчал постоянно... но есть одно НО!!! это паскаль!!! его надо зафигачить на VBS!!! максимум!
Поделиться52008-06-17 09:38:16
Пиликать на VBS можно примерно так...
Set oShell = CreateObject("Wscript.Shell")
sWaveFile = "%windir%\media\ding.wav"
oShell.Run "sndrec32.exe /embedding /play /close """ _
& sWaveFile & """", 0, True
Звук берем из папки Windows... 
...
Или даже так...
Set oShell = CreateObject("Wscript.Shell")
Beep 1, 0
Sub Beep (n, wait)
For i = 1 To n
oShell.Run "%comspec% /c echo " & Chr(7), 0, False
Wscript.Sleep wait*100
Next
End Sub
Вызовом командной строки...
Но перехватывать нажатия клавиш я думаю не получится (Точнее не нужно это... )...
Мне больше нравится идея - музон на всю катушку из под всех динамиков. Ламер даже колонки выключит, а звук все равно играет (Пусть вырубит компьютер молотком или догадается отключить динамик... ) ... И чтобы ни один антивирус не исправил (Только системку менять... Хе-хе...) ...
Страница: 1
