Nicht angemeldet.
Hier können Sie Ihre eigenen Skripte und UDF's veröffentlichen undanderen zum Download anbieten oder von anderen herunterladen
#include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <IE.au3> #include <String.au3> $IE = _IECreateEmbedded() Global $html Local $sFileName = "start.html" Local $1FileName = "seastart.html" Local $nBytesRead = @extended Dim $adr, $stre, $plz, $stadt, $aland $url0 = "http://local.yahooapis.com/MapsService/V1/geocode?appid=YD-9G7bey8_JXxQP6rxl.fBFGgCdNjoDMACQA--&address=" & $adr $url1 = "&street=" & $stre $url2 = "&zip=" & $plz $url3 = "&state=" & $stadt $url4 = "&country=" & $aland $url = $url0 & $url1 & $url2 & $url3 & $url4 $map = 100 $Form1 = GUICreate("Open World Browser by Simon K. - EUROS4YOU.COM", 1204, 836, 118, 112) $Pic1 = GUICtrlCreateObj($IE, 0, 136, 1201, 697) $city = GUICtrlCreateInput("", 16, 24, 201, 21) $street = GUICtrlCreateInput("", 16, 48, 201, 21) $num = GUICtrlCreateInput("", 224, 48, 57, 21) $zip = GUICtrlCreateInput("", 288, 48, 65, 21) $Group1 = GUICtrlCreateGroup("Stadt, Straße, Hausnummer, Postleitzahl", 8, 8, 361, 73) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group2 = GUICtrlCreateGroup("Land", 376, 8, 241, 73) $land = GUICtrlCreateInput("", 384, 24, 225, 21) $search = GUICtrlCreateButton("Suche", 384, 48, 227, 25, $WS_GROUP) GUICtrlCreateGroup("", -99, -99, 1, 1) $Button1 = GUICtrlCreateButton("Zum Mond", 664, 8, 529, 25, $WS_GROUP) $Button2 = GUICtrlCreateButton("Zur Welt", 664, 38, 529, 25, $WS_GROUP) $Button3 = GUICtrlCreateButton("Zur See Karte", 664, 67, 529, 25, $WS_GROUP) $Button4 = GUICtrlCreateButton("About/Über", 664, 96, 529, 25, $WS_GROUP) GUISetState(@SW_SHOW) _IENavigate($IE, @ScriptDir & "/start.html") While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button2 $map = 100 _IENavigate($IE, @ScriptDir & "/start.html") Case $Button3 $map = 10 _IENavigate($IE, @ScriptDir & "/seastart.html") Case $search If $map = 10 Then $func = _Sea() Else $func = _World() EndIf Case $Button4 $about = FileOpen("about.owb", 0) $aabout = FileRead($about) MsgBox(64, "Über OpenWorldBrowser", $aabout) FileClose($about) EndSwitch WEnd Func _World() $stre = GUICtrlRead($street) $plz = GUICtrlRead($zip) $stadt = GUICtrlRead($city) $aland = GUICtrlRead($land) $url0 = "http://local.yahooapis.com/MapsService/V1/geocode?appid=YD-9G7bey8_JXxQP6rxl.fBFGgCdNjoDMACQA--&address=" & $adr $url1 = "&street=" & $stre $url2 = "&zip=" & $plz $url3 = "&state=" & $stadt $url4 = "&country=" & $aland $url = $url0 & $url1 & $url2 & $url3 & $url4 $oData = InetRead($url) $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!1") 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!2") 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!3") 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!4") 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!3") Exit EndIf If Not $aland = 0 Then $sZoom = 5 Else $sZoom = 7 EndIf If Not $stadt = 0 Then $sZoom = 10 Else $sZoom = 7 EndIf $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) _IENavigate($IE, @ScriptDir & "/start.html") EndFunc ;==>_World Func _Sea() $stre = GUICtrlRead($street) $plz = GUICtrlRead($zip) $stadt = GUICtrlRead($city) $aland = GUICtrlRead($land) $url0 = "http://local.yahooapis.com/MapsService/V1/geocode?appid=YD-9G7bey8_JXxQP6rxl.fBFGgCdNjoDMACQA--&address=" & $adr $url1 = "&street=" & $stre $url2 = "&zip=" & $plz $url3 = "&state=" & $stadt $url4 = "&country=" & $aland $url = $url0 & $url1 & $url2 & $url3 & $url4 $oData = InetRead($url) $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!1") 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!2") Exit EndIf ConsoleWrite("XML " & $xmllon & " " & $xmllat & @CRLF) $hFile = FileOpen($1FileName, 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!3") 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!4") 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!3") Exit EndIf If Not $aland = 0 Then $sZoom = 5 Else $sZoom = 7 EndIf If Not $stadt = 0 Then $sZoom = 10 Else $sZoom = 7 EndIf $sText = StringReplace($sText, $Zoom, $sZoom) $sText = StringReplace($sText, $Lon, $xmllon) $sText = StringReplace($sText, $Lat, $xmllat) ConsoleWrite("HTML " & $Lon & " " & $Lat & @CRLF) $hFile = FileOpen($1FileName, 2) FileWrite($hFile, $sText) FileClose($hFile) _IENavigate($IE, @ScriptDir & "/seastart.html") EndFunc ;==>_Sea
Dauerhaft angemeldet bleiben?