Wettercode Yahoo


  • Moin ihr Nasen 8)

    Entweder für Rainmeter oder iWeather oder jegliche andere Wetterapplikationen werden Wettercodes benutzt.
    Da es mir teilweise schwer fiel, die Wettercodes bei Yahoo rauszufinden, habe ich ein kleines Script geschrieben, welches euch den Wettercode für euern Ort zur Verfügung stellt.

    Quellcode

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=sun-icon.ico
    #AutoIt3Wrapper_outfile=Weathercode.exe
    #AutoIt3Wrapper_UseX64=n
    #AutoIt3Wrapper_Res_Comment=n0zly@web.de
    #AutoIt3Wrapper_Res_Description=Yahoo Wettercode
    #AutoIt3Wrapper_Res_Fileversion=0.9.0.0
    #AutoIt3Wrapper_Res_LegalCopyright=by Kev.K
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #cs ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    AutoIt Version: 3.3.6.1
    Author: Kev K.

    [/autoit] [autoit][/autoit] [autoit]

    Script Function:
    Template AutoIt script.

    [/autoit] [autoit][/autoit] [autoit]

    #ce ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    ; Script Start - Add your code below here

    [/autoit] [autoit][/autoit] [autoit]

    #include <GUIConstants.au3>
    #include <EditConstants.au3>
    #include <File.au3>
    #include <array.au3>

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Fileinstall("C:\germany.db",@tempdir & "\germany.db")

    [/autoit] [autoit][/autoit] [autoit]

    Hotkeyset("{enter}","enter")

    [/autoit] [autoit][/autoit] [autoit]

    Dim $germany
    $version = "v.0.9"

    [/autoit] [autoit][/autoit] [autoit]

    _FileReadToArray(@tempdir & "\germany.db",$germany)

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Guicreate("Wettercode Yahoo",310,200)
    GuictrlcreateLabel("Suche deinen Ort:",10,10,100,25)
    $sSearch = GuictrlcreateInput("",110,7,100,20)
    $btn_search = GuictrlcreateButton("los geht's",10,35,90,25)
    $ipt = GuictrlcreateInput("",10,75,200,120)
    GuictrlcreateLabel($version,230,10)
    Guictrlsetstate(-1,$GUI_Disable)
    Guictrlcreatelabel("by Kev" & @crlf & "([email='n0zly@web.de'][/email])",220,160)
    Guictrlsetstate(-1,$GUI_Disable)

    [/autoit] [autoit][/autoit] [autoit]

    GUISetState(@SW_SHOW) ; Zeigt das leere GUI-Fenster

    [/autoit] [autoit][/autoit] [autoit]

    ; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
    While 1
    $msg = GUIGetMsg()
    switch $msg
    case $btn_search
    search()
    EndSwitch
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd
    GUIDelete()

    [/autoit] [autoit][/autoit] [autoit]

    func search()
    if Guictrlread($sSearch) = "" then
    msgbox(0,"Achtung","Bitte gewünschten Ort eingeben!")
    Else
    $iIndex= _ArraySearch($germany,Guictrlread($sSearch),0,0,0,1)
    if @error Then
    msgbox(0,"Weathercode","Wettercode konnte nicht gefunden werden!")
    else
    $ex = Stringsplit($germany[$iIndex],",")
    Guictrlsetdata($ipt,$ex[1])
    Endif
    Endif
    Endfunc

    [/autoit] [autoit][/autoit] [autoit]

    func enter()
    ControlClick("Wettercode","",$btn_search)
    Endfunc

    [/autoit]

    Wers brauch, kanns ham, wer nich dann nich ^^

    Haunse rin ^^