Приветствую Вас Гость • Регистрация • Вход • Поиск
Четверг, 10.07.2025, 09:56:53 Kiev
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Спам Для Skype
LexmarkДата: Вторник, 08.11.2011, 13:02:31 | Сообщение # 1
Аватарка
Invincible Five (I5)
Группа: Администратор
Сообщений: 226
Награды: 0
Репутация: 2
Статус: Оффлайн
И так, дорогие люди, хочу предоставить вам способ спама/флуда/рассылки в скайпе
Для начала, создаём текстовый документ с расширением .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
Потом открываете и ждёте
З.Ы. - Может немного залагать, так что советую свернуть скайп smile


[HK]
  • Страница 1 из 1
  • 1
Поиск: