[..] Tester la présence d'un PC sur le net

[stevanovich]

Bonjour,

J'avais l'intention de créer un petit script qui me permette de tester la présence d'un PC sur un réseau public ou privé, et ce, via un soft Serveur/Client.

L'utilité finale étant de faire du vnc, et d'indiquer à mon client demandant l'assistance via vnc, si mon PC est bien connecté ou pas.

Pour ce, je me suis dirigé vers les fonctions TCPConnect, qui fonctionne parfaitement lorsque le pc est connecté (port non fermé sur le firewall)

Par contre, cela devient plus compliqué lorsque le pc n'est effectivement pas connecté, ça bloque le script de façon violente.

Deux questions,
- est-ce la bonne méthode ?
- y aurait-il une option permettant de ne pas créer ce "freeze".

Exemple de script :

► Afficher le texte

Code : Tout sélectionner

            TCPStartup()
            $socket = TCPConnect($RemoteServeur,$RemotePort)
            If $socket = -1 Then
                if $GlobalTip <> "NotConnected" Then
                    TrayTip("PC Maison", "Attente connection serveur" &  @LF & "Attente prise de contrôle.", 7, 2)
                    $GlobalTip = "NotConnected"
                EndIf
            Else
                if $GlobalTip <> "Connected" Then
                    TrayTip("PC Maison", "Connection au serveur effectuée [X] ." &  @LF & " Attente prise de contrôle. ", 7, 1)
                    $GlobalTip = "Connected"
                EndIf
            EndIf
            TCPShutdown()
 

Cordialement.

[Iste]

Je vous conseille plutot d'envoyer un paquet UDP a l'ordi peut etre allumé et de le faire répondre, a la manière d'un ping
Mais je ne comprend pas pourquoi votre script freez, il me semble bon :/
je reregarderais

[stevanovich]

Je vous conseille plutot d'envoyer un paquet UDP a l'ordi peut etre allumé et de le faire répondre, a la manière d'un ping
Mais je ne comprend pas pourquoi votre script freez, il me semble bon :/
je reregarderais

Merci , je tenterai ces manipulations en UDP.

Concernant mes tests en TCP, je me suis arrêté à des adresses ip locales : 192.168.1.* .

Quand l'ip existe, pas de soucis, mais quand l'adresse n'existe pas sur le réseau, c'est là que la galère commence .

Cependant, je n'exclue pas une erreur de conception de mon script, j'utilise une boucle while, avec un timer qui effectue une requête toute les 15 secondes, et effectivement, j'ai un freez toutes les 15 secondes .... pas glop

Dans tous les cas, merci pour vos conseils

[noman]

slt,

Pour ne pas avoir de freez il faut effectuer le code dans une boucle while, je m'en suis rendus compte en étudiant le script de mise à jour d autoit.


le code d'AutoUpdateIt.au3 à la ligne 292 est exécuté dans une boucle, si il est exécuté en dehors d'une boucle il ne fonctionne tout simplement pas.

Même si le code est dans une boucle il galère 15 à 20 secondes si il ne trouve pas l ip distante et l utilisation de Opt("TCPTimeout",xxx) ne change rien

Sinon le bout de code vérifie qu'il y a pas de soucis lors du téléchargement du fichier de comparaison pour la mise à jour (update.dat)

Pour ton code je ferais quelque chose comme cela :
(je n est jamais utilisé les fonctions lié au socket tcp/udp le code est juste une idée je ne sais pas si c bon de faire comme cela)

► Afficher le texte

Code : Tout sélectionner

Global $RemoteServeur = "192.168.0.100"
Global $RemotePort = 80

While(1)
TCPStartup()
$socket = TCPConnect($RemoteServeur,$RemotePort)

If $socket = -1 Then
$i_Res = MsgBox(5 + 16 + 8192, 'Error', 'Error connecting to server.')
    If $i_Res = 4 Then
    $socket = TCPConnect($RemoteServeur,$RemotePort)
    Else
    Exit
    EndIf
Else
Suite_Code()
ExitLoop
EndIf
TCPShutdown()

WEnd

Func Suite_Code()
MsgBox(0,'','Connexion établie' &  @LF & 'suite du code')
EndFunc

j espere que ca pourras t aider @+

[stevanovich]

Je vous conseille plutot d'envoyer un paquet UDP a l'ordi peut etre allumé et de le faire répondre, a la manière d'un ping

Bonsoir,

L'essaie en UDP n'est pas concluant du tout : il se produit le même freez pendant le tentative d'envoie de paquet.

