Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
_Apropos()
Func _Apropos()
$sHTML = 'This software convert some POI speedcam ascii<br>' & _
'file resulting from the following sites :</a><br>' & _
'* <a href=http://www2.alertegps.com/download_basic.asp?id_matos=8&menu=1&sous_menu=1>www.alertegps.com</a><br>' & _
'* <a href=http://www.gpspassion.com/forumsen/default.asp>GpsPassion.com</a><br>' & _
'* <a href=http://www.trapster.com/index.php>Trapster.com</a><br>' & _
'* <a href=http://speedcamerapoi.com/download.php>SpeedCamPoi.com</a><br><br>' & _
'to create a compatible output <a href=http://www.mp3car.com/vbulletin/rr-plugins/127134-gpsexec-plugin.html>GpsExec</a> file<br>' & _
'of Guino for <a href=http://www.nisuautomotive.com>Ride Runner</a> created by Guino ...<br><br>' & _
'We obtain at exit :<br>' & _
'Latitude,Longitude,MinHdg,MaxHdg,,,Distance,Unités,"TYPE_RADAR_VITESSE"<br>' & _
'soit au final :<br>' & _
'-21.30224,55.50166,,,500,M,"RADAR_FIXE_110"<br>' & _
'-21.30207,55.42566,,,500,M,"RADAR_FEU_ROUGE_110"<br>' & _
'-21.23435,55.30042,,,500,M,"RADAR_MOBILE_90"<br>' & _
'-20.96288,55.30413,,,500,M,"ZONE_DANGER_0"<br><br>' & _
'Csv2GpsExec use gpsbabel downloadable <a href=http://www.gpsbabel.org/download.html>here</a> for<br>' & _
'to visualize your POI on GoogleEarth .<br><br>' & _
'Thanks :<br>' & _
'This logiel was carried out with the assistance of :<br>' & _
'Tlem in the forum <a href=http://www.autoitscript.fr/forum/>AutoIt France</a>'
_IEErrorHandlerRegister()
$oIE = _IECreateEmbedded()
$GuiApropos = GUICreate("", 640, 550, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$GUIActiveX = GUICtrlCreateObj($oIE, 5, 5, 630, 500)
$OK7 = GUICtrlCreateButton("OK", 300, 515, 75, 25)
_IENavigate($oIE, "")
_IEBodyWriteHTML($oIE, $sHTML)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE Or $msg = $OK7
ExitLoop
EndSelect
WEnd
GUIDelete($GuiApropos)
EndFunc ;==>_Apropos