Лингрин :: Резиденция Линды Кайе — Дайри (бывший Diary.ru)

вторник, 05 апреля 2011

20:24

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3902-16-38
#original-date: 2.04.2011 Sat
#original-time: 4:38 PM
#original-day: 3902
#original-host: WinXP Home SP3 (Build 2600)

Охренеть =_= Назвала блог Takabon, а оно на деле - Tankoubon (или Tankobon)... Придётся переименовывать и заодно пилить конфиги Агехи =_=

#music: Yuzo Koshiro\Wangan Midnight Maximum Tune 2 Original Soundtrack (Disc Two)\Result (Maxi2 Version)

URL

понедельник, 04 апреля 2011

04:16

#215

Тотальная неудачница и убийца жёстких дисков.

Рейтинг Комиксов - проголосовать

URL записи

@темы: Макс, Алиса, Не моё, Неманга, Вэб-комикс

URL

суббота, 02 апреля 2011

19:45

...

Тотальная неудачница и убийца жёстких дисков.

У народа массово отвалился msn-pecan (альтернативная реализация WLM для Пидгина). Лента сильно оживилась ^^

URL записи

@темы: Мобильный дневник

URL

02:44

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3902-10-08
#original-date: 2.04.2011 Sat
#original-time: 10:08 AM
#original-day: 3902
#original-host: WinXP Home SP3 (Build 2600)

Вот это я понимаю, позитивное мышление! Сначала народ обсуждает сколько хорошего вокруг: солнце, море, ветерок, даже какой-то нарисованный парень. А потом как бы между прочим замечают: "Можно отдохнуть, мы же застряли на необитаемом острове" ^^

#video: Galaxy_Angel_20.DVD(AAC)[KAA][BAA24404]

URL

02:44

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3902-09-20
#original-date: 2.04.2011 Sat
#original-time: 9:20 AM
#original-day: 3902
#original-host: WinXP Home SP3 (Build 2600)

Вот так читаешь человека - долбоёп неимоверный. А потом глянешь снова на фотку и как-то уже не верится =_= Внешность обманчива.

Но я не о том. Минувший праздник 1 апреля стал одним большим флэшмобом "Выстави себя максимальным идиотом". Многие преуспели. Другим кривость рук не позволила даже этого сделать. А когда-то был хороший день =_=

#music: STANCE PUNKS\No Boy No Cry\Hana wo Soeru you ni

URL

02:44

Делаем совсем невидимую папку на рабочем столе

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3902-08-28
#original-date: 2.04.2011 Sat
#original-time: 8:28 AM
#original-day: 3902
#original-host: WinXP Home SP3 (Build 2600)

Юным конспираторам посвящается. Делаем так:

1. Открываем в FAR рабочий стол и создаём папку с именем в виде любого количества пробелов. Вместо FAR можно заюзать что угодно, что может создать такую папку. Проводник этого не может.

2. Качаем пустую иконку отсюда:

http://dl.dropbox.com/u/9509037/Transparent.ICO

3. В свойствах папки назначаем иконку.

4. В том же FAR ставим у папки атрибут "Только для чтения" - проводник почему-то не хочет. Если иконка не изменится, можно заодно поставить атрибуты "Скрытый" и "Системный".

5. Всё, папки не видно.

Использование папки может быть сопряжено с некоторыми проблемами. Например, программы могут срезать лишние пробемы и не смогут попасть в эту папку. Удалить её может не получиться - это решается переименованием папки в FAR во что-нибудь и удалением переименованной папки.

URL

02:44

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3902-05-17
#original-date: 2.04.2011 Sat
#original-time: 5:17 AM
#original-day: 3902
#original-host: WinXP Home SP3 (Build 2600)

Да вашу ж мать!!! >_<

Два дня гоняла WR266 - не вылетал. Зарелизила, скопировала, запустила в штатном режиме - поработал и велетел >_<

#upd: Теперь вылетает каждые пять минут >_<

URL

02:44

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3902-03-49
#original-date: 2.04.2011 Sat
#original-time: 3:49 AM
#original-day: 3902
#original-host: WinXP Home SP3 (Build 2600)

Кстати, у меня половина постов начинается со слова "кстати".

И тем не менее. Я всё думала, чего такая паника в заподной части страны по поводу ДВ, который накрыло радиоактивное облако, превратив всё в безжизненную пыстыню? Чего все так страдают, лепят флэшки и рыдают без остановки. Нас чтоли жалко?

Сегодняшние НТВшники наконец прояснили ситуацию. В самом начале показали короткий ролик про цунами, и понёсся срач про Ленинградскую АЭС. Думаю, дальнейшие пояснения о том, как всё на самом деле, не нужны.

Бойтесь, сволочи.

/* И конечно же я не имею в виду тех, кого трясёт адресно. */

URL

02:44

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3902-03-03
#original-date: 2.04.2011 Sat
#original-time: 3:03 AM
#original-day: 3902
#original-host: WinXP Home SP3 (Build 2600)

