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

суббота, 25 апреля 2009

07:30

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

#post-id: 3194-18-44
#original-date: 24.04.2009 Fri
#original-time: 6:44 PM
#original-day: 3194
#original-host: WinXP Prof SP1 (Build 2600)

Вчера играла в GTA VC, прошла все гонки от Sunshine Autos. Ни чего не дали... Зато я правильно сделала, что сначала все машины выиграла (угнать за 60 секунд, блин ^^), а потом только на Honda Accord Racing помчалась в гонку ^^ Она как раз быстрая и при этом достаточно тяжёлая, управляется хорошо ^^

А вообще, Sunshine Autos мне нравится, уютный салон ^^ Ещё бы выезжать от туда можно было бы не через витрины...

А меж тем, петляя в поисках пакетиков, я вдруг поняла, что в Вайс Сити полно объектов, которые можно взорвать. Например, какой-то не то химзавод, не то хранилище около аэропорта. Такие привлекательные цистерны... Так у меня родилась идея игры вроде GTA, но где играешь не за бандюка, а за террориста *_* Ну и миссии по наведению шухера, подрыву объектов, захвату всего, что можно захватить... Ну и, разумеется, показать бандам, кто тут крутой, а кто просто бандит ^^ А то кафе и наркозавод в GTA VC как-то малова-то будет. Как говорится, по нынешним меркам это скорее мелкое хулиганство, нежели серьёзная акция. Только желательно сконцентрировать терракты на бандитах, армии, полиции, а не на мирных. Ну не вштыривают меня захваты автобусов и подрывы стрипбаров... А вот разнести гаитянский кишлак (где Вуду стоит и та бабка живёт) - самое то...

URL

07:30

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

#post-id: 3194-18-41
#original-date: 24.04.2009 Fri
#original-time: 6:41 PM
#original-day: 3194
#original-host: WinXP Prof SP1 (Build 2600)

Хммм... А когда два раза в секунду программа запускает WaitForSingleObject() и lsass.exe медленно что-то читает с дисков - это нормально?

URL

07:29

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

#post-id: 3194-17-37
#original-date: 24.04.2009 Fri
#original-time: 5:37 PM
#original-day: 3194
#original-host: WinXP Prof SP1 (Build 2600)

Разносила газету, когда выходила из магазина, мимо медленно проезжал грузовик Урал - похороны шли. При чём снега в человеческий рост, и в первую очередь я увидела его колёса. И вот, проползает мимо меня эта штука, которую очень любят в армии, а я поняла, что ищу взглядом бегущих солдат и танк OO Доигралась...

Civilian! Gat away from vehicle!

Кстати, на форуме говорили, что военные почему-то не любят Томми и нападают на него всегда, если он не в форме полицейского. Что значит "почему-то"? А танк кто у них угнал?

URL

07:29

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

#post-id: 3194-16-57
#original-date: 24.04.2009 Fri
#original-time: 4:57 PM
#original-day: 3194
#original-host: WinXP Prof SP1 (Build 2600)

24.04.2009 в 09:01

Пишет Lolit:

Гражданин Таджикистана объявлен в международный розыск за убийство скинхедов в Подмосковье. Националисты отлавливали гастарбайтеров в электричках и избивали, но встретили неожиданный отпор. 26-летний Саиджон Раджабов зарезал троих скинхедов и уехал на родину.

В четверг Московское межрегиональное следственное управление на транспорте сообщило: убийство трех скинхедов на железнодорожной платформе недалеко от подмосковной Коломны раскрыто. Члены неонацистской молодежной группировки были зарезаны в марте прошлого года. Один из пострадавших, 20-летний Максим Данилин, скончался на месте от потери крови, а двое его приятелей, 20-летний Сергей Чупров и 18-летний Дмитрий Самойлов, умерли в больнице.

По данным следствия, подмосковных скинхедов убил 26-летний гастарбайтер из Таджикистана Саиджон Раджабов.

полностью статья

URL записи

Дайте ему медаль!

URL

07:29

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

#post-id: 3194-15-40
#original-date: 24.04.2009 Fri
#original-time: 3:40 PM
#original-day: 3194
#original-host: WinXP Prof SP1 (Build 2600)

