次のコードで、Skype で見つかったすべての人にメッセージを送信する方法 -> 検索 -> Dominating ??!? "For Each GAG In yADAl.Friends" を ""yaDal.Search("Dominating")"" に変更する必要があると思いますが、機能しません。
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,"Type text here"
next