#post-id: 3392-17-07
#original-date: 8.11.2009 Sun
#original-time: 5:07 PM
#original-day:  3392
#original-host: WinXP Prof SP2 (Build 2600)



#music: FASTWAY\SUPER EUROBEAT presents INITIAL D BATTLE STAGE 2 [DISC1](2)\SHOCK OUT

---

#post-id: 3392-06-53
#original-date: 8.11.2009 Sun
#original-time: 6:53 AM
#original-day:  3392
#original-host: WinXP Prof SP2 (Build 2600)

08.11.2009 в 06:53

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

Shinrabansho


A hybrid Japanese card-game/snack food product. Most notable character being Astaroth.

---

#post-id: 3392-06-53
#original-date: 8.11.2009 Sun
#original-time: 6:53 AM
#original-day:  3392
#original-host: WinXP Prof SP2 (Build 2600)

---

#post-id: 3392-06-36
#original-date: 8.11.2009 Sun
#original-time: 6:36 AM
#original-day:  3392
#original-host: WinXP Prof SP2 (Build 2600)

08.11.2009 в 06:35

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

Ещё щюпальца ^^


По воторой картинке, кстати, делали фигурку ^^

---

#post-id: 3392-00-26
#original-date: 8.11.2009 Sun
#original-time: 12:26 AM
#original-day:  3392
#original-host: WinXP Prof SP2 (Build 2600)

Играет музыка Akio Car ^^ Вспоминаю как этот товарищ гонял на красной машине по почти прямому шоссе... Почти дьявол ^^ Потом вспоминаю что главгероя Wangan Midnight звали тоже Акио, а у него была Дьявольская Z, и начинаю смеяться ^_^'

#music: Utena\Utena - Soundtrack 6\Akio Car

---

#post-id: 3391-23-22
#original-date: 7.11.2009 Sat
#original-time: 11:22 PM
#original-day:  3391
#original-host: WinXP Prof SP2 (Build 2600)

Капитан Очевидность говорит: GZip позволяет драматически (^^) снизить трафик. Например, при получении XML с постами из Тусблера, блок на 50 постов без GZip весит ~50 кило, а с GZip ~5 кило.

Это я ещё один глюк выловила. Все мои программы, которые юзают CommonFunctions0300.DLL, устанавливают ZLibStdCall.DLL. Дома всё вроде прекрасно работает. Но я вдруг заметила такой трафик, когда запускала с виртуалки программу.

Проверила - библиотека на месте. Только не в System32, а в каталоге с моими COM компонентами (в Program Files). Но ведь же и FilePNG.DLL там лежит! Хммм... Ага! Вот код CFilePNG.CLS:

Private hLib As API_HANDLE

'====================================================================
' Что делается в этом конструкторе? Делаются пляски с бубном. Дело в
' том, что есть желание, чтобы файл загружался из каталога
' библиотеки. Для этого делается попытка загрузить файл. Если не
' загружен, у нас ни чего не получилось, и файл не в системном
' каталоге. Далее получаем каталог файла библиотеки и комбинируем его
' с именем библиотеки. Снова пытаемся загрузить. Если получилось, всё
' хорошо. А для чего вообще это надо? Всё просто. VB если и будет
' потом грузить библиотеку для Declare вызова, он загрузит её оттуда
' же, откуда и уже загруженная. Таким образом он не будет её искать в
' системном каталоге. Всё просто ^^
'====================================================================
Private Sub Class_Initialize()
  Dim FileName As BStr
  Dim RC As Long
  
  hLib = LoadLibrary("FilePNG.DLL")
  If hLib <> 0 Then Exit Sub
  
  FileName = asGetModulePrettyFileName(App.hInstance)
  FileName = asGetFilePath(FileName)
  FileName = asBuildFileName(FileName, "FilePNG.DLL")
  
  hLib = LoadLibrary(FileName)
End Sub

Private Sub Class_Terminate()
  If hLib <> 0 Then FreeLibrary hLib
End Sub

Думаю, коммент всё объяснил ^^ Добавила в код класса, работающего с GZip такое же, и всё заработало ^^

