RSS Forums RSS
Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums

Newbie Help

Join Date: Oct 2006
Location: UK
Posts: 151
Reputation: HLA91 is an unknown quantity at this point 
Rep Power: 0
Solved Threads: 2
HLA91 HLA91 is offline Offline
Junior Poster

Help Newbie Help

  #1  
Mar 19th, 2007
Hi
I am totally new to vb and I saw this script which should open my D drive until I enter the password which is "me" but even when I enter "me" it still opens my drive why?

Thankyou
HLA91

Dim Msg,input,strFlag


Msg = "Who's the man  ?"


strFlag = False

Do While strFlag = False

input = InputBox(strMsg,"Make your selection")

Select Case inp01
    Case "me"
        msgBox "Hell yea"
        strFlag = True
    Case Else
        msgBox "No thats wrong now i wil open your cd rom"
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If

End Select

Loop

Wscript.Quit
You know your a geek, if you introduce your wife as "mylady@home.wife"
AddThis Social Bookmark Button
Reply With Quote  
Forums | Blogs | Tutorials | Code Snippets | Whitepapers | RSS Feeds | Advertising
All times are GMT -4. The time now is 3:09 pm.
Newsletter Archive - Sitemap - Privacy Statement - Contact Us
Forum system based on vBulletin Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
©2003 - 2008 DaniWeb® LLC