Click here to Skip to main content
15,920,503 members
Home / Discussions / Visual Basic
   

Visual Basic

 
Generalkey ascii Pin
chand_p10-Feb-05 14:42
chand_p10-Feb-05 14:42 
GeneralRe: key ascii Pin
Bad Sector10-Feb-05 20:43
Bad Sector10-Feb-05 20:43 
GeneralRe: key ascii Pin
Briga11-Feb-05 4:38
Briga11-Feb-05 4:38 
GeneralPassing a function as an argument Pin
Anonymous10-Feb-05 10:23
Anonymous10-Feb-05 10:23 
GeneralRe: Passing a function as an argument Pin
Dave Kreskowiak10-Feb-05 11:36
mveDave Kreskowiak10-Feb-05 11:36 
GeneralScreen Resolution Pin
HarleyHetz10-Feb-05 7:58
HarleyHetz10-Feb-05 7:58 
GeneralRe: Screen Resolution Pin
Dave Kreskowiak10-Feb-05 8:55
mveDave Kreskowiak10-Feb-05 8:55 
GeneralDVD Title's and Ratings Pin
studlyed10-Feb-05 7:31
studlyed10-Feb-05 7:31 
Im trying to get the Title, Ratings and Time from an inserted DVD. I cant find out what to do to get this information. Its like theres no information on how to pull any kind of information from a dvd on the net. If anybody has any information on how to do this it would be much appreciated.

Ok. Well I was able to pull all the information using the windows media player control....It was a pain. Now I just need to find the length of the main dvd movie. I have some code that runs through every media item but it returns 00:00? How odd. Heres the code that I have so far:
If oThisDrive.driveSpecifier = registryvalues.DVDDriveLetter Then 'do this block of code if we are on the right dvd drive letter
oSelectedDrive = oThisDrive
strProtocol = "wmpdvd://" & Left(oSelectedDrive.driveSpecifier, 1)
oTopMenu = oSelectedDrive.Playlist
hiddendvdplayer.WindowsMediaPlayer.currentPlaylist = oTopMenu
'display the playlist
Dim oSelectedPlaylist As WMPLib.IWMPPlaylist
Dim iNumItems As Short
Dim counter2 As Short
iNumItems = oTopMenu.count
If Not iNumItems > 0 Then
MsgBox("No items in the playlist or" & vbCrLf & "no disc in the drive.", MsgBoxStyle.Critical, "WARNING!")
End If
For i = 0 To iNumItems - 1 'go through each of the titles and figure out the longest one...we will assume that is the movie
strProtocol = "wmpdvd://" & Left(oSelectedDrive.driveSpecifier, 1) & "/" & Mid(Str(i), 2)
mywriter.WriteLine("STRPROTOCOL: " + strProtocol)
loadmedia(strProtocol, hiddendvdplayer)
ripdvd.Title = hiddendvdplayer.WindowsMediaPlayer.currentPlaylist.name()
'mywriter.WriteLine("CURRENTPLAYLISTNAME: " + hiddendvdplayer.WindowsMediaPlayer.currentPlaylist.name())
mywriter.WriteLine("CURRENTLENGTH: " + hiddendvdplayer.WindowsMediaPlayer.currentPlaylist.Item(0).durationString)
For counter2 = 0 To hiddendvdplayer.WindowsMediaPlayer.currentPlaylist.attributeCount - 1
mywriter.WriteLine("CURRENTPLAYLISTATTRIBUTE: " + Str(counter2) + " : " + hiddendvdplayer.WindowsMediaPlayer.currentPlaylist.attributeName(counter2) + " : " + hiddendvdplayer.WindowsMediaPlayer.currentPlaylist.getItemInfo(hiddendvdplayer.WindowsMediaPlayer.currentPlaylist.attributeName(counter2)))
Next

Next

End If

Wheres the EXE? Oh yeah I need to compile it. <-- ME
GeneralMultiColumn Combo Pin
Shahzad Ahmed Khan10-Feb-05 7:00
Shahzad Ahmed Khan10-Feb-05 7:00 
GeneralVB.NET MultiColumn ComboBox Pin
Shahzad Ahmed Khan10-Feb-05 6:51
Shahzad Ahmed Khan10-Feb-05 6:51 
GeneralDistinguishing between MONTHS question.. Pin
Ranchoz7110-Feb-05 5:05
Ranchoz7110-Feb-05 5:05 
GeneralRe: Distinguishing between MONTHS question.. Pin
Jim Matthews10-Feb-05 6:05
Jim Matthews10-Feb-05 6:05 
GeneralRe: Distinguishing between MONTHS question.. Pin
Ranchoz7110-Feb-05 6:17
Ranchoz7110-Feb-05 6:17 
GeneralRe: Distinguishing between MONTHS question.. Pin
Dave Kreskowiak10-Feb-05 6:34
mveDave Kreskowiak10-Feb-05 6:34 
GeneralForm loses xp theme with WebBrowser object Pin
carlos_rocha10-Feb-05 4:37
carlos_rocha10-Feb-05 4:37 
GeneralRe: Form loses xp theme with WebBrowser object Pin
Joshua Quick10-Feb-05 10:24
Joshua Quick10-Feb-05 10:24 
GeneralRe: Form loses xp theme with WebBrowser object Pin
carlos_rocha10-Feb-05 22:23
carlos_rocha10-Feb-05 22:23 
GeneralRe: Form loses xp theme with WebBrowser object Pin
Joshua Quick11-Feb-05 6:44
Joshua Quick11-Feb-05 6:44 
Generalreferencing in Word Pin
Stephan Wright9-Feb-05 22:39
Stephan Wright9-Feb-05 22:39 
GeneralDataGrid Problem Pin
Sumit Domyan9-Feb-05 22:35
Sumit Domyan9-Feb-05 22:35 
GeneralRe: DataGrid Problem Pin
Jim Matthews10-Feb-05 5:58
Jim Matthews10-Feb-05 5:58 
GeneralProblems validating an Active Directory path Pin
mystiqu9-Feb-05 21:53
mystiqu9-Feb-05 21:53 
GeneralSubroutines in VB Pin
Mahesh16799-Feb-05 19:49
Mahesh16799-Feb-05 19:49 
GeneralRe: Subroutines in VB Pin
Stephan Wright9-Feb-05 21:21
Stephan Wright9-Feb-05 21:21 
GeneralRe: Subroutines in VB Pin
Just Greeky Creek9-Feb-05 21:45
Just Greeky Creek9-Feb-05 21:45 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.