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

суббота, 06 декабря 2008

17:09

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

#post-id: 3054-01-46
#original-date: 5.12.2008 Fri
#original-time: 1:46 AM
#original-day: 3054
#original-host: WinXP Prof SP2 (Build 2600)

Гы. Мне уже названивают анонимы, говорят, что я их не знаю, и спрашивают как их зовут. Гы. И хорошо, что не знаю.

#music: Initial D\Initial D D Selection\Dave Rodgers / Space Boy

URL

17:09

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

#post-id: 3054-00-01
#original-date: 5.12.2008 Fri
#original-time: 12:01 AM
#original-day: 3054
#original-host: WinXP Prof SP2 (Build 2600)

Смотрю я на Линуксы - C, да C++. Смотрю я на Колибри - Ассемблер. Эх... Неужели больше не будет системы вроде FM-TOWNS, где официальный язык - Basic? Хотя Singularity вселяет некоторую надежду.

#music: Atsushi Umebori\Initial D Fourth Stage Sound Files 2\Theme of AE86 -Being-

URL

17:09

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

#post-id: 3053-23-52
#original-date: 4.12.2008 Thu
#original-time: 11:52 PM
#original-day: 3053
#original-host: WinXP Prof SP2 (Build 2600)

Kiwi!

http://www.youtube.com/watch?v=sdUUx5FdySs

Прекрасная и печальная история...

URL

17:09

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

#post-id: 3053-22-54
#original-date: 4.12.2008 Thu
#original-time: 10:54 PM
#original-day: 3053
#original-host: WinXP Prof SP2 (Build 2600)

Хммм... Написала простой синхронизатор времени с использованием DCOM. Не пускает. Оказалось, что в Аутпосте есть глобальное правило, по которому такие шалости запрещены. Всё думала, какой бы финт ушами выкинуть, чтобы исключить один адресок. До этого я так запретила локальные подключения на порт прокси, вот так вот исключив его из диапозонов, я даже писала об этом ранее. А вот тут так не получалось, поэтому я попробовала создать правило с большим приоритетом, и оно вдруг сработало ^^

Но надо бы написать NNTP сервер и клиент, чтобы было... Ну и в Win98 пригодится...

URL

17:09

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

#post-id: 3053-20-11
#original-date: 4.12.2008 Thu
#original-time: 8:11 PM
#original-day: 3053
#original-host: WinXP Prof SP1 (Build 2600)

Всем любопытствующим забавная программа, которую я ещё на VB1 писала, потом портировала под VB5, а только что - в VB6 ^^

modMain.BAS

Option Explicit

Public Sub Main()
  frmMain.Show vbModeless
End Sub

SysColorsTest.GLB

Option Explicit

Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Declare Function SetSysColors Lib "user32" (ByVal nChanges As Long, lpSysColor As Long, lpColorValues As Long) As Long

Global Const COLOR_BACKGROUND = 1
Global Const COLOR_ACTIVECAPTION = 2
Global Const COLOR_WINDOWFRAME = 6

Declare Function ShellAbout& Lib "shell32.dll" Alias "ShellAboutA" (ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long)

frmMain.FRM

VERSION 5.00
Begin VB.Form frmMain 
   Appearance      =   0  'Flat
   BackColor       =   &H80000005&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "SysColors Demo"
   ClientHeight    =   1380
   ClientLeft      =   1560
   ClientTop       =   2010
   ClientWidth     =   3150
   BeginProperty Font 
      Name            =   "MS Sans Serif"
      Size            =   8.25
      Charset         =   204
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H80000008&
   Icon            =   "frmMain.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   1380
   ScaleWidth      =   3150
   Begin VB.Timer tmr_Colors 
      Interval        =   500
      Left            =   2580
      Top             =   900
   End
   Begin VB.CheckBox chk_Timer 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Enable Timer"
      ForeColor       =   &H80000008&
      Height          =   315
      Left            =   180
      TabIndex        =   1
      Top             =   960
      Value           =   1  'Checked
      Width           =   1515
   End
   Begin VB.CommandButton cmd_Change 
      Caption         =   "Change All Colors"
      Height          =   675
      Left            =   180
      TabIndex        =   0
      Top             =   180
      Width           =   2715
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim SavedColors(28) As Long

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim RC As Long
  Dim Title As String
  Dim Ver As String
  
  Select Case KeyCode
    Case vbKeyEscape
      Unload Me
    Case vbKeyF1
      Title = ""
      Title = Title & "О программе#"
      Title = Title & App.Title
      
      Ver = ""
      Ver = Ver & "Версия: "
      Ver = Ver & App.Major
      Ver = Ver & "."
      Ver = Ver & Format(App.Minor, "00")
      Ver = Ver & "."
      Ver = Ver & Format(App.Revision, "0000")
      Ver = Ver & vbCrLf
      Ver = Ver & "Посвящается Ариэль"
      
      RC = ShellAbout(Me.hwnd, Title, Ver, Me.Icon.Handle)
  End Select