Заодно заметила, что у HC есть одна проблема. Если мы запрашиваем сжатый файл, то он нормально получается и в таком же сжатом виде пишется в кэш. Но потом мы запрашиваем его же, но без сжатия. HC отдаёт нам тот же сжатый файл и ни как не сигнализирует о том, что он сжат.

#music: Masami Okui\Shoujo Kakumei Utena - Rinbu-R\Rinbu-Revolution

---

#post-id: 3391-23-04
#original-date: 7.11.2009 Sat
#original-time: 11:04 PM
#original-day:  3391
#original-host: WinXP Prof SP2 (Build 2600)

Блин ^^' Неожиданно начал модифицироваться пароль к прокси. Тоесть к нему дописывалась такая же строка и сохранялась. Не заметила бы, если бы не начала тестировать на виртуалке, где пароль нужно указывать. Ломала голову, как же так? Переписала код, но всё равно было интересно, как такое получилось?

Начала разбираться. Оказалось, что у меня две программы, где появился глюк делали так:

- Создавали объект уровня формы.
- В Form_Load грузили его настройки (специальная функция в объекте).
- В Form_Unload сохраняли его настройки (тоже функция).
- Прятали форму и показывали новую (чтобы всё ещё можно было ссылаться на контролы скрытой формы).

Всё вроде нормально. Но тут неожиданно обнаружился забытый Unload Me. Всё работало прекрасно только потому что VB при каждой ссылке на форму грузил её автоматом, а поря инициализировал из реестра.

Но в чём же проблема? Двойное сохранение настроек? Я пробовала - нет. Более того, тесты это не подтвердили. И тут я сообразила. Объект же мог не уничтожиться, и функция загрузки настроек могла быть вызвана два раза. Открываю её и вижу такую красоту:

  Dim Password As BStr
  Dim TMP As Long
  
  Password = REG.LoadSetting2(...)
  
  For TMP = ...
    mvarHTTP_Password = mvarHTTP_Password & ...(Password)...
  Next TMP
  If Err.Number <> 0 Then mvarHTTP_Password = ""

Это при том, что перез чтением настроек свойста не сбрасывались. А зачем? Ни кому же не придёт в голову два раза грузить настройки. Пришло. В итоге к уже имеющейся переменной mvarHTTP_Password, содержащей пароль, дописывался тот же пароль.

Короче, я по прежнему уверена, что идеология "этого не может быть, а если будет, то виноват пользователь" - путь к дырам и русским народным галлюцинациям. Я предпочитаю учитывать больше, чем может случиться. Если у нас есть DWORD, значение, которого нужно проверить, то я обязательно проверю, чтобы он не был меньше нуля (ибо в будущем DWORD может превратиться в INT), если у нас есть день недели, я проверю, чтобы там не было девятки, ну и всё в таком духе.

Придаёт больше душевного спокойствия.

  Dim P As New ProxySettings
  P.HTTP_LoadProxySettings2 , App
  P.HTTP_ShowConfigDialog
  P.HTTP_SaveProxySettings2 , App
  Set P = Nothing
  P.HTTP_LoadProxySettings2 , App
  P.HTTP_LoadProxySettings2 , App
  P.HTTP_ShowConfigDialog
  P.HTTP_SaveProxySettings2 , App
  Set P = Nothing
  P.HTTP_LoadProxySettings2 , App
  P.HTTP_ShowConfigDialog
  P.HTTP_SaveProxySettings2 , App
  Set P = Nothing

#music: Shinkichi Mitsumune\Utena OST 5 Disc 2\Hana no Nai Bara

---

#post-id: 3391-22-08
#original-date: 7.11.2009 Sat
#original-time: 10:08 PM
#original-day:  3391
#original-host: WinXP Prof SP2 (Build 2600)

Весь смысл серии Утэны про Нанами и колокольчик в том, что Нанами - классическая блондинка ^^ Это как в том афоризме: оскорбить действием может любой, в трёх действиях - только драматург.

#music: Shinkichi Mitsumune\Utena OST 5 Disc 1\Dona Dona

---

#post-id: 3391-19-09
#original-date: 7.11.2009 Sat
#original-time: 7:09 PM
#original-day:  3391
#original-host: WinXP Prof SP2 (Build 2600)

Восьмая серия SP проходит под девизом "А счастье было так близко". Драма же...

#video: scrapped_princess_08

---

