Hey VB-Paradise Com.
Hier mein Code:
Spoiler anzeigen
Ich möchte einmal die funktion (regex: Private Sub quellcode_auslesen()) festlegen und dann anhand einer combobox den URL der angefordert werden soll ändern.
Bsp.: Private Sub quellcode_auslesen()
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(webrequest_url)
...
End Sub
----
If ComboBox1.SelectedItem = "Google" Then
Dim webrequest_url = "www.google.de"
End If
If ComboBox1.SelectedItem = "Youtube" Then
Dim webrequest_url = "www.youtube.de"
End If
Ich weiß nicht wie ich das hinbekommen.
Mfg Regular_vb_user
Hier mein Code:
VB.NET-Quellcode
- Imports System.Text.RegularExpressions
- Imports System.IO
- Imports System.Text
- Public Class Form1
- Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
- End Sub
- Private Sub quellcode_auslesen()
- Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(webrequest_url)
- Dim response As System.Net.HttpWebResponse = request.GetResponse
- Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
- Dim rssourcecode As String = sr.ReadToEnd
- Dim r As New System.Text.RegularExpressions.Regex("<a href=""/release/(.*)"" style=(.*)""color: #FFFFFF"">(.*)(.*)<")
- Dim matches As MatchCollection = r.Matches(rssourcecode)
- For Each itemcode As Match In matches
- ListBox1.Items.Add(itemcode.Value.Split(CChar(">(.*)""(.*)<")).GetValue(1).ToString.Substring(0, itemcode.Value.Split(CChar(">(.*)""(.*)<")).GetValue(1).ToString.Length - 1))
- ListBox1.SelectedIndex = (0)
- Next
- End Sub
- Private Sub get_quellcode()
- ListBox1.Items.Clear()
- If ComboBox1.SelectedItem = "Google" Then
- Dim webrequest_url = "www.google.de"
- End If
- If ComboBox1.SelectedItem = "Youtube" Then
- Dim webrequest_url = "www.youtube.de"
- End If
- End Sub
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- get_quellcode()
- End Sub
- End Class
Ich möchte einmal die funktion (regex: Private Sub quellcode_auslesen()) festlegen und dann anhand einer combobox den URL der angefordert werden soll ändern.
Bsp.: Private Sub quellcode_auslesen()
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(webrequest_url)
...
End Sub
----
If ComboBox1.SelectedItem = "Google" Then
Dim webrequest_url = "www.google.de"
End If
If ComboBox1.SelectedItem = "Youtube" Then
Dim webrequest_url = "www.youtube.de"
End If
Ich weiß nicht wie ich das hinbekommen.
Mfg Regular_vb_user