################################################
###                                          ###
#######             BACKUP               #######
###                                          ###
#######                                  #######
###         (c) 2008 Team Sokobana           ###
####### http://forum.pocketnavigation.de #######
###         http://www.varioskin.de          ###
################################################

############################################################
### Anwendung auf eigene Gefahr und ohne Gewährleistung! ###
###     Dieses Programm unterliegt den Rechten der       ###
###Creative Commons Attribut Non-Commercial Share Alike 3###
###     Lizenz. Genaue Angaben finden Sie beiliegend     ###
###         in der Datei Lizenz_VarioSkin3.txt           ###
############################################################
# modifiziert nach einem Script von m.g
# Änderung 14.09.07: Sicherung der Handydaten eingebaut
# Änderung 24.09.07: SIcherung Dateien rausgenommen
# Änderung 03.10.07: Fehlerbereinigung
# Änderung 11.11.07: Sicherung der Ini-Dateien
# Änderung 19.02.08: Eigene Einstellungen aus der REG sichern
# Änderung 01.03.08: Backup in V3 -> BackupV3
# Änderung 19.03.08: Sicherung POI-Warner wenn vorhanden
# Änderung 22.03.08: Sicherung Tourendaten
# Änderung 14.09.08: kleiner Fehler beseitigt
# Änderung 12.01.09: Handybackup nur wenn BT vorhanden
# Änderung 02.03.09: Speicher frei < 32000 geändert
#
#--------------------------- Konfiguration -------------------------------

If (Not DirExists("\Storage Card"))
	Message ("Es ist keine Speicherkarte eingelegt oder Sie haben den Storage Card2 Fehler !")
	Exit
EndIf

# Variablen
If (FileExists ("\My Flash Disk\Sokobana\MortScript\MSDefines.mscr"))
	CallScript ("\My Flash Disk\Sokobana\MortScript\MSDefines.mscr")
Else
	Message( "MSDefines.mscr fehlt!" )
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")

Kill ( "sokobana_service.exe" )
Kill ( "\my flash disk\menu.exe" )

# --- POI-Warner / POI FINDER wieder in Grundstellung --------------------

If ( FileExists (%POIWARNER% & "\poi-warner.exe"))
		rename (%POIWARNER% & "\poi-warner.exe", %POIWARNER% & "\poiwarner.exe")
Endif

If ProcExists ("poiwarner.exe")
	kill ("poiwarner.exe")
EndIf

If ProcExists ("poi-warner.exe")
	kill ("poi-warner.exe")
Endif
Sleep (2000)
# --- Speicher freimachen ---------------------------------

	Kill( "startfrommenu.exe" )
	Kill( "\my flash disk\menu.exe" )

	If WndExists ("GoPal Navigator")
		KillScript ("run_nogyro.mscr")
		Close ("GoPal Navigator")
		If WndExists ("Settings")
			Close ( "Settings" )
		EndIf
		Speicher=FreeMemory()
		While (Speicher < 32000)
			Speicher=FreeMemory()
			SleepMessage (5, "Bitte warten! GoPal wird geschlossen!")
		EndWhile
	Endif

	If WndExists ("ContactViewer")		
		Close ( "ContactViewer" )				
	EndIf

If WndExists ("ContactViewer")		
	Close ( "ContactViewer" )				
EndIf

Sleep (2000)

RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")


Stmp = "\Temp"

# vollständiger Pfad zu Backup-Zip
Set FAVBACKUP, %BACKUP_PFAD_V3%&"\fav.zip"
Set POIBACKUP, %BACKUP_PFAD_V3%&"\pois.zip"
Set MENUBACKUP, %BACKUP_PFAD_V3%&"\menus.zip"
Set TOURENBACKUP, %BACKUP_PFAD_V3%&"\touren.zip"
Set HANDYBACKUP, %BACKUP_PFAD_V3%&"\handy.zip"
Set KOORDBACKUP, %BACKUP_PFAD_V3%&"\koord.zip"
Set CONTACTSBACKUP, %BACKUP_PFAD_V3%&"\contacts.zip"
Set TRAVELGUIDEBACKUP, %BACKUP_PFAD_V3%&"\travelguide.zip"
Set POIWARNERBACKUP, %BACKUP_PFAD_V3%&"\poiwarner.zip"


