AutoIt Français

Coucou,

Je pose une question pour une fois car je n'arrive pas à trouver pourquoi sa fait sa...

Je m'amusait a refaire un code, mais en changeant un input par un IP.
Voici le code :

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         Jérome

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
; Include :
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <GUIListBox.au3>
#Include <GuiListView.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <inet.au3>
#include <WindowsConstants.au3>

;#def variable
Global $i
; Form 1
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 616, 430, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "quitter")
Opt("GUIOnEventMode", 1) ; Event mode

; ####################################  onglet 1
$Tab1 = GUICtrlCreateTab(0, 0, 633, 25)
$TabSheet1 = GUICtrlCreateTabItem("List IP")
GUICtrlCreateTabItem("")
GUISetFont(8, 400, 0, "Tahoma")
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 96, 400, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, "192.168.120.102")
$IPAddress2 = _GUICtrlIpAddress_Create($Form1, 272, 400, 130, 21)
_GUICtrlIpAddress_Set($IPAddress2, "192.168.120.105")
$Label1 = GUICtrlCreateLabel("De :", 48, 400, 28, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Tahoma")
$Label2 = GUICtrlCreateLabel("a :", 248, 400, 20, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Tahoma")
$Button1 = GUICtrlCreateButton("Start", 432, 398, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent($Button1, "ActionButton1")
$List1 = GUICtrlCreateListView("", 16, 32, 580, 357)
_GUICtrlListView_AddColumn($List1, "IP", 100)
_GUICtrlListView_AddColumn($List1, "Computer Name", 100)
_GUICtrlListView_AddColumn($List1, "User Actually Connected", 200)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    sleep(1000)
WEnd

Func ActionButton1()
    $IPAddress1 = _GUICtrlIpAddress_Get($IPAddress1)
    $IPAddress2 = _GUICtrlIpAddress_Get($IPAddress2)
    ;Ping($IPAddress1,50)
    ;ConsoleWrite("ping "& $IPAddress1 & @CRLF)
    ;ConsoleWrite(Ping($IPAddress1, 50) & @CRLF)
    Global $avArray[255][3], $j
    $j = 0
    _GUICtrlListView_DeleteAllItems($List1)
    TCPStartup()
    If @error Then Return GUICtrlCreateListViewItem('Aucun résultats',$List1)
    For $i = $IPAddress1 To $IPAddress2
        MsgBox("","",$i & @CRLF & $IPAddress1 & @CRLF & $IPAddress2)
;       ;GUICtrlSetData($Label4, "Ckecking : $i)
;       If Ping($i, 50) > 0 Then
;           $IpList = $i
;           $sResult = _TCPIpToName($IpList, 0)
;           $j = $j + 1
;           If $sResult = "" Then
;               $sResult = "No Name"
;           EndIf
;           $string = "local"
;           If StringRight($sResult, 5) = $string Then
;               $sResult = stringTrimRight($sResult, 5)
;           EndIf
;           If $sResult = "No Name" Then
;               $user = "Nobody"
;           Else
;               $objWMIService = ObjGet("winmgmts:" _
;               & "{impersonationLevel=impersonate}!\\" _
;               & $IpList & "\root\cimv2")
;               If @error Then
;                   $user = "Nobody"
;               Else
;                   $colComputers = $objWMIService.ExecQuery _
;                   ("Select * from Win32_ComputerSystem")
;                   For $objComputer in $colComputers
;                       $user = $objComputer.UserName
;                   Next
;               EndIf
;           EndIf
;           GUICtrlCreateListViewItem($IpList & "|" & $sResult & "|" & $user, $List1)
;           $avArray[$j][0] = $IpList
;           $avArray[$j][1] = $sResult
;           $avArray[$j][2] = $user
;       EndIf
    Next

EndFunc ;==>ActionButton1

Func quitter()
    Exit
EndFunc   ;==>quitter

Je n'arrive pas à savoir pourquoi quand je ré-affecte ma variable $IPAddress1 sur $i, elle change ...
Du coup impossible de continuer mon script et donc de faire le ping...

Si quelqu'un à une idée du pourquoi du comment...

Jérôme

Roh, et $IPAddress1, c'est l'id du control ou l'ip ?

Les deux mon général :

Code : Tout sélectionner

$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 96, 400, 130, 21)
$IPAddress1 = _GUICtrlIpAddress_Get($IPAddress1)

J'voulais juste faire marcher ton cerveau voyons,

Code : Tout sélectionner

$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 96, 400, 130, 21)

-> $IPAddress1 contient l'id du controle

Code : Tout sélectionner

$IPAddress1 = _GUICtrlIpAddress_Get($IPAddress1)

-> $IPAddress1 contient une ip

arf ! on a perdu l'id du control !

Solution : changer le nom de $IPAddress1 dans la fonction

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.6.1
 Author:         Jérome

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
; Include :
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <GUIListBox.au3>
#Include <GuiListView.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <inet.au3>
#include <WindowsConstants.au3>

;#def variable
Global $i
; Form 1
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 616, 430, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "quitter")
Opt("GUIOnEventMode", 1) ; Event mode

; ####################################  onglet 1
$Tab1 = GUICtrlCreateTab(0, 0, 633, 25)
$TabSheet1 = GUICtrlCreateTabItem("List IP")
GUICtrlCreateTabItem("")
GUISetFont(8, 400, 0, "Tahoma")
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 96, 400, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, "192.168.120.102")
$IPAddress2 = _GUICtrlIpAddress_Create($Form1, 272, 400, 130, 21)
_GUICtrlIpAddress_Set($IPAddress2, "192.168.120.105")
$Label1 = GUICtrlCreateLabel("De :", 48, 400, 28, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Tahoma")
$Label2 = GUICtrlCreateLabel("a :", 248, 400, 20, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Tahoma")
$Button1 = GUICtrlCreateButton("Start", 432, 398, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent($Button1, "ActionButton1")
$List1 = GUICtrlCreateListView("", 16, 32, 580, 357)
_GUICtrlListView_AddColumn($List1, "IP", 100)
_GUICtrlListView_AddColumn($List1, "Computer Name", 100)
_GUICtrlListView_AddColumn($List1, "User Actually Connected", 200)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    sleep(1000)
WEnd

Func ActionButton1()

    $IPAddress1lol = _GUICtrlIpAddress_Get($IPAddress1)
    $IPAddress2lol = _GUICtrlIpAddress_Get($IPAddress2)

    Global $avArray[255][3], $j
    $j = 0
    _GUICtrlListView_DeleteAllItems($List1)
    TCPStartup()
    If @error Then Return GUICtrlCreateListViewItem('Aucun résultats',$List1)
    For $i = $IPAddress1lol To $IPAddress2lol
        MsgBox("","",$i & @CRLF & $IPAddress1lol & @CRLF & $IPAddress2lol)
    Next

EndFunc ;==>ActionButton1

Func quitter()
    Exit
EndFunc   ;==>quitter

Viii, j'ai compris et j'avais modifier.

Problème, sa fait toujours pas ce que je veux xD.

Je fait le

Code : Tout sélectionner

For $i = $IPAddress1lol To $IPAddress2lol
        MsgBox("","",$i & @CRLF & $IPAddress1lol & @CRLF & $IPAddress2lol)
    Next

Pourquoi j'ai $i=192.168
$IPAddress1lol = 192.168.120.102
$IPAddress2lol = 192.168.120.105

Du coup pas possible de faire mon ping en boucle dans le for...

Jérôme

@Iste
Je pense que c'est voulu.

Je dirait plutôt, croyez vous vraiment que ceci peut fonctionner :

Code : Tout sélectionner

    For $i = 192.168.120.102 To 192.168.120.105
        MsgBox("","",$i)
    Next

Vous devez décomposer votre adresse IP et ne modifier que la dernière partie.

Je sait que sa ne peut pas fonctionner, vu que c'est pas possible d'avoir des ".".

y'a t'il une autre solution au problème ou une fonction qui puisse faire sa avec l'IP ?

Edit : En gros du stringsplit des 4 valeurs entre chaque "." ?

Jérôme

En effet, j'avais remarqué le For sans me poser plus de question.

Je crois que pour ce problème, que je vais quand meme essayer de résoudre, je pense qu'on devra faire une boucle custom, le For étant trop standard.

Un while avec une condition de sorti sera de mise, en gros

Code : Tout sélectionner

$ip = $adress1

While 1
    ;code
    $ip += 1 ; a faire toi meme :)
    If $ip > $adress2 Then ExitLoop
WEnd

la j'ai un rdv alors je reste pas plus

bonne chance !

Ceci suffira largement :

Code : Tout sélectionner

Func ActionButton1()
    $IPAddress1 = StringSplit(_GUICtrlIpAddress_Get($IPAddress1), ".")
    $IPAddress2 = StringSplit(_GUICtrlIpAddress_Get($IPAddress2), ".")

    For $i = $IPAddress1[4] To $IPAddress2[4]
        MsgBox("","",$IPAddress1[1] & "." & $IPAddress1[2] & "." &$IPAddress1[3] & "." & $i)
    Next

EndFunc ;==>ActionButton1

Coucou,

Merci Tlem pour ce bout de code.

Perso j'était partit sur un truc un peu plus violent :

Code : Tout sélectionner

 $IPAddress11 = _GUICtrlIpAddress_Get($IPAddress1)
    $IPAddress22 = _GUICtrlIpAddress_Get($IPAddress2)
    $ArrayIPAddress11 = StringSplit($IPAddress11, ".")
    $ArrayIPAddress22 = StringSplit($IPAddress22, ".")
    $11 = $ArrayIPAddress11[1]
    $12 = $ArrayIPAddress11[2]
    $13 = $ArrayIPAddress11[3]
    $14 = $ArrayIPAddress11[4]
    $21 = $ArrayIPAddress22[1]
    $22 = $ArrayIPAddress22[2]
    $23 = $ArrayIPAddress22[3]
    $24 = $ArrayIPAddress22[4]

Merci

Jérôme

AutoIt Français

[R] Problème Get IP

[R] Problème Get IP

Re: [..] Problème Get IP

Re: [..] Problème Get IP

Re: [..] Problème Get IP

Re: [..] Problème Get IP

Re: [..] Problème Get IP

Re: [..] Problème Get IP

Re: [..] Problème Get IP

Re: [..] Problème Get IP

Re: [..] Problème Get IP