Hallo liebe community,
ich wollte mir eine kleine Wetter App zusammen basteln.
Soweit so gut.. Doch wenn ich die Daten von der Webseite abrufen will (in dem fall von Google < Beispiel) bekomm ich immer den Fehler: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
Also ich glaube das dieser Fehler früher sonst nie kam... Hmm hier mal mein Code:
Spoiler anzeigen
Danke im vorraus für die Hilfe!
ich wollte mir eine kleine Wetter App zusammen basteln.
Soweit so gut.. Doch wenn ich die Daten von der Webseite abrufen will (in dem fall von Google < Beispiel) bekomm ich immer den Fehler: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
Also ich glaube das dieser Fehler früher sonst nie kam... Hmm hier mal mein Code:
VB.NET-Quellcode
- Private weatherbrowser As New WebBrowser
- Private Sub change_location_btn_Click(sender As Object, e As EventArgs) Handles change_location_btn.Click
- My.Settings.Location = InputBox("Gebe hier deinen Standort ein (Der aktuelle Standort ist: " & My.Settings.Location & ")", "Neuen Standort")
- My.Settings.Save()
- GetNowWeatherInfos()
- End Sub
- Private Sub Weather_UC_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- weatherbrowser.ScriptErrorsSuppressed = True
- AddHandler weatherbrowser.DocumentCompleted, AddressOf weatherbrowser_DocumentCompleted
- If My.Settings.Location = Nothing Then
- MessageBox.Show("Sie haben noch keinen gültigen Standort eingegeben.", "Wetter", MessageBoxButtons.OK, MessageBoxIcon.Information)
- Else
- GetNowWeatherInfos()
- End If
- End Sub
- Private Sub GetNowWeatherInfos()
- weatherbrowser.Navigate("https://www.google.de/search?q=Wetter%" & My.Settings.Location)
- End Sub
- Private Sub weatherbrowser_DocumentCompleted(sender As System.Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) 'Hier kommt der Fehler
- GetWeatherInfos.Start()
- Try
- Dim weather_image_str As String = weatherbrowser.Document.GetElementById("wob_tci").GetAttribute("src")
- Catch ex As Exception
- MessageBox.Show(ex.Message, "Error in Extension: Weather", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
- End Sub
- Private Sub GetWeatherInfos_Tick(sender As System.Object, e As System.EventArgs) Handles GetWeatherInfos.Tick 'Und hier kommt der Fehler
- Try
- Dim doc = weatherbrowser.Document
- Dim ort_str As String = doc.GetElementById("wob_loc").InnerText
- Dim last_refresh_str As String = doc.GetElementById("wob_dts").InnerText
- Dim weather_state_str As String = doc.GetElementById("wob_dcp").InnerText
- Dim grad_str As String = doc.GetElementById("wob_tm").InnerText
- Dim rain_str As String = doc.GetElementById("wob_pp").InnerText
- Dim air_str As String = doc.GetElementById("wob_hm").InnerText
- Dim air_speed_str As String = doc.GetElementById("wob_ws").InnerText
- GetWeatherInfos.Stop()
- Catch ex As Exception
- GetWeatherInfos.Stop()
- MessageBox.Show(ex.Message, "Error in Extension: Weather", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End Try
- End Sub
Danke im vorraus für die Hilfe!
Wenn ich dir auf irgendeiner Art und Weise helfen konnte, drück doch bitte den "Hilfreich" Button
Für VB.NET Entwickler: Option Strict On nicht vergessen!
Für VB.NET Entwickler: Option Strict On nicht vergessen!