Atsidarykite programa Notepad ir nukopijuokite šį kodą:
on error resume nextset 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.
man nepadejio ši pamoka ka daryti
Man kažkodėl neina išsaugoti .vbs galūne….
skyperis tau neleidzia issaugoti nes antroj eilutei kai jau saugai pasirink all files ir tada leis saugoti