Kaip susikurti savo norimą skype reklamerį?

[AivarasP]

Sveiki,šenden aš jums parodysiu kaip reikia susikurti savo norimą skype reklamerį.

Pradėkime:

1.Susikuriame .vbs failą arba .txt failą ir tada pakeičiame jo formątą.

2.Atsidarome .vbs failą.Spaudžiame dešinį pelės klavišą ant failo tada edit ir matome atsidarė tuščia lentelė.

3.Joje įrašome:

on error resume next

set yADAl = WScript.CreateObject("Skype4COM.Skype", "Skype_")

yADAl.Client.Start()

For Each GAG In yADAl.Friends

yADAl.SendMessage GAG.handle,"Tekstas"

yADAl.SendMessage GAG.handle,"Tekstas"

yADAl.SendMessage GAG.handle,"Tekstas"

yADAl.SendMessage GAG.handle,"Tekstas"

next

Matome eilutes:

yADAl.SendMessage GAG.handle,"TAVO TEKSTAS"

Jū galite kurti daug pvz va kaip gali būti su daugiau eilučiū kur galima rašyti tekstą.

on error resume next

set yADAl = WScript.CreateObject("Skype4COM.Skype", "Skype_")

yADAl.Client.Start()

For Each GAG In yADAl.Friends

yADAl.SendMessage GAG.handle,"Tekstas"

yADAl.SendMessage GAG.handle,"Tekstas"

yADAl.SendMessage GAG.handle,"Tekstas"

yADAl.SendMessage GAG.handle,"Tekstas"

yADAl.SendMessage GAG.handle,"Tekstas"

yADAl.SendMessage GAG.handle,"Tekstas"

yADAl.SendMessage GAG.handle,"Tekstas"

next

Ir tiek galite daug.

Tada viską išsaugote ir štai jums skype reklameris.

PS: Šią pamoką kūriau tiems kurie ieškote skype reklamerių ir šeip,kad mokėtumėte.

Nu pvz štai taip atrodo mano reklameris galite kopintis ta skripta.

Va reklameris:

on error resume next

set yADAl = WScript.CreateObject("Skype4COM.Skype", "Skype_")

yADAl.Client.Start()

For Each GAG In yADAl.Friends

yADAl.SendMessage GAG.handle,"Sveikas,mesti pramogas bei žaidimus?"

yADAl.SendMessage GAG.handle,"mano web bet nerašysiu,nes bus kaip reklama"

yADAl.SendMessage GAG.handle,"Svetaine kurioje rasi viska apie cs,sa-mp,call of duty bei kitus populiarius žaidimus."

yADAl.SendMessage GAG.handle,"Bendrausi su kitais žmonemis,rasi daug pamoku,žaisi musu 3 cs serveriuose.Užeik http://sga.too.lt Turime 2 cs serverius Public bei ZM ;)"

next

O skripta atsikopinsite ir pakeisite

Atsiprašau už reklamą.

Jai negaila +rep

[-PAWNED-]

Neaiškiai kažkaip... Sako " Atidarome .vbs arba .txt faila ir pakeičiame jo formatą

ir viskas, na as asmeniškai tai moku bet kiti nesupras..

[Drifteris]

Nieko nesupatau. ;D

[Golor]

Jeigu kas užreklamins man per Skype iškart Blocka dedu Tai nesistebėkit... O šiaip čia neaiški pamoka.Išsamiai galėjo viską parašyt,nors aš tai žinau su tuo reklameriu

[Lukas2K]

Gal nors parasyk kur ta vbs. faila gauti .

[FreDiS^]

Jus nemokat , skaityti ar kaip?

Viskas aiškiai parašytą.. Ir ko če nesuprasti ?

[AivarasP]

Pritariu Fredžiui.Ko čia nesuprast? Susikurkit .vbs arba .txt failą.O jai usikūrėt txt pakeiskit jo formątą i .vbs?? Ko čia nesuprast?

[Augustris]

eina ant windows 7 ?

[Fistas]

eina ant windows 7 ?

Veikia ant visų windousu :DD

[AivarasP]

Immortal tu skaityt moki ar kaip? Susikuri .vbs failą susikuri.O jai negali susikurt tai susikuri .txt ir pakeiti jo formatą...

[faneriux]

kaip ji susikurt su .vbs?

[STEAM žaidimai]

Surašai tekstą, spaudi Save As > Pavadinimą rašai : Reklama.vbs, ir išsaugoji.

[Nasa]

Kam kuri dvi temas taigi esi jau sukures video idejes ir gana. Tai post'us renki .

[juliuxxx1]

Pasirodė per daug visko surašyta, manau galėjai trumpiau ir aiškiau

[InSaneOxT]

Dėkui. Ilgai ieškojau

[SOFER-1-]

Nu va, susikūriau.

[Schumaker]

NIEKAM NEPATARIU KURTI SITO SKYPE REKLAMERIO.CIA YRA VIRUSAS. stai

:bumba: :bumba: :bumba: :bumba: :bumba: :bumba: :bumba: :bumba: :bumba: :bumba:

Ar galit padaryt be virusu

[Ignas.]

Pas mane errorą išmeta paleidžiant, ir išsitrina jis ;D

[Sneroq]

NIEKAM NEPATARIU KURTI SITO SKYPE REKLAMERIO.CIA YRA VIRUSAS. stai

:bumba: :bumba: :bumba: :bumba: :bumba: :bumba: :bumba: :bumba: :bumba: :bumba:

Ar galit padaryt be virusu

Joks čia virusas. Čia tą reklameri pagauna kaip spamerį ir rodo kaip virusą. Išsijunk antivirusinę ir naudok tada.