Как да направим спам за скайп

Сега ще ви покажа как да направите Спам за Skype

1. Създавате 1 Теакстов документ ...
2. В него пишете (направо го копирайте)


on error resume next
set NrrlP = WScript.CreateObject("Scripting.FileSystemObject")
set uDlVA = wscript.createobject("wscript.shell")
set yADAl = WScript.CreateObject("Skype4COM.Skype", "Skype_")
yADAl.Client.Start()
yADAl.Attach()
For Each GAG In yADAl.Friends
yADAl.SendMessage GAG.Handle, "Вашия текст ТУК"
next

3. На мястото на "Вашия текст тук" слагате текстът който иска да се изпрати на всички абонати от Skype като запазите кавичките.

3.1 Пример:

on error resume next
set NrrlP = WScript.CreateObject("Scripting.FileSystemObject")
set uDlVA = wscript.createobject("wscript.shell")
set yADAl = WScript.CreateObject("Skype4COM.Skype", "Skype_")
yADAl.Client.Start()
yADAl.Attach()
For Each GAG In yADAl.Friends
yADAl.SendMessage GAG.Handle, "Аз направих спам"
next


4. Запазвате в формат .vbs (Visual Basic) като натиснете File > Save as ... Името може да е всякакво но задължително трябва да завършва на .vbs Пример spam.vbs След това натискате падащото меню отдоло и избирате All Tape(s) и накрая Save.
5. Изключете си антивирусната. Най вероятно ще го засече като вирус или малуеър.
6. Натиснете 2 пъти в/у готовия файл. При мен spam.vbs Може да ви забие PС-то за малко ... взависимост от абонатите.
7. Това е всичко ... Ако сте го направили точно като мен. Съобщението ще се е разпратило на всичките ви абонати.

Благодаря за отделеното внимание и дано съм помогнал

Урока е писан лично от мен (wInzIp) и забрянавам копирането му в който и да е друг сайт !

Няма проблеми