#post-id: 3547-01-42
#original-date: 12.04.2010 Mon
#original-time: 1:42 AM
#original-day:  3547
#original-host: WinXP Prof SP2 (Build 2600)

12.04.2010 в 01:39

Пишет  Линда Кайе:

Если не возражаете, такой сборник, который уже два года не доходили руки выложить ^^ В наборе фанарт по Guilty Gear, Mai-hime, а также куча неизвестных мне вещей.

Кстати! Кто-нибудь знает откуда последняя картинка?

---

#post-id: 3547-00-26
#original-date: 12.04.2010 Mon
#original-time: 12:26 AM
#original-day:  3547
#original-host: WinXP Prof SP2 (Build 2600)

Обнаружила, что на MAL в списке персонажей Initial D почему-то нет Шинго. Засабмитила, буду ждать, что там модераторы решат.

---

#post-id: 3546-22-50
#original-date: 11.04.2010 Sun
#original-time: 10:50 PM
#original-day:  3546
#original-host: WinXP Prof SP2 (Build 2600)

Блин, в который раз пугаюсь, видя в фаворитах какую-то Sakurai Aya. А в итоге оказывается, что это Карнелиан ^^'

#music: Dusty\Super Eurobeat 153\It's My Life

---

#post-id: 3546-22-48
#original-date: 11.04.2010 Sun
#original-time: 10:48 PM
#original-day:  3546
#original-host: WinXP Prof SP2 (Build 2600)

T.S. I Love You... (Manga)
Synopsis

This series contains well drawn short stories about males, shemales and transvestites who are feeling interested in and attracted to each other, satisfying their curiosity in many different ways.

(source: Leknaat)

Фигасе OO

#music: Paul Harris\Super Eurobeat 163\Everybody's Looking

---

#post-id: 3546-19-23
#original-date: 11.04.2010 Sun
#original-time: 7:23 PM
#original-day:  3546
#original-host: WinXP Prof SP2 (Build 2600)

Президент говорит:

- Мне кажется, после болезни я стала немного циничной.

Нифига себе немного!

#video: Onegai Teacher10

---

#post-id: 3546-19-18
#original-date: 11.04.2010 Sun
#original-time: 7:18 PM
#original-day:  3546
#original-host: WinXP Prof SP2 (Build 2600)

Главгерой напоминает Штирлица в трудном положении. Тянет его к одной, притворяется с другой, действует в интересах третьей. Так и раздвоение личности заработать можно.

Зато с Ичиго он сблизился до ужаса ^^

#video: Onegai Teacher10

---

#post-id: 3546-19-16
#original-date: 11.04.2010 Sun
#original-time: 7:16 PM
#original-day:  3546
#original-host: WinXP Prof SP2 (Build 2600)

Да, смотреть Onegai Twins сначала было самым большим спойлером ^^

#video: Onegai Teacher10

---

#post-id: 3546-19-13
#original-date: 11.04.2010 Sun
#original-time: 7:13 PM
#original-day:  3546
#original-host: WinXP Prof SP2 (Build 2600)

Остановиться, остановиться. Они что STOP code имеют в виду? Он же BSOD, он же Культовый Синий Экран Смерти.

#video: Onegai Teacher10

---

#post-id: 3546-16-58
#original-date: 11.04.2010 Sun
#original-time: 4:58 PM
#original-day:  3546
#original-host: WinXP Prof SP2 (Build 2600)

11.04.2010 в 16:57

Пишет  Линда Кайе:

ToHeart
А на безрыбье и лёгкая эротика - хентай ^^

---

#post-id: 3546-15-26
#original-date: 11.04.2010 Sun
#original-time: 3:26 PM
#original-day:  3546
#original-host: WinXP Prof SP2 (Build 2600)

Дожили, слушаем программерскую музыку ^^

#music: Arash feat. Aneela\Jaande

---

#post-id: 3546-13-46
#original-date: 11.04.2010 Sun
#original-time: 1:46 PM
#original-day:  3546
#original-host: WinXP Prof SP2 (Build 2600)

Как закрыть доступ к блогу на Тумблере без пароля? Очень просто: в настройках находим Custom Domain Name и пишем туда, скажем, abrakadabra. Теперь враг точно не пройдёт - будет редирект на несуществующий хост.

Но! Достаточно одной записи в HOSTS, и защита проломлена ^^

174.120.238.130  abrakadabra

#music: The Verve\Bitter Sweet Symphony\Bitter Sweet Symphony (Radio Edit)

---

#post-id: 3546-12-56
#original-date: 11.04.2010 Sun
#original-time: 12:56 PM
#original-day:  3546
#original-host: WinXP Prof SP2 (Build 2600)

Кому там было мало кошек?

http://kittenskittenskittens.tumblr.com

