[..] Lancement programme après connexion wifi.

[pierrotm777]

Bonjour,
Je ne demande qu'à apprendre .
Mon hobbie actuel , le monde du CarPc avec pour FrontEnd Roadrunner .

Mon project:

Un ordinateur à la maison (pc1) lance une commande (ou plusieurs ) dés que l'ordinateur de la voiture (pc2) est reconnu par pc1 au travers d'une connexion wifi .
L'ensemble doit être sécurisé (reconnaissance par ip , adresse mac ) .
Il faudrait donc , je pense deux programme (pc1 = test connexion pc2) , (pc2 = envoie requette de connexion à pc2 ) .

Je vous cite un programme (car-detect.zip) trouvé sur http://www.mp3car.com/vbulletin/other-c ... ion-2.html qui fait tout cela , mais je n'arrive pas à le faire marcher , sauf si je lance le server et le client .
Ce logiciel est-il suffisament sécurisé ?
Je souhaiterais aussi qu'il soit configurable au traver d'un fichier .ini associé mais aussi utilisable au travers de Roadrunner .

Merci de votre aide par avance .

[L4crymal]

Regarde ça http://www.autoitscript.fr/forum/viewto ... ?f=3&t=355 et après on pourra t'aider

[pierrotm777]

Regarde ça http://www.autoitscript.fr/forum/viewto ... ?f=3&t=355 et après on pourra t'aider

Désolé , j'avais bien remarqué hier qu'il y avait une règle pour les intitulé mais juste aprés avoir posté mon sujet .
Je constate ce matin qu'il est possible de l'éditer .
Voilà .
Merci de votre aide par avance ...

[L4crymal]

Le mieux c'est de faire une détection de connexion comme ceci :

Téléchargement sur le net d'un mini fichier ( quelques octets )

Si le téléchargement et ok alors connexion ok

Si le téléchargement ne démarre pas connexion pas ok

Après avec des conditions et tout tu te sers de tout ça

[L4crymal]

Ou alors grâce à la commande PING

[ani]

pour voir si la connection net est pôssible.
Deux fonction possible

Par ping

Code : Tout sélectionner

Func _verifNetExist()
Dim $InetActive = Ping("www.google.ca")
If Not $InetActive > 0 Then
MsgBox(4112, "Aucune connection !", "Vérifier que vos cables sont bien branché")
Else
MsgBox(0,"Activation","Soyez le ou la bienvenu(e)",3)
EndIf
EndFunc

Par DLL : winInet

Code : Tout sélectionner

Func _IGetConnected()
$answer = DllCall("WinInet.dll", "int", "InternetGetConnectedState", "int_ptr", 0, "int", 0)
If $answer[0] = 0 Then
$answer = MsgBox(0, "AUCUNE CONNECTION", "Verifié que vous avez accés au net")
Else
$answer =MsgBox(0, "CONNECTION", "Bon surf")
EndIf
return $answer
EndFunc

pour la sécurité, j'y connait absolument rien (même si je dois pas le dire, pour ma propre sécurité ^^')

[Tlem]

Une idée comme une autre :

Sur PC2 créez un partage en lecture seule avec un fichier 'cle.txt' qui contient une clé.
Cette clé peut être générée à l'avance pour une période prolongée, ou régulièrement grâce à une fonction de cryptage qui prendrais en compte, la date par exemple.

Si PC2 à une adresse IP fixe, alors utilisez l'IP de la machine (\\192.168.1.150\Partage\cle.txt)
Si pas d'ip fixe, mais même groupe réseau, alors utilisez le nom de la machine (\\MonPCPortable\Partage\cle.txt)

Sur PC1 faire une boucle de recherche du fichier 'cle.txt' à interval régulier (toutes les 5 à 10 secondes).

Si la clé est vérifiée alors action ...

Pour contrôler l'adresse MAC, si vous ne passez par par un routeur alors utilisez la commande DOS ARP (La solution par le fichier 'clé' est nettement plus simple).

[pierrotm777]

Tous d'abord, merci à tous de votre aide .

Je suis un vrai débutant en programmation mais ne demande qu'à apprendre .
Tlem, trés bonne idée pour la notion de clé cryptée pour une durée donnée !

Ani, trés bonne idée aussi de tester la possibilité de connexion au net , mais les deux petits tests
ne semblent pas fonctionner .

NB: Je test tout ça pour l'instant sur Vista , mais le pc voiture sera sur XP SP3
et celui de la maison sur Vista sur un routeur .

Merci encore

[pierrotm777]

Tlem ton idée me semble sympa .

Aurais tu quelques lignes à me proposer ?

Merci par avance .

[Tlem]

Un truc fonctionnel dans ce genre ?

► Afficher le texte

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