Раз уж тут пошли исходники, вот ещё полезная штука для получения информации о мониторах. Она используется, кстати, в WR266 и будет включена в CommonFunctions.DLL ^^

modMultiMonitor.BAS

Attribute VB_Name = "modMultiMonitor"
Option Explicit

Type MONITORINFO
  cbSize As Long
  rcMonitor As RECT
  rcWork As RECT
  dwFlags As Long
End Type

Global Const CCHDEVICENAME = 32&

Type MONITORINFOEXA
  cbSize As Long
  rcMonitor As RECT
  rcWork As RECT
  dwFlags As Long
  szDevice(0 To CCHDEVICENAME - 1) As Byte
End Type

Type MONITORINFOEXW
  cbSize As Long
  rcMonitor As RECT
  rcWork As RECT
  dwFlags As Long
  szDevice(0 To CCHDEVICENAME - 1) As Integer
End Type

Global Const MONITOR_DEFAULTTONULL = &H0&
Global Const MONITOR_DEFAULTTOPRIMARY = &H1&
Global Const MONITOR_DEFAULTTONEAREST = &H2&

Global Const MONITORINFOF_PRIMARY = &H1&

Declare Function EnumDisplayMonitors Lib "User32" ( _
              ByVal hDC As API_HANDLE, _
              ByRef lprcClip As RECT, _
              ByVal lpfnEnum As POINTER, _
              ByVal dwData As Long) As C_BOOL
Declare Function EnumDisplayMonitorsByNum Lib "User32" Alias "EnumDisplayMonitors" ( _
              ByVal hDC As API_HANDLE, _
              ByVal lprcClip As Long, _
              ByVal lpfnEnum As POINTER, _
              ByVal dwData As Long) As C_BOOL

Declare Function GetMonitorInfoA Lib "User32" ( _
              ByVal hMonitor As API_HANDLE, _
              ByRef lpMI As Any) As C_BOOL

Declare Function MonitorFromWindow Lib "User32" ( _
              ByVal hWnd As API_HANDLE, _
              ByVal dwFlags As Long) As API_HANDLE
Declare Function MonitorFromPoint Lib "User32" ( _
              ByVal X As Long, _
              ByVal Y As Long, _
              ByVal dwFlags As Long) As API_HANDLE
Declare Function MonitorFromRect Lib "User32" ( _
              ByRef RECT As RECT, _
              ByVal dwFlags As Long) As API_HANDLE

Public Cookie As Collection

'====================================================================
Public Function MonitorEnumProc(ByVal hMonitor As API_HANDLE, _
                                ByVal hDCMonitor As API_HANDLE, _
                                ByVal lprcMonitor As Long, _
                                ByVal dwData As Long) As C_BOOL
  Dim MI As MONITORINFOEXA
  Dim RC As C_BOOL
  Dim Monitor As Monitor
  
  MI.cbSize = Len(MI)
  RC = GetMonitorInfoA(hMonitor, MI.cbSize)
  
  If RC <> C_FALSE Then
    Set Monitor = New Monitor
    Monitor.MI = MI
    Cookie.Add Monitor
    Set Monitor = Nothing
  End If
  
  MonitorEnumProc = C_TRUE
End Function

'====================================================================
Public Function GetDefaultMonitor() As Monitor
  Static IsOldOS As Long
  
  If IsOldOS = 0 Then
    If asIsHostWin95 Or asIsHostWinNT40 Or asIsHostWinNT351 Then
      IsOldOS = -1
    Else
      IsOldOS = 1
    End If
  End If
  
  If IsOldOS = 1 Then Exit Function
  
  Dim MI As MONITORINFOEXA
  Dim Buff() As Byte
  
  MI.cbSize = Len(MI)
  MI.dwFlags = MONITORINFOF_PRIMARY
  
  Buff = StrConv("DISPLAY" & NUL, vbFromUnicode)
  CopyMemory MI.szDevice(0), Buff(0), 8
  
  GetWindowRect GetDesktopWindow(), MI.rcMonitor
  SystemParametersInfo SPI_GETWORKAREA, 0, MI.rcWork.Left, 0
  
  Set GetDefaultMonitor = New Monitor
  GetDefaultMonitor.MI = MI
End Function

ajpMultiMonitor.CLS

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ajpMultiMonitor"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Description = "Класс информации о мониторах."
Option Explicit

Public Enum MonitorFromFlags
  mffDefaultToNearest = MONITOR_DEFAULTTONEAREST
  mffDefaultToNull = MONITOR_DEFAULTTONULL
  mffDefaultToPrimary = MONITOR_DEFAULTTOPRIMARY
End Enum

