Page 1 sur 1
[R] Lancement UltraVNC
Posté : jeu. 28 août 2008 14:15
par danieldls
Bonjour à tous,
J'ai créer un programme DOS qui me permet d'installer à distance
UltraVNC afin de prendre la main à distance sur les machines de notre domaine.
Le programme fonctionne correctement en le lançant depuis une fenêtre
DOS.
Je souhaiterai créer une interface graphique afin de faciliter le travail des personnes qui auront à utiliser la prise de main à distance.
J'en suis là ... c'est à dire pas trés loin du départ :
Code : Tout sélectionner
#Region ### START Koda GUI section ### Form=D:\_RESEAU CG65_\UltraVNC\UltraVNC.kxf
$HotLine = GUICreate("Conseil Général des Hautes-Pyrénées", 387, 146, 294, 311, BitOR($WS_SYSMENU,$WS_DLGFRAME,$WS_CLIPSIBLINGS))
GUISetCursor (0)
GUISetFont(11, 400, 0, "Arial Black")
GUISetBkColor(0xC0C0C0)
$ALabel1 = GUICtrlCreateLabel("Taper le Numéro de l'Unité Centrale", 80, 16, 233, 20, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
GUICtrlSetColor(-1, 0xFFFFFF)
$wks = GUICtrlCreateInput("wks-i0", 24, 56, 337, 30)
GUICtrlSetBkColor(-1, 0xC0DCC0)
GUICtrlSetResizing(-1, $GUI_DOCKHCENTER+$GUI_DOCKVCENTER+$GUI_DOCKHEIGHT)
$Button1 = GUICtrlCreateButton("Lancer l'installation d'UltraVNC", 24, 104, 337, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
L'utilisateur saisi un nom de machine dans
$wks et je souhaiterai qu'en cliquant sur le
$Button1, lancer le programme dos
c:/fastpush/install [valeur saisie dans $wks]
Exemple : c:/fastpush/install wks-i02222
Je suis à la recherche d'infos concernant la création de ce script alors si l'entre vous peut me filer un coup de main.
En vous remerciant par avance du temps que vous venez déjà de passer à lire ce post
@+
DANIEL
Re: [..] Lancement UltraVNC
Posté : jeu. 28 août 2008 15:44
par jbnh
Salut Daniel,
Testes ceci:
Code : Tout sélectionner
While 1
$nMsg = GUIGetMsg()
select
Case $nMsg = $GUI_EVENT_CLOSE
Exit
Case $nMsg = $Button1
ShellExecute("c:/fastpush/install" & Guictrlread($wks))
Endselect
WEnd
Re: [..] Lancement UltraVNC
Posté : jeu. 28 août 2008 16:45
par danieldls
Merci bien pour la rapidité de ta réponse.
J'ai testé et voilà ce que j'obtiens :
y a t il une contrainte dans l'endroit où doivent être les différents programmes ?
A suivre ....
Re: [..] Lancement UltraVNC
Posté : jeu. 28 août 2008 18:39
par Tlem
danieldls a écrit :y a t il une contrainte dans l'endroit où doivent être les différents programmes ?
En supposant que le programme est bien
Install.exe, il vous faudra vérifier qu'il ce trouve bien dans le répertoire
C:\fastpush\ et utiliser la commande ShellExecute comme ceci :
.
Si cela ne fonctionne pas, vous pouvez aussi essayer avec la commande Run ou RunWait comme ceci :
Code : Tout sélectionner
RunWait('C:\fastpush\install.exe ' & Guictrlread($wks), '', @SW_HIDE)
Re: [..] Lancement UltraVNC
Posté : jeu. 28 août 2008 21:23
par danieldls
Oups ... le programme "install" est un ".cmd"
Petit détail qui a son importance et que j'ai omis de signaler ... Désolé
Re: [..] Lancement UltraVNC
Posté : jeu. 28 août 2008 22:38
par jbnh
Dans ce cas remplace le .exe en .cmd ^^
Re: [..] Lancement UltraVNC
Posté : jeu. 28 août 2008 23:09
par Tlem
Si c'est un CMD, cela veut dire que votre programme est un simple batch ...
Avec le contenu du batch, nous pourrions envisager de tout faire avec AutoIt !
Si votre fichier Install.cmd n'à rien de secret, placé le code ici pour que l'on voie si il est possible de le faire en AutoIt.
Re: [..] Lancement UltraVNC
Posté : ven. 29 août 2008 09:56
par danieldls
Tlem a écrit :
...En supposant que le programme est bien
Install.exe, il vous faudra vérifier qu'il ce trouve bien dans le répertoire
C:\fastpush\ et utiliser la commande ShellExecute comme ceci :
Code : Tout sélectionner
RunWait('C:\fastpush\install.exe ' & Guictrlread($wks), '', @SW_HIDE)
Les deux expressions indiquées ci dessous ne fonctionnent malheureusement pas.
Re: [..] Lancement UltraVNC
Posté : ven. 29 août 2008 11:50
par ani
hello danieldls
distinguont la manière d'utilisater les fonction run(wait) & shellexecute(wait)
Run = pour ms-dos
Shellexecute = pour la boîte de dialogue excécuter
Pour le ms-dos, dans la plupart des cas on devra utiliser la macro
@comspec = Command.com
Exemple = Run(@COMSPEC & " /c C:\fastpush\install " & Guictrlread($wks))
On indique aucune extension, car sous run (dos) elles sont reconnues (com,bat,exe,pif)
Pour le wait (runwait & shellexecutewait), indique qu'il attendra la fin du processus avant de renvoier la main (enfin j'espere que c'est bien çà
)
Au niveau de ton exemple de script, la valeur se trouvant dans le input
$wks changera ou pas ?
wks-io
Voilàvoilà
Re: [..] Lancement UltraVNC
Posté : ven. 29 août 2008 13:31
par danieldls
ani a écrit :
....Au niveau de ton exemple de script, la valeur se trouvant dans le input $wks changera ou pas ? wks-io...
Concernant le point ci-dessus,
$wks prendra la valeur des unités centrales sur lesquelles le Tech souhaite prendre la main.
Exemple : wks-i06051, wks-i04329, etc ...
Re: [..] Lancement UltraVNC
Posté : ven. 29 août 2008 14:06
par danieldls
...Run(@COMSPEC & " /c C:\fastpush\install " & Guictrlread($wks)) ...
Cette commande fonctionne parfaitement. Elle me permet d'installer le client UltraVNC sur les postes distants et de prendre la main dessus sans installation en local.
Merci beaucoup de votre aide à tous et, rassurez vous
, je n'hésiterez pas à revenir vers vous au prochain problème ! ! !
Meric encore et bonne continuation à tous
Re: [..] Lancement UltraVNC
Posté : ven. 29 août 2008 15:33
par ani
ok pas de soucis
Pour la valeur wks-i0 si elle reste valable tout au long de la vie du logiciel, on peut juste l'ajouter dans la commande d'excécution run(wait) comme ci-dessous
run(@comspec & " /c c:\fastpush\install wks-i0" & Guictrlread($wks))
et de laisser vierge la valeur du input
voilàvoilà
Re: [R] Lancement UltraVNC
Posté : sam. 30 août 2008 14:09
par danieldls
Re,
Voilà une idée qu'elle est bonne ! ! !
A ce jour, la seule évolution que je vois à l'interface graphique, c'est soit la fermeture automatique dés que le .cmd est lancé, soit un bouton qui fermera la fenêtre.
La première solution serait peut-être la plus logique.
Et Merci encore à vous tous pour votre aide...