► Afficher le texte

Code : Tout sélectionner

#include <guiconstants.au3>

$PortScanner = GUICreate("Infinitex0's Port Scanner", 300, 175)
GUICtrlCreateGroup("Port Scan", 5, 5, 275, 160)
$IPLabel = GUICtrlCreateLabel("IP", 20, 17)
$PortIPAddress = GUICtrlCreateInput("127.0.0.1", 20, 33, 125)
GUICtrlCreateLabel("Start on Port", 20, 55)
$PortStartNumber = GUICtrlCreateInput("1", 20, 68, 125)
GUICtrlCreateLabel("End on Port", 20, 91)
$PortEndNumber = GUICtrlCreateInput("30", 20, 108, 125)
$StartScan = GUICtrlCreateButton("Start", 20, 135, 125)
GUICtrlSetFont($StartScan,15)
$OnPort = GUICtrlCreateLabel("Scanning Port:None", 150, 142)
GUICtrlCreateGroup("Open Ports", 160, 17,105, 125)
$OpenPortList=GUICtrlCreateList("", 168, 30, 90, 109)
GUICtrlCreateGroup ("",-99,-99,1,1)
GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_ClOSE
            ExitLoop
        Case $msg = $StartScan
            _StartScan()
    EndSelect
WEnd

Opt("TCPTimeout",10)

Func _StartScan()
    $PortIP=GUICtrlRead($PortIPAddress)
    $PortEndNumberB=guictrlread($PortEndNumber)
    $PortStartNumberB=guictrlread($PortStartNumber)
    ;TCPStartup()
    UDPStartUp()
$timerstart = TimerInit()
For $LetsGo = $PortStartNumberB To $PortEndNumberB
;$socket = TCPConnect($PortIP,$PortStartNumberB)
$socket = UDPOpen($PortIP,$PortStartNumberB)
ControlSetText("", "", $OnPort, "Scanning Port:" & $PortStartNumberB & "")
;If $socket = -1 Then
If $socket[0] = 0 Then
    $PortStartNumberB = $PortStartNumberB + 1
Else
    ;GUICtrlSetData($OpenPortList,$PortStartNumberB)
    GUICtrlSetData($OpenPortList,$PortStartNumberB & ":0:" & $socket[0])
    GUICtrlSetData($OpenPortList,$PortStartNumberB & ":1:" & $socket[1])
    GUICtrlSetData($OpenPortList,$PortStartNumberB & ":2:" & $socket[2])
    GUICtrlSetData($OpenPortList,$PortStartNumberB & ":3:" & $socket[3])
    $status = UDPSend($socket, "Message #")
    If $status <> 0 then
        GUICtrlSetData($OpenPortList,$PortStartNumberB & ":4:OK")
    EndIf
    UDPCloseSocket($socket)
    $PortStartNumberB = $PortStartNumberB + 1
EndIf
Next
    ;TCPShutdown()
    UDPShutdown()
    $timerend = TimerDiff($timerstart)
    TrayTip("Port Scanner", "Done Process took " & Round($timerend,-1)/1000 & " seconds", 7, 1)
EndFunc
 

j'ai bien peur de devoir reconsidérer ma méthode d'appel, de passer par un site internet en faisant des requêtes php dans une bd ?

Cordialement.

[Tlem]

Bonsoir.
Un manière comme une autre de détourner les choses, serait peut être que vous stockiez sur un site X un fichier genre icône vert, orange ou rouge (si vous voyez ou je veut en venir).
Comme cela, pour le soft client, il suffit de rafraichir de temps en temps, et celui-ci peut afficher dans le systray un logo vert ou rouge.

Je suppose que vous devez avoir un site (peut être même avoir un hébergement), donc ce serait une idée simple à mettre en place :

Je suis là => je lance soft => FTP logo vert
Je suis OQP => je clique OQP => FTP logo orange
Je m'en vais => je ferme le programme => FTP logo rouge.

[stevanovich]

Bonsoir.
Un manière comme une autre de détourner les choses, serait peut être que vous stockiez sur un site X un fichier genre icône vert, orange ou rouge (si vous voyez ou je veut en venir).

Bonsoir,

Effectivement, bien vu !
Vous avez compris ma problématique, et je vois parfaitement la finalité des icones de couleurs, on ne citera pas les noms des produits proposants ce type de solution

Et oui ! parfois la simplicité est mère de tranquilité .....