# Wartezeit in ms für diverse Operationen
Set MYSLEEP, "300"

# Vergrößern des Storage-Memorys für größere ZIPpereien
Run (%KOORD_PFAD%, "window=0 SetMem="&%BACKUP_SPEICHER%)

# Anlegen des Backup-Verzeichnisses
If (not DirExists (%BACKUP_PFAD_V3%))
	MkDir (%BACKUP_PFAD_V3%)
EndIf

sleep %MYSLEEP%

# Anlegen des Temp-Verzeichnisses
If (not DirExists (%Stmp%))
	MkDir (%Stmp%)
EndIf

# Backup Favoriten

freespace1 = 1
freespace2 = 2

If FileExists ("\My Flash Disk\settings\Navigation\pf.cdb")

If( question( "Favoriten sichern?" ) )
	RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
	MkDir (Stmp \ "My Flash Disk")
	MkDir (Stmp \ "My Flash Disk\settings")
	MkDir (Stmp \ "My Flash Disk\settings\Navigation")
	line = "My Flash Disk\settings\Navigation"

	ForEach zfile in files (line \ "*.cdb")
		If (not (FileAttribute(zfile,"system")||FileAttribute(zfile,"readonly")))
			Copy (zfile, %Stmp% \ zfile, 1)
		EndIf
	EndForEach

	ZipFiles( Stmp \ line \ "*.*", Stmp \ "fav.zip", 1, line, 8 )
	Delete(Stmp \ line \ "*.*")

	While (%freespace1% <> %freespace2%)
		freespace1 = FreeDiskSpace("\")
		sleep %MYSLEEP%
		freespace2 = FreeDiskSpace("\")
	EndWhile

	If (fileExists(%FAVBACKUP%))
		Rename(%FAVBACKUP%,%FAVBACKUP% & ".old",1)
	EndIf

	Rename (Stmp \ "fav.zip",FAVBACKUP,1)
	DelTree(Stmp \ line \ "*.*")
	DelTree(Stmp \ "My Flash Disk\settings")
	DelTree(Stmp \ "My Flash Disk")
EndIf
Endif

RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# Backup POIs

freespace1 = 1
freespace2 = 2

If (fileExists("\My Flash Disk\navigation\poi\poi.pc"))
	If( question( "POI-Konfiguration sichern? Dies kann einige Zeit in Anspruch nehmen!" ) )
	RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
		ZipFiles("\My Flash Disk\navigation\poi\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\poi",8 )
		If (fileExists("\My Flash Disk\sokobana\mortscript\poi.ini"))
		ZipFile("\My Flash Disk\sokobana\mortscript\poi.ini", "\Temp\pois.zip","\My Flash Disk\sokobana\mortscript\poi.ini",8 )
		EndIf
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_1\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_1\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_1",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_2\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_2\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_2",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_3\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_3\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_3",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_4\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_4\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_4",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_5\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_5\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_5",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_6\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_6\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_6",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_7\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_7\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_7",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_8\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_8\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_8",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_9\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_9\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_9",8 )
			EndIf		
			If (fileExists("\My Flash Disk\navigation\Skin480x272\poi_10\poi\poi.pc"))
				ZipFiles("\My Flash Disk\navigation\Skin480x272\poi_10\*.*", "\Temp\pois.zip",1,"\My Flash Disk\navigation\Skin480x272\poi_10",8 )
			EndIf					

While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%POIBACKUP%))
Rename(%POIBACKUP%,%POIBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "pois.zip",POIBACKUP,1)
EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# Backup MENUs

freespace1 = 1
freespace2 = 2

