Что нового

[Сеть, интернет] индикатор компьютеров в сети

tenitii

Новичок
Сообщения
26
Репутация
0
кто знает как можно зделать индикатор компьютеров в сети
если возможно чтоб они вигледили как лампочки когда красный не в сети а когда зеленый в сети
и проверка чтоб проводилась постоянно

хотелось бы прикрепить индикаторы рядом с кнопками *aggiorna*
Код:
#include <GUIConstants.au3>
#include <file.au3>
#Include <Array.au3>
#Include <Misc.au3>
#Include <WinAPIEx.au3>

Opt("GUICoordMode", 1)
GUICreate("GESTIONE IMPORTO", 380,400)

; Create the controls


$button_3 = GUICtrlCreateButton ("MAXI MUGNANO", 50, 50, 270, 40) ;NENNI


$button_6 = GUICtrlCreateButton ("AGGIORNA TUTTI MAGAZINI", 50, 300, 270, 40) ; TUTTI

$button_8 = GUICtrlCreateButton ("SCAGLIONE", 50, 100, 120, 40) ;SCAGLIONE
$button_9 = GUICtrlCreateButton ("AGGIORNA", 200, 100, 120, 40) ;SCAGLIONE AGGIORNA
$button_10 = GUICtrlCreateButton ("NICOLARDI", 50, 150, 120, 40) ;NICOLARDI
$button_11 = GUICtrlCreateButton ("AGGIORNA", 200, 150, 120, 40) ;NICOLARDI AGGIORNA
$button_12 = GUICtrlCreateButton ("QUALIANO", 50, 200, 120, 40) ;QUALIANO
$button_13 = GUICtrlCreateButton ("AGGIORNA", 200, 200, 120, 40) ;QUALIANO AGGIORNA
$button_14 = GUICtrlCreateButton ("POZZUOLI", 50, 250, 120, 40) ;POZZUOLI
$button_15 = GUICtrlCreateButton ("AGGIORNA", 200, 250, 120, 40) ;POZZUOLI AGGIORNA

GUISetState ()
;----------------------------------------------------------------------------------------------------------------
While 1
   $msg = GUIGetMsg()
   Select
	  Case $msg = $GUI_EVENT_CLOSE
         MsgBox(0, "", "PROGRAMMA VERRA TERMINATA")
		 ProcessClose("CheckLAN.exe")
		 Exit
      Case $msg = $GUI_EVENT_MINIMIZE
         MsgBox(0,"", "PROGRAMMA RIDOTTA",2)
      Case $msg = $GUI_EVENT_MAXIMIZE
         MsgBox(0,"", "PROGRAMMA REPRISTINATA",2)
;----------------------------------------------------------------------------------------------------------------


;SCAGLIONE
    Case $msg = $button_8
       ProcessClose("CheckLAN.exe")
		 Run ( "C:\SCAGLIONE\CheckLAN.exe" )
;---------------------------------------------------------------------------------------------------------------



;AVVIA NENNI
      Case $msg = $button_3
         ProcessClose("CheckLAN.exe")
		 Run ( "C:\NENNI\CheckLAN.exe" )
;--------------------------------------------------------------------------------------------------------------
;AGGIORNA TUTTI
     Case $msg = $button_6
;-------------------------------------------------------------------------------------------------SCAGLIONE
Opt('MustDeclareVars', 1)
Opt('TrayAutoPause', 0)
ProcessClose("CheckLAN.exe")
FileDelete("C:\SCAGLIONE\T_MNY999.DAT")
Global $hProgressProc = DllCallbackRegister('_ProgressProc', 'dword', 'uint64;uint64;uint64;uint64;dword;dword;ptr;ptr;ptr')

ProgressOn('SCAGLIONE', 'AGGIORNAMENTO...', '', 0, 0, 2)

_WinAPI_CopyFileEx("\\5.1.30.51\c\Server\Data\T_MNY999.DAT" , "C:\SCAGLIONE\T_MNY999.DAT", 0, DllCallBackGetPtr($hProgressProc))
If @error Then
    MsgBox(0, '', 'SCAGLIONE SCOLLEGATO');_WinAPI_ShowLastError()
