Link Adresse auslesen Webbrowser

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Vortex1991.

    Link Adresse auslesen Webbrowser

    Hi alle zusammen :)

    ich sitze derzeit an einem kleinem Projekt, von welchem ich noch nicht all zu viel erzählen möchte :P.
    Prinzipiell ist die Anwendung fertig, leider gefällt mir die aktuelle Umsetzung nicht, da sie den User dazu auffordert auf im Webbrowser angezeige Buttons manuell zu klicken.

    Also erst einmal bin ich mir auch überhaupt nicht sicher, ob es überhaupt möglich ist, link Adressen von Buttons auslesen zu lassen.

    Als kleine Anmerkung ich benutze folgende klasse, um den Webbrowser gegen den etwas besseren Edge Browser auszutauschen.

    VB.NET-Quellcode

    1. Namespace My
    2. Partial Friend Class MyApplication
    3. Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
    4. CreateBrowserKey()
    5. End Sub
    6. Private Sub MyApplication_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
    7. ' I don't like applications that defecate in the registry and then don't cleanup their own mess
    8. ' so remove the key
    9. RemoveBrowerKey()
    10. End Sub
    11. Private Const BrowserKeyPath As String = "\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION"
    12. Private Sub CreateBrowserKey(Optional ByVal IgnoreIDocDirective As Boolean = False)
    13. Dim basekey As String = Microsoft.Win32.Registry.CurrentUser.ToString
    14. Dim value As Int32
    15. Dim thisAppsName As String = My.Application.Info.AssemblyName & ".exe"
    16. ' Value reference: http://msdn.microsoft.com/en-us/library/ee330730(v=VS.85).aspx
    17. ' IDOC Reference: http://msdn.microsoft.com/en-us/library/ms535242(v=vs.85).aspx
    18. Select Case (New WebBrowser).Version.Major
    19. Case 8
    20. If IgnoreIDocDirective Then
    21. value = 8888
    22. Else
    23. value = 8000
    24. End If
    25. Case 9
    26. If IgnoreIDocDirective Then
    27. value = 9999
    28. Else
    29. value = 9000
    30. End If
    31. Case 10
    32. If IgnoreIDocDirective Then
    33. value = 10001
    34. Else
    35. value = 10000
    36. End If
    37. Case 11
    38. If IgnoreIDocDirective Then
    39. value = 11001
    40. Else
    41. value = 11000
    42. End If
    43. Case Else
    44. Exit Sub
    45. End Select
    46. Microsoft.Win32.Registry.SetValue(Microsoft.Win32.Registry.CurrentUser.ToString & BrowserKeyPath,
    47. Process.GetCurrentProcess.ProcessName & ".exe",
    48. value,
    49. Microsoft.Win32.RegistryValueKind.DWord)
    50. End Sub
    51. Private Sub RemoveBrowerKey()
    52. Dim key As Microsoft.Win32.RegistryKey
    53. key = Microsoft.Win32.Registry.CurrentUser.OpenSubKey(BrowserKeyPath.Substring(1), True)
    54. key.DeleteValue(Process.GetCurrentProcess.ProcessName & ".exe", False)
    55. End Sub
    56. End Class 'MyApplication
    57. End Namespace


    Was ich doch noch anmerken möchte ist, dass ich mit der Webbrowser.DocumentText Funktion nicht weiter komme, da im Quelltext keine Links dargestellt werden.

    Über Ansätze oder gute Ideen würde ich mich sehr freuen :)

    Liebe Grüße Vortex

    Was für Links auf welchen Buttons auf welcher Seite?

    Nachtrag: Buttons haben, in der Regel, im OnClick Event eine Funktion hinterlegt.
    Die deutsche Sprache ist Freeware, du kannst sie benutzen, ohne dafür zu bezahlen. Sie ist aber nicht Open Source, also darfst du sie nicht verändern, wie es dir gerade passt.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „MrTrebron“ ()

    Vortex1991 schrieb:

    link Adressen von Buttons

    Link !== Button

    Wenn wir von einer Website ausgehen, hätten wir "a"- & "button"-Tags.
    Ein Button hat nur die Standard-Events und dessen "Link" kann nur über das Event-Handling von Click, Hover, etc. angesteuert werden.

    Ein Link ("a"-Tag) hat innerhalb des Tags ein href-Attribut, was den targetLink, also die URL darstellt.

    Sprich rein aus dem Sourcecode einer Website bekommst du generell die URL von Links heraus, um die URL aus einem Button zu bekommen, müsstest du Zugriff auf die .js-Files etc. haben.
    (ein möglicher Workaround wäre, Links wie einen Button zu stylen..)
    Also was hast du in deiner Website?

    Auch wenn du nicht viel erzählen willst, wären auch Code-Snippets zur Website hilfreich.

    LG, Acr0most
    Wenn das Leben wirklich nur aus Nullen und Einsen besteht, dann laufen sicherlich genügen Nullen frei herum. :D
    Signature-Move 8o
    kein Problem mit privaten Konversationen zu Thema XY :thumbup:

    Habe es nun mittels einer C# library gelöst. Danke an die hilfreichen Antworten. Leider hat keine so geklappt wie es sollte, da die Seite erst einmal in ein neues Dokument läd.
    Für alle die interessiert sind, es ist ein youtube downloader.
    Die Adresse der API werde ich heraus Zensieren aus rechtlichen Gründen :)

    C#-Quellcode

    1. using HtmlAgilityPack;
    2. using OpenQA.Selenium.PhantomJS;
    3. using System;
    4. using System.Diagnostics;
    5. using System.Linq;
    6. using System.Threading;
    7. namespace VXYTDLL
    8. {
    9. public sealed class YoutubeVideo
    10. {
    11. private string url = "";
    12. public string Result { get; private set; }
    13. public bool IsFinished { get; private set; }
    14. public event EventHandler Finished;
    15. private void OnFinished(EventArgs e)
    16. {
    17. EventHandler handler = Finished;
    18. IsFinished = true;
    19. if (handler != null)
    20. handler(this, e);
    21. }
    22. public YoutubeVideo(string VideoID)
    23. {
    24. IsFinished = false;
    25. url = $"https://*************************/{VideoID}";
    26. var thread = new Thread(doStuff);
    27. thread.Start();
    28. }
    29. private void doStuff()
    30. {
    31. var doc = new HtmlDocument();
    32. HtmlNodeCollection nodes;
    33. try
    34. {
    35. var service = PhantomJSDriverService.CreateDefaultService();
    36. service.LocalToRemoteUrlAccess = true;
    37. service.HideCommandPromptWindow = true;
    38. PhantomJSDriver driver = new PhantomJSDriver(service);
    39. driver.Navigate().GoToUrl(url);
    40. //Ich bin C Sharp und whine bei jedem noch so kleinen fehlendem ; #NoAutoFill
    41. while(driver.PageSource.Contains("download-mp3-url btn audio q320") == false) {
    42. Thread.Sleep(1);};
    43. doc.LoadHtml(driver.PageSource);}
    44. catch
    45. {Console.WriteLine("ERROR: FAILED TO INITIALIZE WEBDRIVER");
    46. Result = null;
    47. OnFinished(new EventArgs());
    48. return;}
    49. nodes = doc.DocumentNode.SelectNodes("//*[contains(@class,'**************** audio q320')]");
    50. Result = "http:" + nodes[0].Attributes.AttributesWithName("href").ToArray()[0].Value;
    51. this.OnFinished(new EventArgs());
    52. }
    53. }
    54. }


    Und die entsprechende VB.net

    VB.NET-Quellcode

    1. Imports VXYTDLL, System.Net
    2. Public Class Form1
    3. Public S As String = "", wb As New WebBrowser With {.ScriptErrorsSuppressed = True}, DlFin As Boolean = False
    4. Public WithEvents WC As New WebClient
    5. Private Sub DL_Button_Click(sender As Object, e As EventArgs) Handles DL_Button.Click
    6. If Tracklist.Items.Count = 0 Then
    7. MsgBox("No Video was found. Please add Videos to the" & vbCrLf & "Tracklist by clicking the Button above.")
    8. Else
    9. If TextBox1.Text.Length = 0 Then
    10. MsgBox("Please select a Downloadpath.")
    11. Else
    12. Button1.Enabled = False
    14. download_start()
    15. End If 'L0L icH biN ein MMongO und Find die geschweiften klammern auf meiner tastatur nicht #VBProgrammierer.
    16. End If
    17. End Sub 'L0L icH biN ein MMongO und Find die geschweiften klammern auf meiner tastatur nicht #VBProgrammierer.
    18. Sub download_start()
    19. Dim STR As String = ""
    20. ALLDL.Value = 0
    21. CurrentDL.Value = 0
    22. ALLDL.Maximum = Tracklist.Items.Count
    23. For Each i As ListViewItem In Tracklist.Items
    24. Try
    25. WC.DownloadFileAsync(New Uri(i.SubItems(2).Text), TextBox1.Text & "\" & i.Text.Replace(":", "").Replace("?", "").Replace("*", "").Replace("<", "").Replace(">", "").Replace("|", "").Replace("/", "").Replace("\", "").Replace("""", "") & ".mp3")
    26. 'Application.DoEvents()
    27. DlFin = False
    28. Button1.Enabled = False
    29. While DlFin = False
    30. Application.DoEvents()
    31. End While
    32. Catch ex As Exception
    34. End Try
    35. Next
    36. End Sub
    37. Private Sub wc_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles WC.DownloadFileCompleted
    38. DlFin = True
    39. ALLDL.Value = ALLDL.Value + 1
    40. End Sub
    41. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    42. DL_Button.Enabled = False
    43. TextBox1.Text = My.Settings.Path
    44. End Sub
    45. Private Sub wc_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles WC.DownloadProgressChanged
    46. CurrentDL.Value = e.ProgressPercentage
    47. End Sub
    48. Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
    49. For Each P As Process In System.Diagnostics.Process.GetProcessesByName("phantomjs")
    50. P.Kill()
    51. Next
    52. End Sub
    53. Private Sub TextBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseClick
    54. If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
    55. TextBox1.Text = FolderBrowserDialog1.SelectedPath
    56. End If
    57. My.Settings.Path = TextBox1.Text
    58. End Sub
    59. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    60. Dim Skipped As Integer = 0, Informer As String = ""
    61. Tracklist.Items.Clear()
    62. Button1.Text = "Getting Links - Please Wait..."
    63. infotext.Text = "Getting Tracks..."
    64. Button1.Enabled = False
    65. For Each link As String In Youtube_Links.Lines
    66. Try
    67. If link.Contains("https://www.youtube.com/watch?v=") = False And link.Contains("https://youtu.be/") = False And link.Contains("https://www.youtube.com/embed/") = False Then
    68. If link.Contains("") Then
    69. ' Playlist Events
    70. End If
    71. infotext.Text = "Skipping. Reason: No YouTube Link."
    72. Skipped = +1
    73. GoTo NoVideo
    74. End If
    75. ' ######################### Get VideoID ##############################
    76. Dim VideoID As String = ""
    77. If link.Contains("https://www.youtube.com/watch?v=") Then
    78. VideoID = link.Replace("https://www.youtube.com/watch?v=", "")
    79. ElseIf link.Contains("https://youtu.be/") Then
    80. VideoID = link.Replace("https://youtu.be/", "")
    81. ElseIf link.Contains("https://www.youtube.com/embed/") Then
    82. VideoID = link.Replace("https://www.youtube.com/embed/", "")
    83. End If
    84. ' ####################################################################
    86. ' ######################## Get Track Name ############################
    87. wb.Navigate(New Uri("https://www.youtube.com/embed/" & VideoID))
    88. While wb.ReadyState <> WebBrowserReadyState.Complete
    89. Application.DoEvents()
    90. End While
    91. ' ########################## Check Track #############################
    92. If wb.DocumentTitle = "YouTube" Or wb.DocumentTitle.Contains("YouTube") = False Then
    93. infotext.Text = "Skipping. Reason: Corrupt Video or Link."
    94. Skipped = +1
    95. GoTo NoVideo
    96. End If
    97. ' ####################################################################
    99. ' ########################### Get MP3 ################################
    100. Dim downloader As YoutubeVideo = New YoutubeVideo(VideoID)
    101. While downloader.IsFinished = False
    102. Application.DoEvents()
    103. End While
    104. Dim I As New ListViewItem With {.Text = wb.DocumentTitle.Replace(" - YouTube", "")}
    105. I.SubItems.Add(VideoID)
    106. I.SubItems.Add(downloader.Result)
    107. Tracklist.Items.Add(I)
    108. Catch ex As Exception
    109. MsgBox(ex.Message)
    110. End Try
    111. ' ######################################################################
    112. NoVideo:
    113. Next
    114. Button1.Text = "Add Links to Downloadlist"
    115. Select Case Tracklist.Items.Count
    116. Case 0
    117. Informer = "No Tracks found"
    118. Case 1
    119. Informer = Tracklist.Items.Count & " Track added to List"
    120. Case Else
    121. Informer = Tracklist.Items.Count & " Tracks added to List"
    122. End Select
    123. infotext.Text = Informer & " | " & Skipped & " skipped"
    124. Button1.Enabled = True
    125. If Tracklist.Items.Count = 0 Then
    126. DL_Button.Enabled = False
    127. Else
    128. DL_Button.Enabled = True
    129. End If
    130. End Sub
    131. End Class


    Hier das fertige Programm. Wenn solche Anwendungen nicht gestattet sind bitte um Rückmeldung :o

    Download V-Mp3

Facebook
Telefonspende