'====================================================================
Public Function GetAllMonitors() As Collection
Attribute GetAllMonitors.VB_Description = "Перечисляет все мониторы в системе и возвращает коллекцию объектов."
  Dim RC As C_BOOL
  Dim Stub As Monitor
  
  ' Чтобы не заморачиваться делаем так. Эта функция возвращает
  ' заглушку только в NT4 и Win95. Если не вернуло - идём дальше.
  Set Stub = GetDefaultMonitor()
  If Not Stub Is Nothing Then
    Set GetAllMonitors = New Collection
    GetAllMonitors.Add Stub
    Exit Function
  End If
  
  Set modMultiMonitor.Cookie = New Collection
  RC = EnumDisplayMonitorsByNum(0, 0, AddressOf MonitorEnumProc, 0)
  
  Set GetAllMonitors = modMultiMonitor.Cookie
  Set modMultiMonitor.Cookie = Nothing
End Function

'====================================================================
Public Function MonitorFromWindow(ByVal hWnd As Long, _
                                  ByVal Flags As MonitorFromFlags) As Monitor
Attribute MonitorFromWindow.VB_Description = "Возвращает объект монитора по окну."
  Dim hMonitor As API_HANDLE
  Dim MI As MONITORINFOEXA
  Dim RC As C_BOOL
  
  ' Чтобы не заморачиваться делаем так. Эта функция возвращает
  ' заглушку только в NT4 и Win95. Если не вернуло - идём дальше.
  Set MonitorFromWindow = GetDefaultMonitor()
  If Not MonitorFromWindow Is Nothing Then Exit Function
  
  hMonitor = modMultiMonitor.MonitorFromWindow(hWnd, Flags)
  If hMonitor = 0 Then Exit Function
  
  MI.cbSize = Len(MI)
  RC = GetMonitorInfoA(hMonitor, MI.cbSize)
  If RC = C_FALSE Then Exit Function
  
  Set MonitorFromWindow = New Monitor
  MonitorFromWindow.MI = MI
End Function

Public Function MonitorFromPoint(ByVal X As Long, _
                                 ByVal Y As Long, _
                                 ByVal Flags As MonitorFromFlags) As Monitor
Attribute MonitorFromPoint.VB_Description = "Возвращает объект монитора по точке."
  Dim hMonitor As API_HANDLE
  Dim MI As MONITORINFOEXA
  Dim RC As C_BOOL
  
  ' Чтобы не заморачиваться делаем так. Эта функция возвращает
  ' заглушку только в NT4 и Win95. Если не вернуло - идём дальше.
  Set MonitorFromPoint = GetDefaultMonitor()
  If Not MonitorFromPoint Is Nothing Then Exit Function
  
  hMonitor = modMultiMonitor.MonitorFromPoint(X, Y, Flags)
  If hMonitor = 0 Then Exit Function
  
  MI.cbSize = Len(MI)
  RC = GetMonitorInfoA(hMonitor, MI.cbSize)
  If RC = C_FALSE Then Exit Function
  
  Set MonitorFromPoint = New Monitor
  MonitorFromPoint.MI = MI
End Function

Public Function MonitorFromRect(ByVal Left As Long, _
                                ByVal Top As Long, _
                                ByVal Right As Long, _
                                ByVal Bottom As Long, _
                                ByVal Flags As MonitorFromFlags) As Monitor
Attribute MonitorFromRect.VB_Description = "Возвращает объект монитора по ограничивающему прямоугольнику."
  Dim hMonitor As API_HANDLE
  Dim MI As MONITORINFOEXA
  Dim RCT As RECT
  Dim RC As C_BOOL
  
  ' Чтобы не заморачиваться делаем так. Эта функция возвращает
  ' заглушку только в NT4 и Win95. Если не вернуло - идём дальше.
  Set MonitorFromRect = GetDefaultMonitor()
  If Not MonitorFromRect Is Nothing Then Exit Function
  
  RCT.Left = Left
  RCT.Top = Top
  RCT.Right = Right
  RCT.Bottom = Bottom
  
  hMonitor = modMultiMonitor.MonitorFromRect(RCT, Flags)
  If hMonitor = 0 Then Exit Function
  
  MI.cbSize = Len(MI)
  RC = GetMonitorInfoA(hMonitor, MI.cbSize)
  If RC = C_FALSE Then Exit Function
  
  Set MonitorFromRect = New Monitor
  MonitorFromRect.MI = MI
End Function

Public Function MonitorFromNewRect(ByVal Left As Long, _
                                   ByVal Top As Long, _
                                   ByVal Width As Long, _
                                   ByVal Height As Long, _
                                   ByVal Flags As MonitorFromFlags) As Monitor