Cependant, je n'ai rien contre le ftp, mais cela imposera d'écrire en "dur" mon login/password ftp dans autoit, ça me dérange un peu ! : le code autoit compilé ne pourrait-il pas être cassé ?

Une requête php permet d'obtenir le même résultat , tout en permettant de conserver nos codes à l'abri

De plus ça m'ouvrirai d'autre portes: afficher une liste d'assistants diponibles ....

Cordialement.
Merci.

[Tlem]

Effectivement, le fait de mettre le login/passwd en dur dans le script peut être 'cassé'.

Cependant, je rappel votre problématique en abrégé :
- Signaler à mes clients si je suis disponible ou non.

L'utilité finale étant de faire du vnc, et d'indiquer à mon client demandant l'assistance via vnc, si mon PC est bien connecté ou pas.

Donc dans cet état d'esprit, la solution que je vous ai suggéré impliquait que vous soyez seul détenteur de la version 'serveur' et donc du login/passwd.

Maintenant, si votre problématique est la connaissance des postes connectés, il existe plusieurs solutions.
Une des plus simple reste effectivement l'appel à une page PHP qui mémoriserais l'IP client au lancement du logiciel, et qui la libérerais à la fermeture (avec la problématique de la coupure inopinée ... )

[stevanovich]

Oui, mon ennoncée était très fermée , ce pour aller droit au but

Mais n'ayant pas de cahier des charges, je m'octroie quelques ouvertures

Au vue des précieuses informations que vous m'avez transmises, je ferais quelques tests , et ferais un résumé des choix finaux optés pour mon cas de figure.

Merci beaucoup, a bientôt.

Cordialement.

[mimione]

Bonjour

Si je puis me permettre une suggestion:
Pour ne pas faire figurer le "login / password" en clair dans le script, la fonction "_StringEncrypt" permet de traiter une chaine cryptée lue dans un fichier "ini".
Le cryptage se fait avec trois lignes de script qu'on peut extraire de l'exemple donné dans l'aide.
Bonne journée.

[stevanovich]

Merci pour votre intervention ...

Interressant mais :

Votre solution ne serait-elle pas pire que d'écrire en dur les login/password dans le code ?
Biensur, vous me direz qu'il ne faudrait pas mettre les variables login= et password= pour ne pas tenter le diable ... (et encore moins le domaine ftp)

Cordialement.

[mimione]

Euh... si ça, c'est pire, je ne comprends pas bien...!

Dans le fichier "ini":
ServerFTPCry = 7AA57AA22CCDCE2FF1E251FA9CE03586BB515CC0A91E3E8B5EB04CA79D26
UserCry = 7BA306D429BBB22542E0558E57E23182BC53
PswrdCry = 7FAEA6B628CDCE54B39955FK766B3583

Le tout traité dans le script avec la nécessité de fournir un mot de passe qui permettra le décryptage des chaines codées dans le fichier "ini".
Il me semble qu'il y a encore pire, même si ce n'est pas parfait..!

[stevanovich]

Mea culpa , je n'avais pas lu correctement la doc relative à _StringEncrypt ....

Cependant, cela me déplait plus que fortement de laisser trainer domaine/login/password dans un code !

En faisant une petite recherche, en 5 minutes j'ai trouvé ça :
http://www.youtube.com/watch?v=LkSsbOeJiLc&NR=1

De quoi déconcerter et mettre en péril toutes les mesures de protection que l'on peu apporter sur un password.

Modérateur : j'efface le lien ce soir

Cordialement.

[Iste]

Sinon tu peux ouvrir un FTP gratuit, du coup plus de probleme de MDP vu que ca risque rien
Sinon sinon, je suis dans le meme cas et j'utilise une page PHP. Un cas un peu plus complexe en fait, mais un simple appel de page peu suffire

Enfin, pas la peine d'effacer le lien, vu qu'il sagit d'un outil fourni avec autoit... Pis peut etre que ca en fera réfléchir certain
En plus, ca a jamais marché chez moi ><

PS : Les balise de code sont réservées au forum UDF et exemples de scripts

[mimione]

Effectivement, vu comme ça, FTP est inutilisable avec AutoIt...
Quelle époque !
Cordialement,
Mimione

[Tlem]

@stevanovich
Merci d'utiliser le bouton 'Répondre' au lieu du bouton 'Citer', cela m'évitera de ré-éditer toutes vos réponses afin de supprimer la citation qui est totalement inutile puisque vous répondez à la suite du message.

[stevanovich]

C'est noté

Cordialement.