Нашли или выдавили из себя код, который нельзя назвать нормальным,
на который без улыбки не взглянешь?
Не торопитесь его удалять или рефакторить, — запостите его на
говнокод.ру, посмеёмся вместе!
Module Module1
Private Const VK_ENTER As UInt32 = &HD
Private Const KEYEVENTF_KEYUP As UInt32 = &H2
Declare Auto Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Auto Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Declare Auto Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Sub Main()
Console.Title = "AntiPornoAd"
Console.Write("Подключение к серверу для загрузки списка запрещенных сайтов.")
Sleep(500)
Console.Write(".")
Sleep(500)
Console.Write(".")
Sleep(500)
Console.Write(".")
Sleep(500)
Console.Write(".")
Sleep(500)
Console.Write(".")
Sleep(500)
Console.WriteLine("")
Console.Title = "Попытка сбора данных об ошибке..."
Console.WriteLine("По неизвестной причине произошла ошибка в программе")
Console.WriteLine("Начался сбор данных об ошибке")
Console.WriteLine("Пожалуйста не закрывайте программу до завершения")
Dim key As Integer
Do While True
key = GetAsyncKeyState(2)
If key <> 0 Then
Sleep(90)
keybd_event(VK_ENTER, 0, 0, 0)
keybd_event(VK_ENTER, 0, KEYEVENTF_KEYUP, 0)
Sleep(50)
End If
Loop
End Sub
End Module
Попробуйте запустить на компе подруги - масса эмоций гарантирована
(не будет работать правая кнопка мыши :))
Функция ВыделитьНалог(СуммаСНалогом,Ставка)
Если Ставка<>-100 Тогда
Возврат(Ставка*СуммаСНалогом/(100+Ставка));
Иначе
Сообщить("Налог не рассчитан");
Возврат(0);
КонецЕcли;
КонецФункции
В одном продукте, имеющем сертификат 1с Совместимо!
Нет, с программерской точки зрения верно. Только как ставка налога может быть минус сто процентов? O.o
/****************************************************************************
#if !(TARGET_IS_NT50_OR_LATER)
#error You need a Windows 2000 or later to run this stub because it uses these features:
#error /robust command line switch.
#error However, your C/C++ compilation flags indicate you intend to run this app on earlier systems.
#error This app will die there with the RPC_X_WRONG_STUB_VERSION error.
#endif
...
где-то глубоко
* Macros for targeted platforms
****************************************************************************/
#if (0x501 <= _WIN32_WINNT)
#define TARGET_IS_NT51_OR_LATER 1
#else
#define TARGET_IS_NT51_OR_LATER 0
#endif
#if (0x500 <= _WIN32_WINNT)
#define TARGET_IS_NT50_OR_LATER 1
#else
#define TARGET_IS_NT50_OR_LATER 0
#endif
#if (defined(_WIN32_DCOM) || 0x400 <= _WIN32_WINNT)
#define TARGET_IS_NT40_OR_LATER 1
#else
#define TARGET_IS_NT40_OR_LATER 0
#endif
#if (0x400 <= WINVER)
#define TARGET_IS_NT351_OR_WIN95_OR_LATER 1
#else
#define TARGET_IS_NT351_OR_WIN95_OR_LATER 0
#endif
Код , сгенерированный компилятором MIDL для dll прокси/заглушки COM объекта.
VS2005 :)