Discussion :

[makia42]

Bonjour,

Je viens de créer une application VB6 qui me permet de superviser des capteurs à distances.

Je cherche à placer une commande en paramètre pour mon application.
Je m'explique , je voudrais pouvoir lancer un script quant j'appuie sur des touches de mon clavier ex : "/A"

Comment puis-je procéder ?

Merci pour vos réponses !

_______________________________________________________
Bouhara kamel
Stagiaire : ESECO SYSTEMS
Web3.0 and Web4.0 appliances for videosurveillance, security and risk protection

[SfJ5Rpw8]

Comment récupérer les arguments de la ligne de commande passée à l'exécutable ?

[makia42]

Comment récupérer les arguments de la ligne de commande passée à l'exécutable ?

Effectivement le FAQ ...sa peut servir , toutefois dans la solution proposer je ne vois pas vraiment ce qu'est censer me renvoyer la fonction Command(), pourrais tu m'expliquer ?


Merci.



_______________________________________________________
Bouhara kamel
Stagiaire : ESECO SYSTEMS
Web3.0 and Web4.0 appliances for videosurveillance, security and risk protection

[SfJ5Rpw8]

tu l'as essayé ? elle renvoi les arguments de ligne de commande

[makia42]

Salut,(désolé pour la réponse tardive)

Non je ne l'ai pas essayer ... je ne pense pas avoir besoin de récupérer des argument de ligne de commandes mais simplement ajouter un raccourci clavier pourrait marcher voici le code que j'effectue pour cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Command() = "/a" Then
    Dim somelong
    Set wshell = CreateObject("WScript.Shell")
    somelong = wshell.Run("C:\CityConnexion\test.exe")
    End If

Est-ce que sa pourrait marcher si je définit "/a" comme raccourci dans mon application ??

Je ne comprend pas vraiment l'utilitée des arguments en ligne de commande dans VB6 ?
Je crois que c'est un peu ambigüe, dans mon esprit ,les lignes de commande s'utilise seulement dans une console ^^....Pourrait tu m'en dire plus sur la chose?

Merci !

_______________________________________________________
Bouhara kamel
Stagiaire : ESECO SYSTEMS
Web3.0 and Web4.0 appliances for videosurveillance, security and risk protection

[SfJ5Rpw8]

et que veulent dire pour toi ces deux caractères ? :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"/a"

[makia42]

et que veulent dire pour toi ces deux caractères ? :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"/a"

Désolé , pour cette réponse tardive !

Le "/a" correspond au touche qui me permettront de lancer mon script !
Je pensait tester la touche "/" + "a" avec la fonction keypress ?

[ProgElecT]

Bonjour
Peut être que cette discussion Assigné une touche de raccourci a un bouton répondra au moins en partie à ton besoin

[makia42]

Bonjour
Peut être que cette discussion Assigné une touche de raccourci a un bouton répondra au moins en partie à ton besoin

Merci j'ai trouver la solution à mon problème voici le code qui me permet donc de lancer mon script lorsque j'appuie sur les touche "/" + "a" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyDivide And vbKeyA Then         '~~~> When F8 is pressed
    Shell "E:/Project CityConnexion/script.exe", vbNormalFocus '~~~> Run the program
  End If
End Sub
 
Private Sub Form_load()
Me.KeyPreview = True
End Sub

Merci pour votre aide !

_______________________________________________________
Bouhara kamel
Stagiaire : ESECO SYSTEMS
Web3.0 and Web4.0 appliances for videosurveillance, security and risk protection

[ProgElecT]

Merci j'ai trouver la solution à mon problème voici le code qui me permet donc de lancer mon script lorsque j'appuie sur les touche "/" + "a" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeyDivide And vbKeyA Then         '~~~> When F8 is pressed
    Shell "E:/Project CityConnexion/script.exe", vbNormalFocus '~~~> Run the program
  End If
End Sub
 
Private Sub Form_load()
Me.KeyPreview = True
End Sub

Merci pour votre aide !

Ben moi, avec ce code, je ne parviens pas à déclencher la condition A + /, l'appui seul de / déclenche la condition, suis je le seul ?