EndIf
;-------------------------------------------------------------------------------------------------NICOLARDI
Opt('MustDeclareVars', 1)
Opt('TrayAutoPause', 0)
FileDelete("C:\NICOLARDI\T_MNY999.DAT")
Global $hProgressProc = DllCallbackRegister('_ProgressProc', 'dword', 'uint64;uint64;uint64;uint64;dword;dword;ptr;ptr;ptr')

ProgressOn('NICOLARDI', 'AGGIORNAMENTO...', '', 0, 0, 2)

_WinAPI_CopyFileEx("\\5.1.30.20\c\Server\Data\T_MNY999.DAT" , "C:\NICOLARDI\T_MNY999.DAT", 0, DllCallBackGetPtr($hProgressProc))
If @error Then
    MsgBox(0, '', 'NICOLARDI SCOLLEGATO');_WinAPI_ShowLastError()
EndIf
;-------------------------------------------------------------------------------------------------- QUALIANO
Opt('MustDeclareVars', 1)
Opt('TrayAutoPause', 0)
FileDelete("C:\QUALIANO\T_MNY999.DAT")
Global $hProgressProc = DllCallbackRegister('_ProgressProc', 'dword', 'uint64;uint64;uint64;uint64;dword;dword;ptr;ptr;ptr')

ProgressOn('QUALIANO', 'AGGIORNAMENTO...', '', 0, 0, 2)

_WinAPI_CopyFileEx("\\5.1.30.74\c\Server\Data\T_MNY999.DAT" , "C:\QUALIANO\T_MNY999.DAT", 0, DllCallBackGetPtr($hProgressProc))
If @error Then
    MsgBox(0, '', 'QUALIANO SCOLLEGATO');_WinAPI_ShowLastError()
EndIf
;-------------------------------------------------------------------------------------------------POZZUOLI
Opt('MustDeclareVars', 1)
Opt('TrayAutoPause', 0)
FileDelete("C:\POZZUOLI\T_MNY999.DAT")
Global $hProgressProc = DllCallbackRegister('_ProgressProc', 'dword', 'uint64;uint64;uint64;uint64;dword;dword;ptr;ptr;ptr')

ProgressOn('POZZUOLI', 'AGGIORNAMENTO...', '', 0, 0, 2)

_WinAPI_CopyFileEx("\\5.2.68.167\c\Server\Data\T_MNY999.DAT" , "C:\POZZUOLI\T_MNY999.DAT", 0, DllCallBackGetPtr($hProgressProc))
If @error Then
    MsgBox(0, '', 'POZZUOLI SCOLLEGATO');_WinAPI_ShowLastError()
EndIf
;-----------------------------------------------------------------------------------------------FINE
DllCallbackFree($hProgressProc)

ProgressOff()
SoundPlay("C:\Windows\media\tada.wav")
;--------------------------------------------------------------------------------------------------------------
;SCAGLIONE AGGIORNA
Case $msg = $button_9
Opt('MustDeclareVars', 1)
Opt('TrayAutoPause', 0)
ProcessClose("CheckLAN.exe")
FileDelete("C:\SCAGLIONE\T_MNY999.DAT")
Global $hProgressProc = DllCallbackRegister('_ProgressProc', 'dword', 'uint64;uint64;uint64;uint64;dword;dword;ptr;ptr;ptr')

ProgressOn('SCAGLIONE', 'AGGIORNAMENTO...', '', 0, 0, 2)

_WinAPI_CopyFileEx("\\5.1.30.51\c\Server\Data\T_MNY999.DAT" , "C:\SCAGLIONE\T_MNY999.DAT", 0, DllCallBackGetPtr($hProgressProc))
If @error Then
    MsgBox(0, '', 'SCAGLIONE SCOLLEGATO');_WinAPI_ShowLastError()
EndIf
DllCallbackFree($hProgressProc)

ProgressOff()
SoundPlay("C:\Windows\media\tada.wav")
;--------------------------------------------------------------------------------------------------------------
;AVVIA NICOLARDI
    Case $msg = $button_10
        ProcessClose("CheckLAN.exe")
		 Run ( "C:\NICOLARDI\CheckLAN.exe" )
;--------------------------------------------------------------------------------------------------------------
;NICOLARDI AGGIORNA
Case $msg = $button_11
Opt('MustDeclareVars', 1)
Opt('TrayAutoPause', 0)
ProcessClose("CheckLAN.exe")
FileDelete("C:\NICOLARDI\T_MNY999.DAT")
Global $hProgressProc = DllCallbackRegister('_ProgressProc', 'dword', 'uint64;uint64;uint64;uint64;dword;dword;ptr;ptr;ptr')