#post-id: 3391-18-23
#original-date: 7.11.2009 Sat
#original-time: 6:23 PM
#original-day:  3391
#original-host: WinXP Prof SP2 (Build 2600)

Блин >_< Терпеть не могу сидеть с грязной головой. А ещё больше терпеть не могу мыть только голову. Сидишь, голова вроде чистая, а остальное тело от этого кажется ещё более грязным >_<

#music: Shoujo Kakumei Utena OST #1\Zettai Unmei Mokushiroku

---

#post-id: 3390-20-30
#original-date: 6.11.2009 Fri
#original-time: 8:30 PM
#original-day:  3390
#original-host: WinXP Prof SP2 (Build 2600)

Примерно в те же годы подобного рода состязания прошли в Италии, Соединенных Штатах Америки и в Великобритании. Причем, что интересно, в последнем случае соревнование прошло фактически случайно. В 1896 году был наконец-то отменен «Закон о красном флаге» (он был принят в 1865 году и по нему требовалось следующее: в каждом автомобиле должно сидеть два водителя, двигаться автомобиль мог не быстрее 4 миль в час, и перед автомобилем обязательно должен был следовать человек с красным флажком). По поводу столь радостного события и был проведен спонтанный автопробег из Лондона в Брайтон. Естественно, без каких-либо призов или победителей.

Суровые когда-то были законы OO

История автоспорта изобилует захватывающими спортивными подвигами, многозначительными техническими достижениями и, в то же время, трагедиями. Во время 24-часовой гонки в Ле-Мане (в 1955 году) Mercedes Пьера Левега вылетел за ограждение, от обломков и вспыхнувшего топлива пострадали более 80 зрителей. После этого события немецкий автопроизводитель надолго ушёл из автоспорта. При этом ремни безопасности в Формуле-1 были введены только в шестидесятых годах.

В связи с этой трагедией в Швейцарии были запрещены любые проявления автоспорта. Этот запрет до сих пор в силе.

А это уже не суровые, а идиотские законы OO

#music: Akashiya Moka (Mizuki Nana)\Rosario to Vampire Character Song 1 - Akashiya Moka\Akai Jounetsu

---

#post-id: 3390-14-37
#original-date: 6.11.2009 Fri
#original-time: 2:37 PM
#original-day:  3390
#original-host: WinXP Prof SP2 (Build 2600)

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

---

Ни чего не понимаю. Ни чего не понимают. Консенсус ^^'

@темы: MACHINEX, jabber

---

#post-id: 3389-22-39
#original-date: 5.11.2009 Thu
#original-time: 10:39 PM
#original-day:  3389
#original-host: WinXP Prof SP2 (Build 2600)

Неужали опять забыла строчку поправить?



Неожиданно удобно расположила тулбар в OE ^^



SP2 даёт о себе знать ^^



Фубар задумался на новом месте...



Не люблю визуализации, но эта красива ^^

---

#post-id: 3389-22-32
#original-date: 5.11.2009 Thu
#original-time: 10:32 PM
#original-day:  3389
#original-host: WinXP Prof SP2 (Build 2600)

http://video.mail.ru/mail/lindakaioh/anime/10.html
http://video.mail.ru/mail/lindakaioh/anime/11.html
http://video.mail.ru/mail/lindakaioh/anime/12.html

---

#post-id: 3389-17-53
#original-date: 5.11.2009 Thu
#original-time: 5:53 PM
#original-day:  3389
#original-host: WinXP Prof SP2 (Build 2600)

Ни как не могу понять, что мне не нравится в IcoFx. И вроде нормальная программа, и удобная, а всё равно душа не лежит. Может быть потому что сильно напоминает Photoshop и визуально громоздкая (в отличие от Microangelo).

---

#post-id: 3389-16-51
#original-date: 5.11.2009 Thu
#original-time: 4:51 PM
#original-day:  3389
#original-host: WinXP Prof SP2 (Build 2600)

http://community.livejournal.com/ru_antidogma/643546.html

Каких только велосипедов не понаделают лишь бы не юзать хотябы WinAmp ^^ Хотя вес не пугает ^^

#upd: А ларчик просто открывался. JRE ^^'

---