Évidemment, je ne traite pas de la partie clé, mais il suffit sur le PC2 de générer une clé toutes les heures (Par exemple) et idem sur le PC fixe.
Pour générer cette clé, utilisez la fonction _StringEncrypt avec la la date comme phrase à crypter, et le même mot de passe pour les deux machines (Ou inversement ).

[pierrotm777]

Merci Tlem,

Ca me plait bien .

Si je comprends bien, se programme est résident dans le Pc de la maison et vient
tester la présence du fichier .txt au travers de l'ip 192.168.1.150 ?

Il faut que je vois comment adapter ça au sdk de roadrunner et reviens vers toi .

Merci , je test ça trés vite et te rend compte dés que possible ...

[pierrotm777]

Ce petit programme (qui n'est pas de moi) test la vistesse d'un véhicule d'aprés les données en provenance de Roadrunner (vitesse, position GPS etc...)

C'est ce genre de programme que je voudrais réaliser avec ton aide .

► Afficher le texteCode

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 = ""
 

Roadrunner fonctionnant avec des skin configurables à souhait , toutes les info récupérables du programme "$MySpd = $RR.GetInfo("GPSSPD")" utilsent la commande précédente .

Je joint dans le post suivant un exemeple de skin qui pourrait acceuillir votre script .

Au plaisir de vous lire

[pierrotm777]

Voici un exemple de skin pour ce programme et son contenu .

► Afficher le texte

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

Bien sure cet écran n'est utilisable que dans la mesure où votre programme (fonctionnant sur le PC maison ) a reconnu le Pc voiture .

Cordialement .

[pierrotm777]

Bonjour,

Je sais petit post est un peu vieux , mais faute de temps je n'avais pas
eu le temps de le finir .

Ce script me convient tout à fait mais je l'ai un peu modifié afin de pouvoir saisir l'adresse IP ( Elle était fixe au par avant).

► Afficher le texte

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

Ce que je ne comprend pas c'est pourquoi je ne vois pas dans la deuxième
fenêtre le contenu la variable $ClePC2 soit : \\192.168.1.150\Partage\cle.txt
si je tape bien sur 192.168.1.150 dans le fenêtre ajoutée .

Merci de votre aide

[Tlem]

Tout simplement à cause de ceci :

Code : Tout sélectionner

MsgBox(0, "", "Recherche de : " & [color=#FF0000]$ClePC2[/color])

Or en début de script, vous faites ceci :

Code : Tout sélectionner

Dim [color=#FF0000]$ClePC2[/color] = "\\" & $PC2 & "\Partage\cle.txt" ; Chemin du fichier Cle.txt sur PC2

Donc forcément, vous affichez : \\"\Partage\cle.txt puisque $PC2 est égale à ....... rien.

Pour résoudre votre problème, vous devez redéfinir la variable au moment du clic sur démarrer.

Code : Tout sélectionner

Func start()
    $ClePC2 = "\\" & GUICtrlRead($Inp_Ip_Pc2) & "\Partage\cle.txt"
    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   ;==>start

[pierrotm777]

Le script fonctionne à nouveau .
Merci

Pourriez vous m'aider à générer la clé sur pc1 et sur pc2.

j'ai un peu regardé sur le forum et suis tombé sur la méthode
AES .Il existe d'ailleurs un UDF AES.au3 dont vous parlez je crois .
Serailt'il possible d'utiliser ce crytage pour la clé ce qui me semblerait mieux pour protéger mon accés ?

Pouvez vous me guider ?

Merci d'avance

[Tlem]

Je ne pense pas que pour ce genre de chose, l'utilisation d'une clé AES soit vraiment nécessaire.

La simple utilisation de _StringEncrypt devrait suffire.

Je pense que vous devez avoir une clé qui vous est propre et qui ce retrouvera sur les deux PC (dans le script lui même ou dans un fichier à télécharger régulièrement).
Ensuite avec cette clé vous devrez en générer une seconde (basée sur la date par exemple) et la comparée avec celle du PC domicile.
Vous pouvez aussi utiliser des informations matérielles ou/et logicielles et stocker ces clés générées par un système de code vous étant propre (pour exemple : Adresse MAC + N° licence Windows + Ce que vous voulez).

[pierrotm777]

Je me range à votre avis qui me semble effectivement suffisant dans les conditions que vous décrivez .

Il me venais à l'esprit hier, que avant de trouver la clé dans
le pc2, il faut pouvoir s'y logger et donner un mot de passe .
Et je n'avais pas parlé de cela effectivement dans ma première demande .

Pourriez me proposer une solution ?

Merci d'avance .

[Tlem]

Les solutions ne manques pas, mais pour que la sécurité soit optimale, il faut que cela vous soit propre et que personne en ait connaissance.

[pierrotm777]

Merci de votre réponse,

Souhaitez vous que nous procédions par MP ?