[R] Afficher function dans GUI

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
28IL
Niveau 2
Niveau 2
Messages : 22
Enregistré le : mar. 30 mai 2017 09:22
Localisation : Dreux
Status : Hors ligne

[R] Afficher function dans GUI

#1

Message par 28IL »

Bonjour à toutes et tous,

Ce matin, je dois pas avoir les yeux en face des trous, j'arrive pas à afficher mon @ IP dans ma fenêtre GUICreateLabel hormis dans une fenêtre de MsgBox :

Code : Tout sélectionner

#Region ### START Koda GUI section ### Form=c:\users\david\desktop\formulaire.kxf
$Form1_1 = GUICreate("MyGSD (C) Hosting Team 2020", 1381, 727, 185, 101)
$Pic1 = GUICtrlCreatePic("MyGSD.jpg", 0, 0, 1381, 727)
GUICtrlSetFont(-1, 18, 400, 0, "Arial")
$Service = GUICtrlCreateLabel(_IPDetails(), 0, 70, 107, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUISetState(@SW_SHOW)

Local $aArray = _IPDetails()
If @error = 0 Then
    Local $sData = 'Votre adresse IP : ' & $aArray[1]
    MsgBox($MB_SYSTEMMODAL, '', $sData)
EndIf

Func _IPDetails()
    Local $oWMIService = ObjGet('winmgmts:{impersonationLevel = impersonate}!\\' & '.' & '\root\cimv2')
    Local $oColItems = $oWMIService.ExecQuery('Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True', 'WQL', 0x30), $aReturn[5] = [0]
    If IsObj($oColItems) Then
        For $oObjectItem In $oColItems
            If $oObjectItem.IPAddress(0) == @IPAddress1 Then
                $aReturn[0] = 1
                $aReturn[1] = $oObjectItem.IPAddress(0)
				EndIf
        Next
    EndIf
    Return SetError($aReturn[0] = 0, 0, $aReturn)
EndFunc

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

EndSwitch
WEnd
Pouvez vous m'aider svp ?

Bonne journée.
Modifié en dernier par 28IL le jeu. 01 oct. 2020 13:04, modifié 1 fois.
Avatar du membre
walkson
Modérateur
Modérateur
Messages : 866
Enregistré le : ven. 12 août 2011 19:49
Localisation : Hurepoix
Status : Hors ligne

Re: Afficher function dans GUI

#2

Message par walkson »

Bonjour,
Image
Local $aArray = _IPDetails()
$Service = GUICtrlCreateLabel($aArray[1], 0, 70, 107, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
$Service = GUICtrlCreateLabel(@IPAddress1, 0, 70, 107, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
ça ne serait pas plus simple ?....

Au fait, que vient faire BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL) dans un lablel qui sont des constants de combobox ?
Cordialement,
Walkson
"Horas non numero nisi serenas " Le canon de midi
(Je ne compte que les heures heureuses)
28IL
Niveau 2
Niveau 2
Messages : 22
Enregistré le : mar. 30 mai 2017 09:22
Localisation : Dreux
Status : Hors ligne

Re: Afficher function dans GUI

#3

Message par 28IL »

Bonjour Walkson,

Merci beaucoup pour votre aide et oui, j'avais vraiment pas les yeux en face des trous. C'est nickel.

Bonne journée.
Répondre