End Sub

Private Sub chk_Timer_Click()
  Me.tmr_Colors.Enabled = (Me.chk_Timer.Value = 1)
End Sub

Private Sub cmd_Change_Click()
  ChangeAllColors
End Sub

Private Sub Form_Load()
  Dim TMP As Long
  
  Randomize
  
  Me.Top = (Screen.Height - Me.Height) \ 2
  Me.Left = (Screen.Width - Me.Width) \ 2
  
  ' ** Save current system colors.
  For TMP = 0 To 28
    SavedColors(TMP) = GetSysColor(TMP)
  Next TMP
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Dim TMP As Long
  
  ' ** Restore system colors.
  ReDim IndexArray(28) As Long
  
  For TMP = 0 To 28
    IndexArray(TMP) = TMP
  Next TMP
  
  SetSysColors 29, IndexArray(0), SavedColors(0)
End Sub

Public Sub ChangeAllColors()
  Dim RC As Long
  Dim TMP As Long
  
  ' ** Change all display elements.
  ReDim NewColors(28) As Long
  ReDim IndexArray(28) As Long
  
  For TMP = 0 To 28
    NewColors(TMP) = QBColor(Int(16 * Rnd))
    IndexArray(TMP) = TMP
  Next TMP
  
  RC = SetSysColors(29, IndexArray(0), NewColors(0))
End Sub

Private Sub tmr_Colors_Timer()
  Me.cmd_Change.Enabled = False
  Me.chk_Timer.Enabled = False
  
  ChangeAllColors
  
  Me.cmd_Change.Enabled = True
  Me.chk_Timer.Enabled = True
End Sub

URL

17:08

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

#post-id: 3053-20-09
#original-date: 4.12.2008 Thu
#original-time: 8:09 PM
#original-day: 3053
#original-host: WinXP Prof SP1 (Build 2600)

Как же я обажаю Sound files и иже с ними из Initial D... Особенно лирические вещи из Vocal Battle Second Stage, как раз когда мозги вот-вот взорвутся, действует как система охлаждения...

URL

17:08

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

#post-id: 3053-17-38
#original-date: 4.12.2008 Thu
#original-time: 5:38 PM
#original-day: 3053
#original-host: WinXP Prof SP1 (Build 2600)

Чувствую, я плохо влияю на некоторых людей из коллектива...

URL

17:08

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

#post-id: 3053-12-36
#original-date: 4.12.2008 Thu
#original-time: 12:36 PM
#original-day: 3053
#original-host: WinXP Prof SP1 (Build 2600)

Погода на Яндексе, поиск погоды по шкале ^^

Наш полет проходит на высоте 10 тысяч метров.

Помните историю мамонтёнка, найденного в вечной мерзлоте? Он тоже хотел похолоднее.

Разморозьте шкалу, пожалуйста. Ползунок сейчас примерзнет.

Ползунок скоро перегреется. Дайте ему остыть.

Вы жжете!

А вот ещё:

Знаете ли вы, что температура -40° по Цельсию точно равна температуре -40° по Фаренгейту. Это единственная температура, в которой две шкалы сходятся.

URL

17:08

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

#post-id: 3053-12-30
#original-date: 4.12.2008 Thu
#original-time: 12:30 PM
#original-day: 3053
#original-host: WinXP Prof SP1 (Build 2600)

Учитывая моё увлечение хентаем, фраза "Алло, мы ищем таланты" асоциируется у меня только с тёмными личностями виз японских фильмов (и даже в YUA такое было!), которые непрерывно разыскивают талатны и представляют какие-то "агентства" ^^

