AutoIt Français

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)  ; Passe en mode événement

Dim $PC2 = "192.168.1.150" ; IP du PC Voiture
Dim $ClePC2 = "\\" & $PC2 & "\Partage\cle.txt" ; Chemin du fichier Cle.txt sur PC2
DIM $Count, $Start

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Site Survey", 234, 162, 193, 125)
GUISetOnEvent($GUI_EVENT_CLOSE, "ProgExit")

$Label1 = GUICtrlCreateLabel("Recherche du PC2", 8, 16, 218, 60, $SS_CENTER)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")

$Label2 = GUICtrlCreateLabel("Recherche en cours ...", 60, 60, 113, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$Progress1 = GUICtrlCreateProgress(40, 75, 150, 17)

$Button1 = GUICtrlCreateButton("Démarrer", 16, 125, 75, 25, 0)
GUICtrlSetOnEvent($Button1, "start")
$Button2 = GUICtrlCreateButton("Arrêter", 144, 125, 75, 25, 0)
GUICtrlSetOnEvent($Button2, "stop")

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

; Boucle principale.
While 1
    Sleep(5000) ; Pause de 5 secondes
    If $Start = 1 Then SurveyPC2() ; Si $Start est à 1 on lance la fonction SurveyPC2()
WEnd

Func SurveyPC2()
            ;MsgBox(0, "", "Recherche de " & $ClePC2)
    $Res = Ping($PC2, 250) ; Ping $PC2 pour voir si il répond
    If not @error Then  ; Si pas d'erreur ...
        If FileExists($ClePC2) Then PC2IsFind() ; Si le PC répond on lance la fonction PC2IsFind()
    EndIf
EndFunc

Func start()
    GUICtrlSetState($Label2, $GUI_SHOW) ; Affiche le label $Label2
    AdlibEnable("BarGraph", 50)  ; Lance la mise à jour du Bargraph toutes les 100 Millisecondes.
    $Start = 1 ; Met la valeur $Start à 1
EndFunc

Func stop()
    AdlibDisable() ; Arrête la fonction appelé par AdlibEnable
    GUICtrlSetData($progress1, 0) ; Met le BarGraph à zéro.
    $Count = 0 ; Met la valeur $Count à 0.
    $Start = 0 ; Met la valeur $Start à 0.
EndFunc

Func BarGraph()
    If GUICtrlRead($progress1) = 95 Then $Count = 0 ; Si BarGraph à 95 alors $Count = 0
    GUICtrlSetData($progress1, $Count) ; Met le BarGraph à la valeur de $Count.
    $Count += 1 ; Incrémente $Count de 1
EndFunc

Func PC2IsFind()
     ShellExecute($ClePC2)
     WinWaitActive("cle.txt")
     MsgBox(64, "Info", "Le PC2 est joignable et le fichier cle.txt à été trouvé" )
      Exit
 EndFunc
 
Func ProgExit()
  Exit ; Sortie du programme.
EndFunc

Code : Tout sélectionner

$rr = "NIL"
$F = winexists ("RoadRunner")
If $F = 0 Then msgbox (0, "Erreur", "Road Runner Doit être démarré pour utiliser Speedlimit", 5)
if $F = 1 then
$rr = ObjCreate("RoadRunner.SDK")
$SpeedLimit = $RR.GetInfo("=$SPEEDLIMIT$")
$LATHOMESP = $RR.getinfo("=$LATHOMESP$")
$SpeedLimitOLD = $RR.GetInfo("=$SPEEDLIMITOLD$")
sleep (200)
If $F = 1 and  $SpeedLimit = "" or $SpeedLimitOLD = "" Then $rr.execute("SAY;" & "La vitesse limite n'est pas configurée, Configurez la vitesse limite s'il vous plait, en appuyant sur un bouton speedlimit, où le définir dans le fichier skin.ini file, SPEED, LIMIT Equals,  Then, Your Set Point, For the Speed Limit, Road Runner, Will Have To Be Reset, before this will work")
If $F = 1 and $SpeedLimit >= 0 and $SpeedLimitOLD >= 0 Then $rr.execute("SAY;" & "La vitesse limite est configurée à " & $SpeedLimit & "Kilometres Par Heure")
If $LATHOMESP = 1 or $LATHOMESP = 0 then execute("SAY; Vous n'avez pas défini la position de votre maison")
sleep(1000)
endif
$MySpeed = 0
$t = 0
$FIRSTTIME = 0
$HAPPROACH = 0
$HOME1 = 0
$POSITION = 0
$POSITION2 = 65000
$PBACK = 0
$COORDCHECK2 = 0 
$INDON = 1
;Speed Checker
do
$SpeedLimitOLD = $RR.GetInfo("=$SPEEDLIMITOLD$")
;Checks for Road Runner
$F = winexists ("RoadRunner")
$POSITION = $POSITION + 5000
if $POSITION > 65000 then $POSITION = 1
$POSITION2 = $POSITION2 - 5000
if $POSITION2 < 0 then $POSITION2 = 64500
$rr.execute("SETVAR;SPEEDZONEMONITOR;" & $POSITION)
$rr.execute("SETVAR;SPEEDZONEMONITOR2;" & $POSITION2)
if winexists("RoadRunner") and $SpeedLimit > 0 then 
;Reset Variables
$OKDOKEY = 1
$SL=0
$SLA = 0
$SLAA = 0
$SLAB = 0
$SLB = 0
$SLBA = 0
$SLBB = 0
$SLC = 0
$SLCA = 0
$SLCB = 0

;Gets and Resets Information From Road Runner

$MySpd = $RR.GetInfo("GPSSPD")
$CurrentLat = $RR.getinfo("GPSLAT")
$CurrentLon = $RR.getinfo("GPSLON")
if $COORDCHECK2 = 0 then $SpeedLimit = $RR.GetInfo("=$SPEEDLIMIT$")
$UNITS = StringRight($MySpd, 5)
$MySpeed = StringReplace($MySpd , $UNITS, "")
$rr.execute("setvar;spdunits;" & $UNITS)
$HOMEANNOUNCE = $RR.getinfo("=$HOMEANNOUNCE$")
$LONSP1 = $RR.getinfo("=$LONSP1$")
$LATSP1 = $RR.getinfo("=$LATSP1$")
$SPDSP1 = $RR.getinfo("=$SPDSP1$")
$TYPSP1 = $RR.getinfo("=$TYPSP1$")

$HOMESPD = $RR.getinfo("=$SPDHOMESP$")
$LATHOMESP = $RR.getinfo("=$LATHOMESP$")
$LONHOMESP = $RR.getinfo("=$LONHOMESP$")
$SPDHOMESP = $RR.getinfo("=$SPDHOMESP$")
$TYPHOMESP = $RR.getinfo("=$TYPHOMESP$")
$CURSPDZN = "NONE"
$CURTYPZN = "NONE"
$CURLONZN = "NONE"
$CURLATZN = "NONE"
$SPEEDZONE1 = 0
$ZONE1SPD = 0
$ZONE1LAT = 0
$ZONE1LON = 0

$COORDS1 = 0

$HOME = 0
$HOMELAT = 0
$HOMELON = 0
$HOMESPDCHECK = 0
;Checking your location for HOME
If $CurrentLat < $LATHOMESP + .000110 and $CurrentLat > $LATHOMESP - .000110 Then $HOMELAT = 1
If $CurrentLon < $LONHOMESP + .000110 and $CurrentLon > $LONHOMESP - .000110 Then $HOMELON = 1
$HOME1 = $HOMELAT + $HOMELON
If $HOME1 = 2 then $HAPPROACH = $HAPPROACH + 1  
If $HOME1 = 2 and $HAPPROACH = 1 then $rr.execute("SAY; " & $HOMEANNOUNCE)
If $HOME1 = 2 and $HAPPROACH = 1 then $rr.execute("HOMECMD")
If $HOME1 = 2 then $rr.execute("SETIND;!HOMESP;ON")
If $HOME1 = 2 then $HAPPROACH = $HAPPROACH + 1  
if $HAPPROACH = 20 then $HAPPROACH = 0
If $HOME1 = 2 then sleep(10000)
    
;Checking your location for speed zone 1
If $CurrentLat < $LATSP1 + .000110 and $CurrentLat > $LATSP1 - .000110 Then $ZONE1LAT = 1
If $CurrentLon < $LONSP1 + .000110 and $CurrentLon > $LONSP1 - .000110 Then $ZONE1LON = 1
$COORDS1 = $ZONE1LAT + $ZONE1LON
If $COORDS1 = 2 then $rr.execute("SAY; Vous avez défini une " & $TYPSP1 & " zone de vitesse La vitesse limite est " & $SPDSP1)
If $MySpeed > $SPDSP1 then $ZONE1SPD = 1
$SPEEDZONE1 = $ZONE1SPD + $ZONE1LAT + $ZONE1LON
If $SPEEDZONE1 = 3 then $rr.execute("SAY; Vous avez défini une " & $TYPSP1 & " Zone de vitesse et vous êtes au dessus de la vitesse limite " & $SPDSP1)
If $SPEEDZONE1 = 3 then $CURTYPZN = $TYPSP1
If $SPEEDZONE1 = 3 then $CURLONZN = $LONSP1
If $SPEEDZONE1 = 3 then $CURLATZN = $LATSP1
If $SPEEDZONE1 = 3 then $CURSPDZN = $SPDSP1 
If $COORDS1 = 2 then $rr.execute("SETVAR;CURRENTTYPZONE;" & $TYPSP1)
If $COORDS1 = 2 then $rr.execute("SETVAR;SPEEDLIMIT;" & $SPDSP1)
If $COORDS1 = 2 then $rr.execute("SZCMD1")

;Get Voice Messages
$Speak1 = $RR.GetInfo("=$SLSPK1$")
$Speak2 = $RR.GetInfo("=$SLSPK2$")
$Speak3 = $RR.GetInfo("=$SLSPK3$")
$Speak4 = $RR.GetInfo("=$SLSPK4$")

;Set Speed Limit Allowances
$SPL1 = $SpeedLimit + 15
$SPL2 = $SpeedLimit + 25
$SPL3 = $SpeedLimit + 35
$SPL4 = $SpeedLimit + 45
$RBYMYSPEED = 0
$RBMYSPEED = 0
$RMYSPEED = 0
If $MySpeed > $SpeedLimit then $RMYSPEED = 1
IF $MySpeed > 10 then $RBMYSPEED = 1
$RBYMYSPEED = $RMYSPEED + $RBMYSPEED
;Speed Zone Check and Reset
$COORDCHECK2 = 0
$COORDCHECK2 = $COORDS1
if $COORDCHECK2 = 0 then $rr.execute("setvar;SPEEDLIMIT;" & $SpeedLimitOLD)
if $COORDCHECK2 = 0 then $rr.execute("setvar;CURRENTTYPZONE;NONE")
if $COORDCHECK2 = 0 then $SpeedLimit = $SpeedLimitOLD
if $COORDCHECK2 > 1 then sleep(10000)
;Commands Executed when exceeding speed limit

If $RBYMYSPEED = 2 then $rr.execute("SPEEDLIMIT")
If $RBYMYSPEED = 2 then $rr.execute("SAY;" & "La vitesse limite est " & $SpeedLimit & " Et tout va bien" & $MySpeed) 
if $MySpeed > $SPL1 then $SLAA = 1
if $MySpeed < $SPL2 then $SLAB = 1
$SLA = $SLAA + $SLAB
If $MySpeed > $SpeedLimit then sleep(1000)
IF $SLA = 2 then $rr.execute("SAY; " & $Speak1)
if $MySpeed > $SPL2 then $SLBA = 1
if $MySpeed < $SPL3 then $SLBB = 1
$SLB = $SLBA + $SLBB

IF $SLB = 2 then $rr.execute("SAY; " & $Speak2)
if $MySpeed > $SPL3 then $SLCA = 1
if $MySpeed < $SPL4 then $SLCB = 1
$SLC = $SLCA + $SLCB
IF $SLC = 2 then $rr.execute("SAY; " & $Speak3)
if $MySpeed > $SPL4 then sleep(100)
if $MySpeed > $SPL4 then $rr.execute("SAY; " & $Speak4)
If $t = 0 and $SpeedLimit < $MySpeed then $t = 1
if $SLA > 1 or $SLB > 1 or $SLC > 1 then sleep(100)

;Resets Speed Limit Indicators if your speed drops below setpoint

if $t = 1 and $SPEEDLIMIT > $MySpeed then $rr.execute("SPEEDLIMITOFF")
if $t = 1 and $SPEEDLIMIT > $MySpeed then $rr.execute("SAY;" & "Merci d'aller doucement")
if $t = 1 and $SPEEDLIMIT > $MySpeed then $t = 0

;Checks if Speed Zones Changed the speed Limit if it did it changes back to the old setpoint
IF $FIRSTTIME = 0 THEN $rr.execute("SAY;" & "Votre vitesse est surveillée")
IF $FIRSTTIME = 0 THEN $rr.execute("SAY;" & "Vous roulez actuellment à " & $MySpeed) 
$FIRSTTIME=1
$INDON = $INDON + 1
if $INDON < 10 then $rr.execute("SETIND;!SPEEDCHECK;ON")
IF $INDON > 10 then $rr.execute("SETIND;!SPEEDCHECK;OFF")
IF $INDON > 12 then $INDON = 1
EndIf
until $F = 0 or $SpeedLimit = ""
 

Code : Tout sélectionner

RoadRunner Skin
RRScreen F-CNS(800x600Stretched)"browser"
Detect_Poi_off.png,Detect_Poi_off.png,Detect_Poi_On.png,Detect_Poi_off.png
INC,BottomButtons.txt
L,502,414,272,25,#DFX1R#,#DFX1G#,#DFX1B#,18,#DFXFont#,"=Nom Program 2","Center"
IMG,380,133,55,50,"voiture.png"
IMG,220,132,55,50,"bateau.png"
IMG,650,116,128,129,"maison.png"
IMG,58,132,55,50,"maison.png"
L,117,81,272,35,#DFX1R#,#DFX1G#,#DFX1B#,23,#DFXFont#,"=Run Commande","Center"
L,502,287,272,26,#DFX1R#,#DFX1G#,#DFX1B#,18,#DFXFont#,"=Nom Program 1","Center"
L,650,348,128,19,#DFX1R#,#DFX1G#,#DFX1B#,18,#DFXFont#,"=OFF","Center"
L,651,474,131,19,#DFX1R#,#DFX1G#,#DFX1B#,18,#DFXFont#,"=OFF","Center"
L,499,473,131,19,#DFX1R#,#DFX1G#,#DFX1B#,18,#DFXFont#,"=ON","Center"
L,495,349,131,19,#DFX1R#,#DFX1G#,#DFX1B#,18,#DFXFont#,"=ON","Center"
L,123,4,87,20,#DFX1R#,#DFX1G#,#DFX1B#,16,#DFXFont#,"=$OnlineStatus$",
L03,21,30,613,38,#DFX1R#,#DFX1G#,#DFX1B#,23,#DFXFont#,"/ ||TAGARTIST||= - ||TAGTITLE||=","SCROLL-LEFT"
L,506,86,274,25,#DFX1R#,#DFX1G#,#DFX1B#,15,#DFXFont#,"=$CURRENTPOI$","SCROLL-CENTER"
L,500,188,139,26,#DFX1R#,#DFX1G#,#DFX1B#,16,#DFXFont#,"=Latitude:","Left"
L,500,217,139,26,#DFX1R#,#DFX1G#,#DFX1B#,16,#DFXFont#,"= ||GPSLAT","Left"
L,500,118,139,26,#DFX1R#,#DFX1G#,#DFX1B#,16,#DFXFont#,"=Longitude:","Left"
L,500,146,139,26,#DFX1R#,#DFX1G#,#DFX1B#,16,#DFXFont#,"= ||GPSLON","Left"
 
/, B, x, y, w, h, Command;COMMANDCODES, Tooltip
B01,485,399,309,52,"SELECT","Select"
B01,485,277,309,49,"SELECT","Select"
B,641,457,148,53,"UP","IP"
B,489,456,148,53,"UP","IP"
B,487,331,148,53,"UP","IP"
B03,641,330,149,54,"DOWN","DOWN"
B,300,521,99,80,"PLAY",@STOP||PLAY@
B,398,521,101,80,"NEXTTRACK",
B,203,521,99,80,"PREVTRACK",
B12,596,521,99,80,"VOL+",""
B11,500,521,99,80,"VOL-",""
B09,102,521,100,80,"EXITMENU",""
B90,0,521,101,80,"ESC",@LOAD;menu.skin@
 
/, Y,  Back Slider file path
Y01,"slider_battery\slider_*.gif"
 
/, S, x, y, w, h, forecolor R;RGB, G, B, backcolor R;RGB, G, B, selected color R;RGB, G, B, select color R;RGB, G, B, trs, font size;FONT, font name
S01,678,39,102,20,62,103,70,20,V,01," ",015,"GPSSIGNAL","GPS Signal"
 
/, I, x, y, w, h, Code;INDICATORCODES
I01,698,521,107,80,"MASTERMUTE"
I,668,6,21,21,"RM_1Star"
I,692,6,21,21,"RM_2Star"
I,716,6,21,21,"RM_3Star"
I,740,6,21,21,"RM_4Star"
I,764,6,21,21,"RM_5Star"
I,70,7,52,25,"SHUFFLE"
I,13,6,50,25,"REPEAT"
I16,648,36,26,25,"HEADING"

END

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.2.12.1
 Author:         myName

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Opt("GUIOnEventMode", 1)  ; Passe en mode événement

Dim $PC2 ; "192.168.1.150" ; IP du PC Voiture

Dim $ClePC2 = "\\" & $PC2 & "\Partage\cle.txt" ; Chemin du fichier Cle.txt sur PC2
DIM $Count, $Start , $Inp_Ip_Pc2 

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Site Survey", 234, 250, 193, 125)
GUISetOnEvent($GUI_EVENT_CLOSE, "ProgExit")

$Label1 = GUICtrlCreateLabel("Recherche du PC2", 8, 16, 218, 60, $SS_CENTER)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")

$Lb_Ip_Pc2 = GUICtrlCreateLabel("IP Pc Voiture :", 8, 80, 300, 60)
    GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Inp_Ip_Pc2 = GUICtrlCreateInput("", 120, 80, 100, 20)

$Label2 = GUICtrlCreateLabel("Recherche en cours ...", 60, 60, 113, 17)
GUICtrlSetState(-1, $GUI_HIDE)
$Progress1 = GUICtrlCreateProgress(40, 150, 150, 17)

$Button1 = GUICtrlCreateButton("Démarrer", 16, 200, 75, 25, 0)
GUICtrlSetOnEvent($Button1, "start")
$Button2 = GUICtrlCreateButton("Arrêter", 144, 200, 75, 25, 0)
GUICtrlSetOnEvent($Button2, "stop")

    

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

; Boucle principale.
While 1
        Sleep(5000) ; Pause de 5 secondes
        If $Start = 1 Then SurveyPC2() ; Si $Start est à 1 on lance la fonction SurveyPC2()
WEnd

Func SurveyPC2()
    $PC2 = GUICtrlRead($Inp_Ip_Pc2)
                MsgBox(0, "", "Recherche de : " & $ClePC2)
;               MsgBox(0, "", "Recherche de " & $PC2)
    $Res = Ping($PC2, 250) ; Ping $PC2 pour voir si il répond
    If not @error Then  ; Si pas d'erreur ...
;       If $msg <> 0 Then ReadIpPc2()
            If FileExists($ClePC2) Then PC2IsFind() ; Si le PC répond on lance la fonction PC2IsFind()
    EndIf
EndFunc

Func start()
    GUICtrlSetState($Label2, $GUI_SHOW) ; Affiche le label $Label2
    AdlibEnable("BarGraph", 50)  ; Lance la mise à jour du Bargraph toutes les 100 Millisecondes.
    $Start = 1 ; Met la valeur $Start à 1
EndFunc

Func stop()
    AdlibDisable() ; Arrête la fonction appelé par AdlibEnable
    GUICtrlSetData($progress1, 0) ; Met le BarGraph à zéro.
    $Count = 0 ; Met la valeur $Count à 0.
    $Start = 0 ; Met la valeur $Start à 0.
EndFunc

Func BarGraph()
    If GUICtrlRead($progress1) = 95 Then $Count = 0 ; Si BarGraph à 95 alors $Count = 0
    GUICtrlSetData($progress1, $Count) ; Met le BarGraph à la valeur de $Count.
    $Count += 1 ; Incrémente $Count de 1
EndFunc

Func PC2IsFind()
     ShellExecute($ClePC2)
     WinWaitActive("cle.txt")
     MsgBox(64, "Info", "Le PC2 est joignable et le fichier cle.txt à été trouvé" )
      Exit
EndFunc
 
Func ProgExit()
  Exit ; Sortie du programme.
EndFunc