Skype BOT

[Trickas]

Sveiki, norėjau paklaust kodėl pas mane pvz neveikia skype botas, man draugas atsiuntė ir savo skype versiją ir skype botą, neveikia pas mane.. o pas jį viskas ok?

[TETYYS]

Galėčiau suprogramuot bot'ą tau pagal prašymus.

[Trickas]

Labai gerai būtų.

Mano dabartinis tai jį perdaryk jei gali, pas mane dbr versija naujausia 5.8, bet galėčiau ir senesnę kokią reikės įsirašyt. Win 7.

Code: Select all

on error resume next set yADAl = WScript.CreateObject("Skype4COM.Skype", "Skype_")yADAl.Client.Start() For Each GAG In yADAl.FriendsyADAl.SendMessage GAG.handle,"(*)            www.DusK.LT            (*)"yADAl.SendMessage GAG.handle,"(*)                 .                 (*)"yADAl.SendMessage GAG.handle,"(*)  Counter Strike serveriai tau...  (*)"yADAl.SendMessage GAG.handle,"(*)                 .                 (*)"yADAl.SendMessage GAG.handle,"(*)       UmbrellaSwarm [GunXP]       (*)"yADAl.SendMessage GAG.handle,"(*)          Jau atidarytas!!!        (*)"yADAl.SendMessage GAG.handle,"(*)                 .                 (*)"yADAl.SendMessage GAG.handle,"(*)            Serverio IP:           (*)"yADAl.SendMessage GAG.handle,"(*)           DusK.LT:27015           (*)"yADAl.SendMessage GAG.handle,"(*)                 .                 (*)"yADAl.SendMessage GAG.handle,"(*)        Akcija!! VIP Tik 1LT       (*)"yADAl.SendMessage GAG.handle,"(*)       www.DusK.LT/paslaugos/      (*)"next

[TETYYS]

Labai gerai būtų.

Mano dabartinis tai jį perdaryk jei gali, pas mane dbr versija naujausia 5.8, bet galėčiau ir senesnę kokią reikės įsirašyt. Win 7.

>Still using VBScript
>2012

[Trickas]

Ką? ;D Tai gali padaryt, veikiantį.. aš ten tik kaip tekstą daviau

[TETYYS]

Ką? ;D Tai gali padaryt, veikiantį.. aš ten tik kaip tekstą daviau

Ok. kekdosi?

[Trickas]

JEIGU veiks išviso.. Sakyk kiek nori?

[TETYYS]

JEIGU veiks išviso.. Sakyk kiek nori?

Sukūriau, MAN veikia kuo puikiausiai (reikejo gal 20-čiai žmonių aiškint, kad čia botas rašė ); Į skype pridek.