Google Maps

    Hallo,

    hat jemand eine Idee wie ich Deutschland per Google Maps ,InetGet und GuictrlcreatePic eine GUI machen könnte, wo man sich per Buttons nach oben, unten,rechts, links bewegen kann.

    http://khm1.google.de/kh/v=36&hl=de&x=135&y=85&z=8&s=Ga .-----So sehen die Links aus.


    Edit:

    So stelle ich es mir ungefähr vor:

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.0.0
    Author: myName

    [/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 <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    $Form1 = GUICreate("Form1", 864, 768)
    $Button1 = GUICtrlCreateButton("", 784, 32, 27, 25, 0)
    $Button2 = GUICtrlCreateButton("", 808, 8, 27, 25, 0)
    $Button3 = GUICtrlCreateButton("", 832, 32, 27, 25, 0)
    $Button4 = GUICtrlCreateButton("", 808, 56, 27, 25, 0)
    GUISetState(@SW_SHOW)

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

    $PicSize1 = 0

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

    For $next = 1 To 4
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=42&z=7&s=G", @ScriptDir & "\img\Pic" & $next & ".jpg", 1)
    GUICtrlCreatePic(@ScriptDir & "\img\Pic" & $next & ".jpg", $PicSize1, 0, 256, 256)

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

    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=43&z=7&s=G", @ScriptDir & "\img\Pic2" & $next & ".jpg", 1)
    GUICtrlCreatePic(@ScriptDir & "\img\Pic2" & $next & ".jpg", $PicSize1, 256, 256, 256)

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

    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=44&z=7&s=G", @ScriptDir & "\img\Pic3" & $next & ".jpg", 1)
    GUICtrlCreatePic(@ScriptDir & "\img\Pic3" & $next & ".jpg", $PicSize1, 512, 256, 256)

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

    $PicSize1 = $PicSize1 + 256
    Next

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd

    [/autoit]

    Aber wie kann ich es jetzt durch die 4 Buttons steuern?

    Edit2:

    So weit bin ich jetzt:

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

    AutoIt Version: 3.3.0.0
    Author: myName

    Script Function:
    Template AutoIt script.

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

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

    ; Script Start - Add your code below here

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

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    $Form1 = GUICreate("Form1", 864, 768)
    $Button1 = GUICtrlCreateButton("", 784, 32, 27, 25, 0)
    $Button2 = GUICtrlCreateButton("", 808, 8, 27, 25, 0)
    $Button3 = GUICtrlCreateButton("", 832, 32, 27, 25, 0)
    $Button4 = GUICtrlCreateButton("", 808, 56, 27, 25, 0)
    GUISetState(@SW_SHOW)

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

    $PicSize1 = 0
    $PicSchaerfe = 64

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

    For $next = 1 To 14

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

    $number = 1
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=4" & 1 + $number & "&z=7&s=G", @ScriptDir & "\img\Pic" & $number & $next & ".jpg", 1)
    GUICtrlCreatePic(@ScriptDir & "\img\Pic" & $number & $next & ".jpg", $PicSize1, 0, $PicSchaerfe, $PicSchaerfe)

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

    $number = 2
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=4" & 1 + $number & "&z=7&s=G", @ScriptDir & "\img\Pic" & $number & $next & ".jpg", 1)
    GUICtrlCreatePic(@ScriptDir & "\img\Pic" & $number & $next & ".jpg", $PicSize1, $PicSchaerfe, $PicSchaerfe, $PicSchaerfe)

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

    $number = 3
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=4" & 1 + $number & "&z=7&s=G", @ScriptDir & "\img\Pic" & $number & $next & ".jpg", 1)
    GUICtrlCreatePic(@ScriptDir & "\img\Pic" & $number & $next & ".jpg", $PicSize1, $PicSchaerfe * ($number - 1), $PicSchaerfe, $PicSchaerfe)

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

    $number = 4
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=4" & 1 + $number & "&z=7&s=G", @ScriptDir & "\img\Pic" & $number & $next & ".jpg", 1)
    GUICtrlCreatePic(@ScriptDir & "\img\Pic" & $number & $next & ".jpg", $PicSize1, $PicSchaerfe * ($number - 1), $PicSchaerfe, $PicSchaerfe)

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

    $number = 5
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=4" & 1 + $number & "&z=7&s=G", @ScriptDir & "\img\Pic" & $number & $next & ".jpg", 1)
    GUICtrlCreatePic(@ScriptDir & "\img\Pic" & $number & $next & ".jpg", $PicSize1, $PicSchaerfe * ($number - 1), $PicSchaerfe, $PicSchaerfe)

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

    $number = 6
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=4" & 1 + $number & "&z=7&s=G", @ScriptDir & "\img\Pic" & $number & $next & ".jpg", 1)
    GUICtrlCreatePic(@ScriptDir & "\img\Pic" & $number & $next & ".jpg", $PicSize1, $PicSchaerfe * ($number - 1), $PicSchaerfe, $PicSchaerfe)

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

    $number = 7
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=4" & 1 + $number & "&z=7&s=G", @ScriptDir & "\img\Pic" & $number & $next & ".jpg", 1)
    GUICtrlCreatePic(@ScriptDir & "\img\Pic" & $number & $next & ".jpg", $PicSize1, $PicSchaerfe * ($number - 1), $PicSchaerfe, $PicSchaerfe)

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

    $number = 8
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=4" & 1 + $number & "&z=7&s=G", @ScriptDir & "\img\Pic" & $number & $next & ".jpg", 1)
    GUICtrlCreatePic(@ScriptDir & "\img\Pic" & $number & $next & ".jpg", $PicSize1, $PicSchaerfe * ($number - 1), $PicSchaerfe, $PicSchaerfe)

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

    $number = 9
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=4" & 1 + $number & "&z=7&s=G", @ScriptDir & "\img\Pic" & $number & $next & ".jpg", 1)
    GUICtrlCreatePic(@ScriptDir & "\img\Pic" & $number & $next & ".jpg", $PicSize1, $PicSchaerfe * ($number - 1), $PicSchaerfe, $PicSchaerfe)

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

    $number = 10
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=4" & 1 + $number & "&z=7&s=G", @ScriptDir & "\img\Pic" & $number & $next & ".jpg", 1)
    GUICtrlCreatePic(@ScriptDir & "\img\Pic" & $number & $next & ".jpg", $PicSize1, $PicSchaerfe * ($number - 1), $PicSchaerfe, $PicSchaerfe)

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

    $number = 11
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=4" & 1 + $number & "&z=7&s=G", @ScriptDir & "\img\Pic" & $number & $next & ".jpg", 1)
    GUICtrlCreatePic(@ScriptDir & "\img\Pic" & $number & $next & ".jpg", $PicSize1, $PicSchaerfe * ($number - 1), $PicSchaerfe, $PicSchaerfe)

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

    $number = 12
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=4" & 1 + $number & "&z=7&s=G", @ScriptDir & "\img\Pic" & $number & $next & ".jpg", 1)
    GUICtrlCreatePic(@ScriptDir & "\img\Pic" & $number & $next & ".jpg", $PicSize1, $PicSchaerfe * ($number - 1), $PicSchaerfe, $PicSchaerfe)

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

    $PicSize1 = $PicSize1 + $PicSchaerfe
    Next

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd

    [/autoit]

    Wie kann ich die bereits vorghandenenen Bilder nutzen statt es erneut herunterzuladen?

    Ich habe das jetzt so gemacht:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    Dim $pic1[10]
    Dim $pic2[10]
    Dim $pic3[10]

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

    $Form1 = GUICreate("Form1", 1024, 768)
    $Button1 = GUICtrlCreateButton("<", 934, 32, 27, 25, 0)
    $Button2 = GUICtrlCreateButton("^", 958, 8, 27, 25, 0)
    $Button3 = GUICtrlCreateButton(">", 982, 32, 27, 25, 0)
    $Button4 = GUICtrlCreateButton("", 958, 56, 27, 25, 0)
    GUISetState(@SW_SHOW)

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

    $PicSize1 = 0

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

    ;~ http://khm1.google.de/kh/v=36&hl=de&…715&z=13&s=Gali

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

    $Number = 0

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

    For $next = 4259 To 4263
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=2715&z=13&s=Gali", @ScriptDir & "\img\Pic1" & $next & ".jpg", 1)
    $pic1[$Number] = GUICtrlCreatePic(@ScriptDir & "\img\Pic1" & $next & ".jpg", $PicSize1, 0, 256, 256)

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

    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=2716&z=13&s=Gali", @ScriptDir & "\img\Pic2" & $next & ".jpg", 1)
    $pic2[$Number] = GUICtrlCreatePic(@ScriptDir & "\img\Pic2" & $next & ".jpg", $PicSize1, 256, 256, 256)

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

    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=2717&z=13&s=Gali", @ScriptDir & "\img\Pic3" & $next & ".jpg", 1)
    $pic3[$Number] = GUICtrlCreatePic(@ScriptDir & "\img\Pic3" & $next & ".jpg", $PicSize1, 512, 256, 256)

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

    $PicSize1 = $PicSize1 + 256
    $Number = $Number + 1
    Next

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

    $Coord1 = 4259
    $Coord2 = 2715

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $Button1

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

    $Coord1 = $Coord1 - 1
    $PicSize1 = 0
    $Number = 0

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

    For $next = $Coord1 To $Coord1 + 4
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=2715&z=13&s=Gali", @ScriptDir & "\img\Pic1" & $next & ".jpg", 1)
    GUICtrlSetImage($pic1[$Number], @ScriptDir & "\img\Pic1" & $next & ".jpg")

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

    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=2716&z=13&s=Gali", @ScriptDir & "\img\Pic2" & $next & ".jpg", 1)
    GUICtrlSetImage($pic2[$Number], @ScriptDir & "\img\Pic2" & $next & ".jpg")

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

    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=2717&z=13&s=Gali", @ScriptDir & "\img\Pic3" & $next & ".jpg", 1)
    GUICtrlSetImage($pic3[$Number], @ScriptDir & "\img\Pic3" & $next & ".jpg")

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

    $PicSize1 = $PicSize1 + 256
    $Number = $Number + 1
    Next

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

    Case $Button3

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

    $Coord1 = $Coord1 + 1
    $PicSize1 = 0
    $Number = 0

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

    For $next = $Coord1 To $Coord1 + 4
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=2715&z=13&s=Gali", @ScriptDir & "\img\Pic1" & $next & ".jpg", 1)
    GUICtrlSetImage($pic1[$Number], @ScriptDir & "\img\Pic1" & $next & ".jpg")

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

    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=2716&z=13&s=Gali", @ScriptDir & "\img\Pic2" & $next & ".jpg", 1)
    GUICtrlSetImage($pic2[$Number], @ScriptDir & "\img\Pic2" & $next & ".jpg")

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

    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=2717&z=13&s=Gali", @ScriptDir & "\img\Pic3" & $next & ".jpg", 1)
    GUICtrlSetImage($pic3[$Number], @ScriptDir & "\img\Pic3" & $next & ".jpg")

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

    $PicSize1 = $PicSize1 + 256
    $Number = $Number + 1
    Next

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

    Case $Button2

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

    $Coord2 = $Coord2 - 1
    $PicSize1 = 0
    $Number = 0

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

    For $next = $Coord1 To $Coord1 + 4
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=" & $Coord2 & "&z=13&s=Gali", @ScriptDir & "\img\Pic1" & $next & ".jpg", 1)
    GUICtrlSetImage($pic1[$Number], @ScriptDir & "\img\Pic1" & $next & ".jpg")

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

    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=" & $Coord2 + 1 & "&z=13&s=Gali", @ScriptDir & "\img\Pic2" & $next & ".jpg", 1)
    GUICtrlSetImage($pic2[$Number], @ScriptDir & "\img\Pic2" & $next & ".jpg")

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

    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=" & $Coord2 + 2 & "&z=13&s=Gali", @ScriptDir & "\img\Pic3" & $next & ".jpg", 1)
    GUICtrlSetImage($pic3[$Number], @ScriptDir & "\img\Pic3" & $next & ".jpg")

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

    $PicSize1 = $PicSize1 + 256
    $Number = $Number + 1
    Next

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

    Case $Button4

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

    $Coord2 = $Coord2 + 1
    $PicSize1 = 0
    $Number = 0

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

    For $next = $Coord1 To $Coord1 + 4
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=" & $Coord2 & "&z=13&s=Gali", @ScriptDir & "\img\Pic1" & $next & ".jpg", 1)
    GUICtrlSetImage($pic1[$Number], @ScriptDir & "\img\Pic1" & $next & ".jpg")

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

    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=" & $Coord2 + 1 & "&z=13&s=Gali", @ScriptDir & "\img\Pic2" & $next & ".jpg", 1)
    GUICtrlSetImage($pic2[$Number], @ScriptDir & "\img\Pic2" & $next & ".jpg")

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

    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $next & "&y=" & $Coord2 + 2 & "&z=13&s=Gali", @ScriptDir & "\img\Pic3" & $next & ".jpg", 1)
    GUICtrlSetImage($pic3[$Number], @ScriptDir & "\img\Pic3" & $next & ".jpg")

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

    $PicSize1 = $PicSize1 + 256
    $Number = $Number + 1
    Next

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

    EndSwitch
    WEnd

    [/autoit]

    Es funktioniert leider noch nicht richtig. Kann jemand helfen?
    Weiß einer wie ich die Bilder zwischenspeichern könnte?

    Hi!

    Ich hab versucht deine Aufgabenstellung zu lösen.
    Mein Probelm ist das Google meine Anfragen sperrt.

    Spoiler anzeigen


    Google Error

    We're sorry...
    ... but your query looks similar to automated requests from a computer virus or spyware application. To protect our users, we can't process your request right now.

    We'll restore your access as quickly as possible, so try again soon. In the meantime, if you suspect that your computer or network has been infected, you might want to run a virus checker or spyware remover to make sure that your systems are free of viruses and other spurious software.

    We apologize for the inconvenience, and hope we'll see you again on Google.



    Jetzt kann ich das nicht testen.
    Aber hier mal der Code.
    Du speicherst die Dateien in deinem ersten Beispiel eh unter @scriptdir & "\img\pic\
    Dein neues hab ich mir ehrlich gesagt nicht mehr angesehen.
    Falls du eine Erklährung von meinem Code brauchst bitte melden.

    Edit: Sorry im Code waren noch ein paar Fehler ich hoffe das es jetzt passt.

    Spoiler anzeigen
    [autoit]


    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    $Form1 = GUICreate("Form1", 896, 832)
    $Button1 = GUICtrlCreateButton("L", 784, 32, 27, 25, 0)
    $Button2 = GUICtrlCreateButton("O", 808, 8, 27, 25, 0)
    $Button3 = GUICtrlCreateButton("R", 832, 32, 27, 25, 0)
    $Button4 = GUICtrlCreateButton("U", 808, 56, 27, 25, 0)
    $label = GUICtrlCreateLabel("",2,2,200,20)
    GUISetState(@SW_SHOW)
    Dim $leftright = 0
    Dim $raufrunter = 0
    Dim $bild[15][13]

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

    _haupt2()

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

    While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = $GUI_EVENT_CLOSE
    Exit

    Case $nMsg = $Button1
    GUICtrlSetData($label, "RaufRunter " & $raufrunter & " LinksRechts " & $leftright)
    $leftright += 1
    _haupt()

    Case $nMsg = $Button2
    GUICtrlSetData($label, "RaufRunter " & $raufrunter & " LinksRechts " & $leftright)
    $raufrunter += 1
    _haupt()

    Case $nMsg = $Button3
    GUICtrlSetData($label, "RaufRunter " & $raufrunter & " LinksRechts " & $leftright)
    If $leftright > 0 Then
    $leftright += -1
    EndIf
    _haupt()

    Case $nMsg = $Button4
    GUICtrlSetData($label, "RaufRunter " & $raufrunter & " LinksRechts " & $leftright)
    If $raufrunter > 0 Then
    $raufrunter += -1
    EndIf
    _haupt()

    EndSelect
    WEnd

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

    Func _haupt2()
    $Picleft = 0
    $Picsize = 64
    For $ii = 1 To 14
    For $i = 1 To 12
    If Not FileExists(@ScriptDir & "\img\Pic\" & StringFormat("%04d", $i & $ii) & ".jpg") Then
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $ii & "&y=4" & 1 + $i & "&z=7&s=G", @ScriptDir & "\img\Pic\" & StringFormat("%04d", $i & $ii) & ".jpg", 1)
    EndIf
    $bild[$ii][$i] = GUICtrlCreatePic(@ScriptDir & "\img\Pic\" & StringFormat("%04d", $i & $ii) & ".jpg", $Picleft, $Picsize*$i, $Picsize, $Picsize)
    Next
    $Picleft = $Picleft + $Picsize
    Next
    ConsoleWrite("http://khm1.google.de/kh/v=36&hl=de&x=" & $i & "&y=4" & 1 + $i & "&z=7&s=G")
    EndFunc

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

    Func _haupt()
    $Picleft = 0
    $Picsize = 64
    For $ii = 1 To 14
    For $i = 1 To 12
    If Not FileExists(@ScriptDir & "\img\Pic\" & StringFormat("%04d", $i + $raufrunter & $ii + $leftright) & ".jpg") Then
    InetGet("http://khm1.google.de/kh/v=36&hl=de&x=" & $ii + $leftright & "&y=4" & 1 + $i + $raufrunter & "&z=7&s=G", @ScriptDir & "\img\Pic\" & StringFormat("%04d", $i + $raufrunter & $ii + $leftright) & ".jpg", 1)
    EndIf
    GUICtrlSetImage($bild[$ii][$i] ,@ScriptDir & "\img\Pic\" & StringFormat("%04d", $i + $raufrunter & $ii + $leftright) & ".jpg")
    Next
    Next
    EndFunc

    [/autoit]

    If not :?: then ?( else :thumbup:

    3 Mal editiert, zuletzt von Concara (3. März 2009 um 17:41)