Page 1 of 1

Skype BOT

Posted: 2012 Apr 01 14:41
by 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?

Re: Skype BOT

Posted: 2012 Apr 01 19:03
by TETYYS
Galėčiau suprogramuot bot'ą tau pagal prašymus.

Re: Skype BOT

Posted: 2012 Apr 01 19:24
by 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

Re: Skype BOT

Posted: 2012 Apr 02 07:08
by TETYYS
Trickas wrote: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

Re: Skype BOT

Posted: 2012 Apr 02 10:20
by Trickas
Ką? ;D Tai gali padaryt, veikiantį.. aš ten tik kaip tekstą daviau

Re: Skype BOT

Posted: 2012 Apr 02 11:16
by TETYYS
Trickas wrote:Ką? ;D Tai gali padaryt, veikiantį.. aš ten tik kaip tekstą daviau
Ok. kekdosi?

Re: Skype BOT

Posted: 2012 Apr 02 11:33
by Trickas
JEIGU veiks išviso.. Sakyk kiek nori?

Re: Skype BOT

Posted: 2012 Apr 02 18:39
by TETYYS
Trickas wrote:JEIGU veiks išviso.. Sakyk kiek nori?
Sukūriau, MAN veikia kuo puikiausiai (reikejo gal 20-čiai žmonių aiškint, kad čia botas rašė :D); Į skype pridek.