[..] Action ne s'effectue pas après appui sur un bouton
Posté : lun. 19 mars 2012 16:40
Bonjour,
j'essaie de créer un utilitaire qui me permettrai de balancer un raccourci d'un exécutable sur le bureau d'un PC distant (pour des installations de logiciels, au lieu de se taper un chemin long comme le bras).
Voici le code:
Bien entendu, le raccourci sera en fonction du Combo, c'est pour cela que j'utilise des If et des Then etc.... mais rien ne se passe. Je comprends pas.
Merci du coup de main, salut !
j'essaie de créer un utilitaire qui me permettrai de balancer un raccourci d'un exécutable sur le bureau d'un PC distant (pour des installations de logiciels, au lieu de se taper un chemin long comme le bras).
Voici le code:
Code : Tout sélectionner
#cs ----------------------------------------------------------------------------
AutoIt Version : 3.3.6.1
Auteur: MonNom
Fonction du Script :
Modèle de Script AutoIt.
#ce ----------------------------------------------------------------------------
; Début du script - Ajouter votre code ci-dessous.
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Local $msg
Local $Printscreen = "Printscreen"
Global $Form1 = GUICreate("Gestion logiciels", 576, 107, 192, 124)
Global $Buttonracc = GUICtrlCreateButton("Créer raccourci", 285, 52, 100, 30)
Global $Buttonproc = GUICtrlCreateButton("Ouvrir procédure", 400, 52, 100, 30)
Global $Label3 = GUICtrlCreateLabel("Liste logiciels", 56, 40, 70, 28)
Global $Combo1 = GUICtrlCreateCombo("Combo1", 56, 56, 225, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, $printscreen & "|Exemple 2", "")
Global $Inputsearch = GUICtrlCreateInput("", 336, 8, 137, 21)
Global $Label1 = GUICtrlCreateLabel("Rechercher", 270, 10, 60, 17)
Global $Label2 = GUICtrlCreateLabel("Poste", 20, 10, 60, 17)
Global $Inputposte = GUICtrlCreateInput("", 55, 8, 137, 21)
Global $Buttontrouver = GUICtrlCreateButton("Trouver", 475, 6, 73, 25)
Global $readcombo = GUICtrlRead($Combo1)
Global $readposte = GUICtrlRead($Inputposte)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
;Bouton création raccourci
case $Buttonracc
If ($readcombo = "Printscreen") Then
Run(@ComSpec & " /k xcopy data\shortcut\PrintScreen \\" & $Inputposte & "'\C:\Documents and Settings\All Users\Bureau\'")
EndIf
EndSwitch
WEnd
Merci du coup de main, salut !