Code For Open-Source Napster Clone!!!

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