1. VisualBasic / Говнокод #18112

    −1353

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    ' There is no convenient way to check whether WScript is defined.
    ' This code captures the possible undefined error to perform the check.
    ' 
    On Error Resume Next
    manual = Not WScript Is Nothing
    If Err.Number = 0 Then
        manual = True
    Else
        manual = False
    End If
    On Error Goto 0
    
    '''''''''''''''''''''' Manual Execution '''''''''''''''''''''' 
    If True = manual Then
    
        Dim ObjCommandLine
        Dim result
    
      . . .

    То ли я ещё не проснулся, то ли у кое-кого очень коротенькие ручки с кривыми пальцами.
    Код на 100% рабочий.

    Запостил: Stertor, 04 Мая 2015

    Комментарии (1) RSS

    Добавить комментарий