Skype bot???

[Edvinas1999]

Laba vakara, kaip sukurti skype bota su windows 8.1?

[Quantame]

.

Redaguota Gegužės 16, 2014, nario Quantame

[Quantame]

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

 

šitą tekstą į notepad įrašai išsaugai kaip visi failai pavadinima betkokį dedi tik gale turi būti .vbs pvz skypebotas.vbs

 

turi antivirusinę išjungti ,nes kaip virusą mes ir ištrins botą tau.

Redaguota Gegužės 16, 2014, nario Quantame

[DiRT_]

Žmogus parašė, kaip reikia, bet jei neišeis, dar gali atsisiūsti ClownFish programą, tai panašiai kaip SkypeBot veikia Man tik patogiau ClownFish.

[`aKn]

Paprašyk, kad tau atsiųstu kas nors ir redaguok jį.