The Daily WTF

05.01.2006 Четверг 06:37

Забавный сайт, почитать на работе когда нет аврала. На английском.

http://thedailywtf.com/

URL - сокращение от "Daily What the F*ck?!", что на русский переводится примерно как "Что за хрень?". Человек собирает всякий бред, который порой пишут программисты в своих программах. Жалко я про этот сайт раньше не знал. За время работы в Америке много чего насмотрелся, мог бы, наверное, и добавить контента.

Вот для затравки:

Pragmatically Registering Tuesday, December 27, 2005

Even if you're pretty certain that your way isn't the best way, sometimes it's just easier to go with what you know instead of struggling with something new. I'm pretty sure that's what the author of today's code (found in the Sidebar) was thinking. He knew that to register a OCX library, you click the Start Button, then press R (for Run), then type in — well, you get the idea.

Private Declare Function SetCursorPos Lib "user32"

     (ByVal x As Long, ByVal y As Long) As Long

Private Declare Sub mouse_event Lib "user32"

     (ByVal dwFlags As Long, ByVal dx As Long,

      ByVal dy As Long, ByVal cButtons As Long,

      ByVal dwExtraInfo As Long)

Private Const MOUSEEVENTF_ABSOLUTE = &H8000 ' absolute move

Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down

Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up

Private Const MOUSEEVENTF_MOVE = &H1 ' mouse move

Private Const MOUSEEVENTF_MIDDLEDOWN = &H20

Private Const MOUSEEVENTF_MIDDLEUP = &H40

Private Const MOUSEEVENTF_RIGHTDOWN = &H8

Private Const MOUSEEVENTF_RIGHTUP = &H10



Private Sub Register(OCXName As String)

  SetCursorPos 32, Screen.Height / 15 - 10

  mouse_event MOUSEEVENTF_ABSOLUTE, 32, Screen.Height / 15 - 10, 1, 1

  mouse_event MOUSEEVENTF_LEFTDOWN, 32, Screen.Height / 15 - 10, 1, 1

  mouse_event MOUSEEVENTF_LEFTUP, 32, Screen.Height / 15 - 10, 1, 1

  SendKeys ("R")

  SendKeys ("regsvr32 " & OCXName)

  SendKeys (vbKeyReturn)

End Sub

#1 тов.Дынин

05.01.2006 Четверг 12:26

Виталик, видел бы ты какой бред писали и пишут твои коллеги по бывшей работе!
Исходники Полегляда™ - это полное собрание сочинений!

#2 Alexp

06.01.2006 Пятница 01:09

В тему. Пытался тут занести ежегодные сведения в одну (не суть важно какую:) программу. Вначале программа запрашивает год. Пытаюсь ввести 2005й. Она выкидывает список, в котором содержатся значения 1996,1997,...,2004. Всё! Добавление новых значений не предусмотрено. Ну я посмотрел, так и есть, это была 'устаревшая' версия за 2004 год... :)

#3 Escaper

06.01.2006 Пятница 06:32

тов.Дынин, подколол!.. Вообще-то, к исходникам Полегляда™ и я руку приложил, так что мой бред там тоже есть. :) Помню как я там исправлял собственную ошибку Y2K. :)

#4 Escaper

06.01.2006 Пятница 06:35

Alexp, навеяло. В одной программе был массив с номерами високосных годов вплоть до 2060 года включительно. Приколол комментарий в конце списка: "Господи, сделай так, чтобы этого хватило!".

#5 Alexp

25.01.2006 Среда 12:04

>> Виталик, видел бы ты какой бред писали и пишут твои коллеги по бывшей работе!
>> Исходники Полегляда™ - это полное собрание сочинений!

Вот, например :

m_sFile += "sewer";
if(m_Thats&0xC) {
[...страница кода]
}
if(m_Thats&0x3) {
m_sFile = m_sFile.Left( m_sFile.GetLength() - 5 ) + "water";
[...страница абсолютно такого же кода(!)]
}

#6 Escaper

25.01.2006 Среда 12:10

Гы. А может это... САМ?.. Тов.Дынин, с смысле. Ведь он тоже на заре своей карьеры был программистом.

#7 Alexp

25.01.2006 Среда 13:02

. Не будем показывать пальцем...

Навигация

Итоги года

Другие ссылки

Реклама

Счётчики

The Daily WTF