caramen Posted July 21, 2014 Share Posted July 21, 2014 Hello guys this is my code : expandcollapse popup#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <MsgBoxConstants.au3> #include <IE.au3> $SettingsFile = @SCRIPTDIR & '\Data\Settings.ini' Example() $S1 = IniRead ($SettingsFile, 'Stats', 'Utilisation', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation',$S1+1) Func Example() ; Creation de l'interface Local $hGUI = GUICreate("Raccourcis outils", 400, 500) ; Creation de la liste combot Local $iComboBox = GUICtrlCreateCombo("", 90, 50, 190, 20) Local $iClose = GUICtrlCreateButton("Close", 280, 450, 85, 25) Local $iConnect = GUICtrlCreateButton("Go", 280, 48, 85, 25) Local $iConnect2 = GUICtrlCreateButton("Go", 280, 348, 85, 25) ;~ Interrieure de la GUI GUICtrlCreateLabel ("Selectionner un Outil.", 80, 20, 180, 20) GUICtrlCreateLabel ("Outil :", 10, 52, 75, 20) GUICtrlCreateLabel ("Nombre d'utilisation logiciel :" , 10, 452, 175, 20) $S1 = IniRead ($SettingsFile, 'Stats', 'Utilisation', "ERROR") GUICtrlCreateLabel ($S1, 150, 452, 75, 20) ; Addition des items combot (un item pour chaque etab) GUICtrlSetData($iComboBox, "=======Client legé===========") GUICtrlSetData($iComboBox, "Alike") GUICtrlSetData($iComboBox, "AssetDB") GUICtrlSetData($iComboBox, "Chopin") GUICtrlSetData($iComboBox, "Conformité") GUICtrlSetData($iComboBox, "Delphes") GUICtrlSetData($iComboBox, "FIS") GUICtrlSetData($iComboBox, "Horus") GUICtrlSetData($iComboBox, "HP BladeSystem") GUICtrlSetData($iComboBox, "Infoblox") GUICtrlSetData($iComboBox, "Password Vault") GUICtrlSetData($iComboBox, "Saam") GUICtrlSetData($iComboBox, "=======Client lourd==========") GUICtrlSetData($iComboBox, "PCAC") GUICtrlSetData($iComboBox, "Putty") GUICtrlSetData($iComboBox, "Disquette anto") GUICtrlSetData($iComboBox, "=======Active directory=======") GUICtrlSetData($iComboBox, "AD Tech(APPS)") GUICtrlSetData($iComboBox, "AD Tech(Winrep)") GUICtrlSetData($iComboBox, "=======Vcenters===============") GUICtrlSetData($iComboBox, "Cloud prod") GUICtrlSetData($iComboBox, "Cloud H prod") GUICtrlSetData($iComboBox, "Vc-BP2S") GUICtrlSetData($iComboBox, "DNA") Local $iComboBox2 = GUICtrlCreateCombo("", 90, 350, 190, 20) GUICtrlCreateLabel ("Macro :", 10, 352, 75, 20) GUICtrlSetData($iComboBox2, "=======Macro========") GUICtrlSetData($iComboBox2, "Macro 01") GUICtrlSetData($iComboBox2, "Macro 02") ;~ ================================Text defilant========================================== ;~ ======================================================================================== $label = GUICtrlCreateLabel("Fait par INTM pour BNP", 1000 ,1000 , 150, 15) Global $px = 0 , $speed = 10 ;~ ======================================================================================== ;~ ======================================================================================== ; Display de l'interface GUISetState(@SW_SHOW, $hGUI) Local $sComboRead = "" ; Boucle j'usqua utilisation de la GUI. While 1 ;~ ================================Text defilant=========================================== ;~ ======================================================================================== $px -= 1 GUICtrlSetPos($label, $px, 0) if $px < -100 then $px = 500 ;~ ======================================================================================== ;~ ======================================================================================== Switch GUIGetMsg() Case $GUI_EVENT_CLOSE, $iClose ExitLoop Case $iComboBox $sComboRead = GUICtrlRead($iComboBox) If $sComboRead = "Horus" Then $Outil01 = IniRead ($SettingsFile, 'Informations', 'Outil01', "ERROR") $URL01 = IniRead ($SettingsFile, 'Informations', 'Chemin01', "ERROR") $definition01 = IniRead ($SettingsFile, 'Informations', 'definition01', "ERROR") GUICtrlCreateLabel ("Nom outil:", 50, 100, 150, 20) GUICtrlCreateLabel ( $Outil01 , 70, 125, 155, 20) GUICtrlCreateLabel ("Adresse de l'outil:", 50, 150, 150, 20) GUICtrlCreateLabel ( $URL01 , 70, 175, 250, 20) GUICtrlCreateLabel ("A quoi sert Horus ?", 50, 200, 150, 20) GUICtrlCreateLabel ( $definition01 , 70, 225, 120, 100) ElseIf $sComboRead = "HP BladeSystem" Then $Outil02 = IniRead ($SettingsFile, 'Informations', 'Outil02', "ERROR") $URL02 = IniRead ($SettingsFile, 'Informations', 'Chemin02', "ERROR") $definition02 = IniRead ($SettingsFile, 'Informations', 'definition02', "ERROR") GUICtrlCreateLabel ("Nom outil:", 50, 100, 150, 20) GUICtrlCreateLabel ( $Outil02 , 70, 125, 155, 20) GUICtrlCreateLabel ("Adresse de l'outil:", 50, 150, 150, 20) GUICtrlCreateLabel ( $URL02 , 70, 175, 250, 20) GUICtrlCreateLabel ("A quoi sert HP BladeSystem ?", 50, 200, 150, 20) GUICtrlCreateLabel ( $definition02 , 70, 225, 120, 100) ElseIf $sComboRead = "Alike" Then $Outil03 = IniRead ($SettingsFile, 'Informations', 'Outil03', "ERROR") $URL03 = IniRead ($SettingsFile, 'Informations', 'Chemin03', "ERROR") $definition03 = IniRead ($SettingsFile, 'Informations', 'definition03', "ERROR") GUICtrlCreateLabel ("Nom outil:", 50, 100, 150, 20) GUICtrlCreateLabel ( $Outil03 , 70, 125, 155, 20) GUICtrlCreateLabel ("Adresse de l'outil:", 50, 150, 150, 20) GUICtrlCreateLabel ( $URL03 , 70, 175, 250, 20) GUICtrlCreateLabel ("A quoi sert Alike", 50, 200, 150, 20) GUICtrlCreateLabel ( $definition03 , 70, 225, 120, 100) ElseIf $sComboRead = "AD Tech(APPS)" Then $Outil04 = IniRead ($SettingsFile, 'Informations', 'Outil04', "ERROR") $URL04 = IniRead ($SettingsFile, 'Informations', 'Chemin04', "ERROR") $definition04 = IniRead ($SettingsFile, 'Informations', 'definition04', "ERROR") GUICtrlCreateLabel ("Nom outil:", 50, 100, 150, 20) GUICtrlCreateLabel ( $Outil04 , 70, 125, 155, 20) GUICtrlCreateLabel ("Adresse de l'outil:", 50, 150, 150, 20) GUICtrlCreateLabel ( $URL04 , 70, 175, 250, 20) GUICtrlCreateLabel ("A quoi sert AD Tech(APPS)", 50, 200, 150, 20) GUICtrlCreateLabel ( $definition04 , 70, 225, 120, 100) ElseIf $sComboRead = "AD Tech(Winrep)" Then $Outil05 = IniRead ($SettingsFile, 'Informations', 'Outil05', "ERROR") $URL05 = IniRead ($SettingsFile, 'Informations', 'Chemin05', "ERROR") $definition05 = IniRead ($SettingsFile, 'Informations', 'definition05', "ERROR") GUICtrlCreateLabel ("Nom outil:", 50, 100, 150, 20) GUICtrlCreateLabel ( $Outil05 , 70, 125, 155, 20) GUICtrlCreateLabel ("Adresse de l'outil:", 50, 150, 150, 20) GUICtrlCreateLabel ( $URL05 , 70, 175, 250, 20) GUICtrlCreateLabel ("A quoi sert AD Tech(Winrep)", 50, 200, 150, 20) GUICtrlCreateLabel ( $definition05 , 70, 225, 120, 100) ElseIf $sComboRead = "AssetDB" Then $Outil06 = IniRead ($SettingsFile, 'Informations', 'Outil06', "ERROR") $URL06 = IniRead ($SettingsFile, 'Informations', 'Chemin06', "ERROR") $definition06 = IniRead ($SettingsFile, 'Informations', 'definition06', "ERROR") GUICtrlCreateLabel ("Nom outil:", 50, 100, 150, 20) GUICtrlCreateLabel ( $Outil06 , 70, 125, 155, 20) GUICtrlCreateLabel ("Adresse de l'outil:", 50, 150, 150, 20) GUICtrlCreateLabel ( $URL06 , 70, 175, 250, 20) GUICtrlCreateLabel ("A quoi sert AssetDB", 50, 200, 150, 20) GUICtrlCreateLabel ( $definition06 , 70, 225, 120, 100) ElseIf $sComboRead = "Chopin" Then $Outil07 = IniRead ($SettingsFile, 'Informations', 'Outil07', "ERROR") $URL07 = IniRead ($SettingsFile, 'Informations', 'Chemin07', "ERROR") $definition07 = IniRead ($SettingsFile, 'Informations', 'definition07', "ERROR") GUICtrlCreateLabel ("Nom outil:", 50, 100, 150, 20) GUICtrlCreateLabel ( $Outil07 , 70, 125, 155, 20) GUICtrlCreateLabel ("Adresse de l'outil:", 50, 150, 150, 20) GUICtrlCreateLabel ( $URL07 , 70, 175, 250, 20) GUICtrlCreateLabel ("A quoi sert Chopin", 50, 200, 150, 20) GUICtrlCreateLabel ( $definition07 , 70, 225, 120, 100) ElseIf $sComboRead = "Conformité" Then $Outil08 = IniRead ($SettingsFile, 'Informations', 'Outil08', "ERROR") $URL08 = IniRead ($SettingsFile, 'Informations', 'Chemin08', "ERROR") $definition08 = IniRead ($SettingsFile, 'Informations', 'definition08', "ERROR") GUICtrlCreateLabel ("Nom outil:", 50, 100, 150, 20) GUICtrlCreateLabel ( $Outil08 , 70, 125, 155, 20) GUICtrlCreateLabel ("Adresse de l'outil:", 50, 150, 150, 20) GUICtrlCreateLabel ( $URL08 , 70, 175, 250, 20) GUICtrlCreateLabel ("A quoi sert la Conformité ?", 50, 200, 150, 20) GUICtrlCreateLabel ( $definition08 , 70, 225, 120, 100) ElseIf $sComboRead = "Delphes" Then $Outil09 = IniRead ($SettingsFile, 'Informations', 'Outil09', "ERROR") $URL09 = IniRead ($SettingsFile, 'Informations', 'Chemin09', "ERROR") $definition09 = IniRead ($SettingsFile, 'Informations', 'definition09', "ERROR") GUICtrlCreateLabel ("Nom outil:", 50, 100, 150, 20) GUICtrlCreateLabel ( $Outil09 , 70, 125, 155, 20) GUICtrlCreateLabel ("Adresse de l'outil:", 50, 150, 150, 20) GUICtrlCreateLabel ( $URL09 , 70, 175, 250, 20) GUICtrlCreateLabel ("A quoi sert la Delphes ?", 50, 200, 150, 20) GUICtrlCreateLabel ( $definition09 , 70, 225, 120, 100) ElseIf $sComboRead = "FIS" Then $Outil10 = IniRead ($SettingsFile, 'Informations', 'Outil10', "ERROR") $URL10 = IniRead ($SettingsFile, 'Informations', 'Chemin10', "ERROR") $definition10 = IniRead ($SettingsFile, 'Informations', 'definition10', "ERROR") GUICtrlCreateLabel ("Nom outil:", 50, 100, 150, 20) GUICtrlCreateLabel ( $Outil10 , 70, 125, 155, 20) GUICtrlCreateLabel ("Adresse de l'outil:", 50, 150, 150, 20) GUICtrlCreateLabel ( $URL10 , 70, 175, 250, 20) GUICtrlCreateLabel ("A quoi sert la FIS ?", 50, 200, 150, 20) GUICtrlCreateLabel ( $definition10 , 70, 225, 120, 100) ElseIf $sComboRead = "Infoblox" Then $Outil11 = IniRead ($SettingsFile, 'Informations', 'Outil11', "ERROR") $URL11 = IniRead ($SettingsFile, 'Informations', 'Chemin11', "ERROR") $definition11 = IniRead ($SettingsFile, 'Informations', 'definition11', "ERROR") GUICtrlCreateLabel ("Nom outil:", 50, 100, 150, 20) GUICtrlCreateLabel ( $Outil11 , 70, 125, 155, 20) GUICtrlCreateLabel ("Adresse de l'outil:", 50, 150, 150, 20) GUICtrlCreateLabel ( $URL11 , 70, 175, 250, 20) GUICtrlCreateLabel ("A quoi sert Infoblox ?", 50, 200, 150, 20) GUICtrlCreateLabel ( $definition11 , 70, 225, 120, 100) ElseIf $sComboRead = "Password Vault" Then $Outil12 = IniRead ($SettingsFile, 'Informations', 'Outil12', "ERROR") $URL12 = IniRead ($SettingsFile, 'Informations', 'Chemin12', "ERROR") $definition12 = IniRead ($SettingsFile, 'Informations', 'definition12', "ERROR") GUICtrlCreateLabel ("Nom outil:", 50, 100, 150, 20) GUICtrlCreateLabel ( $Outil12 , 70, 125, 155, 20) GUICtrlCreateLabel ("Adresse de l'outil:", 50, 150, 150, 20) GUICtrlCreateLabel ( $URL12 , 70, 175, 250, 20) GUICtrlCreateLabel ("A quoi sert Infoblox ?", 50, 200, 150, 20) GUICtrlCreateLabel ( $definition12 , 70, 225, 120, 100) ElseIf $sComboRead = "Saam" Then $Outil13 = IniRead ($SettingsFile, 'Informations', 'Outil13', "ERROR") $URL13 = IniRead ($SettingsFile, 'Informations', 'Chemin13', "ERROR") $definition13 = IniRead ($SettingsFile, 'Informations', 'definition13', "ERROR") GUICtrlCreateLabel ("Nom outil:", 50, 100, 150, 20) GUICtrlCreateLabel ( $Outil13 , 70, 125, 155, 20) GUICtrlCreateLabel ("Adresse de l'outil:", 50, 150, 150, 20) GUICtrlCreateLabel ( $URL13 , 70, 175, 250, 20) GUICtrlCreateLabel ("A quoi sert Saam ?", 50, 200, 150, 20) GUICtrlCreateLabel ( $definition13 , 70, 225, 120, 100) ElseIf $sComboRead = "Cloud prod" Then $Outil14 = IniRead ($SettingsFile, 'Informations', 'Outil14', "ERROR") $URL14 = IniRead ($SettingsFile, 'Informations', 'Chemin14', "ERROR") $definition14 = IniRead ($SettingsFile, 'Informations', 'definition14', "ERROR") GUICtrlCreateLabel ("Nom outil:", 50, 100, 150, 20) GUICtrlCreateLabel ( $Outil14 , 70, 125, 155, 20) GUICtrlCreateLabel ("Adresse de l'outil:", 50, 150, 150, 20) GUICtrlCreateLabel ( $URL14 , 70, 175, 250, 20) GUICtrlCreateLabel ("A quoi sert le VC Cloud prod ?", 50, 200, 150, 20) GUICtrlCreateLabel ( $definition14 , 70, 225, 120, 100) ElseIf $sComboRead = "Cloud H prod" Then $Outil15 = IniRead ($SettingsFile, 'Informations', 'Outil15', "ERROR") $URL15 = IniRead ($SettingsFile, 'Informations', 'Chemin15', "ERROR") $definition15 = IniRead ($SettingsFile, 'Informations', 'definition15', "ERROR") GUICtrlCreateLabel ("Nom outil:", 50, 100, 150, 20) GUICtrlCreateLabel ( $Outil15 , 70, 125, 155, 20) GUICtrlCreateLabel ("Adresse de l'outil:", 50, 150, 150, 20) GUICtrlCreateLabel ( $URL15 , 70, 175, 250, 20) GUICtrlCreateLabel ("A quoi sert le VC Cloud h prod ?", 50, 200, 150, 20) GUICtrlCreateLabel ( $definition15 , 70, 225, 120, 100) ElseIf $sComboRead = "Vc-BP2S" Then $Outil16 = IniRead ($SettingsFile, 'Informations', 'Outil16', "ERROR") $URL16 = IniRead ($SettingsFile, 'Informations', 'Chemin16', "ERROR") $definition16 = IniRead ($SettingsFile, 'Informations', 'definition16', "ERROR") GUICtrlCreateLabel ("Nom outil:", 50, 100, 150, 20) GUICtrlCreateLabel ( $Outil16 , 70, 125, 155, 20) GUICtrlCreateLabel ("Adresse de l'outil:", 50, 150, 150, 20) GUICtrlCreateLabel ( $URL16 , 70, 175, 250, 20) GUICtrlCreateLabel ("A quoi sert le VC BP2S ?", 50, 200, 150, 20) GUICtrlCreateLabel ( $definition16 , 70, 225, 120, 100) ElseIf $sComboRead = "DNA" Then $Outil17 = IniRead ($SettingsFile, 'Informations', 'Outil17', "ERROR") $URL17 = IniRead ($SettingsFile, 'Informations', 'Chemin17', "ERROR") $definition17 = IniRead ($SettingsFile, 'Informations', 'definition17', "ERROR") GUICtrlCreateLabel ("Nom outil:", 50, 100, 150, 20) GUICtrlCreateLabel ( $Outil17 , 70, 125, 155, 20) GUICtrlCreateLabel ("Adresse de l'outil:", 50, 150, 150, 20) GUICtrlCreateLabel ( $URL17 , 70, 175, 250, 20) GUICtrlCreateLabel ("A quoi sert le VC DNA ?", 50, 200, 150, 20) GUICtrlCreateLabel ( $definition17 , 70, 225, 120, 100) ElseIf $sComboRead = "Putty" Then $Outil18 = IniRead ($SettingsFile, 'Informations', 'Outil18', "ERROR") $URL18 = IniRead ($SettingsFile, 'Informations', 'Chemin18', "ERROR") $definition18 = IniRead ($SettingsFile, 'Informations', 'definition18', "ERROR") GUICtrlCreateLabel ("Nom outil:", 50, 100, 150, 20) GUICtrlCreateLabel ( $Outil18 , 70, 125, 155, 20) GUICtrlCreateLabel ("Adresse de l'outil:", 50, 150, 150, 20) GUICtrlCreateLabel ( $URL18 , 70, 175, 250, 20) GUICtrlCreateLabel ("A quoi sert Putty ?", 50, 200, 150, 20) GUICtrlCreateLabel ( $definition18 , 70, 225, 120, 100) ElseIf $sComboRead = "Disquette anto" Then $Outil19 = IniRead ($SettingsFile, 'Informations', 'Outil19', "ERROR") $URL19 = IniRead ($SettingsFile, 'Informations', 'Chemin19', "ERROR") $definition19 = IniRead ($SettingsFile, 'Informations', 'definition19', "ERROR") GUICtrlCreateLabel ("Nom outil:", 50, 100, 150, 20) GUICtrlCreateLabel ( $Outil19 , 70, 125, 155, 20) GUICtrlCreateLabel ("Adresse de l'outil:", 50, 150, 150, 20) GUICtrlCreateLabel ( $URL19 , 70, 175, 250, 20) GUICtrlCreateLabel ("A quoi sert Disquette anto ?", 50, 200, 150, 20) GUICtrlCreateLabel ( $definition19 , 70, 225, 120, 100) Else MsgBox($MB_SYSTEMMODAL, "", "The combobox is currently displaying: " & $sComboRead, 0, $hGUI) ;~ run( "C:\Windows\System32\mstsc.exe"&" /admin /v:MGNET"&$sComboRead&"-sv005") EndIf ;========================================================================================================================================= ;========================================================================================================================================= ;========================================================================================================================================= ;=====================================CONNEXION A L OUTIL DESIRER ;========================================================================================================================================= ;========================================================================================================================================= ;========================================================================================================================================= Case $iConnect If $sComboRead = "Horus" Then $S2 = IniRead ($SettingsFile, 'Stats', 'Utilisation Horus', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation Horus',$S2+1) GUICtrlCreateLabel ("Nombre d'utilisation horus:" , 10, 432, 175, 20) GUICtrlCreateLabel ($S2, 150, 432, 75, 20) Local $oIE = _IECreate($URL01, 1) ElseIf $sComboRead = "HP BladeSystem" Then $S3 = IniRead ($SettingsFile, 'Stats', 'Utilisation HP,BS', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation HP,BS',$S3+1) GUICtrlCreateLabel ("Nombre d'utilisation HP,BS:" , 10, 432, 175, 20) GUICtrlCreateLabel ($S3, 150, 432, 75, 20) $A=InputBox("BarreCode", "Renseignez votre barrecode NE PAS OUBLIER LE POINT.") $B=InputBox("FQDN", "Renseignez le FQDN.") $URL02BIS = $A&$B Local $oIE = _IECreate($URL02BIS, 1) ElseIf $sComboRead = "Alike" Then $S4 = IniRead ($SettingsFile, 'Stats', 'Utilisation Alike', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation Alike',$S4+1) GUICtrlCreateLabel ("Nombre d'utilisation Alike:" , 10, 432, 175, 20) GUICtrlCreateLabel ($S4, 150, 432, 75, 20) Local $oIE = _IECreate($URL03, 1) ElseIf $sComboRead = "AD Tech(APPS)" Then $S5 = IniRead ($SettingsFile, 'Stats', 'Utilisation APPS', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation APPS',$S5+1) GUICtrlCreateLabel ("Nombre d'utilisation APPS:" , 10, 432, 175, 20) GUICtrlCreateLabel ($S5, 150, 432, 75, 20) run( "C:\Windows\System32\mstsc.exe"&" /admin /v:s00v09927223") ElseIf $sComboRead = "AD Tech(Winrep)" Then $S6 = IniRead ($SettingsFile, 'Stats', 'Utilisation Winrep', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation Winrep',$S6+1) GUICtrlCreateLabel ("Nombre d'utilisation Winrep:" , 10, 432, 175, 20) GUICtrlCreateLabel ($S6, 150, 432, 75, 20) run( "C:\Windows\System32\mstsc.exe"&" /admin /v:Winrep") ElseIf $sComboRead = "AssetDB" Then $S7 = IniRead ($SettingsFile, 'Stats', 'Utilisation AssetDB', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation AssetDB',$S7+1) GUICtrlCreateLabel ("Nombre d'utilisation AssetDB:" , 10, 432, 175, 20) GUICtrlCreateLabel ($S7, 150, 432, 75, 20) Local $oIE = _IECreate($URL06, 1) ElseIf $sComboRead = "Chopin" Then $S8 = IniRead ($SettingsFile, 'Stats', 'Utilisation Chopin', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation Chopin',$S8+1) GUICtrlCreateLabel ("Nombre d'utilisation Chopin:" , 10, 432, 175, 20) GUICtrlCreateLabel ($S8, 150, 432, 75, 20) Local $oIE = _IECreate($URL07, 1) ElseIf $sComboRead = "Conformité" Then $S9 = IniRead ($SettingsFile, 'Stats', 'Utilisation Conformité', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation Conformité',$S9+1) GUICtrlCreateLabel ("Nombre d'utilisation Conformité:" , 10, 432, 175, 20) GUICtrlCreateLabel ($S9, 160, 432, 75, 20) Local $oIE = _IECreate($URL08, 1) ElseIf $sComboRead = "Delphes" Then $S10 = IniRead ($SettingsFile, 'Stats', 'Utilisation Delphes', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation Delphes',$S10+1) GUICtrlCreateLabel ("Nombre d'utilisation Delphes:" , 10, 432, 175, 20) GUICtrlCreateLabel ($S10, 150, 432, 75, 20) Local $oIE = _IECreate($URL09, 1) ElseIf $sComboRead = "FIS" Then $S11 = IniRead ($SettingsFile, 'Stats', 'Utilisation FIS', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation FIS',$S11+1) GUICtrlCreateLabel ("Nombre d'utilisation FIS:" , 10, 432, 175, 20) GUICtrlCreateLabel ($S11, 150, 432, 75, 20) Local $oIE = _IECreate($URL10, 1) ElseIf $sComboRead = "Infoblox" Then $S12 = IniRead ($SettingsFile, 'Stats', 'Utilisation Infoblox', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation Infoblox',$S12+1) GUICtrlCreateLabel ("Nombre d'utilisation Infoblox:" , 10, 432, 175, 20) GUICtrlCreateLabel ($S12, 150, 432, 75, 20) Local $oIE = _IECreate($URL11, 1) ElseIf $sComboRead = "Password Vault" Then $S13 = IniRead ($SettingsFile, 'Stats', 'Utilisation Vault', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation Vault',$S13+1) GUICtrlCreateLabel ("Nombre d'utilisation Vault:" , 10, 432, 175, 20) GUICtrlCreateLabel ($S13, 150, 432, 75, 20) Local $oIE = _IECreate($URL12, 1) ElseIf $sComboRead = "Saam" Then $S14 = IniRead ($SettingsFile, 'Stats', 'Utilisation Saam', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation Saam',$S14+1) GUICtrlCreateLabel ("Nombre d'utilisation Saam:" , 10, 432, 175, 20) GUICtrlCreateLabel ($S14, 150, 432, 75, 20) Local $oIE = _IECreate($URL13, 1) ElseIf $sComboRead = "Cloud prod" Then $S15 = IniRead ($SettingsFile, 'Stats', 'Utilisation CloudP', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation CloudP',$S15+1) GUICtrlCreateLabel ("Nombre d'utilisation CloudP:" , 10, 432, 175, 20) GUICtrlCreateLabel ($S15, 150, 432, 75, 20) run (@SCRIPTDIR&"\Data\vmwarecloudprod.cmd" ) ElseIf $sComboRead = "Cloud H prod" Then $S16 = IniRead ($SettingsFile, 'Stats', 'Utilisation CloudNP', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation CloudNP',$S16+1) GUICtrlCreateLabel ("Nombre d'utilisation CloudNP:" , 10, 432, 175, 20) GUICtrlCreateLabel ($S16, 150, 432, 75, 20) run (@SCRIPTDIR&"\Data\vmwarecloudhprod.cmd" ) ElseIf $sComboRead = "Vc-BP2S" Then $S17 = IniRead ($SettingsFile, 'Stats', 'Utilisation Vc-BP2S', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation Vc-BP2S',$S17+1) GUICtrlCreateLabel ("Nombre d'utilisation Vc-BP2S:" , 10, 432, 175, 20) GUICtrlCreateLabel ($S17, 150, 432, 75, 20) run (@SCRIPTDIR&"\Data\vmwarebp2s.cmd" ) ElseIf $sComboRead = "DNA" Then $S18 = IniRead ($SettingsFile, 'Stats', 'Utilisation DNA', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation DNA',$S18+1) GUICtrlCreateLabel ("Nombre d'utilisation DNA:" , 10, 432, 175, 20) GUICtrlCreateLabel ($S18, 150, 432, 75, 20) run (@SCRIPTDIR&"\Data\vmwareDNA.cmd" ) ElseIf $sComboRead = "Putty" Then $S19 = IniRead ($SettingsFile, 'Stats', 'Utilisation Putty', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation Putty',$S19+1) GUICtrlCreateLabel ("Nombre d'utilisation Putty:" , 10, 432, 175, 20) GUICtrlCreateLabel ($S19, 150, 432, 75, 20) run ($URL18) ElseIf $sComboRead = "Disquette anto" Then $S20 = IniRead ($SettingsFile, 'Stats', 'Utilisation Disquette', "ERROR") IniWrite ($SettingsFile, 'Stats', 'Utilisation Disquette',$S20+1) GUICtrlCreateLabel ("Nombre d'utilisation Disquette:" , 10, 432, 175, 20) GUICtrlCreateLabel ($S20, 160, 432, 75, 20) run ($URL19) Else MsgBox($MB_SYSTEMMODAL, "", "The combobox is currently displaying: " & $sComboRead, 0, $hGUI) MsgBox($MB_SYSTEMMODAL, "", "erreur inatendu" ) ;~ run( "C:\Windows\System32\mstsc.exe"&" /admin /v:MGNET"&$sComboRead&"-sv005") EndIf ;========================================================================================================================================= ;========================================================================================================================================= ;========================================================================================================================================= ;=====================================MACRO's ;========================================================================================================================================= ;========================================================================================================================================= ;========================================================================================================================================= Case $iComboBox2 $sComboRead2 = GUICtrlRead($iComboBox2) If $sComboRead2 = "Macro 01" Then GUICtrlCreateLabel ("Aide:", 80, 380, 190, 20) GUICtrlCreateLabel ("Macro 01 sert a créer les enveloppe automatiquement.",110, 380, 190, 40) ElseIf $sComboRead2 = "Macro 02" Then GUICtrlCreateLabel ("Aide:", 80, 380, 190, 20) GUICtrlCreateLabel ("Macro 02 sert a rien pour le moment.",110, 380, 190, 40) Else MsgBox($MB_SYSTEMMODAL, "", "The combobox is currently displaying: " & $sComboRead, 0, $hGUI) EndIf ;~ MsgBox($MB_SYSTEMMODAL, "", "The combobox is currently displaying: " & $sComboRead2, 0, $hGUI) Case $iConnect2 If $sComboRead2 = "Macro 01" Then WinActivate ("Créer une nouvelle machine virtuelle","") If WinActivate ("Créer une nouvelle machine virtuelle","") then Sleep (1000) WinMove ("Créer une nouvelle machine virtuelle","",0,0) EndIf ElseIf $sComboRead2 = "Macro 02" Then Local $hGUI = GUICreate("Création enveloppe", 400, 500) Run ("C:\Program Files\Windows NT\Accessories\WordPad.Exe") Sleep (3000) Send ( "ceci est une macro test" ) EndIf EndSwitch WEnd ; Delete the previous GUI and all controls. GUIDelete($hGUI) EndFunc ;==>Example Now the section causing probleme. Case $iConnect2 If $sComboRead2 = "Macro 01" Then WinActivate ("Créer une nouvelle machine virtuelle","") If WinActivate ("Créer une nouvelle machine virtuelle","") then Sleep (1000) WinMove ("Créer une nouvelle machine virtuelle","",0,0) EndIf ElseIf $sComboRead2 = "Macro 02" Then Local $hGUI = GUICreate("Création enveloppe", 400, 500) Run ("C:\Program Files\Windows NT\Accessories\WordPad.Exe") Sleep (3000) Send ( "ceci est une macro test" ) EndIf in this section i want to add something like this : If $sComboRead2 = "Macro 01" Then Local $hGUI2 = GUICreate("Création enveloppe", 400, 500) WinActivate ("Créer une nouvelle machine virtuelle","") The line Local $hGUI2 = GUICreate("Création enveloppe", 400, 500) wont make apear my GUI why ? My video tutorials : ( In construction ) || My Discord : https://discord.gg/S9AnwHw How to Ask Help || UIAutomation From Junkew || WebDriver From Danp2 || And Water's UDFs in the Quote Spoiler Water's UDFs:Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - WikiOutlookEX (2018-10-31 - Version 1.3.4.1) - Download - General Help & Support - Example Scripts - WikiExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example ScriptsPowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & SupportExcel - Example Scripts - WikiWord - Wiki Tutorials:ADO - Wiki Link to comment Share on other sites More sharing options...
hiho Posted July 21, 2014 Share Posted July 21, 2014 (edited) guisetstate(@sw_show, $hgui2) Edited July 21, 2014 by hiho Link to comment Share on other sites More sharing options...
caramen Posted July 21, 2014 Author Share Posted July 21, 2014 noticed before watch thank you man ; Display de l'interface GUISetState(@SW_SHOW, $hGUI) My video tutorials : ( In construction ) || My Discord : https://discord.gg/S9AnwHw How to Ask Help || UIAutomation From Junkew || WebDriver From Danp2 || And Water's UDFs in the Quote Spoiler Water's UDFs:Active Directory (NEW 2018-10-19 - Version 1.4.10.0) - Download - General Help & Support - Example Scripts - WikiOutlookEX (2018-10-31 - Version 1.3.4.1) - Download - General Help & Support - Example Scripts - WikiExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example ScriptsPowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & SupportExcel - Example Scripts - WikiWord - Wiki Tutorials:ADO - Wiki Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now