ré-écrire une variable dans une combobox

[Utilisateur 6909 supprimé]

Bonjour,

j'ai créer une petite appli qui change automatiquement l'adresse IP d'une carte Ethernet (nom de la carte a rentrée dans l'input) avec 3 _GUICtrlIpAddress_Create qui sont sauvegarder à chaque exécution dans un .ini jusque la tous fonctionne.

suite a une demande d'amélioration d'un de mes collègues, il ma demander de créer une combobox avec dedans la liste des noms de différentes adresse IP ce que je souhaiterais faire c'est rendre possible la modification d'un nom et de sauvegarder ce nom avec un bouton (cela fonctionne) et réactualiser la liste des noms des que l'écrire du nom dans le .ini est fini (cela ne fonctionne pas). par contre à chaque redémarrage du programme il actualise bien les noms renommé.

que dois-je faire pour solutionné mon problème?

j'ai ajouter une hotkeypressed pour ma fonction de rechargement de la combo "{HOME}"

vous trouverez ci-joint code non terminé avec le soucis (le code fini avec le soucis est sur mon pc de boulot)ainsi que le build fini du programme avec toutes les fonctionnalités actives et le soucis de noms non actualisé.

Changeur d'IP automatique V2-1.zip

(555.27 Kio) Téléchargé 208 fois

