Лингрин :: Резиденция Линды Кайе — @дневники: асоциальная сеть

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

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 ^_^

URL комментария

#music: T.M.Revolution\DISCORdanza Try My Remix~Single Collections\Joker (Lights Out I-Mix)

URL