A HTA with an embedded GoogleMap

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

A HTA with an embedded GoogleMap

Logged in as: Guest

arrSession:exec spGetSession 2,16,53331

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> A HTA with an embedded GoogleMap
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

A HTA with an embedded GoogleMap - 11/7/2007 12:26:57 AM

Meg

Posts: 123
Score: 2
Joined: 7/13/2006
From: Australia
Status: offline

GeoIMG is a cool script with a graphical HTA frontend.

This script will take a folder of photos and a GPS log file and marry the two together.
The result is a cool way to visualise where photos were taken, reliving your holiday.

Create a new file on your computer called GeoIMG.hta

Open GeoIMG.hta file with notepad

Copy the following code, paste it into GeoIMG.hta and save.

Double click GeoIMG.hta and from there you will be able to work out how it works from reading the help file and experimenting with the supplied sample data.

Download Sample.zip here which has some photos and a corresponding GPS log file. Copy the files to a new folder on your C: drive and point the script there.

Sorry Google Maps code is java script but the vbscript part of this HTA makes up for it I recon.

<html>
<head>
<title>GeoIMG</title>

<HTA:APPLICATION 
    ID="GeoIMG"
    APPLICATIONNAME="GeoIMG"
    SCROLL="yes"
    SINGLEINSTANCE="yes"
    WINDOWSTATE="maximize"
>
</head>

Dim GPSUTCTime, GPSUTCDate
Dim LAT, LON, ZOOM
Dim NewLAT, NewLON
Dim objFSO,objFile, objShell

Dim OutPath
Dim APIKey
Dim IMGDir    
Dim GPSFile
Dim CheckedPath

strINI= TempDir & "GeoIMG.ini"
strDB= TempDir & "GeoIMG.mdb"

'---------------------------------------------------------
Sub Window_Onload

'Delete Database to give program a nice clean start
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(strDB) Then
objFSO.DeleteFile strDB, True 
end if

'Create new blank database
DBCreate

runbutton6.disabled = true
runbutton8.disabled = true
ImagesLoaded.innerhtml="No Images Loaded "

TitlePage

'Display an initial Google map
LAT=-25.347749
LON=131.030631
ZOOM=14
GmapsLoad

'Check for variables already set
INIRead

dropdown1.disabled = true

End Sub
'---------------------------------------------------------
'---------------------------------------------------------
Function TempDir()
' Return the path to the temp folder
Set objShell = CreateObject("WScript.Shell")
Set objFSO=CreateObject("Scripting.FileSystemObject")
TempDir=objShell.ExpandEnvironmentStrings("%temp%")&"\"
end Function
'---------------------------------------------------------
'---------------------------------------------------------
Function INIRead
'Check if GeoIMG.ini file exists and use values from that.

Const ForReading = 1
  Const ForWriting = 2
  Set objFSO=CreateObject("Scripting.FileSystemObject")
if objFSO.FileExists(strINI) then
  Set objFile = objFSO.OpenTextFile(strINI, ForReading)
  strLineINI = objFile.ReadLine
   ReadINIFile = Split(strLineINI , ",")
   OutPath=ReadINIFile(0)
   APIKey=ReadINIFile(1)
   IMGDir=ReadINIFile(2)    
   GPSFile=ReadINIFile(3)

OutPathHTML.value=OutPath
APIKeyHTML.value=APIKey
IMGDirHTML.value=IMGDir
GPSFileHTML.value=GPSFile

end if
End Function
'---------------------------------------------------------
Sub GPSSet
'Write program variables to GEOIMG.ini - Activated by SET Button

WriteINIFile=OutPathHTML.value &","& APIKeyHTML.value &","& IMGDirHTML.value &","& GPSFileHTML.value
  
Const ForReading = 1
Const ForWriting = 2
  Set objFSO = CreateObject("Scripting.FileSystemObject")  
  Set objFile = objFSO.CreateTextFile(strINI)
  objFile.WriteLine(WriteINIFile) 
  objFile.Close

