Что нового

Задать бездействие при включении всех checkbox.

DirtyJohny

Новичок
Сообщения
49
Репутация
0
Вопрос возможно странный, но я хотел бы задать условие скрипту. Как сделать так, чтобы при отметке всех чекбоксов, ничего не происходило?

Код:
Func _Button1()
     $rHostName = GUICtrlRead($iHostName)
          
                If GUICtrlRead($Checkbox1) = 1 Then ;отмечен чекбокс
                    RunWait(@ComSpec & ' /c C:\Windows\System32\Ping.exe ' & $rHostName & '')
                 EndIf
                   If GUICtrlRead($Checkbox2) = 1 Then ;отмечен чекбокс
                    RunWait(@ComSpec & ' /c PsPasswd \\' & $rHostName & ' Администратор Mik35')
                 EndIf
              
                   If GUICtrlRead($Checkbox3) = 1 Then ;отмечен чекбокс
                    RunWait(@ComSpec & ' /c copy /y "' & @ScriptDir & '\LOGUS\Logus.bat" \\' & $rHostName & '\C$')
                  EndIf
               
                  If GUICtrlRead($Checkbox4) = 1 Then ;отмечен чекбокс
                    DirCopy(@ScriptDir & "\KDL-MICROB", "\\" & $rHostName & "\C$\PROGRA~1", 1)
                  EndIf
               
                 If GUICtrlRead($Checkbox5) = 1 Then ;отмечен чекбокс
                    RunWait(@ComSpec & ' /c copy /y "' & @ScriptDir & '\CCSP\CCSPPoint.bat" \\' & $rHostName & '\C$\CCSP')
                    RunWait(@ComSpec & " /c psexec exit")
                 EndIf
EndFunc
 
Последнее редактирование:

xXx

╚{■_■}╗
Меценат
Сообщения
236
Репутация
89
Код:
Func _Button1()
    Local $CheckboxState1 = GUICtrlRead($Checkbox1)
    Local $CheckboxState2 = GUICtrlRead($Checkbox2)
    Local $CheckboxState3 = GUICtrlRead($Checkbox3)
    Local $CheckboxState4 = GUICtrlRead($Checkbox4)
    Local $CheckboxState5 = GUICtrlRead($Checkbox5)
    If $CheckboxState1 + $CheckboxState2 + $CheckboxState3 + $CheckboxState4 + $CheckboxState5 = 5 Then Return 0

    Local $rHostName = GUICtrlRead($iHostName)
    
    If $CheckboxState1 = 1 Then ;отмечен чекбокс
        RunWait(@ComSpec & ' /c C:\Windows\System32\Ping.exe ' & $rHostName & '')
    EndIf

    If $CheckboxState2 = 1 Then ;отмечен чекбокс
        RunWait(@ComSpec & ' /c PsPasswd \\' & $rHostName & ' Администратор Mik353les')
    EndIf

    If $CheckboxState3 = 1 Then ;отмечен чекбокс
        RunWait(@ComSpec & ' /c copy /y "' & @ScriptDir & '\LOGUS\Logus.bat" \\' & $rHostName & '\C$')
    EndIf

    If $CheckboxState4 = 1 Then ;отмечен чекбокс
        DirCopy(@ScriptDir & "\KDL-MICROB", "\\" & $rHostName & "\C$\PROGRA~1", 1)
    EndIf

    If $CheckboxState5 = 1 Then ;отмечен чекбокс
        RunWait(@ComSpec & ' /c copy /y "' & @ScriptDir & '\CCSP\CCSPPoint.bat" \\' & $rHostName & '\C$\CCSP')
        RunWait(@ComSpec & " /c psexec exit")
    EndIf
EndFunc   ;==>_Button1
 
Автор
DirtyJohny

DirtyJohny

Новичок
Сообщения
49
Репутация
0
Код:
Func _Button1()
    Local $CheckboxState1 = GUICtrlRead($Checkbox1)
    Local $CheckboxState2 = GUICtrlRead($Checkbox2)
    Local $CheckboxState3 = GUICtrlRead($Checkbox3)
    Local $CheckboxState4 = GUICtrlRead($Checkbox4)
    Local $CheckboxState5 = GUICtrlRead($Checkbox5)
    If $CheckboxState1 + $CheckboxState2 + $CheckboxState3 + $CheckboxState4 + $CheckboxState5 = 5 Then Return 0

    Local $rHostName = GUICtrlRead($iHostName)
   
    If $CheckboxState1 = 1 Then ;отмечен чекбокс
        RunWait(@ComSpec & ' /c C:\Windows\System32\Ping.exe ' & $rHostName & '')
    EndIf

    If $CheckboxState2 = 1 Then ;отмечен чекбокс
        RunWait(@ComSpec & ' /c PsPasswd \\' & $rHostName & ' Администратор Mik353les')
    EndIf

    If $CheckboxState3 = 1 Then ;отмечен чекбокс
        RunWait(@ComSpec & ' /c copy /y "' & @ScriptDir & '\LOGUS\Logus.bat" \\' & $rHostName & '\C$')
    EndIf

    If $CheckboxState4 = 1 Then ;отмечен чекбокс
        DirCopy(@ScriptDir & "\KDL-MICROB", "\\" & $rHostName & "\C$\PROGRA~1", 1)
    EndIf

    If $CheckboxState5 = 1 Then ;отмечен чекбокс
        RunWait(@ComSpec & ' /c copy /y "' & @ScriptDir & '\CCSP\CCSPPoint.bat" \\' & $rHostName & '\C$\CCSP')
        RunWait(@ComSpec & " /c psexec exit")
    EndIf
EndFunc   ;==>_Button1
Абалденно)Спасибо)
 
Верх