Moin ihr Nasen
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.
[Blockierte Grafik: http://img51.imageshack.us/img51/7545/unbenanntuad.png]
Quellcode
Spoiler anzeigen
#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 Version: 3.3.6.1
Author: Kev K.
Script Function:
Template AutoIt script.
#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>
Fileinstall("C:\germany.db",@tempdir & "\germany.db")
[/autoit] [autoit][/autoit] [autoit]Hotkeyset("{enter}","enter")
[/autoit] [autoit][/autoit] [autoit]Dim $germany
$version = "v.0.9"
_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)
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()
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
func enter()
ControlClick("Wettercode","",$btn_search)
Endfunc
Wers brauch, kanns ham, wer nich dann nich
Haunse rin