Invincible Five (I5) — Киберспортивная организация

[ SiteMap.xml | ForumSiteMap.xml ]

Приветствую Вас Гость • Регистрация • Вход • Поиск

Четверг, 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

Спам Для Skype

Страница 1 из 1
1