Wetter Anzeige

03/26/2018 12:35 HackTec#1
Moinsen , Ich Stell euch mal kurz eine Billige und schnelle Methode vor ein kleine Anwendung mit Formular ID zu erstellen die euch das Wetter anzeigt mit der Google Seite.

In diesen Beispiel mit Berlin

Imports sind wahrscheinlich überflüssig aber ich hau die in jeden code rein zur sicherheit ^^


Ihr Braucht dafür :

Code:
- 7 Label
- 1 Webbrowser
- 1 Picturebox
- 2 Timer ( ein für den Ersten start und der andere für das Refreshen)



Da wir mit der Google Seite arbeiten und schnell fertig sein wollen gibts nur Stunden berichte wäre also dumm den Timer so oft starten zu lassen wenns kaum was bringt , alle 15min oder 30min refresh durch den Timer würde reichen.

falls die Formular ID falsch sind / sich halt neu updaten einfach nachtragen . wie findet man die ID herraus ? einfach Rechtsklick und dann "Element Untersuchen"





Code:
'////////////////////////////////////////////////////////////////////////////////Imports
Imports System
Imports System.Diagnostics
Imports System.ComponentModel
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Net
Imports System.IO
Imports System.Threading
Imports System.Windows.Forms
Imports System.Management
Imports Microsoft.Win32
Imports System.Collections.Generic
Imports System.Data
Imports System.Linq
'///////////////////////////////////////////////////////////////////////////////
'///////////////////////////////////////////////////////////////////////////////


Public Class Form1
    '///////////////////////////////////////////////////////////////////////////////
    '// DIM Strings
    Dim WetterSeite As String = "https://www.google.de/search?hl=de&site=&q=wetter+Berlin+google"

    Dim dd As Date = Now


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate(WetterSeite)
        Application.DoEvents()
        Do While WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop
        TickerFast.Start()
    End Sub



    Private Sub TickerFast_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TickerFast.Tick

        WetterAktuell.ImageLocation = WebBrowser1.Document.GetElementById("wob_tci").GetAttribute("src")
        Stadt.Text = WebBrowser1.Document.GetElementById("wob_loc").InnerText
        DatumID.Text = WebBrowser1.Document.GetElementById("wob_dts").InnerText
        StatusID.Text = WebBrowser1.Document.GetElementById("wob_dc").InnerText
        TempID.Text = WebBrowser1.Document.GetElementById("wob_tm").InnerText + " °C"

        Niederschlag.Text = "Niederschlag: " + WebBrowser1.Document.GetElementById("wob_pp").InnerText
        Windstärke.Text = "Windstärke: " + WebBrowser1.Document.GetElementById("wob_ws").InnerText
        Luftfeuchtigkeit.Text = "Luftfeuchtigkeit: " + WebBrowser1.Document.GetElementById("wob_hm").InnerText

        TickerFast.Stop()
        Ticker.Start()
    End Sub


    Private Sub Ticker_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ticker.Tick

            WetterAktuell.ImageLocation = WebBrowser1.Document.GetElementById("wob_tci").GetAttribute("src")
            Stadt.Text = WebBrowser1.Document.GetElementById("wob_loc").InnerText
            DatumID.Text = WebBrowser1.Document.GetElementById("wob_dts").InnerText
            StatusID.Text = WebBrowser1.Document.GetElementById("wob_dc").InnerText
            TempID.Text = WebBrowser1.Document.GetElementById("wob_tm").InnerText + " °C"

            Niederschlag.Text = "Niederschlag: " + WebBrowser1.Document.GetElementById("wob_pp").InnerText
            Windstärke.Text = "Windstärke: " + WebBrowser1.Document.GetElementById("wob_ws").InnerText
            Luftfeuchtigkeit.Text = "Luftfeuchtigkeit: " + WebBrowser1.Document.GetElementById("wob_hm").InnerText


    End Sub

 
End Class
So würde das Programm dann am ende Aussehen.



[Only registered and activated users can see links. Click Here To Register...]