Attribute MonitorFromNewRect.VB_Description = "Возвращает объект монитора по ограничивающему прямоугольнику."
  Dim hMonitor As API_HANDLE
  Dim MI As MONITORINFOEXA
  Dim RCT As RECT
  Dim RC As C_BOOL
  
  ' Чтобы не заморачиваться делаем так. Эта функция возвращает
  ' заглушку только в NT4 и Win95. Если не вернуло - идём дальше.
  Set MonitorFromNewRect = GetDefaultMonitor()
  If Not MonitorFromNewRect Is Nothing Then Exit Function
  
  RCT.Left = Left
  RCT.Top = Top
  RCT.Right = Left + Width
  RCT.Bottom = Top + Height
  
  hMonitor = modMultiMonitor.MonitorFromRect(RCT, Flags)
  If hMonitor = 0 Then Exit Function
  
  MI.cbSize = Len(MI)
  RC = GetMonitorInfoA(hMonitor, MI.cbSize)
  If RC = C_FALSE Then Exit Function
  
  Set MonitorFromNewRect = New Monitor
  MonitorFromNewRect.MI = MI
End Function

MonitorInfo.CLS

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Monitor"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Description = "Класс информации о конкретном мониторе."
Option Explicit

Private mvarMI As MONITORINFOEXA

'====================================================================
Friend Property Get MI() As MONITORINFOEXA
  MI = mvarMI
End Property

Friend Property Let MI(ByRef vData As MONITORINFOEXA)
  mvarMI = vData
  asNormalizeRect mvarMI.rcMonitor
  asNormalizeRect mvarMI.rcWork
End Property

'====================================================================
Public Property Get Primary() As Boolean
Attribute Primary.VB_Description = "Возвращает True, если монитор - основной."
  Primary = CBool((mvarMI.dwFlags And MONITORINFOF_PRIMARY) <> 0)
End Property

Public Property Get Flags() As Long
Attribute Flags.VB_Description = "Возвращает флаги."
  Flags = mvarMI.dwFlags
End Property

'====================================================================
Public Property Get DeviceName() As String
Attribute DeviceName.VB_Description = "Возвращает имя устройства, которое можно использовать в CreateDC() для создания контекста устройства конкретного монитора."
  mvarMI.szDevice(CCHDEVICENAME - 1) = 0
  DeviceName = asGetStringFromPointerByAnyA(mvarMI.szDevice(0))
End Property

'====================================================================
Public Property Get MonitorLeft() As Long
Attribute MonitorLeft.VB_Description = "Возвращает размеры экрана монитора в пикселях."
  MonitorLeft = mvarMI.rcMonitor.Left
End Property

Public Property Get MonitorTop() As Long
Attribute MonitorTop.VB_Description = "Возвращает размеры экрана монитора в пикселях."
  MonitorTop = mvarMI.rcMonitor.Top
End Property

Public Property Get MonitorWidth() As Long
Attribute MonitorWidth.VB_Description = "Возвращает размеры экрана монитора в пикселях."
  MonitorWidth = mvarMI.rcMonitor.Right - mvarMI.rcMonitor.Left
End Property

Public Property Get MonitorHeight() As Long
Attribute MonitorHeight.VB_Description = "Возвращает размеры экрана монитора в пикселях."
  MonitorHeight = mvarMI.rcMonitor.Bottom - mvarMI.rcMonitor.Top
End Property

Public Property Get MonitorRight() As Long
Attribute MonitorRight.VB_Description = "Возвращает размеры экрана монитора в пикселях."
  MonitorRight = mvarMI.rcMonitor.Right
End Property

Public Property Get MonitorBottom() As Long
Attribute MonitorBottom.VB_Description = "Возвращает размеры экрана монитора в пикселях."
  MonitorBottom = mvarMI.rcMonitor.Bottom
End Property

'====================================================================
Public Property Get WorkAreaLeft() As Long
Attribute WorkAreaLeft.VB_Description = "Возвращает размеры рабочей области в пикселях."
  WorkAreaLeft = mvarMI.rcWork.Left
End Property

Public Property Get WorkAreaTop() As Long
Attribute WorkAreaTop.VB_Description = "Возвращает размеры рабочей области в пикселях."
  WorkAreaTop = mvarMI.rcWork.Top
End Property

Public Property Get WorkAreaWidth() As Long
Attribute WorkAreaWidth.VB_Description = "Возвращает размеры рабочей области в пикселях."
  WorkAreaWidth = mvarMI.rcWork.Right - mvarMI.rcWork.Left
End Property

Public Property Get WorkAreaHeight() As Long
Attribute WorkAreaHeight.VB_Description = "Возвращает размеры рабочей области в пикселях."
  WorkAreaHeight = mvarMI.rcWork.Bottom - mvarMI.rcWork.Top
End Property

Public Property Get WorkAreaRight() As Long
Attribute WorkAreaRight.VB_Description = "Возвращает размеры рабочей области в пикселях."
  WorkAreaRight = mvarMI.rcWork.Right
End Property

Public Property Get WorkAreaBottom() As Long
Attribute WorkAreaBottom.VB_Description = "Возвращает размеры рабочей области в пикселях."
  WorkAreaBottom = mvarMI.rcWork.Bottom
End Property

Используется как-то так:

  Dim MM As New ajpMultiMonitor
  Dim Monitors As Collection
  
  Set Monitors = MM.GetAllMonitors()
  MsgBox Monitors.Count
  MsgBox Monitors(1).DeviceName

