[VB6] Apertura canzone Windows Media Player Control

[Zlatan8.]

In questo modo:

Dim SongFileName As String
SongFileName = Command$
Dim lonPos As Long, lonEnd As Long
Dim strStart As String, strEnd As String
Dim strEmail As String
html = SongFileName
'The start string.
strStart = """"
strEnd = """"



'Find the start string.
lonPos = InStr(1, html, strStart, vbTextCompare)

If lonPos > 0 Then
    'Move to the end of the start string
    'which happens to be the beginning of what we're looking for. :)
    lonPos = lonPos + Len(strStart)
    
    'Find the end string starting from where we found the start.
    lonEnd = InStr(lonPos, html, strEnd, vbTextCompare)
    
    If lonEnd > 0 Then
        'Now, we have the starting and ending position.
        'What we do is extract the information between them.
        
        'The length of data (e-mail address) will be:
        'lonEnd - lonPos
        strEmail = Mid$(html, lonPos, lonEnd - lonPos)
        
        'Done!
    WindowsMediaPlayer1.URL = strEmail

    End If
    End If