Jump to content

Search the Community

Showing results for tags 'no erroe message.'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • General
    • Announcements and Site News
    • Administration
  • AutoIt v3
    • AutoIt Help and Support
    • AutoIt Technical Discussion
    • AutoIt Example Scripts
  • Scripting and Development
    • Developer General Discussion
    • Language Specific Discussion
  • IT Administration
    • Operating System Deployment
    • Windows Client
    • Windows Server
    • Office

Categories

  • AutoIt Team
    • Beta
    • MVP
  • AutoIt
    • Automation
    • Databases and web connections
    • Data compression
    • Encryption and hash
    • Games
    • GUI Additions
    • Hardware
    • Information gathering
    • Internet protocol suite
    • Maths
    • Media
    • PDF
    • Security
    • Social Media and other Website API
    • Windows
  • Scripting and Development
  • IT Administration
    • Operating System Deployment
    • Windows Client
    • Windows Server
    • Office

Categories

  • Forum FAQ
  • AutoIt

Calendars

  • Community Calendar

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


Member Title


Location


WWW


Interests

Found 1 result

  1. 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 ?
×
×
  • Create New...