Jump to content

GUI wont apear

caramen

By caramen,
in AutoIt GUI Help and Support

 Share

Recommended Posts

caramen Universalist

caramen

Posted
Posted

Hello guys this is my code : 

#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 - Wiki
OutlookEX (2018-10-31 - Version 1.3.4.1) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:
ADO - Wiki

 

Link to comment
Share on other sites
caramen Universalist

caramen

Posted
  • Author
Posted

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 - Wiki
OutlookEX (2018-10-31 - Version 1.3.4.1) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
PowerPoint (2017-06-06 - Version 0.0.5.0) - Download - General Help & Support
Excel - Example Scripts - Wiki
Word - Wiki
 
Tutorials:
ADO - Wiki

 

Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...