Always on top, Desktop-YouTube-Player

Ich versuche, eine randlos ist, immer an der Spitze, YouTube-Player, ich habe eingestellt fast alles bekommen, hier ist mein Code:Always on top, Desktop-YouTube-Player

Dim html_aux As String = InputBox("Inserte URL YouTube") 
    Dim s As String() = html_aux.Split("=") 
    Dim htmlContent As String = "<html><body><iframe width='480'; height='271'; src='https://www.youtube.com/embed/" & s(1) & "'; frameborder='0';></iframe></body></html>" 
    Dim archivo As New System.IO.StreamWriter(".\Index.html", False) 
    If System.IO.File.Exists(".\Index.html") Then 
     archivo.WriteLine(htmlContent) 
     archivo.Close() 
    Else 
     MkDir(".\Index.html") 
     archivo.WriteLine(htmlContent) 
     archivo.Close() 
    End If 
    Navegador.Navigate("file:///" & IO.Path.GetFullPath(".\index.html"))

Das Problem kommt, wenn ich Anwendung starten; Ich erhalte drei Fehler vom WebBrowser-Steuerelement.

Skriptfehler.

Error: Object doesn't support property or method 'create'.

Meine Vermutung ist, diese Fehler von WebBrowser kommen nicht mit dem tatsächlichen HTML-Code zu unterstützen, die youtube.com/embed/url hält.

Gibt es eine Möglichkeit, WebBrowser mit diesen Konflikten umzugehen? Soll ich aufhören zu versuchen?

Quelle

2017-07-29 RicRev

fand ich die Antwort auf die Frage, was das Problem löst folgende Header an den HTML-Code hinzufügen:

<html> 
    <head> 
    <meta http-equiv='X-UA-Compatible' content='IE=edge' /> 
    ... headers code 
    </head> 
    <body> 
    ... body code 
    </body> 
</html>

ich nicht mehr Fehler Skript.

Ganze Code:

Public Class Form1 

Private Sub URLToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles URLToolStripMenuItem.Click 

    Dim html_aux As String = InputBox("Inserte URL YouTube") 
    Dim s As String() = html_aux.Split("=") 
    Dim htmlContent As String = 
     "<html> 
     <head> 
     <meta http-equiv='X-UA-Compatible' content='IE=edge' /> 
     </head> 
     <body> 
     <!DOCTYPE html PUBLIC '-//WAPFORUM//DTD XHTML Mobile 1.2//EN' 'http://www.openmobilealliance.org/tech/DTD/xhtml-mobile12.dtd'> 
     <iframe width='480'; height='271'; src='https://www.youtube.com/embed/" & s(1) & "'; frameborder='0';> 
     </iframe> 
     </body> 
     </html>" 
    Dim htmlFile As New System.IO.StreamWriter(".\Index.html", False) 
    If System.IO.File.Exists(".\index.html") Then 
     htmlFile.WriteLine(htmlContent) 
     htmlFile.Close() 
    Else 
     MkDir(".\index.html") 
     htmlFile.WriteLine(htmlContent) 
     htmlFile.Close() 
    End If 
    Navegador.Navigate("file:///" & IO.Path.GetFullPath(".\index.html")) 
End Sub 

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load 
    Me.TopMost = True 
End Sub 

End Class

Quelle

2017-07-29 07:15:55 RicRev

Always on top, Desktop-YouTube-Player

Antwort

Verwandte Themen