Code : Tout sélectionner
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=google.ico
#AutoIt3Wrapper_outfile=GoogleTraffic.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; Google Traffic Embedding APplication
; Written by JohnWPB on the mp3.car.com forums
#include<GUIConstantsEx.au3>
#include<WindowsConstants.au3>
#include <IE.au3>
ShellExecute("Exec.exe","SETTOPMOST;RR;false")
Global $vs_cds, $vs_msg, $pos[2]
Opt("WinSearchChildren", 2)
$rr = ObjCreate("RoadRunner.sdk")
$hwnd_RR = WinGetHandle("RoadRunner")
If Not FileExists("Settings.ini") Then
IniWrite("Settings.ini", "Google Maps", "WindowsName", "GoogleTraffic")
IniWrite("Settings.ini", "Google Maps", "ForceSettings", "no")
IniWrite("Settings.ini", "Google Maps", "Lon", "")
IniWrite("Settings.ini", "Google Maps", "Lat", "")
IniWrite("Settings.ini", "Google Maps", "ZoomLevel", "5")
EndIf
$WindowsName = IniRead("Settings.ini", "Google Maps", "WindowsName", "")
$ForceSettings = IniRead("Settings.ini", "Google Maps", "ForceSettings", "")
$SatLock = $rr.getinfo("GPSSAT")
If $ForceSettings = "no" Then
$Lat = $rr.getinfo("GPSLAT")
$Lon = $rr.getinfo("GPSLON")
EndIf
If $ForceSettings = "yes" Then
$Lat = IniRead("Settings.ini", "Google Maps", "Lat", "38.22092")
$Lon = IniRead("Settings.ini", "Google Maps", "Lon", "-98.415527")
EndIf
If $SatLock <3 Then
$Lat = IniRead("Settings.ini", "Google Maps", "Lat", "38.22092")
$Lon = IniRead("Settings.ini", "Google Maps", "Lon", "-98.415527")
EndIf
$ZoomLevel = IniRead("Settings.ini", "Google Maps", "ZoomLevel", "5")
$GeneralINI = GetWidthHeight()
$ShowWidth = $GeneralINI[0]
$ShowHeight = $GeneralINI[1]
_IEErrorHandlerRegister()
$oIE = _IECreateEmbedded()
GUICreate($WindowsName, $ShowWidth, $ShowHeight-75, 0, 0, BitOR($WS_MINIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_SYSMENU, $WS_CAPTION, $WS_POPUPWINDOW, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS))
GUIRegisterMsg(0x4A, "_GUIRegisterMsgProc")
$GUIActiveX = GUICtrlCreateObj($oIE, -380, -130, 1180, 590)
GUISetState()
GUISetState(@SW_SHOW)
;_IENavigate ($oIE, "http://maps.google.com/maps?hl=en&ie=UTF8&ll=25.82029,-80.180969&spn=0.397433,1.033401&z=5&layer=t")
[color=#FF0000]_IENavigate($oIE, "http://maps.google.com/maps?ie=UTF8&om=1&ll=" & $Lat & "," & $Lon & "&spn=0.003229,0.007923&z=" & $ZoomLevel & "&layer=t")[/color]
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
GUIDelete()
Func _GUIRegisterMsgProc($hWnd, $MsgID, $WParam, $LParam)
WinActivate($WindowsName)
Sleep(50)
$vs_cds = DllStructCreate("ptr;dword;ptr", $LParam)
$vs_msg = DllStructCreate('char[' & DllStructGetData($vs_cds, 2) + 1 & ']', DllStructGetData($vs_cds, 3))
$recd_msg = DllStructGetData($vs_msg, 1)
$recd_msg = StringLeft($recd_msg, DllStructGetData($vs_cds, 2))
If $recd_msg = "Close" Then
ShellExecute("Exec.exe","SETTOPMOST;RR;true")
Exit
EndIf
$pos = MouseGetPos()
MouseClick("left", 300, 300, 1, 0)
If $recd_msg = "+" Then Send("{+}")
If $recd_msg = "-" Then Send("{-}")
MouseMove($pos[0], $pos[1], 0)
EndFunc
Func GetWidthHeight()
Dim $a[2]
$var = StringSplit(FileRead('..\..\general.ini'),@CRLF,1)
For $i = 1 To $var[0]
Switch StringLeft($var[$i],StringInStr($var[$i],"=")-1)
Case "ShowWidth"
$a[0] = StringStripWS(StringMid($var[$i],StringInStr($var[$i],"=")+1),2)
Case "ShowHeight"
$a[1] =StringStripWS(StringMid($var[$i],StringInStr($var[$i],"=")+1),2)
EndSwitch
Next
Return $a
EndFunc
Exit
