Лингрин :: Резиденция Линды Кайе

понедельник, 27 июля 2009

11:06

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

#post-id: 3287-05-45
#original-date: 26.07.2009 Sun
#original-time: 5:45 AM
#original-day: 3287
#original-host: WinXP Prof SP2 (Build 2600)

Под евробит так трудно представить прохождение поворотов вкатыванием ^^'

#music: SDV EuroBeat.NL presents:\Edoctor's Euro Mix Collection\Edoctor's Power Euro Mix

URL

11:06

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

#post-id: 3287-01-42
#original-date: 26.07.2009 Sun
#original-time: 1:42 AM
#original-day: 3287
#original-host: WinXP Prof SP2 (Build 2600)

Эх...

#music: 09 ТЕБЕ ЭТО СНИТСЯ.mp3

URL

11:03

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

#post-id: 3287-00-49
#original-date: 26.07.2009 Sun
#original-time: 12:49 AM
#original-day: 3287
#original-host: WinXP Prof SP2 (Build 2600)

Зато поняла, почему в Win98 Миранда переводила в Away даже если сидишь и усиленно строчишь сообщения. Без GetLastInputInfo() она только движения мыши регистрирует.

#music: DMX\It`s Dark And Hell Is Hot\Stop Being Creedy

URL

11:03

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

#post-id: 3286-23-03
#original-date: 25.07.2009 Sat
#original-time: 11:03 PM
#original-day: 3286
#original-host: WinXP Prof SP2 (Build 2600)

Вот, блин, прицепились к инвалиду ^^' Это я о команде Гая и Дейдаре ^^

#video: Naruto Shippuuden_029-030.avi

URL

11:03

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

#post-id: 3286-22-33
#original-date: 25.07.2009 Sat
#original-time: 10:33 PM
#original-day: 3286
#original-host: WinXP Prof SP2 (Build 2600)

Сами собой возникают два вопроса:

1. Кого убил Какаши чтобы получить Мнгикю Шаринган?

2. Кто эта прекрасная леди в тумане опенинга? Хината? OO

#video: Naruto Shippuuden_029-030.avi

URL

11:03

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

#post-id: 3286-21-57
#original-date: 25.07.2009 Sat
#original-time: 9:57 PM
#original-day: 3286
#original-host: WinXP Prof SP2 (Build 2600)

Вот этот кусок выдран из исходников Миранды. Я проверила, он не вызывает переключение рабочих столов, но Миранда почему-то всё равно их переключает, как и Магент. Мистика...

Dim hDesk As API_HANDLE

hDesk = OpenInputDesktop(0, 0, DESKTOP_SWITCHDESKTOP)
If hDesk = 0 Then
  MsgBox "Locked!"
Else
  MsgBox "Not locked!"
  CloseDesktop hDesk
End If

#music: Scooter\''Top Hits 11''\The Night

URL

11:03

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

#post-id: 3286-16-58
#original-date: 25.07.2009 Sat
#original-time: 4:58 PM
#original-day: 3286
#original-host: WinXP Home SP3 (Build 2600)

А в bmpfilter.cpp показаны пляски вида:

- LoadImage() для BMP и RLE.
- PNG2DIB плагин для PNG.
- OleLoadPicturePath() для всего остального ^^

URL

11:03

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

#post-id: 3286-16-53
#original-date: 25.07.2009 Sat
#original-time: 4:53 PM
#original-day: 3286
#original-host: WinXP Home SP3 (Build 2600)

Хммм... А вот это интересно:

MessageBox((HWND)lParam,
           TranslateT("User has not registered an e-mail address"),
           TranslateT("Send e-mail"),
           MB_OK);

До этого я знала только один подход к интернационализации, и он был очень неудобен и всёё было как вслепую >_< Надо этот изучить ^^

URL

11:03

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

#post-id: 3286-16-48
#original-date: 25.07.2009 Sat
#original-time: 4:48 PM
#original-day: 3286
#original-host: WinXP Home SP3 (Build 2600)

