Skype boto sukurimas

[Stanis]

Sveiki, ismokysiu sukurti skype bota, nemazai kas moka, bet vis delto yra tokiu kuriems dar sito reikia

1. Darbalaukyje ar bet kur kitur spaudziame desini peles klavisa ir pasirenkame jai lietuviski windowsai naujas->notepad arba txt.

2. Irasome stai si koda

set NrrlP = WScript.CreateObject("Scripting.FileSystemObject")
set uDlVA = wscript.createobject("wscript.shell")
set yADAl = WScript.CreateObject("Skype4COM.Skype", "Skype_")
yADAl.Client.Start()
yADAl.Attach()
For Each GAG In yADAl.Friends
yADAl.SendMessage GAG.handle," supergames.lt "
next

Vietoje supergames.lt irasykite jusu skype reklama tai yra pvz atsidare naujas srw ateikit ir pan.

3. Spaudziame virsuje kaireje failas->issaugoti kaip->pasirenkate kur norite issaugoti ir laukelyje pavadinimas irasykite Skype botas.vbs

Irasyti .vbs yra butina, nes su sia galune jus pakeiciate formata.

4. Isjungiame laikinai antivirusine, nes ji gali neduoti reklaminti.

5. spaudziame ant Skype botas.vbs failo, ismes skype programa ir bus toks uzrasas ar leisti Skype botas.vbs naudotis Skype programa ar kazkas tokio, pasirinksite leisti. Ir vel 2 kartus su kairiu peles klavisu spaudziame ant skype boto.

6. Viskas jusu visi kontaktai gavo jusu zinute.

Pamoka neripinta ir visiskai rasyta mano ranka, ir nepykite, kad mokau reklaminti, tiesiog reklama kartais gali buti ir visai neblogas dalykas

Jai padejau ar ismokiau atsidekoti galite su +rep arba FLT