End Sub
'---------------------------------------------------------
'---------------------------------------------------------
sub CheckPaths
'Check paths entered in input boxes

CheckedPath="Good"
if IMGDir="Path to your directory of images" then
msgbox "Path to the image directory is not set"
CheckedPath="bad"
exit sub
end if

if GPSFile="Path to your GPS NMEA log file" then
msgbox "Path to the GPS file is not set"
CheckedPath="bad"
exit sub
end if

Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
If (FileSystemObject.FolderExists(IMGDir)) Then
'
else
CheckedPath="bad"
msgbox "Image Directory is Wrong"
exit sub
end if

If (FileSystemObject.FileExists(GPSFile)) Then
'
else
CheckedPath="bad"
msgbox "Path to GPS file is Wrong"
exit sub
end if

end sub
'---------------------------------------------------------
Sub ScanIMGDir
'scan IMG directory - Activated by LOAD button

GPSSet
INIRead
CheckPaths
if CheckedPath="Good" then

'scan every file in image folder
set oShell= createObject("shell.application")
set oFolder = oShell.namespace(IMGDir)
set fso = createObject("scripting.fileSystemObject")

For each i in oFolder.items
   set f = fso.getFile(IMGDir & "\" & i)

IMGName= oFolder.GetDetailsOf(i,00)
   IMGFullPath= IMGDir & "\" & i

X=InstrRev(IMGFullPath, ".")
W=len(IMGFullPath)
Y=right(IMGFullPath, W-X)
Y=UCASE(Y)

if Y="JPG" or Y="JPEG" or Y="TIF" or Y="JPG" then

on error resume next
  
      'exif timetaken extracted from photo converted to UTC 
      DateTimeTaken= oFolder.GetDetailsOf(i,25)
      TimeTakenIncSec= oFolder.GetDetailsOf(i,31)
      CamToGPSTime DateTimeTaken,TimeTakenIncSec
      FieldG=GPSUTCTime
      FieldH=GPSUTCDate

pass="yes"                  
on error goto 0

if pass = "yes" then
count=count+1
'Scan the GPS file and get latitude and longitude reading at that time
ScanGPSFile GPSFile,GPSUTCTime,GPSUTCDate
end if
pass = "reset"

'Update database with information collected 
DatabaseUpdate IMGName, IMGFullPath, LAT, LON, FieldE, DateTimeTaken, FieldG, FieldH, FieldI, FieldJ

end if

DropDown
ImagesLoaded.innerhtml=count&" Images Loaded "

end if

end sub
'---------------------------------------------------------
sub DropDown
' Read Entries(Images) in Database and populate dropdown box

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3

Set objConnectionx = CreateObject("ADODB.Connection")
Set objRecordSetx = CreateObject("ADODB.Recordset")

objConnectionx.Open _
   "Provider = Microsoft.Jet.OLEDB.4.0; " & _
       "Data Source = " &strDB

objRecordSetx.Open "SELECT GeoIMGTable.IMGName FROM GeoIMGTable", _
       objConnectionx, adOpenStatic, adLockOptimistic

objRecordSetx.MoveFirst

Do Until objRecordSetx.EOF

dim objOption
   Set objOption = Document.createElement("OPTION")
       objOption.Text = objRecordsetx.Fields.Item("IMGName")
       objOption.Value = objRecordsetx.Fields.Item("IMGName")
       TheImages.Add(objOption)

objRecordSetx.MoveNext

loop

objRecordSetx.Close

'Disable the load button to prevent the dropdown list being made longer with duplicates
runbutton2.disabled =true
dropdown1.disabled = FALSE
runbutton6.disabled = FALSE

'Display first image in dropdown list
SelectedIMG

End Sub
'---------------------------------------------------------
'---------------------------------------------------------
Function ScanGPSFile(GF,GT,GD)
'Read GPS log file -Raw NMEA Format -Only interested in the GPRMC line -Then convert to decimal degrees 
'GF=Log file, GT=Time photo taken, GD=Date Photo taken
GT=GT&".000"
  Const ForReading = 1
  Const ForWriting = 2
  Set objFSO=CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.OpenTextFile(GF, ForReading)
  Do While Not objFile.AtEndOfStream
  strLine = objFile.ReadLine    
  ReadGPSFile = Split(strLine , ",")

LAT=0
LON=0
   if ReadGPSFile(0)="$GPRMC" then

if ReadGPSFile(9)=GD then

if ReadGPSFile(1)=GT then
              LAT=ReadGPSFile(3)
              LATNS=ReadGPSFile(4)
              LON=ReadGPSFile(5)
              LONEW=ReadGPSFile(6)
              Exit Do
           end if
       end if
   end if                      
  Loop

if LAT=0 then
exit Function
end if

'From Degrees decimal-minutes (D m) to decimal-degrees (dd)
'dd = d + m/60 
'find "." and count back two for degrees, rest of string is decimal minutes.

DOT= InStr(LAT, ".") -3
d=left(LAT,DOT)
'msgbox lat
'msgbox d
m=right(LAT,7)
LAT=m/60
LAT=LAT+d
LAT=Round(LAT,6)
   If LATNS="S" then 
      LAT="-"&LAT
   end if
'msgbox(LAT)

DOT= InStr(LON, ".") -3
d=left(LON,DOT)
m=right(LON,7)
LON=m/60
LON=LON+d
LON=Round(LON,6)
   If LONEW="W" then 
      LON="-"&LON
   end if
'msgbox(LON)

objFile.Close

End Function
'---------------------------------------------------------
'---------------------------------------------------------
Function CamToGPSTime(CamTime,ExIFSeconds)
'Convert time from photo exif data to be same as what is used in GPS log.

'Only interested in last two digits which are the seconds
ExIFSeconds=right(ExIFSeconds,2)

'convert time/date to UTC time
  set oShell = CreateObject("WScript.Shell") 
  atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\" &_ 
      "Control\TimeZoneInformation\ActiveTimeBias" 
  offsetMin = oShell.RegRead(atb) 
  nd = dateadd("n", offsetMin, CamTime)

'UTC time including seconds - in the same format as the GPS logs
GPSUTCTime= formatdatetime(nd, vbshorttime)
GPSUTCTime=Replace(GPSUTCTime,":","")
GPSUTCTime=GPSUTCTime&ExIFSeconds

'UTC Date - in the same format as the GPS logs
GPSUTCDate= formatdatetime(nd, vbShortDate)
GPSUTCDate=Replace(GPSUTCDate,"/","") 
GPSUTCDateR=right(GPSUTCDate, 2) 
GPSUTCDateLEN=len(GPSUTCDate) 
GPSUTCDateL=left(GPSUTCDate, GPSUTCDateLEN-4) 
GPSUTCDate=GPSUTCDateL&GPSUTCDateR

End Function
'---------------------------------------------------------
'---------------------------------------------------------
'Create Database Function
Function DBCreate

'Check if database exists
Set objFSOA = CreateObject("Scripting.FileSystemObject")

If objFSOA.FileExists(strDB) Then
' Skip, the database has already been created (use the database just found)

Else

'Create Database
Set objConnectionA = CreateObject("ADOX.Catalog")
objConnectionA.Create _
   "Provider = Microsoft.Jet.OLEDB.4.0; " & _
       "Data Source = "&strDB
       
'Create table 
Set objConnectionA = CreateObject("ADODB.Connection")
objConnectionA.Open _
   "Provider= Microsoft.Jet.OLEDB.4.0; " & _
       "Data Source= "&strDB

objConnectionA.Execute "CREATE TABLE GeoIMGTable(" & _
   "IMGName TEXT(63) ," & _
   "IMGFullPath TEXT(100) ," & _
   "LAT TEXT(50) ," & _
   "LON TEXT(50) ," & _
   "Notes TEXT(100) ," & _
   "DateTimeTaken TEXT(50) ," & _
   "Spare1 TEXT(50) ," & _
   "Spare2 TEXT(50) ," & _
   "Spare3 TEXT(50) ," & _
   "zoom TEXT(4))"
objConnectionA.Close

End if

End Function        
'---------------------------------------------------------
'Write to database function
Function DatabaseUpdate(FieldA, FieldB, FieldC, FieldD, FieldE, FieldF, FieldG, FieldH, FieldI, FieldJ)

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
Set objConnectionx = CreateObject("ADODB.Connection")
Set objRecordSetx = CreateObject("ADODB.Recordset")

'Check if Image has been added to database already
objConnectionx.Open _
   "Provider = Microsoft.Jet.OLEDB.4.0; " & _
       "Data Source = "&strDB

objRecordSetx.Open "SELECT GeoIMGTable.IMGName FROM GeoIMGTable WHERE (((GeoIMGTable.IMGName)="&Chr(34)&FieldA&Chr(34)&"))", _
       objConnectionx, adOpenStatic, adLockOptimistic

On Error Resume NEXT
objRecordSetx.MoveFirst
If objRecordsetx.Fields.Item("IMGName")="" Then
On Error Goto 0
objRecordSetx.Close

'Add to database
objRecordSetx.Open "SELECT * FROM GeoIMGTable" , _
   objConnectionx, adOpenStatic, adLockOptimistic
objRecordSetx.AddNew
objRecordSetx("IMGName") = FieldA
objRecordSetx("IMGFullPath") = FieldB
objRecordSetx("LAT") = FieldC
objRecordSetx("LON") = FieldD
objRecordSetx("Notes") = FieldE
objRecordSetx("DateTimeTaken") = FieldF
objRecordSetx("Spare1") = FieldG
objRecordSetx("Spare2") = FieldH
objRecordSetx("Spare3") = FieldI
objRecordSetx("zoom") = FieldJ
objRecordSetx.Update

Else

'Image is already in the database delete and re-add entry to avoid duplicates
On Error Goto 0
objRecordSetx.Close

'Delete database record
objRecordsetx.CursorLocation = adUseClient
objRecordSetx.Open "SELECT GeoIMGTable.IMGName FROM GeoIMGTable WHERE (((GeoIMGTable.IMGName)="&Chr(34)&FieldA&Chr(34)&"))", _
       objConnectionx, adOpenStatic, adLockOptimistic
objRecordsetx.Delete
objRecordSetx.Close

End IF

objRecordSetx.Close
objConnectionx.Close

End Function

'---------------------------------------------------------
'---------------------------------------------------------

sub SelectedIMG
'Read specs for this image from DB and display

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
Set objConnectionx = CreateObject("ADODB.Connection")
Set objRecordSetx = CreateObject("ADODB.Recordset")

objConnectionx.Open _
   "Provider = Microsoft.Jet.OLEDB.4.0; " & _
       "Data Source = "&strDB

objRecordSetx.Open "SELECT * FROM GeoIMGTable", objConnectionx, adOpenStatic, adLockOptimistic

objRecordSetx.MoveFirst

Do Until objRecordSetx.EOF
IMGNameTest= objRecordsetx.Fields.Item("IMGName")

objRecordSetx.MoveNext

loop

objRecordSetx.Close

'Display selected image in HTA
IMGPreview.innerhtml = "<centre><b>"&TheImages.value&"</b><br><img src="&Chr(34)&IMGFullPath&Chr(34)&" height=300 width=400><br><b>"&DateTimeTaken&"</b><br><i>Lat="&LAT&" Lon="&LON&"</i></center>"

MyNotes.value=Notes

'Display Googlemap preview window
if LAT=0 then
  LAT=-25.586904
  LON=151.296436
  ZOOM=13
else
ZOOM=0
end if

Gmapsload

end sub
'---------------------------------------------------------
Sub GeoIMGUpdate
'Re-Write database record for currently displayed image including updated fields displayed on HTA

'Read current values in database for selected image
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
Set objConnectionx = CreateObject("ADODB.Connection")
Set objRecordSetx = CreateObject("ADODB.Recordset")

objConnectionx.Open _
   "Provider = Microsoft.Jet.OLEDB.4.0; " & _
       "Data Source = "&strDB

objRecordSetx.Open "SELECT * FROM GeoIMGTable", objConnectionx, adOpenStatic, adLockOptimistic

objRecordSetx.MoveFirst

Do Until objRecordSetx.EOF
IMGNameTest= objRecordsetx.Fields.Item("IMGName")

if IMGNameTest = TheImages.value then
   IMGFullPath = objRecordsetx.Fields.Item("IMGFullPath")
   LAT = objRecordsetx.Fields.Item("LAT")
   LON = objRecordsetx.Fields.Item("LON")
   Notes = objRecordsetx.Fields.Item("Notes")
   DateTimeTaken = objRecordsetx.Fields.Item("DateTimeTaken")
   FieldG = objRecordsetx.Fields.Item("Spare1")
   FieldH = objRecordsetx.Fields.Item("Spare2")
   FieldI = objRecordsetx.Fields.Item("Spare3")
   FieldJ = objRecordsetx.Fields.Item("zoom")   
  end if

objRecordSetx.MoveNext

loop

objRecordSetx.Close

'Read updated latitude longitude values from Google Map preview window
NewLATLON

Notes= MyNotes.value

FieldA=TheImages.value 'Currently selected photo in HTA
FieldB=IMGFullPath
FieldC=NewLON
FieldD=NewLAT
FieldE=Notes
FieldF=DateTimeTaken
FieldG=FieldG
FieldH=FieldH
FieldI=FieldI
FieldJ=FieldJ

'msgbox notes

DatabaseUpdate FieldA, FieldB, FieldC, FieldD, FieldE, FieldF, FieldG, FieldH, FieldI, FieldJ

End Sub
'---------------------------------------------------------
'---------------------------------------------------------
sub NewLATLON
'Moving Google Maps Preview window displays a new Latitude and Longitude value
'Extract Latitude and Longitude from following string, not as easy as it looks as there can be anything from 0 to 15 numbers after the decimal point
' Example string extracted:- "<DIV id=posn><B>Lat</B>: -26.64355581048604<BR><B>Lon</B>: 152.94670343399048</DIV>"

strLATLON= ReadNew.innerhtml

'Read Latitude from html string
strCount1= len(strLATLON)
strCount2= InStr(strLATLON, "Lat</B>: ")
NewLON=right(strLATLON, strCount1-strCount2-8) 
NewLON=left(NewLON, 13) 
strCount3= InStr(NewLON, "<")
if strCount3 = 0 then
  'no stray html found, no further trimming required :)
else
  NewLON=Left(NewLON,strCount3-1)
'msgbox newlon
end if

'Read Longitude from html string
strCount1= len(strLATLON)
strCount2= InStr(strLATLON, "Lon</B>: ")
NewLAT=right(strLATLON, strCount1-strCount2-8) 
NewLAT=left(NewLAT, 13) 
strCount3= InStr(NewLAT, "<")
if strCount3 = 0 then
  'no stray html found, no further trimming required :)
else
  NewLAT=Left(NewLAT,strCount3-1)
'msgbox newlat
end if

end sub
'---------------------------------------------------------
'---------------------------------------------------------
sub GPSReset
       Location.Reload(True)
end sub
'---------------------------------------------------------
'---------------------------------------------------------
sub GeoIMGClose
   self.close
end sub
'---------------------------------------------------------
'---------------------------------------------------------
sub TitlePage
page.innerhtml="<table width=100% border=0><tr><td valign=center><br><br><center><font color=RED size=6><b> GeoIMG </b></font><br>By MJP 2007<br><br></center><b>INTRO</b><br><br>Lots of people have a camera and lots of people have a GPS, but not many have both in one device. So let me introduce you to GeoIMG.<br><br>This script will take a folder of photos and a GPS log file and marry the two together.<br>The result is a cool way to visualise where photos were taken, reliving your holiday.<br>The beauty of this script is that it is just a script, i.e. written in familiar plain old VBScript (except for the Google Map code and HTML) so you can literally look under the bonnet and see for yourself how the magic of GeoIMG is done.<br><br>Enjoy.<br><br><td></tr></table>"end Sub
'---------------------------------------------------------
'---------------------------------------------------------
sub HelpPage
page.innerhtml="<table width=100% border=0><tr><td valign=center><br><br><center><font color=RED size=6><b> GeoIMG </b></font><br>By MJP 2007<br><br></center><b>HELP</b><ol><li>Synchronise the time on your camera with an atomic clock (to the second). I use the 'Update Now' button in XP's clock to sync to an Internet time server and then set the camera to exactly the same time.<br><li>Configure your GPS to generate RAW NMEA log files (One second interval). I use a program called Franson GPSGate which I have configured to filter only the GPRMC lines out of the GPS. GeoIMG will ignore other lines anyway. <br><li>Put your GPS in your pocket or backpack, go for a walk and take some photos. <br><li>Download your photos and log file to a folder on your computer. <br><li>Type the paths to the folder and log file into GeoIMG.<br><li>Visualise on a Google Map the location where the photo was taken.<br></ol><br>You will notice a Google API and an Output Path field. This code is not active, I have designed the script so that I, can add code to the export button which will generate a Google Map package with all the photos marked in which you can upload to your website. <br>For that reason you will notice the feature where you can add notes to each photo, move the placemark pin and then save those changes. Doing so is only for demonstration purposes as loading the photos after restarting the script will erase those changes. <br><br><i>I will not be liable for damages if you decide to use this script.<br>Nor am I obligated to assist you resolving problems.<br>There are commercial programs out there that do the same thing.<br>But they are not as cool as GeoIMG :)<br><br>I would appreciate it if you give me <a href='http://www.painterinfo.com/php2bb/viewtopic.php?t=514'>feedback</a> on bugs/usability/features of the script though :)<br></i><td></tr></table>"
end Sub
'---------------------------------------------------------
'---------------------------------------------------------
sub DownloadPage
page.innerhtml="<table width=100% border=0><tr><td valign=center><br><br><center><font color=RED size=6><b> GeoIMG </b></font><br>By MJP 2007<br><br></center><b>DOWNLOAD</b><br><br>A zip file with some sample images and corresponding GPS log file can be Downloaded <a href='http://www.painterinfo.com/php2bb/viewtopic.php?t=514'>Here</a> <br><br>If the message box in the top right of the screen announces that an updated version of the script available, then you can download the latest version from <a href='http://www.painterinfo.com/php2bb/viewtopic.php?t=514'>Here</a><td></tr></table>"
end Sub
'---------------------------------------------------------
'---------------------------------------------------------

'---------------------------------------------------------
'---------------------------------------------------------
</SCRIPT>

'Google Maps Code
<script src="http://maps.google.com/maps?file=api&amp;v=2&amp;key=ABQIAAAA3rPk1vKqNxviLFnWIJ-QrBRZNe1Ex5jIwPa0BHPlbhvVFMJPARQzmUQx7bXa56VyBJbp6ZPdTiarSQ" type="text/javascript"></script>
<script type="text/javascript">            
           function Gmapsload()

{
               
               var map = new GMap(document.getElementById("map"));
                           
               map.addControl(new GMapTypeControl());
               map.addControl(new GSmallZoomControl());

map.centerAndZoom(new GPoint(LON, LAT), ZOOM);
                               map.enableContinuousZoom();

var posnString = '<b>Lat</b>: ' + LAT + '<br><b>Lon</b>: ' + LON ;
       document.getElementById("posn").innerHTML = posnString;

var point = new GLatLng(LAT, LON);
       var marker = new GMarker(point, {draggable: true});

GEvent.addListener(marker, "dragstart", function() {
         map.closeInfoWindow();
       });

GEvent.addListener(marker, "dragend", function() {        
       var position = marker.getPoint(); 
       map.panTo(new GLatLng(position.lat(), position.lng()));
   var posnString = '<b>Lat</b>: ' + position.lat() + '<br><b>Lon</b>: ' + position.lng() ;
       document.getElementById("posn").innerHTML = posnString;
       });

GEvent.addListener(map, "moveend", function() {
       var position = marker.getPoint(); 
       var posnString = '<b>Lat</b>: ' + position.lat() + '<br><b>Lon</b>: ' + position.lng() ;
       document.getElementById("posn").innerHTML = posnString;
   });

map.addOverlay(marker);

}
</script>

<body>

<table width="100%" border=1 cellpadding=10>
 <tr>
   <td width="50%" valign="top">
<input id=runbutton1  class="button" type="button" value="SET" name="run_button1" style="color:black; background-color:#99b3cc" onClick="GPSSet">
<input id=runbutton2  class="button" type="button" value="LOAD" name="run_button2" style="color:black; background-color:#99b3cc" onClick="ScanIMGDir">
<input id=runbutton8  class="button" type="button" value="EXPORT" name="run_button8" style="color:black; background-color:#99b3cc" onClick="GeoIMGExport">
<input id=runbutton3  class="button" type="button" value="SAMPLE DATA" name="run_button3" style="color:black; background-color:#99b3cc" onClick="DownloadPage">
<input id=runbutton7  class="button" type="button" value="HELP" name="run_button7" style="color:black; background-color:#99b3cc" onClick="HelpPage">
<input id=runbutton4  class="button" type="button" value="RESET" name="run_button4" style="color:black; background-color:#99b3cc" onClick="GPSReset">
<input id=runbutton5  class="button" type="button" value="CLOSE" name="run_button5" style="color:black; background-color:#99b3cc" onClick="GeoIMGClose">
<br><br>
<input type="text" name="IMGDirHTML" value="Path to your directory of images" size="40">Image Directory<br>
<input type="text" name="GPSFileHTML" value="Path to your GPS NMEA log file" size="40">GPS Log File<br>
<input type="text" name="APIKeyHTML" value="Not Used" size="40"><font color=silver>Your Google API Key<br>
<input type="text" name="OutPathHTML" value="Not Used" size="40">Map Output Dir</font><br>

</td>

<br>
<table>
<tr>
<td>Image <BR>Notes </td>
<td><textarea name="MyNotes" cols="40" rows="3">Your notes about the images</textarea></td>
<td><input id=runbutton6  class="button" type="button" value="SAVE" name="run_button6" style="color:black; background-color:#99b3cc" onClick="GeoIMGUpdate"></td>
</tr>
</table>

</center>
</td>
 </tr>
</table>

</body>
</html>

< Message edited by dm_4ever -- 11/14/2007 3:41:18 AM >

Revisions: 4 | Post #: 1

RE: A HTA with an embedded GoogleMap - 11/10/2007 6:07:15 PM

Meg

Posts: 123
Score: 2
Joined: 7/13/2006
From: Australia
Status: offline

I was wondering why I got no feed back for this HTA??? LOL

For some reason the code has been formated, even though it is between the [/code]
code tags and I can't fix it.

Could a kind administrator fix this?

Here is a link to the un-corupted version of the script
http://www.painterinfo.com/map/GeoIMG.zip

Feel free to delete this post if you can fix it or delete the topic if you can't.

Thumbnail Image

Attachment (1)

< Message edited by Meg -- 3/29/2008 6:00:03 PM >

(in reply to Meg)

Revisions: 3 | Post #: 2

RE: A HTA with an embedded GoogleMap - 11/14/2007 3:43:36 AM

dm_4ever

Posts: 2254
Score: 32
Joined: 6/29/2006
From: Orange County, California
Status: offline

Code and link of your original should be OK now. It's been a while since I've taken a peak in the Post a Script section and have seen a few of yours that have shown me things that never came to mind...someone's been busy.

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to Meg)