#music: The Doppler Effect\№1\Beauty Hides In The Deep (John O'Callaghan Remix)

---

#119

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

---

#post-id: 3546-02-47
#original-date: 11.04.2010 Sun
#original-time: 2:47 AM
#original-day:  3546
#original-host: WinXP Prof SP2 (Build 2600)

Ещё фрагмент. Генератор случайных чисел ^^ Тоесть, имеется нтишная функция, которая заполняет буфер случайными числами. А вот как применить её в народном хозяйстве я ещё не придумала...

Option Explicit

' http://msdn.microsoft.com/en-us/library/aa387694(VS.85).aspx
' http://blogs.msdn.com/michael_howard/archive/2005/01/14/353379.aspx
Declare Function RtlGenRandom Lib "AdvAPI32.DLL" Alias "SystemFunction036" (ByRef RandomBuffer As Any, ByVal RandomBufferLength As Long) As C_BOOL

'====================================================================
Public Sub Main()
  asRegisterAppPath
  InitCommonControls
  If Not asIsInIDE Then asSetWindowResIconAll asGetThunderMainHandle(), IDI_APPICON
  
  Dim Buff(0 To 99) As Byte
  Dim RC As C_BOOL
  Dim TXT As BStr
  
  RC = RtlGenRandom(Buff(0), UBound(Buff) - LBound(Buff) + 1)
  If RC = 0 Then
    MsgBox "RtlGenRandom() failed!", vbCritical
  Else
    MsgBox asExpandByteBuffer(Buff), vbInformation
  End If
End Sub

#music: Armin van Buuren\№1\Sound Of Goodbye (Simon & Shaker Remix)

---

#post-id: 3546-02-17
#original-date: 11.04.2010 Sun
#original-time: 2:17 AM
#original-day:  3546
#original-host: WinXP Prof SP2 (Build 2600)

Скачала ост ATLM. Слушаю ^^

/* Толи я совсем избаловалась, то ли ещё что, но мне в музыки не хватает трагизма и тяжести OO */

#upd: Вот вечно так. Начинаю слушать ATLM, а переключаюсь на Murder Princess...

#upd: Ага, а теперь мне захотелось её посмотреть ^^

#music: Soundtrack\Little Mermaid\Daughters Of Triton

---

#post-id: 3546-00-50
#original-date: 11.04.2010 Sun
#original-time: 12:50 AM
#original-day:  3546
#original-host: WinXP Prof SP2 (Build 2600)

Год назад на главной странице гуглопочты было написано, что доступно 8 гиг места, "дальше - больше". И цифры тикают. На сессии я снова побывала на этой странице. Цифры дотикали до двух гиг.

#video: myzuka.ru_1._Verve__the_-_Bitter_Sweet_Symphony__Single__-_Bitter_Sweet_Symphony__Extended_version_.mp3

---

#post-id: 3546-00-36
#original-date: 11.04.2010 Sun
#original-time: 12:36 AM
#original-day:  3546
#original-host: WinXP Prof SP2 (Build 2600)

Всё, с zachot.ru больше музыку не качаю - задолбали кваканья. В закладках теперь только myzuka.ru.

#video: _s_630_myzuka.ru_6._Verve_-_Soul_Ballads_VOL_2_-_BITTER_SWEET_SYMPHONY.mp3

---

#post-id: 3546-00-27
#original-date: 11.04.2010 Sun
#original-time: 12:27 AM
#original-day:  3546
#original-host: WinXP Prof SP2 (Build 2600)

Мило, очень мило ^_^ Обратите внимание на дядюку в телевизоре - авторы явно послали ему свой пламенный привет ^_^

http://savanttools.com/anon/jaknel.tumblr.com/photo/1280/492509635/1/tumblr_l0a8go116E1qb30jo

#video: the verve - live wigan,uk - 5-24-98 - (12) - bittersweet symphony.mp3

---

#post-id: 3545-22-40
#original-date: 10.04.2010 Sat
#original-time: 10:40 PM
#original-day:  3545
#original-host: WinXP Prof SP2 (Build 2600)

Профессии, ломающие психику. Бухгалтера есть, а айтишников нет ^^

http://rabota.mail.ru/news/1017/

---

#post-id: 3545-22-17
#original-date: 10.04.2010 Sat
#original-time: 10:17 PM
#original-day:  3545
#original-host: WinXP Prof SP2 (Build 2600)

Окей. Пока всё это выглядит так:

Option Explicit

Public Enum CompressionFormatConst
  cfError = -1
  cfNone = COMPRESSION_FORMAT_NONE
  cfDefault = COMPRESSION_FORMAT_DEFAULT
  cfLZNT1 = COMPRESSION_FORMAT_LZNT1
