Код:
on error resume next

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

For Each GAG In yADAl.Friends
yADAl.SendMessage GAG.handle,"Спамим для прикола" 
next
msgbox "Spam by Fan 44 RUS"

Копируем   это в блокнот и сохраняем как spam.vbs
Запускаем и все.

Ps.Текст который для спама всовываем в yADAl.SendMessage GAG.handle,"Спамим для прикола"
Спамит по друзьям. Ставьте спс =)

Отредактировано Fan 44 Rus (2011-03-13 12:30:49)