msgbox ("SERIAL DO EVEREST CKT3I-CUH47-RP4A4-I4PCF-JDI8J"), vbinformation, "LiPe ReVoLuTiOn"
msgbox ("GeralGamesFPS.blogspot.com.br"), vbinformation, "LiPe ReVoLuTiOn"
msgbox ("Visite meu Canal :D"), vbinformation, "LiPe ReVoLuTiOn"

Set variable = CreateObject("WScript.Shell")
variable.Run "http://www.youtube.com/user/lipetora10"