End Enum

Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Public Declare Function DeviceIoControl Lib "kernel32" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, lpOverlapped As OVERLAPPED) As Long
Public Declare Function DeviceIoControlByAny Lib "kernel32" Alias "DeviceIoControl" (ByVal hDevice As Long, ByVal dwIoControlCode As Long, lpInBuffer As Any, ByVal nInBufferSize As Long, lpOutBuffer As Any, ByVal nOutBufferSize As Long, lpBytesReturned As Long, ByRef lpOverlapped As Any) As Long

'====================================================================
Public Function SetFileCompression(ByVal FileName As String, _
                                   ByVal CompressionFormat As CompressionFormatConst, _
                                   Optional ByRef lpErrorCode As Long) As Boolean
  Dim hDevice As API_HANDLE
  Dim InBuff As Long
  Dim RC As Long
  Dim lpBytesReturned As Long
  
  lpErrorCode = 0
  SetFileCompression = True
  
  hDevice = CreateFile(FileName, _
                       GENERIC_READ Or GENERIC_WRITE, _
                       FILE_SHARE_READ, 0, OPEN_EXISTING, _
                       FILE_FLAG_BACKUP_SEMANTICS, 0)
  If hDevice = INVALID_HANDLE_VALUE Then
    SetFileCompression = False
    lpErrorCode = Err.LastDllError
    Exit Function
  End If
  
  InBuff = CompressionFormat
  
  RC = DeviceIoControlByAny(hDevice, FSCTL_SET_COMPRESSION, _
                            InBuff, Len(InBuff), ByVal 0&, 0, _
                            lpBytesReturned, ByVal 0&)
  If RC = 0 Then
    SetFileCompression = False
    lpErrorCode = Err.LastDllError
  End If
  
  CloseHandle hDevice
End Function

'====================================================================
Public Function GetFileCompression(ByVal FileName As String, _
                                   Optional ByRef lpErrorCode As Long) As CompressionFormatConst
  Dim hDevice As API_HANDLE
  Dim OutBuff As Long
  Dim RC As Long
  Dim lpBytesReturned As Long
  
  hDevice = CreateFile(FileName, _
                       GENERIC_READ Or GENERIC_WRITE, _
                       FILE_SHARE_READ, 0, OPEN_EXISTING, _
                       FILE_FLAG_BACKUP_SEMANTICS, 0)
  If hDevice = INVALID_HANDLE_VALUE Then
    GetFileCompression = cfError
    lpErrorCode = Err.LastDllError
    Exit Function
  End If
  
  RC = DeviceIoControlByAny(hDevice, FSCTL_GET_COMPRESSION, _
                            ByVal 0&, 0, _
                            OutBuff, Len(OutBuff), _
                            lpBytesReturned, ByVal 0&)
  If RC = 0 Then
    GetFileCompression = cfError
    lpErrorCode = Err.LastDllError
  Else
    GetFileCompression = OutBuff
    lpErrorCode = 0
  End If
  
  CloseHandle hDevice
End Function

И тестовый пример:

Option Explicit

'====================================================================
Public Sub Main()
  asRegisterAppPath
  InitCommonControls
  If Not asIsInIDE Then asSetWindowResIconAll asGetThunderMainHandle(), IDI_APPICON
  
  '==================================================================
  Dim EC As Long
  Dim FileName As BStr
  Dim RC As CompressionFormatConst
  
  FileName = asBuildFileName(App.Path, "winioctl.h")
  
  RC = GetFileCompression(FileName, EC)
  If RC = cfError Then
    ajpMain.ErrorDisplayAPI EC, , , "Can't get file or directory compression format!"
    Exit Sub
  End If
  
  MsgBox "Compression format: " & asHexEx4(RC), vbInformation
  
  If Not SetFileCompression(FileName, cfDefault, EC) Then
    ajpMain.ErrorDisplayAPI EC, , , "Can't compress file or directory!"
    Exit Sub
  End If
  
  RC = GetFileCompression(FileName, EC)
  If RC = cfError Then
    ajpMain.ErrorDisplayAPI EC, , , "Can't get file or directory compression format!"
    Exit Sub
  End If
  
  MsgBox "Compression format: " & asHexEx4(RC), vbInformation
  
  If Not SetFileCompression(FileName, cfNone, EC) Then
    ajpMain.ErrorDisplayAPI EC, , , "Can't decompress file or directory!"
    Exit Sub
  End If
  
  RC = GetFileCompression(FileName, EC)
  If RC = cfError Then
    ajpMain.ErrorDisplayAPI EC, , , "Can't get file or directory compression format!"
    Exit Sub
  End If
  
  MsgBox "Compression format: " & asHexEx4(RC), vbInformation
End Sub

Константы объявлены в AJPAPI100.TLB. Declare для функция я использовала чтобы иметь код ошибки.