Можно получить список всех мониторов с их характеристиками (размеры, расположение, имя для использования в каком-нибдь CreateDC()), а можно получить монитор покоординатам или окну.

Имеется заглушка для систем, которые не работают с кучей экранов - для программы всё получится вполне прозрачно.

Да, это обёртка вокруг обычных функций Windows, но так удобнее.

Кстати, Display Info, которую я выкладывала ранее, использует другие функции.

URL

02:44

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3902-02-56
#original-date: 2.04.2011 Sat
#original-time: 2:56 AM
#original-day: 3902
#original-host: WinXP Home SP3 (Build 2600)

По мотивам предыдущих постов - вдруг кому интересно. Функция берёт два пикбокса и сравнивает картинки в них. Она достаточно быстрая, но в момент её истользования возникает скачок использования памяти - по размерам растров. Кроме того, она малость костыльная, но мне влом её прямо сейчас допиливать - она и так работает.

Кстати, в старой версии размер буфера вычислялся по простой формуле: Width*Height (при учёте того что у нас массив Long'ов). Теперь формула сложнее, хотя результат тот же при 32 битах на пиксель. Зато так выглядит внушительнее ^^

Attribute VB_Name = "ModImageCompare"
Option Explicit

Private Type BITMAPINFOHEADER
  biSize As Long
  biWidth As Long
  biHeight As Long
  biPlanes As Integer
  biBitCount As Integer
  biCompression As Long
  biSizeImage As Long
  biXPelsPerMeter As Long
  biYPelsPerMeter As Long
  biClrUsed As Long
  biClrImportant As Long
End Type

Private Declare Function GetDIBits Lib "gdi32" (ByVal hDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFOHEADER, ByVal wUsage As Long) As Long

'====================================================================
Public Function IsImagesSame(ByVal hDC1 As API_HANDLE, _
                             ByVal Picture1Width As Long, _
                             ByVal Picture1Height As Long, _
                             ByVal hDC2 As API_HANDLE, _
                             ByVal Picture2Width As Long, _
                             ByVal Picture2Height As Long) As Boolean
  Dim BIH1 As BITMAPINFOHEADER
  Dim BIH2 As BITMAPINFOHEADER
  Dim RC As Long
  
  ' Заранее предположим это...
  IsImagesSame = False
  
  ' Незачем сравнивать растры разных размеров...
  If Picture1Height <> Picture2Height Then Exit Function
  If Picture1Width <> Picture2Width Then Exit Function
  
  ' http://support.microsoft.com/kb/74601/en-us
  '
  ' To validate the BITMAPINFO structure, the following list
  ' outlines the checks that are made:
  '
  ' biSize == sizeof(BITMAPINFOHEADER)
  ' biHeight: high word is 0
  ' biWidth: high word is 0
  ' biPlanes == 1
  ' biBitCount == 1, 4, 8, 24 or 32
  ' biCompression: high word is 0
  ' biCompression: low word is 0, BI_RLE8, or BI_RLE4
  ' if biCompression == BI_RLE8: biBitCount == 8
  ' if biCompression == BI_RLE4: biBitCount == 4
  '
  ' All these conditions must be true if GetDIBits is to function
  ' correctly and return valid data (either by setting the
  ' biSizeImage field or by returning the DIB's bits).
  '
  ' If any of these conditions is not true, the header is invalid,
  ' and GetDIBits returns 0 (zero).
  '
  ' http://www.codeguru.com/vb/gen/vb_graphics/gdi/article.php/c2381
  '
  ' When one wants to manipulate individual pixels of a bitmap then
  ' retrieving the colors using GetDiBits via a BITMAPINFO template
  ' is a well known way of doing this. One problem when the template
  ' bit depth parameter biBitCount is set to 24 is that pad bytes
  ' may get added to each scan line because scanlines have to align
  ' on 32 bit boundaries. This has to be taken into account when
  ' retrieving/setting pixel colors.
  '
  ' A simple method of "avoiding" pad bytes is to use a bit depth
  ' of 32 in the template. Setting biBiCount to 32 automatically
  ' ensures alignment but the penalty is that more memory
  ' is required.
  '
  BIH1.biSize = Len(BIH1)
  BIH1.biPlanes = 1
  BIH1.biWidth = Picture1Width
  BIH1.biHeight = Picture1Height
  BIH1.biBitCount = 32 ' 24 даст ненужный нам паддинг...
  BIH1.biClrUsed = DIB_RGB_COLORS
  BIH1.biCompression = BI_RGB
  
  ' Вычислим размер растра по формуле.
  BIH1.biSizeImage = ((BIH1.biWidth * BIH1.biBitCount + 31) \ 32) * 4 * BIH1.biHeight
  
  BIH2 = BIH1
  
  ' Теперь выделим память под растры...
  ' Верхнуюю границу округляем вверх.
  Dim BitmapData1() As Long
  Dim BitmapData2() As Long
  Dim UB As Long
  
  UB = CLng((BIH1.biSizeImage / 4) + 0.5)
  ReDim BitmapData1(0 To UB)
  ReDim BitmapData2(0 To UB)
  
  ' Теперь финт ушами. Растры НЕ должны быть выбраны в контексте
  ' устройства. Поэтому придётся создать новые и временно их
  ' установить, получив взамен искомые.
  Dim hBitmap1 As API_HANDLE
  Dim hBitmap2 As API_HANDLE
  Dim hCompBitmap1 As API_HANDLE
  Dim hCompBitmap2 As API_HANDLE
  
  hCompBitmap1 = CreateCompatibleBitmap(hDC1, 1, 1)
  If hCompBitmap1 = 0 Then GoTo hExitSub
  hCompBitmap2 = CreateCompatibleBitmap(hDC2, 1, 1)
  If hCompBitmap2 = 0 Then GoTo hExitSub
  
  hBitmap1 = SelectObject(hDC1, hCompBitmap1)
  If hBitmap1 = 0 Then GoTo hExitSub
  hBitmap2 = SelectObject(hDC2, hCompBitmap2)
  If hBitmap2 = 0 Then GoTo hExitSub
  
  RC = GetDIBits(hDC1, hBitmap1, 0&, BIH1.biHeight, BitmapData1(0), BIH1, DIB_RGB_COLORS)
  If RC = 0 Then GoTo hExitSub
  RC = GetDIBits(hDC2, hBitmap2, 0&, BIH2.biHeight, BitmapData2(0), BIH2, DIB_RGB_COLORS)
  If RC = 0 Then GoTo hExitSub
  
  IsImagesSame = IsBuffersEqual(BitmapData1, BitmapData2)
  
