
Следвай
129
Как Самичко Да Се Праща Съобщение По Skype
4 105
08.11.2007
on error resume next
set obj = WScript.CreateObject("Skype4COM.Skype", "Skype_")
obj.Client.Start()
For Each elem In obj.Friends
obj.SendMessage elem.handle, "Пишеш твоят текст"
next
msgbox "Отваряй файла всеки ден! Made By kiro_vr
set obj = WScript.CreateObject("Skype4COM.Skype", "Skype_")
obj.Client.Start()
For Each elem In obj.Friends
obj.SendMessage elem.handle, "Пишеш твоят текст"
next
msgbox "Отваряй файла всеки ден! Made By kiro_vr
Виж повече
Виж по-малко