Visual Basic

<br />
    Dim cdromcollection As WMPLib.IWMPCdromCollection<br />
    Dim mediaplayercore As New WMPLib.WindowsMediaPlayerClass<br />
    Dim cdrom As WMPLib.IWMPCdrom<br />
    Dim rip As WMPLib.IWMPCdromRip<br />
<br />
        cdromcollection = mediaplayercore.cdromCollection<br />
        cdrom = cdromcollection.getByDriveSpecifier(My.Settings.cd)<br />
        Dim media As WMPLib.IWMPMedia<br />
        media = cdrom.Playlist.Item(My.Settings.track)<br />
        Dim Playlist As WMPLib.IWMPPlaylist = mediaplayercore.newPlaylist("templist", "")<br />
        Playlist.clear()<br />
        Playlist.appendItem(media)<br />
        rip = cdrom<br />
        rip.startRip()<br />

dim m as wmplib.iwmpcdrom<br />
 <br />
For x As Integer = 0 To mMediaPlaylist.count - 1<br />
                    If lst.Item(i).ToString().ToUpper() = mMediaPlaylist.Item(x).getItemInfo("Title").ToUpper() Then<br />
                        m = MediaPlayer.cdromCollection.getByDriveSpecifier(mReadyDrive)<br />
                        m.Playlist.Item(x).setItemInfo("SelectedForRip", CType(True, String))<br />
                    End If<br />
                Next

Do While str.Length > 0

            'first I take each character using substring

            sValue = str.Substring(0, 1).ToString()

            'then convert character into ascii.        

            sValue = Strings.Asc(sValue)

            'then convert ascii value into Hex Format 

            sValue = Conversion.Hex(sValue)


            'after converting remove the character. 
            sHex(count) = sValue
            bytes(i) = Byte.Parse(sValue, Globalization.NumberStyles.AllowHexSpecifier)
            count = count + 1
            str = str.Substring(1, str.Length - 1)
            i = i + 1

byte[] AsciiByteArray=Encoding.ASCII.GetBytes(myInputString);