hExitSub:
  If hBitmap1 <> 0 Then SelectObject hDC1, hBitmap1
  If hBitmap2 <> 0 Then SelectObject hDC2, hBitmap2
  
  If hCompBitmap1 <> 0 Then DeleteObject hCompBitmap1
  If hCompBitmap2 <> 0 Then DeleteObject hCompBitmap2
End Function

Private Function IsBuffersEqual(ByRef BitmapData1() As Long, _
                                ByRef BitmapData2() As Long) As Boolean
  Dim TMP As Long
  
  If UBound(BitmapData1) <> UBound(BitmapData2) Then Exit Function
  If LBound(BitmapData1) <> LBound(BitmapData2) Then Exit Function
  
  For TMP = LBound(BitmapData1) To UBound(BitmapData1)
    If BitmapData1(TMP) <> BitmapData2(TMP) Then Exit Function
  Next TMP
  
  IsBuffersEqual = True
End Function

URL

02:44

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3902-02-55
#original-date: 2.04.2011 Sat
#original-time: 2:55 AM
#original-day: 3902
#original-host: WinXP Home SP3 (Build 2600)

Кажись наконец разделалась.

AJPapps - WR266 1.00.0037

Маленькая, но объёмная программа для слежки за пользователем. Это не кейлоггер, это папарацци, который каждую минуту будет делать снимок и сохранять его в отдельный файл. С её помощью Вы сможете узнать, что за Вашим компьютером делает надоедливый родственник, во что на самом деле работает Ваш начальник, где хранит свою порно коллекцию Ваш муж. Но кроме шпионажа за другими, программа сможет помочь вернуть память, и вспомнить, что же было вчера, что сегодня всё так странно работает.

[-] При очень большом разрешении экрана (например, в мультимониторной конфигурации) программа могла вылетать.
[+] Настройки теперь хранятся в WR266.INI, а не в WR266.EXE.INI. При первом запуске программа попытается переименовать файл. Если не получится - будет использовать старый.
[+] Новая настройка "Shoot Mode" определяет, с какого экрана делать снимок.

http://dl.dropbox.com/u/9509037/Install.WR266.EXE

URL

02:44

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3901-09-41
#original-date: 1.04.2011 Fri
#original-time: 9:41 AM
#original-day: 3901
#original-host: WinXP Home SP3 (Build 2600)

Galaxy Angel мне очень нравится, но опенинг малость напрягает. Особенно последние слова, которые вызывают стойкие ассоциации с очень детскими мультиками и "...экран покажет наш весёлые истории в журнале Ералаш!" =_=

URL

02:44

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3901-09-09
#original-date: 1.04.2011 Fri
#original-time: 9:09 AM
#original-day: 3901
#original-host: WinXP Home SP3 (Build 2600)

Вы меня простите, но Windows 7 - гогно. Как и её подруга Виста.

