Beiträge von ProblemUser

So, ich hab nun die Version 1.2 fertig geschrieben, jedoch suche ich
noch Leute die mit Machen Wollen!

Zitat

Ich suche jemanden, der dieses Script (OpenSource)
umschreibt, sodass Ich als Bilder eines dieser Texturen verwenden kann.
Texturen:
http://www.nasa.gov/multimedia/3d_resources/images.html
Script:
http://dev.openlayers.org/releases/OpenL…mage-layer.html
Was
gemacht werden soll:
Das Script soll so groß wie die Seite sein
also 100%

Code

height: 100%; width: 100%;

Das Script muss mit
dem Internet Explorer geöffnet werden können.
Jedes Belibige Bild
kann als Karte benutzt werden.

Alles anzeigen

Zitat

Ich suche jemanden, der sich an das Designen macht.
Unter
Extras > Wetter > Der Hintergrund soll sich immer mit dem Wetter
ändern. //Grafiken nur von http://commons.wikimedia.org/wiki/Hauptseite
Die
Komplette GUI Soll schöner werden
//Grafiken nur von http://commons.wikimedia.org/wiki/Hauptseite

Alles anzeigen

Geplantes:
Das
 betrachten von den Planeten.
Das betrachten von Videos.
Eine 
Datenbank mit Wissen über Planeten, Sterne, etc.
Das erstellen von 
Routen.

Das Runterladen ist in Deutschland nur Legal, wenn es auch Legal hochgeladen worden ist.
D.h. stellt Lady Gaga ein Video von ihrem neuen Lied ein, ist es Legal es von Dort Runter zuladen.
Stellt der Nachbar das gleiche Video rein, welches er von der Lady Gaga DVD gerippt hat ein ist das herunterladen bzw. anschauen auch illegal.
Wenn du in anderen Ländern wohnst (Schweiz, Österreich, etc.) Kannst du dort auch ruhig von DIESISTEINERAUBKOPIERERSEITE.DOMAIN runterladen

Das ist mir bekannt gewesen nur beim ersten überlesen dachte ich das. Mein Text dazu war eher an Sprenger gerichtet.
Jedoch funktioniert es auch so nicht

Du hast auch das TECHMIX mit deinem UserAccount (Von Windows) ersetzt? Hatte auch erst gedacht das ehört zum Tut
Aber bei mir funktioniert das immer noch nicht!

Aber auf Xp funktioniert es noch nicht oder? Bei mir zumindest nicht.

Gelöst Grund: Dummheit von mir

Gut ich hab mich jetzt entschlossen nur noch 1/10 des Wetter Scriptes zu übernehmen!
Das Problem jetzt ist aber, das ich das Label nicht ändern kann!

#include<String.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Local $nBytesRead = @extended
#Region ### START Koda GUI section ### Form=
$WetterForm = GUICreate("Wetter", 145, 223, 188, 124)
$Label1 = GUICtrlCreateLabel("", 16, 16, 112, 17)
$Label2 = GUICtrlCreateLabel("", 16, 16, 112, 17)
$Label3 = GUICtrlCreateLabel("", 16, 16, 112, 17)
$Group1 = GUICtrlCreateGroup("Wetter", 8, 0, 129, 81)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic1 = GUICtrlCreatePic("", 8, 88, 128, 128, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$wURL = "http://www.google.com/ig/api?weather=Berlin&hl=de"
$oData = InetRead($wURL)
$sData = $nBytesRead & @CRLF & @CRLF & BinaryToString($oData)
$ctData = _StringBetween($sData, '<condition data="', '"/>')
$temp_c = _StringBetween($sData, '<temp_c data="', '"/>')
$vluft = _StringBetween($sData, '<humidity data="', '"/>')
If IsArray($ctData) Then
$ctData = $ctData[0]
Else
MsgBox(0, "Fehler", "Das Programm konnte kein Wetter feststellen! Prüfen sie ihre Internet Verbuíndung!")
EndIf
$ctDat = "Aktuell:" & $ctData
GUICtrlSetData($Label1, $ctDat)
If IsArray($temp_c) Then
$temp_c = $temp_c[0]
Else
MsgBox(0, "Fehler", "Das Programm konnte kein Wetter feststellen! Prüfen sie ihre Internet Verbuíndung!")
EndIf
$temp = "Temperatur:" & $temp_c
GUICtrlSetData($Label2, $temp)
If IsArray($vluft) Then
$vluft = $vluft[0]
Else
MsgBox(0, "Fehler", "Das Programm konnte kein Wetter feststellen! Prüfen sie ihre Internet Verbuíndung!")
EndIf
$luft = "Luft-" & $vluft
GUICtrlSetData($Label3, $luft)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

Sicher?
http://local.yahooapis.com/MapsService/V1/geocode?appid=YD-9G7bey8_JXxQP6rxl.fBFGgCdNjoDMACQA--&city=Berlin
Ich kann hier ganz normal den Längen und Breitegrad Lesen ohne die Postleitzahl zu wissen!

Zitat

Ich auch nicht, da es sich direkt nach der Eingabe eines Wohnortes verabschiedet! (Längen-Breitengrad falsch!)

Du weißt schon das, dass der Fehler ist den ich Beheben möchte?
Das 2. Ich mich nach dem Fehler an weitere Fehler ranmache, sowie das Script zu "säubern"?

Hab ich schon gemacht!
http://autoit.pastebin.com/HzJpuf9n
Die OWB.au3:
http://autoit.pastebin.com/ngPsBEVg

Ja nun jetzt auch oO Ich editiere den Post, ich hab noch ein Problem!

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

Finde ich genial!
Darf ich das ein wenig bearbeitet in den Open World Browser mit einarbeiten?
Credits werden komplett übernommen!
Grüße PU

Naja, die Kugel müsste dann in 3d sein. Ob das mit Autoit möglich ist, bezweifle ich. Falls doch habe ich dann wieder was für den OWB

Ah ok, hab es gerade in der Hilfe gefunden (wieder was dazu gelernt ) Naja denn kann man das ja lassen (oder auch nicht)

Ja ich sitze momentan vor einer XP Maschine Hmm, dann muss ich wohl noch warten.

Bei mir kommt immer:
>Das System kann die angegebene Datei nicht finden.

Fluch der Karibik?
Dateiname

Es muss aber geändert werden da ja EndIf fehlt..

Für die Funktion FileInstall ist ein sinnloses und zugleich unfertiges Beispiel benutzt worden.
http://translation.autoit.de/onlinehilfe/fu…FileInstall.htm