autre question j'ai pu constaté que chaque PC a une définition déférente de ses networks (pour mon pc perso c'est @ipAdress1 pour mon pc boulot c'est @IPAdress3 qui correspond à ma carte Ethernet) comment remonter l'adresse IP d'une carte plutôt que d'utiliser le @ipadress qui n'est pas le même à chaque PC ?

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiComboBoxEx.au3>
$IP_Clients = 0
$Mem_Combo_Clients = 0
$init = 0
$Combo_List = 1
Dim $aCombo[31]
$Combo_List_search = 1
$init = 0
#Region ### START Koda GUI section ### Form=c:\users\blondel\desktop\projet changeur d'ip automatique\koda\autoip_v1.kxf
$AUTOIP = GUICreate("Changeur d'IP automatique", 632, 529, -1, -1, -1, BitOR($WS_EX_TRANSPARENT,$WS_EX_WINDOWEDGE))
GUISetIcon("C:\Users\blondel\Desktop\ip-icon.ico", -1)
GUISetCursor (2)
GUISetBkColor(0x99B4D1)
$BP_DHCP = GUICtrlCreateButton("DHCP", 248, 88, 113, 25)
GUICtrlSetColor(-1, 0x000000)
$Group_Actual_IP = GUICtrlCreateGroup("Votre IP Actuelle", 8, 8, 177, 57)
GUICtrlSetColor(-1, 0x000000)
$Actuelle_IP = GUICtrlCreateLabel("", 16, 32, 58, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$BP_GO_2 = GUICtrlCreateButton("Go", 40, 192, 113, 25)
GUICtrlSetColor(-1, 0x000000)
$BP_GO_1 = GUICtrlCreateButton("Go", 40, 120, 113, 25)
GUICtrlSetColor(-1, 0x000000)
$BP_GO_3 = GUICtrlCreateButton("Go", 248, 192, 113, 25)
GUICtrlSetColor(-1, 0x000000)
$IPAddress1 = _GUICtrlIpAddress_Create($AUTOIP, 32, 88, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0")
$IPAddress2 = _GUICtrlIpAddress_Create($AUTOIP, 32, 160, 130, 21)
_GUICtrlIpAddress_Set($IPAddress2, "0.0.0.0")
$IPAddress3 = _GUICtrlIpAddress_Create($AUTOIP, 240, 160, 130, 21)
_GUICtrlIpAddress_Set($IPAddress3, "0.0.0.0")
$Group_Name_Ethernet = GUICtrlCreateGroup("Nom de la carte Ethernet", 216, 8, 177, 57)
GUICtrlSetColor(-1, 0x000000)
$Input_Ethernet=GUICtrlCreateInput("", 232, 32, 145, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Combo_Clients = GUICtrlCreateCombo("", 232, 128, 145, 50, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL,$WS_HSCROLL))
GUICtrlSetColor(-1, 0x000000)
$BP_Save_Clients = GUICtrlCreateButton("Sauvegarde clients", 264, 232, 113, 25)
GUICtrlSetColor(-1, 0x000000)
$Input_Clients = GUICtrlCreateInput("", 40, 232, 217, 21)
GUICtrlSetColor(-1, 0x000000)
$Label2 = GUICtrlCreateLabel("Label2", 64, 272, 36, 17)
GUICtrlSetColor(-1, 0x000000)
$Label3 = GUICtrlCreateLabel("Label3", 64, 304, 36, 17)
GUICtrlSetColor(-1, 0x000000)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Func Terminate()
    Exit
EndFunc   ;==>Terminate

Func MAJ_Combo()
$Combo_List = 1
While $Combo_List <= (UBound($aCombo)-1)
	$aCombo[$Combo_List] = IniRead(@MyDocumentsDir & "\Save.ini", "Combo", $Combo_List,"")
	If $aCombo[$Combo_List] = "" Then
	   $aCombo[$Combo_List] = $Combo_List
	EndIf
	GUICtrlSetData($Combo_Clients,$aCombo[$Combo_List])
	$Combo_List = $Combo_List + 1
   Wend
EndFunc

HotKeySet ("{END}", "Terminate")
HotKeySet ("{HOME}", "MAJ_Combo")

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch

   if $init = 0 Then
		MAJ_Combo()
		$Name_Ethernet = IniRead (@MyDocumentsDir&"\Save.ini", "parametre", "Ethernet","")
		$IP_1 = _GUICtrlIpAddress_Set($IPAddress1,IniRead (@MyDocumentsDir & "\Save.ini", "parametre", "IP_1",""))
		$IP_2 = _GUICtrlIpAddress_Set($IPAddress2,IniRead (@MyDocumentsDir & "\Save.ini", "parametre", "IP_2",""))
		$IP_3 = _GUICtrlIpAddress_Set($IPAddress3,IniRead (@MyDocumentsDir&"\Save.ini", "parametre", GUICtrlRead($Combo_Clients),""))
		GUICtrlSetData ($Input_Ethernet,$Name_Ethernet)
		GUICtrlSetData ($IPAddress1,$IP_1)
		GUICtrlSetData ($IPAddress2,$IP_2)
		GUICtrlSetData ($IPAddress3,$IP_3)
	  $init = 1
   EndIf

   Switch $nMsg

	  case $BP_Save_Clients
		 $Combo_List_search = 1
		 While 1
			If GUICtrlRead($Combo_Clients) = $aCombo[$Combo_List_search] Then
			   IniWrite (@MyDocumentsDir & "\Save.ini", "Combo", $Combo_List_search,GUICtrlRead($Input_Clients))
			   ExitLoop
			ENDIF

			$Combo_List_search = $Combo_List_search + 1

			If $Combo_List_search >(UBound($aCombo)-1) Then
			   MsgBox($MB_SYSTEMMODAL, "errorloop", "errorloop",2)
			   ExitLoop
			EndIf
		 WEnd
		 MAJ_Combo()

	  case $BP_GO_3
	  $IP_Clients = _GUICtrlIpAddress_Get($IPAddress3)
	  IniWrite (@MyDocumentsDir & "\Save.ini", "parametre", GUICtrlRead($Combo_Clients),$IP_Clients)
	  ;RunWait(@ComSpec & " /c " & 'netsh interface ip set address "'&$Name_Ethernet&'" static '&$IP_Clients&' 255.255.255.0 192.168.0.254 1')
   endswitch
If (GUICtrlRead($Mem_Combo_Clients) <> GUICtrlRead($Combo_Clients)) Then


   _GUICtrlIpAddress_Set($IPAddress3,IniRead (@MyDocumentsDir & "\Save.ini", "parametre", GUICtrlRead($Combo_Clients),""))
   $Mem_Combo_Clients = $Combo_Clients

   GUICtrlSetData($Label2,$Mem_Combo_Clients)

GUICtrlSetData($Label3,$Combo_Clients)
endif



WEnd

Merci d'avance pour vos réponses !

[jl56]

Bonjour,

Depuis des années j'utilise cette fonction pour retrouver l'adresse IP
De mémoire ( c'est vieux) je test si la carte a une passerelle de paramétrée et je récupère l'IP , le masque, le dns1 et la passerelle

Code: [Tout sélectionner] [Déplier/Replier]

Func _Adresseip()
   $OBJWMISERVICE = ObjGet("winmgmts:\root\cimv2")
   $colNetCards = $OBJWMISERVICE.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")
;~ $colNetCards = $OBJWMISERVICE.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

;~    $treeview = GUICtrlCreateTreeView(10, 10, $guiWidth - 20, $guiHeight - 60, BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE)
   Dim $subItemCount = 11
   Dim $MainItemArray[$colNetCards.count][$subItemCount] ;set how many treeviewitems to create
   $i = 0
   For $objNetCard In $colNetCards
      If StringInStr($objNetCard.macaddress, ":") Then
         If $objNetCard.DHCPEnabled = 0 Then
            $x = 'NON'
         Else
            $x = 'OUI'
         EndIf
;~          $MainItemArray[$i][3] = GUICtrlCreateTreeViewItem('DHCP Valide = ' & $x, $MainItemArray[$i][0])
         $Y = $objNetCard.IPAddress
         If Not IsArray($Y) Then Dim $Y[1]
         $x = ''
         For $k = 0 To UBound($Y) - 1
            $x = $x & $Y[$k] & '  '
         Next
;~          $MainItemArray[$i][4] = GUICtrlCreateTreeViewItem('IP Address(s) = ' & $x, $MainItemArray[$i][0])
         $Y = $objNetCard.IPSubnet
         If Not IsArray($Y) Then Dim $Y[1]
         $x = ''
         For $k = 0 To UBound($Y) - 1
            $x = $x & $Y[$k] & '  '
         Next
;~          $MainItemArray[$i][5] = GUICtrlCreateTreeViewItem('Masque = ' & $x, $MainItemArray[$i][0])
         $Y = $objNetCard.DefaultIPGateway
         If Not IsArray($Y) Then Dim $Y[1]
         $x = ''
         For $k = 0 To UBound($Y) - 1
            $x = $x & $Y[$k] & '  '
         Next
;~          $MainItemArray[$i][6] = GUICtrlCreateTreeViewItem('PASSERELLE  = ' & $x, $MainItemArray[$i][0])
         If StringInStr($x, ".") Then
            $mac = $objNetCard.macaddress
            $carteavecpasserelle = $objNetCard.description
            $carteitem = $MainItemArray[$i][0]
;~             $carte_passerelle =$objNetCard.Caption
         EndIf

;~          $MainItemArray[$i][7] = GUICtrlCreateTreeViewItem('DHCP Server = ' & $objNetCard.DHCPServer, $MainItemArray[$i][0])
         $Y = $objNetCard.DNSServerSearchOrder
         $x = ''
         For $k = 0 To UBound($Y) - 1
            $x = $x & $Y[$k] & '  '
         Next
;~       MsgBox($avant_plan,'dns',$x)
;~          $MainItemArray[$i][8] = GUICtrlCreateTreeViewItem('DNS Servers = ' & $x, $MainItemArray[$i][0])
         $x = $objNetCard.DHCPLeaseObtained
         If $x <> '' Then $x = StringMid($x, 1, 4) & '/' & StringMid($x, 5, 2) & '/' & StringMid($x, 7, 2) & ' at ' & StringMid($x, 9, 2) & ':' & StringMid($x, 11, 2) & ':' & StringMid($x, 13, 2)
;~          $MainItemArray[$i][9] = GUICtrlCreateTreeViewItem('Bail DHCP obtenus = ' & $x, $MainItemArray[$i][0])
         $x = $objNetCard.DHCPLeaseExpires
         If $x <> '' Then $x = StringMid($x, 1, 4) & '/' & StringMid($x, 5, 2) & '/' & StringMid($x, 7, 2) & ' at ' & StringMid($x, 9, 2) & ':' & StringMid($x, 11, 2) & ':' & StringMid($x, 13, 2)
;~          $MainItemArray[$i][10] = GUICtrlCreateTreeViewItem('Bail DHCP expire = ' & $x, $MainItemArray[$i][0])
         $i = $i + 1
      EndIf
   Next
   For $objNetCard In $colNetCards
      If $objNetCard.description = $carteavecpasserelle Then
         ;show static gui
         ;fill the ip box's
         $x = $objNetCard.IPAddress
         $Y = $objNetCard.IPAddress
         If Not IsArray($Y) Then Dim $Y[1]
         $x = ''
         For $k = 0 To UBound($Y) - 1
            $x = $x & $Y[$k] & '  '
         Next
         $adrip = $x
         If StringInStr($adrip, " ") Then
            $array_adrip = StringSplit($adrip, " ")
            $adrip = $array_adrip[1]
            MsgBox(262144, 'Debug line ~' & @ScriptLineNumber, 'Selection:' & @CRLF & '$adrip' & @CRLF & @CRLF & 'Return:' & @CRLF & $adrip) ;### Debug MSGBOX
         EndIf
         $x = $objNetCard.IPSubnet
         If Not IsArray($x) Then Dim $x[1]
         $masque = $x[0]
         MsgBox(262144, 'Debug line ~' & @ScriptLineNumber, 'Selection:' & @CRLF & '$masque' & @CRLF & @CRLF & 'Return:' & @CRLF & $masque) ;### Debug MSGBOX
;~                     _GUICtrlIpAddress_Set($Subnetinput,$x[0])
         $x = $objNetCard.DefaultIPGateway
         If Not IsArray($x) Then Dim $x[1]
         $pass = $x[0]
         MsgBox(262144, 'Debug line ~' & @ScriptLineNumber, 'Selection:' & @CRLF & '$pass' & @CRLF & @CRLF & 'Return:' & @CRLF & $pass) ;### Debug MSGBOX
;~                     _GUICtrlIpAddress_Set($Gatewayinput,$x[0])
         If $objNetCard.DHCPEnabled = 0 Then
            $dhcp = 'NON'
         Else
            $dhcp = 'OUI'
         EndIf
         $carte = $objNetCard.description
         $Y = $objNetCard.DNSServerSearchOrder
         $x = ''
         For $k = 0 To UBound($Y) - 1
            If $k <> UBound($Y) - 1 Then
               $x = $x & $Y[$k] & ','
;~                               MsgBox($avant_plan,"x",$x)
            Else
               $x = $x & $Y[$k] ;
            EndIf
         Next
         $dns1 = $x
         ExitLoop
      EndIf
   Next
EndFunc   ;==>_Adresseip

GeSHi © Extension Codebox Plus

Si cela peux vous aider

sinon regardez udf de jguinch ça peut vous aider dans votre script
https://www.autoitscript.fr/forum/viewt ... u3#p103578


A+ JL56

[jguinch]

Voir plutôt ici (dernière version disponible)

[Utilisateur 6909 supprimé]

Bonjour et merci de vos réponses merci JL56 pour ta réponse mais je ne comprend vraiment rien a ton script.

UDF n'est pas mal après je n'ai pas encore pris le temps de regarder avez vous une idées de solution pour mon problème de combobox ?

il ma demander de créer une combobox avec dedans la liste des noms de différentes adresse IP ce que je souhaiterais faire c'est rendre possible la modification d'un nom et de sauvegarder ce nom avec un bouton (cela fonctionne) et réactualiser la liste des noms des que l'écrire du nom dans le .ini est fini (cela ne fonctionne pas). par contre à chaque redémarrage du programme il actualise bien les noms renommé.

merci d'avance

Heaz117