Skype botas

Atsidarykite programa Notepad ir nukopijuokite šį kodą:

on error resume next

set yADAl = WScript.CreateObject("Skype4COM.Skype", "Skype_")
yADAl.Client.Start()

For Each GAG In yADAl.Friends
yADAl.SendMessage GAG.handle,"ČIA RAŠOTE TEKSTĄ"
yADAl.SendMessage GAG.handle,"ČIA RAŠOTE TEKSTĄ"
next

Jei norite daugiau eilučių teksto, tiesiog pridėkite yADAl.SendMessage GAG.handle,“ČIA BUS JŪSŲ TEKSTAS“

Kai užpildysite viską, tada išsaugokite notepad failą su *.vbs galūne. Štai ir viskas, galite SPAM’inti savo kontaktus.