AutoIt Français

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