24.04.2009 в 10:55

Пишет Lolit:

когда смотрю ливы и клипы ж-рока где группы в которых от вижуал кея только аниме-причесон и пара-тройка пирсинга, тока как-то скучно такое смотреть и неинтересно. сразу мысль: ну мужики и? на что тут зырить? хочу мужиков в юбках и с кометикой а не этих! Т_Т
мысль навеяна после клипов группы Glay и последних дировских ливов. имхо, но это уже условно вижуал кей!

URL записи

URL

07:29

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

#post-id: 3194-13-31
#original-date: 24.04.2009 Fri
#original-time: 1:31 PM
#original-day: 3194
#original-host: WinXP Prof SP1 (Build 2600)

Отлично. Обновила Screen Grabber - добавила деланье скриншотов из командной строки ^^ При чём додумалась сигналить уже загруженной копии программы через события. Примерно так:

modMain.BAS

Attribute VB_Name = "modMain"
Option Explicit

Global hVPCCopy As API_HANDLE
Global Const VPCCopy_EVENT_NAME = "VPC_{E2DFF394-58AD-4b75-BD7D-38390725309D}"

Global hScreenCopy As API_HANDLE
Global Const ScreenCopy_EVENT_NAME = "ScreenCopy_{E2DFF394-58AD-4b75-BD7D-38390725309D}"

Global Const AppGUID = "{4809BD49-3D0F-4480-9690-8149C5539A34}"
Global Alone As New ajpAlone

'====================================================================
Public Sub Main()
  asRegisterAppPath
  InitCommonControls
  If Not asIsInIDE Then asSetWindowResIconAll asGetThunderMainHandle(), IDI_APPICON
  
  ' Сначала создаём событие, которое будем слушать. Событие будет
  ' сбрасываться автоматом - слушать его ведь будет только одна
  ' програмаа...
  ' Кстати, если второй параметр - TRUE, программа будет непрерывно
  ' определять возникновение события ^^ А третий параметр - программа
  ' определит событие после первого же опроса.
  hVPCCopy = CreateEvent(0, C_FALSE, C_FALSE, VPCCopy_EVENT_NAME)
  If hVPCCopy = 0 Then
    MsgBox "Can't create event!", vbCritical
    Exit Sub
  End If
  
  hScreenCopy = CreateEvent(0, C_FALSE, C_FALSE, ScreenCopy_EVENT_NAME)
  If hScreenCopy = 0 Then
    MsgBox "Can't create event!", vbCritical
    Exit Sub
  End If
  
  ' Теперь проверяем командную строку и устанавливаем события, если
  ' нужно... Ну и уходим потом из программы.
  If UCase(Command) = "/VPCCOPY" Then
    SetEvent hVPCCopy
    CloseHandle hVPCCopy
    CloseHandle hScreenCopy
    Exit Sub
  End If
  
  If UCase(Command) = "/SCREENCOPY" Then
    SetEvent hScreenCopy
    CloseHandle hVPCCopy
    CloseHandle hScreenCopy
    Exit Sub
  End If
  
  ' И только теперь проверяем уникальность программы в памти.
  If Not Alone.IsAlone(AppGUID) Then
    CloseHandle hVPCCopy
    CloseHandle hScreenCopy
    Exit Sub
  End If
  
  frmMain.Show
End Sub

frmMain.FRM

VERSION 5.00
Begin VB.Form frmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Main form"
   ClientHeight    =   4515
   ClientLeft      =   1560
   ClientTop       =   1890
   ClientWidth     =   5775
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   9
      Charset         =   204
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   HasDC           =   0   'False
   KeyPreview      =   -1  'True
   LinkTopic       =   "frmMain"
   MaxButton       =   0   'False
   ScaleHeight     =   4515
   ScaleWidth      =   5775
   Begin VB.CommandButton cmdSetIt 
      Caption         =   "Set it!"
      Height          =   495
      Index           =   2
      Left            =   4440
      TabIndex        =   3
      Top             =   3900
      Width           =   1215
   End
   Begin VB.CommandButton cmdSetIt 
      Caption         =   "Set it!"
      Height          =   495
      Index           =   1
      Left            =   3120
      TabIndex        =   2
      Top             =   3900
      Width           =   1215
   End
   Begin VB.ListBox lstEvents 
      Height          =   3630
      IntegralHeight  =   0   'False
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   5535
   End
   Begin VB.CommandButton cmdSetIt 
      Caption         =   "Set it!"
      Height          =   495
      Index           =   0
      Left            =   1800
      TabIndex        =   0
      Top             =   3900
      Width           =   1215
   End
   Begin VB.Timer tmrEventsCheck 
      Interval        =   250
      Left            =   120
      Top             =   3960
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