Имеется вайфай роутер, бука под XP и бука под Win98 (подключена по шнурку). В сети появляется машина под китайской XP - проблем не наблюдается. Сносим XP и ставим Нанами. Первые пять минут всё работает прекрасно, сеть видится и идентифицируется, а потом начинаются чудеса. Открываем сетевое окружение - пусто. F5 - о, появилась машина под XP. Буку с Win98 мы так и не увидели ни разу - не комильфо. Жмём на машину с XP. Иногда нам показывают шары, иногда сообщают, что всё плохо. Что именно плохо, мы узнаём только после ещё одного щелчка мышью. Оказывается, сетевой путь не найден. Жмём F5 - вот он, сетевой путь висит. Бежим к буке с XP - работает. Бежим обратно - видит в сетвевом окружении, не пингуется, говорит что имя не известно. Ладно, у нас есть айпишник. Хрен! Заданный узел не доступен. перезагружаемся - вроде что-то получается, но потом опять отваливается. Ёшкин же кот >_<

Плюс непрерывно отваливается Инет, поминутно нам сообщают, что Инета нет, подключение ограничено (в чём - не нашего ума дело), а через минуту или две жёлтый знак исчезает. И так без конца. А в это время машины под XP и Win98 удивлённо переспрашивают: "Нет Инета? Подключение ограничено? Да вы что!"

Правда, неожиданный BSOD вселяет некоторую надежду, что дело в кривых встроенных дровах и не всё так плохо с Нанами, но... Но... Но буку Мэг под Вистой точно также колбасило и орало, что подключение ограничено, пока я не выдрала с корнем IPv6 и не прописала статичные айпишники в альтернативной конфигурации. Сцуки >_<

URL

02:44

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3901-06-28
#original-date: 1.04.2011 Fri
#original-time: 6:28 AM
#original-day: 3901
#original-host: WinXP Home SP3 (Build 2600)

Можно сказать, что в аниме зеленый цвет волос символизирует простодушие, наивность, в очень широком спектре: от бесхитростной честности до полного умственного ступора.

Гы ^^'

А вот полностью:

Так обозначается, скорее всего, русый оттенок – более или менее светлый. В характере зеленоволосых персонажей очень много общих черт с желтоволосыми «первого типа». Разница в том, что золотоволосые могут притворяться глупее и легкомысленнее, чем есть – из кокетства и желания, чтобы с ними понянчились. Для зеленоволосых такой уровень лукавства обычно недостижим. Можно сказать, что в аниме зеленый цвет волос символизирует простодушие, наивность, в очень широком спектре: от бесхитростной честности до полного умственного ступора.

Этот цвет считается традиционным для маленьких детей, особенно девочек (того типа, что чаще не визжат и бегают, а молчаливо стоят, хлопая глазами). Вообще, зеленоволосые девочки даже по анимешным стандартам бьют все рекорды кавайности: они самые безобидные, мягкие, трогательно-доверчивые и беззащитные. В аниме для детей (кодомо) частенько можно встретить такую маленькую героиню, дружелюбную и добрую ко всем, ласковую и лишенную агрессивности. В пародийном аниме этот доведенный до абсурда типаж превращается в живую куклу.

Мужчины с волосами изумрудного или травянистого цвета бывают совсем не столь миролюбивы и тихи, но тоже очень простодушны. Часто живут по принципу «сила есть – ума не надо». Если они беззащитны - то психологически, из-за привычки все упрощать и нежелания (неумения) вникать в сложности людских отношений. Имеют успех у прекрасного пола, могут быть склонны к наивному пижонству и самолюбованию (зеленый цвет волос традиционно подчеркивает красоту, привлекательность облика). Но в личных делах им, как правило, не везет: женская натура остается для них неразрешимой загадкой.

http://www.liveinternet.ru/community/anime--manga/post86202780/

Осталось только не понятно, как же все эти зеленоволосые маньяки и маньячки?

А вот что мне говорит тест:

Поздравляю!!! Твой цвет волос - фиолетовый

ВЫ обладатель сильной воли, очень загадочны и нередко таите опасность, умны и милы. По натуре вы отнюдь не холодны, как раз наоборот: любите безоглядной, серьезной, «тяжелой» любовью. Часто попадаете в зависимость от предмета своей страсти.

Пройти тест

URL

02:43

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3901-05-49
#original-date: 1.04.2011 Fri
#original-time: 5:49 AM
#original-day: 3901
#original-host: WinXP Home SP3 (Build 2600)

...и тут я подумала: а не снять ли мне фильм? Про LCIWL, скажем, про детектива. Не, Харухи сняла трэш, а я чем хуже? Правда, с актёрами напряжёнка, но что делать?

URL

четверг, 31 марта 2011

20:56

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3901-04-30
#original-date: 1.04.2011 Fri
#original-time: 4:30 AM
#original-day: 3901
#original-host: WinXP Home SP3 (Build 2600)

Работа над программами шла полным ходом. Да, пока я не запустила Пидгин. Зато с читателем пообщалась - надо будет принять меры по указанным проблемам OO

URL

20:55

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3901-04-28
#original-date: 1.04.2011 Fri
#original-time: 4:28 AM
#original-day: 3901
#original-host: WinXP Home SP3 (Build 2600)