С питанием на буке явно что-то не то. Поставила на зарядку на ночь, утром узрела что лампочка больше не горит, отключила и убрала в сумку. Теперь включила - 50%. Куда делись остальные 50? Почему так быстро разряжается?

Зато я без света, но всёже продолжаю раскопки сорцов Миранды. Сейчас мне нужно понять, как она определяет что запущен скринсейвер, что пользователь уже энное время балду пинает, ну и так далее ^^

URL

11:03

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

#post-id: 3286-16-38
#original-date: 25.07.2009 Sat
#original-time: 4:38 PM
#original-day: 3286
#original-host: WinXP Prof SP2 (Build 2600)

Не поняла. Почему в исходниках восьмой Миранды FreeImage лежит? OO В бинарниках нет его уже...

URL

11:03

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

#post-id: 3286-03-55
#original-date: 25.07.2009 Sat
#original-time: 3:55 AM
#original-day: 3286
#original-host: WinXP Prof SP2 (Build 2600)

Имеется ещё очень мощная библиотека FreeImage, которая позволяет манипулировать картинками и конвертировать их без сохранения на диск, но она весит два метра... Нет в жизни счастья...

http://freeimage.sourceforge.net

URL

11:03

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

#post-id: 3286-02-42
#original-date: 25.07.2009 Sat
#original-time: 2:42 AM
#original-day: 3286
#original-host: WinXP Prof SP2 (Build 2600)

DDD на заметку. Хороший сайт с очень интересной COM библиотекой для конвертации картинок ^^ Правда, тип определяется по расширению, и на диск всё равно нужно сохранять, зато работает просто и дуболомно ^^

MsgBox A.convert("Screenshot 2009-07-20 19-25-12.BMP"), _
                 "Screenshot 2009-07-20 19-25-12.PNG")

http://jansfreeware.com

#music: Fukuda Yasufumi\Murder Princess Original Soundtrack\Taiji

URL

11:03

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

#post-id: 3286-02-20
#original-date: 25.07.2009 Sat
#original-time: 2:20 AM
#original-day: 3286
#original-host: WinXP Prof SP2 (Build 2600)

Блин, второй раз мне приносят винт на восстановление файлов и второй раз я вижу скрытые папки...

#music: Fukuda Yasufumi\Murder Princess Original Soundtrack\Akuma no Hohoemi

URL

11:03

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

#post-id: 3286-00-15
#original-date: 25.07.2009 Sat
#original-time: 12:15 AM
#original-day: 3286
#original-host: WinXP Prof SP2 (Build 2600)

Хех... Как же мне прикрутить сохранение в PNG? Пока думаю прикрутить такое, раз вроде как автор не против:

optipng.exe -o0 -keep FILE_NAME

Но запуск внешней программы, опять же...

#music: Fukuda Yasufumi\Murder Princess Original Soundtrack\Te Ooria

URL

11:03

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

#post-id: 3285-23-37
#original-date: 24.07.2009 Fri
#original-time: 11:37 PM
#original-day: 3285
#original-host: WinXP Prof SP2 (Build 2600)

Кажись нашла код для работы с PNG на VB ^^ И ещё кучу контролов ^^

http://www.libpng.org/pub/png/pngaptk.html

А код где-то тут ^^

http://www.thevbzone.com/

Мда... Код оказался кучей Declare...

#music: Hirano Yoshihisa\Strawberry Panic Original Sound Track\Kandou Soshite Mirai he

URL

11:03

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

#post-id: 3285-13-54
#original-date: 24.07.2009 Fri
#original-time: 1:54 PM
#original-day: 3285
#original-host: WinXP Prof SP1 (Build 2600)

Янаги продолжает жечь. Ноет, что денег нет, ни как не может заставить вернуть долг (кому-то давала), но упорно ходит на дни рождения, попойки и прочие мероприятия, заранее готовясь, обсуждая с предвкушением, для порядка заявляя "Ой, блин, опять надо". Надо, ага. Просто обязанность, воинская повинность. При этом она честно говорит, что берёт деньги в долг (при этом говорит так, словно берёт деньги на что-то важное и нужное вроде ремонта или лечения). стоит ей сказать, что уже пора завязывать со всеми этими знакомыми и днями рождения, начинаются понты "Не учи меня жить".