'====================================================================
Private Sub Form_Load()
  asCenterFormEx Me.hWnd
  If Not asIsInIDE() Then asSetWindowResIconAll Me.hWnd, "A_MAIN"
End Sub

Private Sub Form_Unload(Cancel As Integer)
  ' Отчистка.
  CloseHandle hVPCCopy
  CloseHandle hScreenCopy
End Sub

'====================================================================
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = VK_F1 And Shift = vbShiftMask Then ajpMain.ShowAboutBox Me, App
  If KeyCode = VK_ESCAPE And Shift = 0 Then Unload Me
End Sub

'====================================================================
Private Sub tmrEventsCheck_Timer()
  Dim RC As Long
  
  ' По результату ожидания определяем, установлено ли событие. Оно
  ' сбросится автоматом.
  'RC = WaitForSingleObject(hVPCCopy, 0)
  'If RC = WAIT_OBJECT_0 Then Me.lstEvents.AddItem "Сигнал из космоса [" & Format(Now, "Long Time") & "]", 0
  '
  'RC = WaitForSingleObject(hScreenCopy, 0)
  'If RC = WAIT_OBJECT_0 Then Me.lstEvents.AddItem "Сигнал получен [" & Format(Now, "Long Time") & "]", 0
  
  
  Dim Handles(0 To 1) As API_HANDLE
  
  Handles(0) = hVPCCopy
  Handles(1) = hScreenCopy
  
  RC = WaitForMultipleObjects(2, Handles(0), C_FALSE, 0)
  
  If RC = WAIT_OBJECT_0 Then Me.lstEvents.AddItem "Сигнал получен [" & Format(Now, "Long Time") & "]", 0
  If RC = WAIT_OBJECT_0 + 1 Then Me.lstEvents.AddItem "Сигнал из космоса [" & Format(Now, "Long Time") & "]", 0
End Sub

Private Sub cmdSetIt_Click(Index As Integer)
  ' Просто проверка...
  Select Case Index
    Case 0
      SetEvent hVPCCopy
    Case 1
      SetEvent hScreenCopy
    Case 2
      SetEvent hVPCCopy
      SetEvent hScreenCopy
  End Select
End Sub

Это я вчера по-бытрому написала тест, и меня понесло ^_^ Теперь ещё Private Desktops обновить надо в том же духе. Ну и один хоткей добавить для секурности, но это сложнее...

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

URL

07:29

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

#post-id: 3194-11-32
#original-date: 24.04.2009 Fri
#original-time: 11:32 AM
#original-day: 3194
#original-host: WinXP Prof SP1 (Build 2600)

В программу канала Спорт воткнула "Хоткей" вместо "Хоккея". Ни кто не заметил - только что ушло в печать... Мдя ^_^v

URL

07:29

Доступ к записи ограничен

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

Закрытая запись, не предназначенная для публичного просмотра

URL

07:29

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

#post-id: 3194-10-41
#original-date: 24.04.2009 Fri
#original-time: 10:41 AM
#original-day: 3194
#original-host: WinXP Prof SP1 (Build 2600)

У меня на столе стоит кружка. При чём стоит ближе к краю, но не совсем на краю. И вот, я не понимаю, почему каждому подошедшему срочно нужно сдвинуть её на середину >_< Так и хочется двинуть этой кружкой, чтобы грязные руки не тянули >_<

URL

07:29

Доступ к записи ограничен

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

Закрытая запись, не предназначенная для публичного просмотра

URL

четверг, 23 апреля 2009