VB Code:
Option Explicit Sub Main() Msgbox "Welcome T[b][/b]o Spetnik's Napster Clone!!!" Shell "C:\Program Files\Napster\Napster.exe" End Sub
It's a beaut, no?:p
Printable View
VB Code:
Option Explicit Sub Main() Msgbox "Welcome T[b][/b]o Spetnik's Napster Clone!!!" Shell "C:\Program Files\Napster\Napster.exe" End Sub
It's a beaut, no?:p
Nice! :D
VB Code:
Option Explicit Sub Main() Msgbox "Welcome To Morpheus" If Len(Dir$("C:\Morpheus\Morpheus.exe")) <> 0 Then Shell "C:\Morpheus\Morpheus.exe", 1 Unload Me Else GoTo GetItMsg End If If Len(Dir$("C:\Program Files\Morpheus\Morpheus.exe")) <> 0 Then Shell "C:\Program Files\Morpheus\Morpheus.exe", 1 Unload Me Else GoTo GetItMsg End If Exit Sub GetItMsg: Msgbox "What are you doing? Go get Morpheus! It's better then Gnutella and Napster!", 16, "http://www.musiccity.com" End Sub
Guess it could be better coded, but I believe it all works, haven't tested it :rolleyes:.
Wahooo!!! Matthew, wanna merge our apps and go into competition w/ the cube?:p
Works so well, it even looks like the real thing! :eek:
Wait I'm trying to make an IE clone... what did you use? Shell, heh? :p