[VBS] Demander une valeur à l'utilisateur

Demander une valeur à l'utilisateur [VBS] - Programmation

Marsh Posté le 14-01-2001 à 01:27:17    

J'ai un script existant qui ressemble à ça :
 
Set W = CreateObject("wscript.shell" )
hl = W.regread("HKEY_LOCAL_MACHINESoftwareValveHalf-LifeInstallPath" )
w.run hl & "hl.exe -console -game cstrike +connect IP_DU_SERVEUR:SON_PORT"
 
Est-il possible de lancer une boite de dialogue en demandant une valeur pour le serveur à l'utilisateur ?

 

Reply

Marsh Posté le 14-01-2001 à 01:27:17   

Reply

Marsh Posté le 15-01-2001 à 08:37:31    

personne?

 

Reply

Marsh Posté le 16-01-2001 à 10:44:56    

:cry:

 

Reply

Marsh Posté le 16-01-2001 à 12:16:42    

Euh oui il y a une fonction native pour ça, un dérivé de Msgbox (désolé, j'ai pas l'aide d'installée et pas le truc en tête).
 
Au pire, tu fais une fenêtre toi-même, ça ne doit pas prendre bien longtemps. Mais ce serait dommage de réinventer l'eau chaude.

Reply

Marsh Posté le 16-01-2001 à 13:36:02    

la fonction native est inputbox
Cela ressemble a un truc comme ca ..
port = inputbox("Entez votre numero de port" )

Reply

Marsh Posté le 17-01-2001 à 10:30:59    

super ça marche !
le problème, c'est que si je fais annuler, il me lance qd même counter strike
voila le nouveau code :
 
Set W = CreateObject("wscript.shell" )ss
hl = W.regread("HKEY_LOCAL_MACHINESoftwareValveHalf-LifeInstallPath" )ss
server = inputbox("Entez l'ip du serveur et son port (séparés par :)" )
w.run hl & "hl.exe -console -game cstrike +connect" & server
 
je fais comment pour tester le bouton cliqué dans le inputbox ?

 

Reply

Marsh Posté le 17-01-2001 à 12:02:41    

Ce qui me semble bizarre dans ton code, c'est que tu ne précises pas quels boutons tu fais apparaître dans l'Inputbox (Yes/No dans ton cas), et que tu ne testes justement pas cette valeur. (ou alors, c'est pas assez clair pour moi) ;)
 
VB te retourne une valeur, qui correspond au bouton cliqué : fais un IF sur la valeur retournée par Inputbox et là ça ira tout de suite mieux.

Reply

Marsh Posté le 17-01-2001 à 16:23:26    

les boutons ok et annuler sont les boutons par défaut
 
je ne connais rien à la syntaxe du vbscript, j'ai tenté un test genre :
if (server = input(blablabla)) then
ma commande
endif
mais il me chie une erreur d'interpretation

 

Reply

Marsh Posté le 17-01-2001 à 22:37:40    

re:cry:

 

Reply

Marsh Posté le 18-01-2001 à 08:19:35    

Pleure pas comme ca.
Si tu clique sur annuler il met nothing dans ta variable.
Tu test un truc du genre
serveur = inputbox ("....." )
if serveur = "" then
ssss-> Ce que tu veux faire,
else
ssss-> Ce que tu ne veux pas faire
end if
he voila le tour est joué.

Reply

Marsh Posté le 18-01-2001 à 08:19:35   

Reply

Marsh Posté le 19-01-2001 à 12:09:57    

Merci beaucoup :jap:
 
Ca marchait po car je mettais "endif" et non "end if" :gun:
 
 
:bounce:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed