如何更改vbs代码以向Skype中搜索的所有人发送消息？

Question

如何让以下代码向在Skype中找到的所有人发送消息 - ＆gt;搜索 - ＆gt;支配??！？ 我认为“对于每个GAG在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

Answer 1

Skype不提供可能导致其abonates垃圾邮件的功能。您想要做的事可能被认为是非法的。