Кстати, пока страна оплакивала Гурченко, я смотрела про похороны Форте, и это было веселее. Цинично, но правда.

А ещё мне понравилось когда они угнали с Ранфой машину и гоняли на ней отлавливая кошек. Сколько счастья было на лицах. Прямо как в GTA ^^

URL

20:55

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3901-04-06
#original-date: 1.04.2011 Fri
#original-time: 4:06 AM
#original-day: 3901
#original-host: WinXP Home SP3 (Build 2600)

Как круто звучит!

- Для меня ВАЗ - скорее иномарка.
- Каждый раз когда я сижу справа от водителя, я чувствую, что что-то не так.

И ещё это:

- Линда-чан выросла и стала детективом и средним стритрейсером.

Уууууу! ^_____^

URL

20:55

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3900-23-28
#original-date: 31.03.2011 Thu
#original-time: 11:28 PM
#original-day: 3900
#original-host: WinXP Home SP3 (Build 2600)

А тем временем в родном сообществе разворачивается еда. Автор хорошо известен.

попасть в тюрьму за попытку самоубийства? запросто, если ты беременна

30 декабря Бей Бей Шуай из Индианаполиса, США, попыталась совершить самоубийство. она приняла крысиный яд.
ее спасли, и сделали ей цезарево сечение (она была на 33-ей неделе беременности), но рожденный живым ребенок умер через несколько дней из-за яда.

сейчас Бей Бей Шуай... в тюрьме, вот уже три месяца.
против нее заведено уголовное дело сразу по двум статьям - убийство и попытка "плодо-убийства" (feticide).
выпустить под залог обвиняемую отказались. всем же понятно, какую страшную угрозу для общества она составляет.
вот здесь можно посмотреть на видео (1:35-1:40) на мужчину (и почему я не удивлен?..), который завел на нее дело, и на саму Бей Бей Шуай и то, как с ней обращаются.

к чему это все, если вы не живете в штате Индиана?
к тому, что в этой истории очень наглядно виден идеал людей, которым не нравится способность женщин распоряжаться своим телом. этот идеал - женщина как инкубатор, женщина, не принадлежащая самой себе. женщина, которую можно наказать за "порчу имущества" - за выкидыш, за травму, приводящую к потере беременности. за попытку самоубийства.

http://community.livejournal.com/feministki/1606818.html

Насколько я поняла из комментов, в штате приняли некий закон, и мужчина из поста завёл это дело не потому что посмотрел себе в штаны и загрустил об ускользающей под напором феминисток власти, а потому что... Ну потому что закон такой. Автора поста это не устраивает, поэтому он не удивлён.

Видео я не смотрела, но учитывая, что Штаты, мне почему-то не кажется, что её там прикладами бьют и иголки загоняют под ногти.

Из камментов того же автора:

но на самом деле разве можно так вот просто, в двух словах сказать, из-за чего люди совершают самоубийство?

Да запросто. Нравится это или нет, но чтобы обрисовать причину не нужно писать многотомные трактаты и вкладывать в них весь спектр чувств и эмоций. Это я как человек подверженный суицидальным настроениям говорю.

А в соседнем посте рассказывают о выходе нового номера интересного журнала. Журнал я, признаться, не читала - страшный v_v Я принципиально не имею дела с вещами, которые нарочно (ну не случайно же они заказали обложку в ближайшей психушке) делают страшными v_v

http://community.livejournal.com/feministki/1605181.html

Ну и ещё почитайка. Комментировать, пожалуй, не буду - боюсь скатиться к тезису "когда наука заменяется идеологией". Этот тезис, кстати, используют с обоих сторон барьера, как показывает статья.

http://community.livejournal.com/feministki/1606518.html

Кстати, в блоге по ссылке постоянно мелькают "идеи" и "теории" датированные семидесятыми годами, что как бы намекает.

#music: Lolita\Super Eurobeat 114\Ready for your heart

URL

20:55

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3900-23-25
#original-date: 31.03.2011 Thu
#original-time: 11:25 PM
#original-day: 3900
#original-host: WinXP Home SP3 (Build 2600)

Кажись нашла причину вылетов WR266. Как обычно, проблема крылась (кажется) не там, где был вылет. Вылет был при попытке сделать Cls на пикбоксе, а пролема зарождалась в алгоритме сравнения растров. Там я делала GetDIBits() с двух пикбоксов и сравнивала массивы - скорость возростала драматически по сравнению с GetPixel(). Но я не прочитала один важный момент в MSDN: растр не должен быть выбран в контексте устройства. А он был выбран, вот и портилось что-то.

В новом варианте я временно заменяю растр через SetObject(), делаю чёрное дело и возвращаю на место. Посмотрим, как оно будет себя вести...

#music: Dave Rodgers\Super Eurobeat 114\Let's go to the show (K2 the auto messe)

URL

Последние 1 …700 …720 …740 …742 743 744 745 746 …760 …780 …1624