Hallo, ich hab das Script von tuttifrutti mit meinem Verbunden bzw. bin ich grad dabei (d.h. sind bestimmt noch mehr Fehler drin :D)
Also ich hab folgendes Problem:
Sobald ich irgendein Ort eingebe erkennt er es nicht!
Der Teil ist hier:
$Wohnort = InputBox("Ihr Wohnort", "Da Sie das Programm zum ersten mal starten, sind Sie aufgefordert Ihren Wohnort zu schreiben." & @CRLF & @CRLF & "So wird das Programm ihr Persöhnliches Wetter herraus finden und ihren Ort anzeigen!" & @CRLF & @CRLF & "Viel Spaß " & @CRLF & "© Alexander F. (Wetter) & Simon K. (Open World)", "Ihren Wohnort", " ", "360", "260", "-1", "-1")
$urlort = "http://local.yahooapis.com/MapsService/V1/geocode?appid=YD-9G7bey8_JXxQP6rxl.fBFGgCdNjoDMACQA--&city=" & $Wohnort
ClipPut($urlort)
$oData = InetRead($urlort)
$sData = $nBytesRead & @CRLF & @CRLF & BinaryToString($oData)
$xmllon = _StringBetween($sData, "<Longitude>", "</Longitude>")
If IsArray($xmllon) Then
$xmllon = $xmllon[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!")
Exit
EndIf
$xmllat = _StringBetween($sData, "<Latitude>", "</Latitude>")
If IsArray($xmllat) Then
$xmllat = $xmllat[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!")
Exit
EndIf
ConsoleWrite("XML " & $xmllon & " " & $xmllat & @CRLF)
$hFile = FileOpen($sFileName, 0)
$sText = FileRead($hFile)
FileClose($hFile)
$Lon = _StringBetween($sText, "var lon =", ";")
If IsArray($Lon) Then
$Lon = $Lon[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!")
Exit
EndIf
$Lat = _StringBetween($sText, "var lat =", ";")
If IsArray($Lat) Then
$Lat = $Lat[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!")
Exit
EndIf
$Zoom = _StringBetween($sText, "var zoom = ", ";")
If IsArray($Zoom) Then
$Zoom = $Zoom[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!")
Exit
EndIf
$sZoom = 10
$sText = StringReplace($sText, $Zoom, $sZoom)
$sText = StringReplace($sText, $Lon, $xmllon)
$sText = StringReplace($sText, $Lat, $xmllat)
ConsoleWrite("HTML " & $Lon & " " & $Lat & @CRLF)
$hFile = FileOpen($sFileName, 2)
FileWrite($hFile, $sText)
FileClose($hFile)
Das Script hat mehr als 100.000 Zeichen 
darum ist es nun bei PasteBin:
http://autoit.pastebin.com/HzJpuf9n
Die OWB.au3:
http://autoit.pastebin.com/ngPsBEVg
