🕐 2015-04-04 09:30
#1
Sveiki. Kaip sukurti skype chat bot?
Šitas neveikia:
on error resume next
set yADAl = WScript.CreateObject("Skype4COM.Skype", "Skype_")
yADAl.Client.Start()
For Each GAG In yADAl.Friends
yADAl.SendMessage GAG.handle,"Jūsų tekstas"
yADAl.SendMessage GAG.handle,"Jūsų tektas"
yADAl.SendMessage GAG.handle,"Jūsų tekstas"
yADAl.SendMessage GAG.handle,"Jūsų tekstas"
yADAl.SendMessage GAG.handle,"Jūsų tekstas"
yADAl.SendMessage GAG.handle,"Jūsų tekstas"
next
Šitas neveikia:
on error resume next
set yADAl = WScript.CreateObject("Skype4COM.Skype", "Skype_")
yADAl.Client.Start()
For Each GAG In yADAl.Friends
yADAl.SendMessage GAG.handle,"Jūsų tekstas"
yADAl.SendMessage GAG.handle,"Jūsų tektas"
yADAl.SendMessage GAG.handle,"Jūsų tekstas"
yADAl.SendMessage GAG.handle,"Jūsų tekstas"
yADAl.SendMessage GAG.handle,"Jūsų tekstas"
yADAl.SendMessage GAG.handle,"Jūsų tekstas"
next
Redaguota 2015-04-04 09:32