Не понимаю такой философии жизни.

URL

11:03

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

#post-id: 3285-12-31
#original-date: 24.07.2009 Fri
#original-time: 12:31 PM
#original-day: 3285
#original-host: WinXP Prof SP1 (Build 2600)

Обычно скриншоты я делаю так:

Private Sub MakeScreenShot(ByVal FileName As BStr)
  Dim hDC As API_HANDLE
  Dim RC As Long
  
  ' Чтобы не мучиться, будем ресайзить контрол прямо перед снимком.
  Me.picScreenshot.Width = Screen.Width
  Me.picScreenshot.Height = Screen.Height
  Me.picScreenshot.Cls
  
  hDC = GetDC(0)
  If hDC = 0 Then Exit Sub
  
  RC = BitBlt(Me.picScreenshot.hDC, 0, 0, _
              Screen.Width \ Screen.TwipsPerPixelX, _
              Screen.Height \ Screen.TwipsPerPixelY, _
              hDC, 0, 0, SRCCOPY)
  If КС <> 0 Then
    FileName = asGetUserName() & "@" & asGetComputerName() & " " & _
               Format(Now, "yyyy\-mm\-dd hh\-nn\-ss") & ".BMP"
    FileName = asBuildFileName(App.Path, FileName)
    
    SavePicture Me.picScreenshot.Image, FileName
  End If
  
  ReleaseDC 0, hDC
End Sub

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

Public Sub CopyDesktop(ByRef objTo As Object)
  Dim hWnd As Long 
  Dim RCT As RECT 
  Dim hDC As Long 
  
  ' Note: objTo must have hDC,Picture,Width and Height 
  ' properties and should have AutoRedraw = True 
  
  ' Get the size of the desktop window: 
  hWnd = GetDesktopWindow()
  GetWindowRect hWnd, RCT
  
  ' Set the object to the relevant size: 
  objTo.Width = (RCT.Right - RCT.Left) * Screen.TwipsPerPixelX 
  objTo.Height = (RCT.Bottom - RCT.Top) * Screen.TwipsPerPixelY 
  
  ' Now get the desktop DC: 
  hDC = CreateDCAsNull("DISPLAY", ByVal 0&, ByVal 0&, ByVal 0&) 
  
  ' Copy the contents of the desktop to the object: 
  BitBlt objTo.hDC, 0, 0, (tR.Right - tR.Left), _
         (tR.Bottom - tR.Top), hDC, 0, 0, SRCCOPY
  
  ' Ensure we clear up DC GDI has given us: 
  DeleteDC hDC
End Sub

Кстати, в вышеприведённом фрагменте нет контроля ошибок и не учитывается, что RECT может быть "перевёрнутым".

URL

11:03

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

#post-id: 3285-11-29
#original-date: 24.07.2009 Fri
#original-time: 11:29 AM
#original-day: 3285
#original-host: WinXP Prof SP1 (Build 2600)

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

URL

11:03

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

#post-id: 3285-00-07
#original-date: 24.07.2009 Fri
#original-time: 12:07 AM
#original-day: 3285
#original-host: WinXP Prof SP2 (Build 2600)

Вот тут написано что делать, если XP наотрез отказывается воспринимать новый диск, выводя старые файлы и каталоги (в смысле, с предыдущего диска).

http://bitrazor.com/content/misc/cdromflush.php

Хотя, проблема была ещё в Win98, но я думала, что это глюк приводов NEC...

URL

11:02

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

#post-id: 3284-23-06
#original-date: 23.07.2009 Thu
#original-time: 11:06 PM
#original-day: 3284
#original-host: WinXP Prof SP2 (Build 2600)

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

23.07.2009 в 23:04

А я закончила смотреть Zipang ^_^