AutoIt Français

Code : Tout sélectionner

#cs -------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 AutoIt Version     :   v3.3.12.0
 Auteur             :   TB
 Fonction du script :   Installation et mise à jour de logiciel.
 Révision          :   Création JUILLET 2014

#ce -------------------------------------------------------------------------------------------------------------------------------------------------------------------------
#Region     ###########################################   Déclarations des Includes, variables courantes   ###########################################
#include <Array.au3>
#include <File.au3>
#include <Inet.au3>
#include <GuiConstantsEx.au3>
#include <ListviewConstants.au3>
#include <WindowsConstants.au3>

Dim $i, $ip, $gui, $list
Local $PcName
Global $add_ip_scribe, $add_ip_net, $add_ip_net_deb, $add_ip_net_fin
Global $list_pc_csv = @ScriptDir & "\liste_station.csv"
#Endregion  #########################################   Déclarations des Includes, variables courantes    #############################################
;_ScanRes()
_Gui_form1()


Func _ScanRes() ; récupération des noms de stations présents sur le réseau
    TCPStartup()
        $add_ip_scribe = TCPNameToIP ("SERVEUR")
        $add_ip_net = StringSplit($add_ip_scribe, ".")
        $add_ip_net_deb = "2"
        $add_ip_net_fin = "200"
        FileOpen ($list_pc_csv, 2)
        For $i = $add_ip_net_deb to $add_ip_net_fin
            $ip = $add_ip_net[1] & "." & $add_ip_net[2] & "." & $add_ip_net[3] & "." & $i
            If Ping ($ip, 250) Then
                If NOT @ERROR Then
                    $PcName=_TCPIpToName ($ip)
                    If $PCName <> "" Then
                        If $PCName <> @ComputerName Then
                            FileWriteLine ($list_pc_csv, $PcName)
                        EndIf
                    EndIf
                EndIf
            EndIf
        Next
        FileClose ($list_pc_csv)
    TCPShutdown()
    _Gui_form1()
EndFunc ;===> _ScanRes

Func _Gui_form1()
    $gui = GUICreate("Sélection Stations", 430, 380)
    $listview = GUICtrlCreateListView("Nom Stations| ", 10, 10, 180, 360, $LVS_NOCOLUMNHEADER, $LVS_EX_CHECKBOXES + $WS_EX_OVERLAPPEDWINDOW)
    GUICtrlSendMsg($listview, $LVM_SETCOLUMNWIDTH, 0, 40)
    $listview1 = GUICtrlCreateListView("Nom Stations| ", 240, 10, 180, 360, $LVS_NOCOLUMNHEADER)
    GUICtrlSendMsg($listview1, $LVM_SETCOLUMNWIDTH, 0, 100)
    $btn = GUICtrlCreateButton(">>", 200, 60, 30, 30) ; déplace les stations sélectionnées dans la liste des postes à traiter

     _FileReadToArray($list_pc_csv, $list)

    Dim $items1[$list[0]]
    For $i = 1 To $list[0]
       $items1[$i-1] = GUICtrlCreateListViewItem("| " & $list[$i], $listview)
    Next
    GUISetState()

    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $btn ; déplace les stations sélectionnées dans la liste des postes à traiter
        EndSwitch
    WEnd
EndFunc ;===> _Gui_form1

 

Code : Tout sélectionner

Func _Gui_form1()
    $gui = GUICreate("Sélection Stations", 430, 380)
    $listview = GUICtrlCreateListView("Nom Stations", 10, 10, 180, 360, $LVS_NOCOLUMNHEADER, $LVS_EX_CHECKBOXES + $WS_EX_OVERLAPPEDWINDOW)
    GUICtrlSendMsg($listview, $LVM_SETCOLUMNWIDTH, 0, 40)
    $listview1 = GUICtrlCreateListView("Nom Stations", 240, 10, 180, 360, $LVS_NOCOLUMNHEADER)
    GUICtrlSendMsg($listview1, $LVM_SETCOLUMNWIDTH, 0, 100)
    $btn = GUICtrlCreateButton(">>", 200, 60, 30, 30) ; déplace les stations sélectionnées dans la liste des postes à traiter

     _FileReadToArray($list_pc_csv, $list)

    Dim $items1[$list[0]]
    For $i = 1 To $list[0]
       $items1[$i-1] = GUICtrlCreateListViewItem($list[$i], $listview)
    Next
    GUISetState()

    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $btn ; déplace les stations sélectionnées dans la liste des postes à traiter
                _GUICtrlListView_DeleteAllItems($listview1)

                For $i = 0 to UBound($items1)-1
                    if BitAND(GUICtrlRead($items1[$i], 1), $GUI_CHECKED) Then
                        $item = GUICtrlRead($items1[$i])
                        GUICtrlCreateListViewItem(GUICtrlRead($items1[$i]), $listview1)
                    EndIf
                Next
        EndSwitch
    WEnd
EndFunc ;===> _Gui_form1