// Start X/Y; Stopp (nur Dreierschritte) X/Y und Kart wählen
Let>startx=1000
Let>starty=180
let>stopx=1030
let>stopy=180
Let>karte=aero2m
//URL (klappt auch außerhalb von München)
Let>URL=http://stadtplan.portal.muenchen.de/muenchen/map.asp
//Arbeitsverzeichnis (mit "\" am Ende)
let>workdir=c:\karten\test\
// Browser (das Macro wird vermutlich nur mit Firefox funktionieren)
let>browser=C:\Programme\Mozilla Firefox\firefox.exe
// Koordinaten des Startpunkts unteren links des 3x3 Bildes (startx=0/starty=0) in [meter]
// Skalierung in [pix/meter] (für die Wordfiles)
// (falls nicht bekannt gkx=0,gky=0,scaling=1)
Let>gkx=3274600
Let>gky=5259600
Let>scaling=2
// Dateiendung des Wordfiles (für tif => tfw; für png => pgw; für gif => gfw)
// Viele GIS unterstützen werder GIF noch PNG darum lasse ich gleich TFW's erstellen und konvertiere die PNG's zu TIF's
let>WFsuf=tfw
// List Mir bekannten Maps
// karte: aero2m, gkx=3274600m, gky=5259600m, scaling=2pix/m,
// ... bitte ergänzen ...
//Bildschirmkoorinate des linken untern Bildes
let>screenx=555
let>screeny=790
//----------------------------------------------------------------------------
//START: Prüfe Arbeitsverzeichnis u. Firefox
IfDirExists>%workdir%
Else>
CreateDir>%workdir%
EndIF>
IfFileExists>%browser%
Else>
MessageModal>Kann Firefox nicht finden. Macro wird beendet.
goto>end
EndIF>
//END: Prüfe Arbeitsverzeichnis u. Firefox
//START: Initialisierung der SID
Let>WW_TIMEOUT=5
Let>RP_WINDOWMODE=3
Run Program>%browser% %URL%
WaitWindowOpen>Firefox
WaitReady>0
MouseMove>%screenx%,%screeny%
LClick
WaitReady>0
wait>3
//ENDE: Initialisierung der SID
let>durchzly=starty
//START: Schleife für Spalten
repeat>durchzly
let>durchzlx=startx
//START: Schleife für Zeilen
repeat>durchzlx
Press CTRL
Send>l
Release CTRL
wait>0.2
Press CTRL
Send>x
Release CTRL
wait>0.2
GetClipBoard>URL
wait>0.2
Let>URL={copy(%URL%,1,89)}
wait>0.2
Let>URL=%URL%&ix=%durchzlx%&iy=%durchzly%&grid=%karte%
Send Character/Text>URL
Wait>0.2
Press Enter
Wait>0.5
WaitReady>0
Wait>10.0
let>v=screenx
//START: Speichern der 9 Bildchen
let>durchlaufy=durchzly
let>durchlaufyE=durchlaufy+3
let>durchlaufx=durchzlx
let>durchlaufxE=durchlaufx+3
repeat>durchlaufx
let>u=screeny
repeat>durchlaufy
Wait>1.0
//START: Mouse aufs Bild; RClick; Adr. kopieren; downloaden
MouseMove>v,u
RClick
Wait>0.1
send>d
Wait>0.1
GetClipBoard>ImgURL
Wait>0.1
HTTPRequest>%ImgURL%,%Workdir%%durchlaufy%-%durchlaufx%.png,GET,,HTMLResponse
//ENDE: Mouse ...
//START: Berechnen der Koordinaten
let>scalingn=200*scaling
let>koordx=durchlaufx*scalingn
let>koordy=durchlaufy*scalingn
let>koordy=koordy+scalingn
let>koordx=gkx+koordx
let>koordy=gky+koordy
//ENDE: Berechnen der Koordinaten
//START: TFW erstellen
WriteLn>%Workdir%%durchlaufy%-%durchlaufx%.%WFsuf%,result,%scaling%
WriteLn>%Workdir%%durchlaufy%-%durchlaufx%.%WFsuf%,result,0
WriteLn>%Workdir%%durchlaufy%-%durchlaufx%.%WFsuf%,result,0
WriteLn>%Workdir%%durchlaufy%-%durchlaufx%.%WFsuf%,result,-%scaling%
WriteLn>%Workdir%%durchlaufy%-%durchlaufx%.%WFsuf%,result,koordx
WriteLn>%Workdir%%durchlaufy%-%durchlaufx%.%WFsuf%,result,koordy
//ENDE: TFW erstellen
let>durchlaufy=durchlaufy+1
let>u=u-200
until>durchlaufy,durchlaufyE
let>v=v+200
let>durchlaufx=durchlaufx+1
let>durchlaufy=durchzly
until>durchlaufx,durchlaufxE
//ENDE: Speichern der 9 Bildchen
let>durchzlx=durchzlx+3
until>durchzlx,stopx
//ENDE: Schleife für Zeilen
let>durchzly=durchzly+3
until>durchzly,stopy
//ENDE: Schleife für Spalten
Label>end