Useing Google Maps to calculate mileage from Point A to Point B

[KenNichols]

I am new! Pick it apart and help me make it Better!

#include <IE.au3>

#include <GUIConstants.au3>

#Region ### START Koda GUI section ###

$Form1= GUICreate("How many Miles?", 377, 248, 194, 116)

GUISetCursor (2)

$txtfromAdd = GUICtrlCreateInput("", 8, 48, 153, 21)

$Label1 = GUICtrlCreateLabel("From:", 8, 8, 45, 24)

GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

$Label2 = GUICtrlCreateLabel("Street Address", 8, 32, 73, 17)

$txtfromcity = GUICtrlCreateInput("", 8, 96, 153, 21)

$Label3 = GUICtrlCreateLabel("City", 8, 80, 21, 17)

$txtfromstate = GUICtrlCreateInput("", 8, 144, 153, 21)

$Label4 = GUICtrlCreateLabel("State", 8, 128, 29, 17)

$txttoAdd = GUICtrlCreateInput("", 216, 48, 153, 21)

$Label5 = GUICtrlCreateLabel("To:", 216, 8, 26, 24)

GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

$Label6 = GUICtrlCreateLabel("Street Address", 216, 32, 73, 17)

$txttocity = GUICtrlCreateInput("", 216, 96, 153, 21)

$Label7 = GUICtrlCreateLabel("City", 216, 80, 21, 17)

$txttostate = GUICtrlCreateInput("", 216, 144, 153, 21)

$Label8 = GUICtrlCreateLabel("State", 216, 128, 29, 17)

$BtnCalc = GUICtrlCreateButton("Calculate", 240, 192, 105, 25)

GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")

$lblMilage = GUICtrlCreateLabel("", 88, 192, 103, 28)

GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")

$Label9 = GUICtrlCreateLabel("Distance =", 8, 195, 80, 24)

GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")

$VMap = GUICtrlCreateButton("View Map", 256, 224, 73, 17, 0)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

EndSwitch

If $nMsg = $BtnCalc Then Mileage()

If $nMsg = $VMap Then Map()

WEnd

Func Mileage()

GUICtrlSetData($lblMilage,"")

GUISetCursor(15)

$fadd = GUICtrlRead($txtfromAdd)

$fcity = GUICtrlRead($txtfromcity)

$fstate = GUICtrlRead($txtfromstate)

$tadd = GUICtrlRead($txttoAdd)

$tcity = GUICtrlRead($txttocity)

$tstate = GUICtrlRead($txttostate)

$Start = ($fadd & ", " & $fcity & " " & $fstate)

$End = ($tadd & ", " & $tcity & " " & $tstate)

$sUrl = "http://maps.google.com/maps?f=d&hl=en&saddr="&StringReplace($start&"&daddr="&$End," ","+")

$oIE = _IECreate($sUrl,0,0)

_IELoadWait($oIE)

$oDiv = _IEGetObjById($oIE, "dditd")

$Result = (_IEPropertyGet($oDiv, "innertext"))

$data = StringRegExp($Result, "([0-9]+.[0-9]+)",1)

If $data = "" Then

MsgBox(0, "Mileage Calculation Error", "Mileage Calculation Error")

Map()

Else

GUICtrlSetData($lblMilage,$data[0] & " Miles")

_IEQuit ($oIE)

GUISetCursor(2)

EndIf

EndFunc

Func Map()

GUISetCursor(15)

$fadd = GUICtrlRead($txtfromAdd)

$fcity = GUICtrlRead($txtfromcity)

$fstate = GUICtrlRead($txtfromstate)

$tadd = GUICtrlRead($txttoAdd)

$tcity = GUICtrlRead($txttocity)

$tstate = GUICtrlRead($txttostate)

$Start = ($fadd & ", " & $fcity & " " & $fstate)

$End = ($tadd & ", " & $tcity & " " & $tstate)

$sUrl = "http://maps.google.com/maps?f=d&hl=en&saddr="&StringReplace($start&"&daddr="&$End," ","+")

$oIE = _IECreate($sUrl,0,1)

_IELoadWait($oIE)

GUISetCursor(2)

EndFunc

[Qousio]

Would be better if you learned theory of graphs and made a programm that actually calculates mileage

[DaleHohm]

Would be better if you learned theory of graphs and made a programm that actually calculates mileage

Nah, really, get yourself a pedometer and walk off the distance.

Recently discussed... see here: http://www.autoitscript.com/forum/index.ph...st&p=671222

Dale

[KenNichols]

The script works fine, I was hoping to get some constructive criticism. Anyone?

[Valuater]

Just some ideas...

Embed it

List directions

get weather

altitude

printable

???

8)

[NBJ]

@KenNichols

Well done

First thing to would be to check if the website is replying in Miles or KM.

Add some fields for Country.

Cheers

NBJ

[EdWilson]

As identified in this topic...

Because Google appears to have updated the way they code their html, simply change "dditd" to "altroute_0" in the above code. Can get altroute_1 or altroute_2 as well if those are presented.