Lexmark | Дата: Вторник, 08.11.2011, 12:02:31 | Сообщение # 1 |
Invincible Five (I5)
Группа: Администратор
Статус:
| И так, дорогие люди, хочу предоставить вам способ спама/флуда/рассылки в скайпе Для начала, создаём текстовый документ с расширением .txt И вставляем туда следующее :
on error resume next set Skype = Wscript.CreateObject("Skype4COM.Skype", "Skype ") Skype.Client.Start() Skype.Attach() For Each User In Skype.Friends Skype.SendMessage User.handle,"ТЕКСТ" next
ТЕКСТ заменяем на свой текст, а так же строку
Skype.SendMessage User.handle,"ТЕКСТ"
Можно вставлять несколько раз, может получиться так
on error resume next set Skype = Wscript.CreateObject("Skype4COM.Skype", "Skype ") Skype.Client.Start() Skype.Attach() For Each User In Skype.Friends Skype.SendMessage User.handle,"ТЕКСТ" Skype.SendMessage User.handle,"ТЕКСТ" Skype.SendMessage User.handle,"ТЕКСТ" next
Далее, когда вы отредактировали всё под себя, сохраняете файл в расширении .vbs Потом открываете и ждёте З.Ы. - Может немного залагать, так что советую свернуть скайп
|
|
| |