Récupérer le contenu d'une variable d'un script VBS dans un programme VB.Net

Bonjour à tous

Faisant suite à l'exposé d'un premier problème lié au développement d'un programme de pilotage d'une carte relais (code qui fonctionne une fois puis plus rien) : https://www.developpez.net/forums/d2...uis-plus-rien/ , J'en suis à traiter en parallèle des solutions alternatives.

L'objectif étant de pouvoir commuter des relais (carte à 16 relais) via un interface que j'ai développé en VB.Net, et vu que mon code actuel pose soucis, j'ai trouvé l'action palliative qui fait appel à l’exécution de scripts VBS externe au programme. J'arrive actuellement à réaliser la commutation de n'importe quel relais en déclenchant le script VBS en lui transférant le numéro du relais à commuter.

A contrario, en interrogeant la carte, il est possible d'avoir l'état de commutation des 16 relais. Il suffit d'envoyer une commande html http://192.168.1.4/30000/99 pour récupérer une chaine de caractère contenant l'état des relais.
Mon script VBS qui se nomme "Etat_relais.vbs" et qui se trouve actuellement à la racine du disque E est le suivant :

Code:

---

1 2 3 4 5 6 7

Dim aXMLHTTP, aURL aURL = "http://192.168.1.4/30000/99" set aXMLHTTP = CreateObject("MSXML2.XMLHTTP") Call aXMLHTTP.Open("GET", aURL, False) Call aXMLHTTP.send() Call MsgBox(mid(aXMLHTTP.responseText, 21,16)) ' Extraction d'une chaine de 16 caractères à partir du 21ème pour n'avoir que l'état des relais. set aXMLHTTP = Nothing

---

Pour le moment, je visualise le résultat (une chaine de 16 caractères 0 ou 1 qui traduisent l'état réel des relais) dans un MsgBox pour vérifier le bon fonctionnement du script.

Dans mon programme VB.Net, j'exécute les lignes suivantes pour lancer le script VBS :

Code:

---

1 2 3 4

Dim Etat_Rel Dim p As New System.Diagnostics.Process() p.StartInfo.FileName = "E:\Etat_relais.vbs" p.Start()

---

Ma question est comment récupérer cette variable dans mon code VB.Net afin de la traiter ? J'ai passé beaucoup de temps à chercher (peut-être mal) et j'ai trouvé certaines solutions entre de l'exe, du bat, ... Mais entre VBS et VB.Net, rien !

Merci pour votre aide

Jean-Pierre

Re-Bonjour,

Pour cette question, je ferais simple (même si ce n'est pas très élégant ... :D)

Tu peux certainement écrire un fichier TXT en VB script et en VB.Net, tu peux lire un fichier TXT (StreamReader).
Dès lors pourquoi ne pas écrire ta chaine d'états des relais en srcipt et la relire en VB.Net ?

Mais tu recevras sans doute une meilleure réponse de la part d'un connaisseur en VB script ...

:)

Re-bonjour Phil
Effectivement, cette solution est possible. Je vais la tester et la garder sous le coude, car je suis persuadé qu'il existe un moyen "standard" pour récupérer aisément la valeur. Après tout, j'arrive bien à envoyer une valeur entre mon programme en VB.Net et le script VBS, il doit bien y avoir la fonction miroir.
Comme variante de ta solution, j'ai également pensé à la sauvegarde de la variable dans un registre. Je stocke déjà actuellement des données dans les registres pour mes programmes, c'est simple et efficace.

Bon, on va attendre d'autres propositions.

Bien sûr, si tu es à l'aise avec les registres, c'est mieux que le fichier TXT !

J'ai testé ton idée mais avec l'utilisation d'une clé de registre, et ça fonctionne nickel. J'ai de toute façon une trentaine de clés déjà occupées dans ce registre pour cette application.

Le script VBS qui me permet d'interroger la carte puis l'écriture de la valeur des 16 relais dans une clé de registre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim aXMLHTTP, aURL, ObjetRegedit, Etat aURL = "http://192.168.1.4/30000/99" ' envoi de la commande pour obtenir l'état des relais set aXMLHTTP = CreateObject("MSXML2.XMLHTTP") Call aXMLHTTP.Open("GET", aURL, False) Call aXMLHTTP.send() Etat = mid(aXMLHTTP.responseText, 21,16) set aXMLHTTP = Nothing On Error Resume Next set ObjetRegedit = CreateObject("WScript.Shell" ) CleRegistre = "HKEY_CURRENT_USER\Software\Pilotage_JPBox3\Etat_Relais" ' on crée la clé de registre dans le registre ad'hoc ObjetRegedit.RegWrite CleRegistre, Etat Set ObjetRegedit = Nothing WScript.Quit

---

Et le bout de code VB.Net qui me permet de lancer le script et de récupérer le contenu de la clé de registre :

Code:

---

1 2 3 4 5 6 7

Private Sub Etat_relais() Dim p As New System.Diagnostics.Process() p.StartInfo.FileName = "E:\Etat_relais.vbs" p.Start() ' On exécute le script VBS qui récupère l'état des relais et qui enregistre la valeur dans un registre key = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Software\Pilotage_JPBox3") Etat_Rel = CType(key.GetValue("Etat_Relais"), String) ' On récupère la valeur contenue dans la clé de registre End Sub

---

Merci Phil pour ton idée.

Cette solution me permet de continuer le développement de mon petit programme en attendant une solution plus adaptée au problème de fond.