If (fileExists("\My Flash Disk\navigation\menu\menu.xml"))
	If( question( "MENUs sichern? Dies kann einige Zeit in Anspruch nehmen!" ) )
	RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
		ZipFiles("\My Flash Disk\navigation\menu\480272\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272",8 )
		ZipFile("\My Flash Disk\navigation\menu\menu.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu.xml",8 )
		If (fileExists("\My Flash Disk\sokobana\mortscript\menu.ini"))
			ZipFile("\My Flash Disk\sokobana\mortscript\menu.ini", "\Temp\menus.zip","\My Flash Disk\sokobana\mortscript\menu.ini",8 )
		EndIf
			If (fileExists("\My Flash Disk\navigation\menu\menu_01.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_01\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_01",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_01.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_01.xml",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\menu\menu_02.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_02\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_02",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_02.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_02.xml",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\menu\menu_03.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_03\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_03",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_03.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_03.xml",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\menu\menu_04.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_04\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_04",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_04.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_04.xml",8 )
			EndIf	
			If (fileExists("\My Flash Disk\navigation\menu\menu_05.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_05\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_05",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_05.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_05.xml",8 )
			EndIf	
			If (fileExists("\My Flash Disk\navigation\menu\menu_06.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_06\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_06",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_06.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_06.xml",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\menu\menu_07.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_07\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_07",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_07.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_07.xml",8 )
			EndIf	
			If (fileExists("\My Flash Disk\navigation\menu\menu_08.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_08\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_08",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_08.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_08.xml",8 )
			EndIf
			If (fileExists("\My Flash Disk\navigation\menu\menu_09.xml"))
				ZipFiles("\My Flash Disk\navigation\menu\480272_09\*.*", "\Temp\menus.zip",1,"\My Flash Disk\navigation\menu\480272_09",8 )
				ZipFile("\My Flash Disk\navigation\menu\menu_09.xml", "\Temp\menus.zip","\My Flash Disk\navigation\menu\menu_09.xml",8 )
			EndIf
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%MENUBACKUP%))
Rename(%MENUBACKUP%,%MENUBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "menus.zip",MENUBACKUP,1)
EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# Backup TOUREN

freespace1 = 1
freespace2 = 2

If (fileExists("\My Flash Disk\settings\navigation\tourplan.xml"))
	If( question( "Touren sichern?" ) )
		RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
		ZipFiles("\My Flash Disk\settings\navigation\*.xml", "\Temp\touren.zip",1,"\My Flash Disk\settings\navigation",8 )
		ZipFile("\My Flash Disk\sokobana\mortscript\touren.ini", "\Temp\touren.zip","\My Flash Disk\sokobana\mortscript\touren.ini",8 )
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%TOURENBACKUP%))
Rename(%TOURENBACKUP%,%TOURENBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "touren.zip",TOURENBACKUP,1)
EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")


# Backup Handydaten

freespace1 = 1
freespace2 = 2

If (fileExists("\Windows\REMOTEDEVICE.INI"))
	If( question( "BT-Handydaten sichern?" ) )
		RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
		Copy ("\Windows\REMOTEDEVICE.INI", "\Temp\REMOTEDEVICE.INI", 1)
		Copy ("\Windows\SHORTCUT.INI", "\Temp\SHORTCUT.INI", 1)
		ZipFiles("\Temp\*.ini","\Temp\handy.zip", 0, "Windows")
		Delete("\Temp\*.INI")
		While (%freespace1% <> %freespace2%)
			freespace1 = FreeDiskSpace("\")
			sleep %MYSLEEP%
			freespace2 = FreeDiskSpace("\")
		EndWhile
		If (fileExists(%HANDYBACKUP%))
		Rename(%HANDYBACKUP%,%HANDYBACKUP% & ".old",1)
		EndIf
		Rename ("Temp\handy.zip",HANDYBACKUP,1)
	EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# Backup HOME-Koordinaten

freespace1 = 1
freespace2 = 2

If (FileExists ("\My Flash Disk\Sokobana\Koord\home.3na"))
If( question( "HOME-Koordinaten sichern?" ) )
RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
MkDir (Stmp \ "My Flash Disk")
MkDir (Stmp \ "My Flash Disk\Sokobana")
MkDir (Stmp \ "My Flash Disk\Sokobana\Koord")
line = "My Flash Disk\Sokobana\Koord"
ForEach zfile in files (line \ "*.3na")
If (not (FileAttribute(zfile,"system")||FileAttribute(zfile,"readonly")))
Copy (zfile, %Stmp% \ zfile, 1)
EndIf
EndForEach
Copy (zfile, %Stmp% \ zfile, 1)
ZipFiles( Stmp \ line \ "*.*", Stmp \ "koord.zip", 1, line, 8 )
Delete(Stmp \ line \ "*.*")
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%KOORDBACKUP%))
Rename(%KOORDBACKUP%,%KOORDBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "koord.zip",KOORDBACKUP,1)
DelTree(Stmp \ line \ "*.*")
DelTree(Stmp \ "My Flash Disk\Sokobana")
DelTree(Stmp \ "My Flash Disk")
EndIf
Endif
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# Backup Contacts

freespace1 = 1
freespace2 = 2

If (fileExists("\My Flash Disk\contacts\contacts.db"))
If( question( "Kontakte sichern?" ) )
RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
MkDir (Stmp \ "My Flash Disk")
MkDir (Stmp \ "My Flash Disk\contacts")
line = "My Flash Disk\contacts"
ForEach zfile in files (line \ "*.*")
If (not (FileAttribute(zfile,"system")||FileAttribute(zfile,"readonly")))
Copy (zfile, %Stmp% \ zfile, 1)
EndIf
EndForEach
ZipFiles( Stmp \ line \ "*.*", Stmp \ "contacts.zip", 1, line, 8 )
Delete(Stmp \ line \ "*.*")
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%CONTACTSBACKUP%))
Rename(%CONTACTSBACKUP%,%CONTACTSBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "contacts.zip",CONTACTSBACKUP,1)
DelTree(Stmp \ line \ "*.*")
DelTree(Stmp \ "My Flash Disk")
EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# Backup Travelguide

If (fileExists("\My Flash Disk\navigation\multimedia\travelguide\480x272\TravelGuide.exe"))
If( question( "Travelguide Daten sichern? Dies kann einige Zeit in Anspruch nehmen!" ) )
RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
RunWait (%KOORD_PFAD%, "window=0 copy=\My Flash Disk\navigation\multimedia\travelguide\database|\Temp\travelguide|2") 
ZipFiles("\Temp\travelguide\*.*", "\Temp\travelguide.zip",1,"\My Flash Disk\navigation\multimedia\travelguide\database",8 )
While (%freespace1% <> %freespace2%)
freespace1 = FreeDiskSpace("\")
sleep %MYSLEEP%
freespace2 = FreeDiskSpace("\")
EndWhile

If (fileExists(%TRAVELGUIDEBACKUP%))
Rename(%TRAVELGUIDEBACKUP%,%TRAVELGUIDEBACKUP% & ".old",1)
EndIf
Rename (Stmp \ "travelguide.zip",TRAVELGUIDEBACKUP,1)
DelTree("\Temp\travelguide\*.*")
EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# Backup POIWarner / POI FINDER

freespace1 = 1
freespace2 = 2

If (fileExists(%POIWARNER% & "\poiwarner.exe"))
	If( question( "POI-Warner/POI-Finder sichern? Dies kann einige Zeit in Anspruch nehmen!" ) )
		RunWait ("\My Flash Disk\Sokobana\MortScript\warten.exe")
		ZipFiles(%POIWARNER% & "\*.*", "\My Flash Disk\poiw.zip",1,%POIWARNER%,8 )
		ZipFile("\My Flash Disk\navigation\dstcom02.dll", "\My Flash Disk\poiw.zip","\My Flash Disk\navigation\dstcom02.dll",8 )
		
		While (%freespace1% <> %freespace2%)
			freespace1 = FreeDiskSpace("\")
			sleep %MYSLEEP%
			freespace2 = FreeDiskSpace("\")
		EndWhile

		If (fileExists(%POIWARNERBACKUP%))
			Rename(%POIWARNERBACKUP%,%POIWARNERBACKUP% & ".old",1)
		EndIf
		Rename ("\My Flash Disk\poiw.zip",POIWARNERBACKUP,1)
	EndIf
EndIf
RunWait ("\My Flash Disk\Sokobana\MortScript\fertig.exe")

# Zurücksetzen des Storage-Memorys
Run (%KOORD_PFAD%, "window=0 SetMem="&%STANDARD_SPEICHER%)
Message ( "Backup beendet.")
If DirExists (%Stmp%)
	DelTree (%Stmp%)
EndIf
Reset

Sub Warten
Run ("\My Flash Disk\Sokobana\Koord2\koord465.exe", "Window=0 KoordServ=1 wndrefresh=-1 t=1 rb=0 gb=0 bb=0 ServWnd=text,0,0,-1,-1,5060,255,0,0,-1,-1{bitte warten...}\text,450,0,30,30,-5030,255,255,0,-1,0{x}|")
EndSub

Sub Fertig
Run ("\My Flash Disk\Sokobana\Koord2\koord465.exe", "Window=0 SendKey=\fPrototype\m0x0010")
EndSub