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

пятница, 31 октября 2008

21:08

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

#post-id: 3017-01-33
#original-date: 29.10.2008 Wed
#original-time: 1:33 AM
#original-day: 3017
#original-host: Win98SE

Неа. Я ошиблась. PNGOUT сжимает лучше.

IV:      245'270 bytes
OptiPNG: 211'813 bytes
PNGOUT:  197'077 bytes

URL

21:08

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

#post-id: 3017-01-24
#original-date: 29.10.2008 Wed
#original-time: 1:24 AM
#original-day: 3017
#original-host: Win98SE

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

Таким товарищам из сострадания хочется вломить чем-нибудь тяжёлым, чтобы избавить от дальнейших страданий...

URL

21:07

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

#post-id: 3017-01-21
#original-date: 29.10.2008 Wed
#original-time: 1:21 AM
#original-day: 3017
#original-host: Win98SE

Хммм... С новой программой я мышь почти не трогаю. Это наводит на размышление, что несмотря на GUI, в обычной работе чаще в подавляющем большинстве случаев я использую мышь только для того чтобы убрать курсор...

Неожиданно...

Кстати, вот этот шедевр да VB3:

Option Explicit

' Version: 1.00.0000

Type POINTAPI
  X As Integer
  Y As Integer
End Type

Declare Function ShowCursor Lib "User" (ByVal bShow As Integer) As Integer
Declare Sub SetCursorPos Lib "User" (ByVal X As Integer, ByVal Y As Integer)
Declare Sub GetCursorPos Lib "User" (lpPoint As POINTAPI)

Declare Function GetProfileInt Lib "Kernel" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal nDefault As Integer) As Integer
Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer

Sub Main ()
  Dim PT As POINTAPI
  Dim FileName As String
  
  FileName = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "SETCSRPS.INI"
  
  GetCursorPos PT
  PT.X = GetPrivateProfileInt("Cursor Pos", "X", PT.X, FileName)
  PT.Y = GetPrivateProfileInt("Cursor Pos", "Y", PT.Y, FileName)
  
  SetCursorPos PT.X, PT.Y
End Sub

/* Если кто не понял, программа Win16 и в VB5/VB6 сразу не заработает - придётся подправить параметры в объявлениях. */

URL