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

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