Skype boto kurimas

[Mantvydas_Lietuva]

Sveiki, taigi sukursiu pamoką, kaip sukurti skype botą, nes daugelis gal būt nemokat. Pamoka aišku galite rasti ir kitur, bet tiesiog įmesiu ir čia.

1. Susikuriame nauja notepad projekta.

2. Nusikopijuojame ir iklijuojame šita koda:

Quote

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ų tekstas"

next

3. Čia yra 2 eilutes, eilučių gale irašyta "jūsų tekstas", jus pakeiskite į savo norima teksta, tai bus reklama.

4. Jiegu jūs norite iterpti didesne reklama tiesiog copy-paste eilutes, kuriuose parašyta gale "jūsų tekstas"

5. Išsaugome dokumenta, .vbs pavidalu. pvz. pavadinimas.vbs

6. Dažnai dėl vbs meta antivirusine, jog rodo, kad yra virusas, taigi antivirusine išjunkite.

7. Viskas spauskite ant failiuko ir stebėkite kas vyskta jūsų skypėje

[Tadas_Capone]

Seniau kai turėdavau ką reklamuoti naudodavau, bet dabar nebereikia. Kitiems pravers.

[Randall_Evan]

Nueini į google, persisiunti ir tik tekstą pakeiti, Oho!