ProgressOn('NICOLARDI', 'AGGIORNAMENTO...', '', 0, 0, 2)

_WinAPI_CopyFileEx("\\5.1.30.20\c\Server\Data\T_MNY999.DAT" , "C:\NICOLARDI\T_MNY999.DAT", 0, DllCallBackGetPtr($hProgressProc))
If @error Then
    MsgBox(0, '', 'NICOLARDI SCOLLEGATO');_WinAPI_ShowLastError()
EndIf
DllCallbackFree($hProgressProc)

ProgressOff()
SoundPlay("C:\Windows\media\tada.wav")
;------------------------------------------------------------------------------------------------------------
;AVVIA QUALIANO
Case $msg = $button_12
      ProcessClose("CheckLAN.exe")
		 Run ( "C:\QUALIANO\CheckLAN.exe" )
;--------------------------------------------------------------------------------------------------------------
;QUALIANO AGGIORNA
Case $msg = $button_13
   Opt('MustDeclareVars', 1)
Opt('TrayAutoPause', 0)
ProcessClose("CheckLAN.exe")
FileDelete("C:\QUALIANO\T_MNY999.DAT")
Global $hProgressProc = DllCallbackRegister('_ProgressProc', 'dword', 'uint64;uint64;uint64;uint64;dword;dword;ptr;ptr;ptr')

ProgressOn('QUALIANO', 'AGGIORNAMENTO...', '', 0, 0, 2)

_WinAPI_CopyFileEx("\\5.1.30.74\c\Server\Data\T_MNY999.DAT" , "C:\QUALIANO\T_MNY999.DAT", 0, DllCallBackGetPtr($hProgressProc))
If @error Then
    MsgBox(0, '', 'QUALIANO SCOLLEGATO');_WinAPI_ShowLastError()
EndIf
DllCallbackFree($hProgressProc)

ProgressOff()
SoundPlay("C:\Windows\media\tada.wav")
;--------------------------------------------------------------------------------------------------------------
;AVVIA POZZUOLI
Case $msg = $button_14
      ProcessClose("CheckLAN.exe")
		 Run ( "C:\POZZUOLI\CheckLAN.exe" )
;---------------------------------------------------------------------------------------------------------------
;POZZUOLI AGGIORNA
Case $msg = $button_15
Opt('MustDeclareVars', 1)
Opt('TrayAutoPause', 0)
ProcessClose("CheckLAN.exe")
FileDelete("C:\POZZUOLI\T_MNY999.DAT")
Global $hProgressProc = DllCallbackRegister('_ProgressProc', 'dword', 'uint64;uint64;uint64;uint64;dword;dword;ptr;ptr;ptr')

ProgressOn('POZZUOLI', 'AGGIORNAMENTO...', '', 0, 0, 2)

_WinAPI_CopyFileEx("\\5.2.68.167\c\Server\Data\T_MNY999.DAT" , "C:\POZZUOLI\T_MNY999.DAT", 0, DllCallBackGetPtr($hProgressProc))
If @error Then
    MsgBox(0, '', 'POZZUOLI SCOLLEGATO');_WinAPI_ShowLastError()
EndIf

;------------------------------------------------------------------------------------------------------------
DllCallbackFree($hProgressProc)

ProgressOff()
SoundPlay("C:\Windows\media\tada.wav")
Func _ProgressProc($iTotalFileSize, $iTotalBytesTransferred, $iStreamSize, $iStreamBytesTransferred, $iStreamNumber, $iCallbackReason, $hSourceFile, $hDestinationFile, $iData)

    Local $Percent = Round($iTotalBytesTransferred / $iTotalFileSize * 100)

    If $Percent = 100 Then
        ProgressSet($Percent, '', 'Complete')
    Else
        ProgressSet($Percent)
    EndIf
    If _IsPressed('1B') Then
        Return $PROGRESS_CANCEL
    Else
        Return $PROGRESS_CONTINUE
    EndIf
EndFunc




;----------------------------------------------------------------------------------------------------------------
;FINE SCRIPT
   EndSelect
WEnd
;----------------------------------------------------------------------------------
 
Верх