#post-id: 3389-04-15
#original-date: 5.11.2009 Thu
#original-time: 4:15 AM
#original-day:  3389
#original-host: WinXP Prof SP2 (Build 2600)

Кстати, скрипт, который мне сильно помог сократить тормоза при открытии Моего компьютера и создании новых папок в окне сохранения файла. Отключает сетевой диск, если хост не пингуется, и подключает его снова, если пинги пошли. В смысле, не именно пингует, а проверяет существование сетевой шары.

Option Explicit

Const AppTitle = "AJPapps - Network drive fixer"
Const DRIVE_LETTER = "Q"
Const CHECKED_PATH = "\\CHIBI-MX\C$"

Dim FSO
Dim File

On Error Resume Next

Set FSO = CreateObject("Scripting.FileSystemObject")
If Err Then
  MsgBox "Не удаётся создать Scripting.FileSystemObject.", vbCritical
  WScript.Quit
End If

'Do
  
  If IsMachineOffline() Then
    If IsDriveExist(DRIVE_LETTER) Then
      DismountDrive DRIVE_LETTER
    End If
  Else
    If Not IsDriveExist(DRIVE_LETTER) Then
      MountDrive DRIVE_LETTER
    End If
  End If
  
'  WScript.Sleep 60000
'Loop

'====================================================================
Private Function IsDriveExist(ByVal DriveLetter)
  Dim Drive
  
  For Each Drive In FSO.Drives
    If UCase(DriveLetter) = UCase(Drive.DriveLetter) Then
      IsDriveExist = True
      Exit Function
    End If
  Next
  
  IsDriveExist = False
End Function

Private Function IsMachineOffline()
  IsMachineOffline = Not FSO.FolderExists(CHECKED_PATH)
End Function

'====================================================================
Private Sub MountDrive(DriveLetter)
  Dim WshNetwork
  
  On Error Resume Next
  
  ' Обновляем профиль пользователя на всякий пожарный...
  Set WshNetwork = WScript.CreateObject("WScript.Network")
  WshNetwork.MapNetworkDrive DriveLetter & ":", CHECKED_PATH, True
  'If Err Then MsgBox Err.Description
End Sub

Private Sub DismountDrive(DriveLetter)
  Dim WshNetwork
  
  On Error Resume Next
  
  ' Тут важно тоже обновить профиль пользователя, иначе диск будет 
  ' виден в Моём компьютере, а скрипт будет считать, что всё 
  ' отключено. Более того, он просто не сможет потом снова его 
  ' подключить - диск занят, и всё тут...
  Set WshNetwork = WScript.CreateObject("WScript.Network")
  WshNetwork.RemoveNetworkDrive DriveLetter & ":", True, True
  'If Err Then MsgBox Err.Description
End Sub

Закомментирован цикл. Тоесть есть два варианта использования скрипта: вызов из планировщика (я поставила раз в минуту) или автозапуск. Но тогда нужно раскомментировать цикл. И он будет крутиться так пока система его не прихлопнет. Решила выбрать первый вариант - планировщик очень удобная штука.

---

#post-id: 3389-04-09
#original-date: 5.11.2009 Thu
#original-time: 4:09 AM
#original-day:  3389
#original-host: WinXP Prof SP2 (Build 2600)

Кстати, в том фильме (Параграф) больше всего добило то как главгерои последовательно убивали друг друга, хотя командиру достаточно было рассказать, что нужно для создания вакцины, и наверняка что-нибудь нашлось бы. Но он сообразил только в самом конце...

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

И ещё запомнилась калька (как мне кажется) из пятого сезона SM, где Харука ползла к Мичиру перед смертью. В фильме как раз эти двое друзей, которые подстрелили друг друга, умерли рядом. Не одновременно, но толстяк выстоял и пошёл к упавшему другу. И ещё кобачка там так печально на них посмотрела, словно жалела их (или толстяка)...

Мда.

---

#post-id: 3389-01-02
#original-date: 5.11.2009 Thu
#original-time: 1:02 AM
#original-day:  3389
#original-host: WinXP Prof SP2 (Build 2600)

Досмотрела ^^ Мне понравилось ^^ Хотя было ощущение, что всё откуда-то содрано: драка с пистолетами - Матрица, действие вируса и откушенное мыло - Лем, накал чувств и литры слёз - нарута ^^