А ещё на работе холодно, а я в лёгкой футболочке, вспоминаю слова Бунты про "ты замёрз из-за своей лени" и закаляюсь ^^ Дальше будет хуже ^^

URL

17:08

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

#post-id: 3053-01-22
#original-date: 4.12.2008 Thu
#original-time: 1:22 AM
#original-day: 3053
#original-host: WinXP Prof SP2 (Build 2600)

Блин! Час искала где эти картинки! Оказалось что где-то в архивах в торентах, но я всёже нашла их. Ух. Оказалось рисовали их всё те же Behind Moon, и даже додзя у них есть по Tokyo Mew Mew ^_^ Да-да, помимо того что футанари часть тут прорисована близко к исходным животным, так ещё и повадки сохранились. Одна только Занкуро как порадовала ^___^

/* Основная накладка случилась из-за того что всё было в архивах, а архивы эти были помечены как недокаченные, хотя хорошо распаковывались... */

Итак, файлик зовётся [Behind Moon] hamekko doubutsu Futanari MyuuMyuu.zip, если кому интересно почитать, 16 метров, поэтому не выкладываю ^^

URL

17:08

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

#post-id: 3052-22-50
#original-date: 3.12.2008 Wed
#original-time: 10:50 PM
#original-day: 3052
#original-host: WinXP Prof SP2 (Build 2600)

Не, ребята. Буду наконец писать свой агрегатор для Бэки, а то эти тормоза неприемлимы...

URL

17:07

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

#post-id: 3052-20-48
#original-date: 3.12.2008 Wed
#original-time: 8:48 PM
#original-day: 3052
#original-host: WinXP Prof SP2 (Build 2600)

Слава богу, со второго раза он понял наконец что эта галочка стояла...

URL

17:07

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

#post-id: 3052-20-35
#original-date: 3.12.2008 Wed
#original-time: 8:35 PM
#original-day: 3052
#original-host: WinXP Prof SP2 (Build 2600)

Пилять. Стоит галочка "Bya default display article summary istead of loading web page". Импортировала сотню фидов. Что вы думаете? Правильно, эта тупая птица плевала на галочку и теперь в каждом фиде нужно поставить галочку, чтобы эта тупая программа не ломилась на сайт. Кто вообще додумался фиды грузить так? Кому руки поотрывать?

А теперь вопрос. Как удалить все эти сто фидов? Я в задумчивости, ибо с тормозами from Mozilla на это уйдёт весь вечер >_<

URL

17:07

Временный пост @Diary.Client

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

Временный пост блог-клиента <a href="client.diary.ru/">@Diary.Client</a>. Если через несколько минут тот пост не изменится, его можно удалить.

URL

17:07

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

#post-id: 3052-20-25
#original-date: 3.12.2008 Wed
#original-time: 8:25 PM
#original-day: 3052
#original-host: WinXP Prof SP2 (Build 2600)

Юзанье мозиловских продуктов похоже на стояние перед закрытым туалетом: "Ну скоро уже?"

URL

17:07

Временный пост @Diary.Client

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

Временный пост блог-клиента <a href="client.diary.ru/">@Diary.Client</a>. Если через несколько минут тот пост не изменится, его можно удалить.

URL

17:07

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

#post-id: 3052-19-12
#original-date: 3.12.2008 Wed
#original-time: 7:12 PM
#original-day: 3052
#original-host: WinXP Prof SP2 (Build 2600)

Я ф шоке, ifolder поддерживает докачку...

URL

17:07

Временный пост @Diary.Client

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

Временный пост блог-клиента <a href="client.diary.ru/">@Diary.Client</a>. Если через несколько минут тот пост не изменится, его можно удалить.

URL

17:07

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

#post-id: 3052-15-06
#original-date: 3.12.2008 Wed
#original-time: 3:06 PM
#original-day: 3052
#original-host: WinXP Prof SP1 (Build 2600)

После Бэки в Тандербёрде (^^') настроек как-то совсем мало... Ни чего толком и не настроишь.

URL

17:07

Временный пост @Diary.Client

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

Временный пост блог-клиента <a href="client.diary.ru/">@Diary.Client</a>. Если через несколько минут тот пост не изменится, его можно удалить.

URL


Запомнить