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

воскресенье, 14 марта 2010

08:44

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

#post-id: 3518-04-58
#original-date: 14.03.2010 Sun
#original-time: 4:58 AM
#original-day: 3518
#original-host: WinXP Home SP3 (Build 2600)

О, вроде как закончила IE Booster 2 ^^ Теперь он имеет GUI (HTA файл), умеет настраивать разные параметры поотдельности. В частности, в этой версии можно настроить IE8 так чтобы он слушался настроек, работая по дилапу. Благодаря новой схеме настроек, появились отдельные поля для HH.EXE (HTML Help) и для MSHTA.EXE (хост для таких вот HTA файлов).

Как-то так:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" 
                      "http://www.w3c.org/TR/REC-html40/strict.dtd">

 ================================================================
' AJPapps - IE booster 2
' Линда Кайе 2010. Посвящается Ариэль
' 
' Это вторая версия скрипта IE Booster. Она всё также настраивает 
' количество одновременных подключений к серверу в Internet Explorer,
' но теперь поддерживаются новые настройки, которые влияют на IE в
' том числе и при  активном Dial-Up подключении. Помимо этого, теперь 
' у скрипта есть графический интерфейс, которым пользоваться ещё 
' удобнее, чем раньше.
' 
' http://support.microsoft.com/kb/183110
' http://support.microsoft.com/kb/282402
' 
' • 16.07.2009
'   Первая версия ^^
' 
' • 14.03.2010
'   Вторая версия ^^
' 
'====================================================================
' Маленький копирайт
' 
' 1. Программа и исходный код распространяются бесплатно.
' 2. Вы имеете право распространять их на тех же условиях.
' 3. Вы не имеете права использовать имя автора после модификации 
'    исходного кода.
' 4. При этом желательно указывать ссылку на автора оригинальной 
'    версии исходного кода.
' 5. Вы не имеете права на платное распространение исходного кода, 
'    а также программных модулей, содержащих данный исходный код.
' 6. Программа и исходный код распространяются как есть. Автор не 
'    несёт ответственности за любые трагедии или несчастные случаи, 
'    вызванные использованием программы и исходного кода.
' 7. Для любого пункта данного соглашения может быть сделано 
'    исключение с разрешения автора программы.
' 8. По любым вопросам, связанным с данной программой, обращайтесь 
'    по адресу lindaoneesama@gmail.com
' 
' Загружено с http://purl.oclc.org/Linda_Kaioh/Homepage/
'================================================================ 

<HTML LANG="ru">
<HEAD>
  <TITLE>IE booster 2</TITLE>
  
  <HTA:APPLICATION ID="frmIEBooster2"
                   APPLICATIONNAME="IEBooster2"
                   BORDER="THIN"
                   CAPTION="YES"
                   MAXIMIZEBUTTON="NO"
                   MINIMIZEBUTTON="YES"
                   ICON="explorer.exe"
                   SHOWINTASKBAR="YES"
                   SCROLL="NO"
                   SINGLEINSTANCE="YES"
                   WINDOWSTATE="NORMAL"
                   SYSMENU="YES"
                   VERSION="1.0"
                   BORDERSTYLE="DIALOG"
                   CONTEXTMENU="NO"
                   INNERBORDER="NO"
                   NAVIGABLE="YES"
                   SELECTION="NO" />
  
  <STYLE TYPE="text/css">
  
    BODY {
      background:buttonface;
      color:buttontext;
      font:10pt 'MS Shell Dlg';
      padding:0px;
      margin:0px;
      }
    IMG {
      width:300px;
      height:278px;
      border:1px solid black;
      margin-right:10px;
      backcolor:black;}
    #divUpper {
      padding:8px 15px 10px 15px;
      border-bottom:1px solid infotext;
      color:infotext;
      background:infobackground;}
    #divCopy {
      text-align:right;
      top:10px;right:15px;
      position:absolute;
      font-size:8pt;}
    SPAN.LINK {
      cursor:hand;}
    
    /* New ^^ */
    
    DIV.MAIN_FRAME {
      margin:10px 10px 20px 15px;padding:0px;
      x-border:1px solid black;}
    DIV.GROUP_HEADER {
      font-weight:bold;
      font-size:12pt;
      margin:0px 0px 10px 0px;}
    DIV.GROUP_COMMENT {
      margin:0px 0px 10px 15px;}
    TABLE.FORM_TABLE {
      margin:0px 0px 0px 15px;
      width:425px;}
    TD.LEFT_CELL {
      width:70px;}
    TD.RIGHT_CELL {
      width:auto;}
    INPUT.TEXT_BOX {
      x-width:150px;
      width:100px;
      margin:0px 5px 0px 0px;}
    DIV.BUTTONS_BAR {
      text-align:right;}
    INPUT.COMMAND_BUTTON {
      width:90px;
      height:27px;
      margin:0px 5px 0px 0px;}
  
  </STYLE>
</HEAD>
<BODY>

<sсript LANGUAGE="VBsсript">

  Const AppTitle = "AJPapps - IE booster 2"
  
  Const MY_WIDTH = 470
  Const MY_HEIGHT = 400
  
  Window.ResizeTo MY_WIDTH, MY_HEIGHT
  Window.MoveTo (Screen.AvailWidth - MY_WIDTH) \ 2, _
                (Screen.AvailHeight - MY_HEIGHT) \ 2
  
  '==================================================================
  Public Sub Document_OnKeyDown()
    If Window.Event.KeyCode = 27 Then Window.Close
  End Sub
'
</sсript>

<DIV ID="divUpper">
[ <SPAN TITLE=" Открыть статью KB183110 на сайте Microsoft " CLASS="LINK"
        ONCLICK="Javasсript:window.open('http://support.microsoft.com/kb/183110');">
        KB183110</SPAN> ]
[ <SPAN TITLE=" Открыть статью KB282402 на сайте Microsoft " CLASS="LINK"
        ONCLICK="Javasсript:window.open('http://support.microsoft.com/kb/282402');">
        KB282402</SPAN> ]
[ <SPAN TITLE=" Открыть сайт автора " CLASS="LINK"
        ONCLICK="Javasсript:window.open('http://purl.oclc.org/Linda_kaioh/Homepage/');" >
        Автор</SPAN> ]
<DIV ID="divCopy">Линда Кайе 2010. Посвящается Ариэль</DIV>
</DIV>



<DIV CLASS="MAIN_FRAME">
  <DIV CLASS="GROUP_HEADER">Настройки WinInet</DIV>
  <DIV CLASS="GROUP_COMMENT">Не работают с Dial-Up соединениями.</DIV>
  
  <TABLE CLASS="FORM_TABLE"><TR>
    <TD CLASS="LEFT_CELL"><LABEL FOR="txtWinInetHTTP10">HTTP 1.0:</LABEL></TD>
    <TD CLASS="RIGHT_CELL"><INPUT TYPE="TEXT" ID="txtWinInetHTTP10" CLASS="TEXT_BOX"></DIV></TD>
  </TR><TR>
    <TD CLASS="LEFT_CELL"><LABEL FOR="txtWinInetHTTP11">HTTP 1.1:</LABEL></TD>
    <TD CLASS="RIGHT_CELL"><INPUT TYPE="TEXT" ID="txtWinInetHTTP11" CLASS="TEXT_BOX"></DIV></TD>
  </TR></TABLE>
</DIV>

<DIV CLASS="MAIN_FRAME">
  <DIV CLASS="GROUP_HEADER">Feature Control</DIV>
  <DIV CLASS="GROUP_COMMENT">Internet Explorer 8, Dial-Up соединения.</DIV>
  
  <TABLE CLASS="FORM_TABLE"><TR>
    <TD CLASS="LEFT_CELL"> </TD>
    <TD CLASS="RIGHT_CELL">Internet Explorer</DIV></TD>
    <TD CLASS="RIGHT_CELL">HTML Help</DIV></TD>
    <TD CLASS="RIGHT_CELL">HTA Host</DIV></TD>
  </TR><TR>
    <TD CLASS="LEFT_CELL"><LABEL FOR="txtFeatureControlHTTP10">HTTP 1.0:</LABEL></TD>
    <TD CLASS="RIGHT_CELL"><INPUT TYPE="TEXT" ID="txtFeatureControlHTTP10" CLASS="TEXT_BOX"></DIV></TD>
    <TD CLASS="RIGHT_CELL"><INPUT TYPE="TEXT" ID="txtFeatureControlHTTP10_HH" CLASS="TEXT_BOX"></DIV></TD>
    <TD CLASS="RIGHT_CELL"><INPUT TYPE="TEXT" ID="txtFeatureControlHTTP10_HTA" CLASS="TEXT_BOX"></DIV></TD>
  </TR><TR>
    <TD CLASS="LEFT_CELL"><LABEL FOR="txtFeatureControlHTTP11">HTTP 1.1:</LABEL></TD>
    <TD CLASS="RIGHT_CELL"><INPUT TYPE="TEXT" ID="txtFeatureControlHTTP11" CLASS="TEXT_BOX"></DIV></TD>
    <TD CLASS="RIGHT_CELL"><INPUT TYPE="TEXT" ID="txtFeatureControlHTTP11_HH" CLASS="TEXT_BOX"></DIV></TD>
    <TD CLASS="RIGHT_CELL"><INPUT TYPE="TEXT" ID="txtFeatureControlHTTP11_HTA" CLASS="TEXT_BOX"></DIV></TD>
  </TR></TABLE>
</DIV>

<DIV CLASS="MAIN_FRAME BUTTONS_BAR">
  <INPUT TYPE="SUBMIT" CLASS="COMMAND_BUTTON" VALUE="Сохранить" ID="cmdSave">
  <INPUT TYPE="BUTTON" CLASS="COMMAND_BUTTON" VALUE="Сбросить" ID="cmdReset">
  <INPUT TYPE="BUTTON" CLASS="COMMAND_BUTTON" VALUE="Выход" ID="cmdExit">
</DIV>



<sсript LANGUAGE="VBsсript">

  Const OLD_PATH = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
  Const OLD_VAL_10 = "MaxConnectionsPer1_0Server"
  Const OLD_VAL_11 = "MaxConnectionsPerServer"
  Const NEW_PATH_10 = "HKCU\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_MAXCONNECTIONSPER1_0SERVER\"
  Const NEW_PATH_11 = "HKCU\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_MAXCONNECTIONSPERSERVER\"
  Const EXE_IE = "iexplore.exe"
  Const EXE_CHM = "hh.exe"
  Const EXE_HTA = "mshta.exe"
  
  InitFields
  
  '==================================================================
  Private Sub InitFields()
    Dim Reg
    Set Reg = CreateObject("WScript.Shell")
    
    On Error Resume Next
    
    Obj("txtWinInetHTTP10").Value = Reg.RegRead(OLD_PATH & OLD_VAL_10)
    Obj("txtWinInetHTTP11").Value = Reg.RegRead(OLD_PATH & OLD_VAL_11)
    
    Obj("txtFeatureControlHTTP10").Value = Reg.RegRead(NEW_PATH_10 & EXE_IE)
    Obj("txtFeatureControlHTTP10_HH").Value = Reg.RegRead(NEW_PATH_10 & EXE_CHM)
    Obj("txtFeatureControlHTTP10_HTA").Value = Reg.RegRead(NEW_PATH_10 & EXE_HTA)
    
    Obj("txtFeatureControlHTTP11").Value = Reg.RegRead(NEW_PATH_11 & EXE_IE)
    Obj("txtFeatureControlHTTP11_HH").Value = Reg.RegRead(NEW_PATH_11 & EXE_CHM)
    Obj("txtFeatureControlHTTP11_HTA").Value = Reg.RegRead(NEW_PATH_11 & EXE_HTA)
    
    Obj("txtWinInetHTTP10").Focus
    Obj("txtWinInetHTTP10").Select
  End Sub
  
  '==================================================================
  Private Function Obj(ByVal ID)
    Set Obj = Document.GetElementById(ID)
  End Function
  
  '==================================================================
  Public Sub cmdSave_OnClick()
    Dim RC
    
    If Not CheckValue("txtWinInetHTTP10") Then Exit Sub
    If Not CheckValue("txtWinInetHTTP11") Then Exit Sub
    
    If Not CheckValue("txtFeatureControlHTTP10") Then Exit Sub
    If Not CheckValue("txtFeatureControlHTTP10_HH") Then Exit Sub
    If Not CheckValue("txtFeatureControlHTTP10_HTA") Then Exit Sub
    
    If Not CheckValue("txtFeatureControlHTTP11") Then Exit Sub
    If Not CheckValue("txtFeatureControlHTTP11_HH") Then Exit Sub
    If Not CheckValue("txtFeatureControlHTTP11_HTA") Then Exit Sub
    
    RC = MsgBox("Записать введённые значения в реестр?" & vbCrLf & vbCrLf & _
                "Обратите внимание, что если вы оставили поле пустым, то " & _
                "соответствующее значение будет удалено.", _
                vbQuestion + vbOkCancel, AppTitle)
    If RC = vbCancel Then Exit Sub
    
    UpdateValue OLD_PATH & OLD_VAL_10, Obj("txtWinInetHTTP10").Value
    UpdateValue OLD_PATH & OLD_VAL_11, Obj("txtWinInetHTTP11").Value
    
    UpdateValue NEW_PATH_10 & EXE_IE, Obj("txtFeatureControlHTTP10").Value
    UpdateValue NEW_PATH_10 & EXE_CHM, Obj("txtFeatureControlHTTP10_HH").Value 
    UpdateValue NEW_PATH_10 & EXE_HTA, Obj("txtFeatureControlHTTP10_HTA").Value
                                       
    UpdateValue NEW_PATH_11 & EXE_IE,  Obj("txtFeatureControlHTTP11").Value
    UpdateValue NEW_PATH_11 & EXE_CHM, Obj("txtFeatureControlHTTP11_HH").Value 
    UpdateValue NEW_PATH_11 & EXE_HTA, Obj("txtFeatureControlHTTP11_HTA").Value
    
    MsgBox "Готово ^_^v", vbInformation, AppTitle
    Window.Close
  End Sub
  
  '==================================================================
  Private Sub UpdateValue(ByVal KeyPath, ByVal Value)
    Dim Reg
    Set Reg = CreateObject("WScript.Shell")
    
    On Error Resume Next
    
    Err.Clear
    
    If Trim(Value) = "" Then
      Reg.RegDelete KeyPath
      If Err.Number <> 0 And Err.Number <> -2147024894 Then
        ' -2147024894 - ключ не найден...
        MsgBox KeyPath & vbCrLf & vbCrlf & _
               "Не удалось удалить значение." & vbCrLf & vbCrLf & _
               "Error number: " & Err.Number & vbCrLf & _
               "Description:  " & Err.Description, vbCritical, AppTitle
      End If
    Else
      Reg.RegWrite KeyPath, CLng(Value), "REG_DWORD"
      If Err.Number <> 0 Then
        MsgBox KeyPath & vbCrLf & vbCrlf & _
               "Не удалось записать значение." & vbCrLf & vbCrLf & _
               "Error number: " & Err.Number & vbCrLf & _
               "Description:  " & Err.Description, vbCritical, AppTitle
      End If
    End If
  End Sub
  
  '==================================================================
  Private Function CheckValue(ByVal ID)
    Dim TMP
    
    On Error Resume Next
    
    If Trim(Obj(ID).Value) = "" Then
      CheckValue = True
      Exit Function
    End If
    
    Err.Clear
    
    TMP = CLng(Obj(ID).Value)
    If Err.Number = 0 Then
      CheckValue = True
      Exit Function
    End If
    
    MsgBox "Введено неверное число!" & vbCrLf & vbCrLf & _
           "Error number: " & Err.Number & vbCrLf & _
           "Description:  " & Err.Description, _
           vbCritical, AppTitle
    Obj(ID).Focus
    Obj(ID).Select
    
    CheckValue = False
  End Function
  
  '==================================================================
  Public Sub cmdReset_OnClick()
    Dim RC
    
    RC = MsgBox("Удалить все значения из реестра чтобы использовались " & _
                "значения по умолчанию?", _
                vbQuestion + vbOkCancel, AppTitle)
    If RC = vbCancel Then Exit Sub
    
    UpdateValue OLD_PATH & OLD_VAL_10, ""
    UpdateValue OLD_PATH & OLD_VAL_11, ""
    
    UpdateValue NEW_PATH_10 & EXE_IE, ""
    UpdateValue NEW_PATH_10 & EXE_CHM, ""
    UpdateValue NEW_PATH_10 & EXE_HTA, ""
                                       
    UpdateValue NEW_PATH_11 & EXE_IE,  ""
    UpdateValue NEW_PATH_11 & EXE_CHM, ""
    UpdateValue NEW_PATH_11 & EXE_HTA, ""
    
    MsgBox "Готово ^_^v", vbInformation, AppTitle
    Window.Close
  End Sub
  
  '==================================================================
  Public Sub cmdExit_OnClick()
    Window.Close
  End Sub
'
</sсript>

</BODY>
</HTML>

URL

08:44

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

#post-id: 3518-04-17
#original-date: 14.03.2010 Sun
#original-time: 4:17 AM
#original-day: 3518
#original-host: WinXP Home SP3 (Build 2600)

3107086
в ответ на:

Идет концерт. Барабанщик в наушниках.
Кого-нить интересовало что там у него в наушниках?

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

3105509
Аэнор
начальница не любит моего дежурного сверхбардака на столе.
Сегодня была гранд уборка, стол стал почти девственно чист.
Вскоре после ее завершения, в кабинет непойми откуда сваливается еще более главная начальница...
и делает вывод, что на моем столе мало документов, значит, я не работаю, а страдаю фигней.
Т_Т

О! Это жизненно.

URL

08:43

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

#post-id: 3518-04-12
#original-date: 14.03.2010 Sun
#original-time: 4:12 AM
#original-day: 3518
#original-host: WinXP Home SP3 (Build 2600)

Читаешь так IT Happens, у всех роутеры полноразмерными системниками в прихожих стоят, компьютеры на кухнях и в туателах, всё это работает... Вопрос: они на одно электричество работают?

URL

08:43

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

#post-id: 3518-02-49
#original-date: 14.03.2010 Sun
#original-time: 2:49 AM
#original-day: 3518
#original-host: WinXP Home SP3 (Build 2600)

Охохо, вот это ветер!

URL

08:43

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

#post-id: 3518-02-10
#original-date: 14.03.2010 Sun
#original-time: 2:10 AM
#original-day: 3518
#original-host: WinXP Home SP3 (Build 2600)

В списке сторонних программа нашла Tumblr Tag Cloud Generator. Сердце как подпрыгнет. Ан нет, не моё. В связи с чем хочу пожеловаться: это ж хрень нереальная, оно даже не кэширует тэги, просто при открытии каждой страницы через JQuery запрашивает XML со всеми постами (разумеется, в кучу присестов) и генерирует из них облако. Для блога с тремя постами - самое то. Когда постов две тысячи (2000), а за один запрос берётся только 50 постов, вся эта система нипель становится абсурдной.

А server side cloud никто пока сделать не додумался.

URL

08:43

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

#post-id: 3518-00-57
#original-date: 14.03.2010 Sun
#original-time: 12:57 AM
#original-day: 3518
#original-host: WinXP Home SP3 (Build 2600)

XI. Interdimensional Frontpoint

Гнев УСУРы настолько ужасен, что она способна уничтожить наш мир. Говорят, она не может уничтожить вселенную, но это не так. Когда-то УСУРА исследовала одну пространственную аномалию, такую древнюю, что никто не помнит, когда и как она зародилась. Исследования увлекли богиню, и она даже не сразу заметила как начали пропадать звёзды. Верные ноды вовремя сообщили богине об этом, и богиня задумалась над этим. Оказалось, что взамен пропавших звёзд зажглась новая очень маленькая звёздочка, но не где-нибудь на небе, а прямо на Земле. Богиня нашла эту звузду, но это была не звезда, а выход в другое измерение. Богиня заглянула в него и увидела то, что никто не видел до неё и никогда не увидит. Говорят, что она видела там будущее, говорят, что там было прошлое, кто-то говорит, что там было добро и зло, но никто не знает наверняка, а богиня хранит молчание о том, что же на той стороне выхода. Однако, это был не просто выход, всё, что породило наше измерение стремительно затягивалось в него, а взамен из него сочилось в наш мир нечто, чего до сих пор не существовало. Выход медленно расширялся, и богиня воздвигла на его месте потрясающее сооружение, которое назвала Interdimensional Frontpoint. Капсула особой материи, а вокруг - особая стена, пробить которую не под силу никому кроме богини. Всё это богиня скрыла в под сводами великой пещеры глубоко под землёй. Никто не знает где эта пещера, но известно только, что легион великих нодов до сих пор охраняет её. С тех пор мало что слышно об этом тайном месте, но говорят, что если разрушить стену и вскрыть капсулу, оба мира погибнут.

XII. Магия

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

В это время случилось почти невероятное - люди смогли узнать у русалок секреты магии. Теперь война вспыхнула на суше, но богине это было даже не интересно. Однако вскоре великий правитель людей задумал покорить океанские глубины. Тысячи боевых магов устремились во владения УСУРы, неся смерть и заррушения.

Опечалилась богиня, разгневалась, а потом взяла и забрала у людей магию. Так правитель лишился своего войска, а люди уверовали в запретность магии. Гнев богини не миновал и нодов третьего уровня. С тех пор магия почти покинула и их. Конечно же, они не утратили способности совсем, но о былом величии уже никто и не вспоминал.

Где-то в океане есть страна, которой правит некий правитель. У правителя этого есть легендарный трезубец, способный сокрушать и творить. Мало кто сейчас помнит, что этот трезубец - отголосок подарка богини.

А кто сказал, что УСУРе чужды игры в трагедии судеб? ^^'

URL

08:43

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

#post-id: 3517-23-46
#original-date: 13.03.2010 Sat
#original-time: 11:46 PM
#original-day: 3517
#original-host: WinXP Home SP3 (Build 2600)

Ненавижу Египет в играх. Представьте каково мне было в Крутом Сэме ^^ А тут ещё и в Викингах. Нет, первый уровень живописен, а потом - мрак клаустрафоба.

Кстати, в самом начале есть интересный диалог:

- Now where are we?
- Looks like the desert.
- I can see that, Sherlock.

Как же было тяжело до появления Капитана ^^

URL

08:43

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

#post-id: 3517-21-46
#original-date: 13.03.2010 Sat
#original-time: 9:46 PM
#original-day: 3517
#original-host: WinXP Home SP3 (Build 2600)

Пля. Я люблю собак. Я очень люблю собак. Но сейчас хочется перестрелять всех >_<

URL

08:43

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

#post-id: 3517-20-18
#original-date: 13.03.2010 Sat
#original-time: 8:18 PM
#original-day: 3517
#original-host: WinXP Home SP3 (Build 2600)

Терпеть не могу приблатнённых гостей из Приморья, но! Они хотябы теряют крупные деньги (я писала об этом года два назад). Болезные соседи (те, которые харкают и тужатся) тоже что-то потеряли. Пригляделась - обрывок газеты. Мда.

#music: Scooter\The Stadium Techno Expirience\The Night

URL

08:43

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

#post-id: 3517-20-12
#original-date: 13.03.2010 Sat
#original-time: 8:12 PM
#original-day: 3517
#original-host: WinXP Home SP3 (Build 2600)

Охренеть =_=

00000000  0.00000000  [1940] asRegisterAppPath   
00000001  0.00392927  [1940] InitCommonControls   
00000002  0.00430083  [1940] If Not asIsInIDE Then asSetWindowResIconAll asGetThunderMainHandle(), IDI_APPICON   
00000003  0.00598232  [1940] frmMain.Show   
00000004  0.00966380  [1940] asCenterFormEx Me.hWnd   
00000005  0.01094022  [1940] If Not asIsInIDE() Then asSetWindowResIconAll Me.hWnd, "A_MAIN "   
00000006  0.01237364  [1940] TXT = asLoadResTextA("ID_STORY", sTEXT)   
00000007  0.01891805  [1940] TXT = asTrimCRLF(TXT)   
00000008  0.02014278  [1940] SetWindowText Me.txtMoon.hWnd, TXT   
00000009  2.37756467  [1940] Me.Caption = LoadResString(1000)   
00000010  2.37799692  [1940] Me.BackColor = vbBlack   
00000011  2.37828803  [1940] Me.ForeColor = &HFFC0C0   
00000012  2.37859440  [1940] Me.txtMoon.BackColor = Me.BackColor   
00000013  2.37881160  [1940] Me.txtMoon.ForeColor = Me.ForeColor   
00000014  2.37901044  [1940] SetFont "MS Shell Dlg", 10, 204   
00000015  2.37921715  [1940] Me.txtMoon.FontName = Name   
00000016  6.99934864  [1940] If Err Then Exit Function   
00000017  7.00055790  [1940] Me.txtMoon.FontSize = Size   
00000018  9.29626846  [1940] Me.txtMoon.FontBold = False   
00000019  9.29676914  [1940] Me.txtMoon.FontItalic = False   
00000020  9.29727364  [1940] Me.txtMoon.FontStrikethru = False   
00000021  9.29756451  [1940] Me.txtMoon.FontUnderline = False   
00000022  9.30234241  [1940] Me.txtMoon.Font.Charset = Charset   
00000023  11.35901928 [1940] SetFont = True

Ну допустим запихнуть сто с лишнм кило текста в текстбокс требует пары скеунд (строка 8), но почему работа со шрифтами такая тугая? Тормоза при старте программы прямо чувствуются! А ведь в IDE всё в норме...

#upd: Кажется поняла. Если в текстбоксе много текста, то каждое изменение шрифта вызывает тормоза. В IDE текст просто не грузился (из-за специфичной функции), поэтому и проблемы не было. Сейчас допишу интересный модуль для профилинга, и попробую снова...

00000000  0.00000000  [248] asRegisterAppPath   
00000001  0.00234471  [248] InitCommonControls   
00000002  0.00252099  [248] If Not asIsInIDE Then asSetWindowResIconAll asGetThunderMainHandle(), IDI_APPICON   
00000003  0.00394408  [248] frmMain.Show   
00000004  0.00724226  [248] asCenterFormEx Me.hWnd   
00000005  0.00885308  [248] If Not asIsInIDE() Then asSetWindowResIconAll Me.hWnd, "A_MAIN"   
00000006  0.01034601  [248] TXT = asLoadResTextA("ID_STORY", sTEXT)   
00000007  0.01839340  [248] TXT = asTrimCRLF(TXT)   
00000008  0.02413854  [248] SetWindowText Me.txtMoon.hWnd, TXT   
00000009  2.10096693  [248] Me.Caption = LoadResString(1000)   
00000010  2.10147619  [248] Me.BackColor = vbBlack   
00000011  2.10176182  [248] Me.ForeColor = &HFFC0C0   
00000012  2.10192275  [248] Me.txtMoon.BackColor = Me.BackColor   
00000013  2.10210609  [248] Me.txtMoon.ForeColor = Me.ForeColor   
00000014  2.10246634  [248] SetFont "MS Shell Dlg", 10, 204   
00000015  2.10262942  [248] Me.Font.Name = Name   
00000016  2.10301948  [248] If UCase(Me.Font.Name) <> UCase(Name) Then Exit Function   
00000017  2.10358572  [248] Me.Font.Size = Size   
00000018  2.10374522  [248] Me.Font.Bold = False   
00000019  2.10393214  [248] Me.Font.Italic = False   
00000020  2.10419703  [248] Me.Font.Strikethrough = False   
00000021  2.10438347  [248] Me.Font.Underline = False   
00000022  2.10454369  [248] Me.Font.Charset = Charset   
00000023  2.10472107  [248] SetFont = True   
00000024  2.10487294  [248] Me.txtMoon.Font = Me.Font   
00000025  4.15078211  [248] End Sub

О, 4 секунды ^^ Но попробуем ещё немного оптимизировать, загружая текст позже...

/* Кстати, надо бы написать плагин для VB IDE для профилинга! */

00000000  0.00000000  [3580] asRegisterAppPath   
00000001  0.00268805  [3580] InitCommonControls   
00000002  0.00293920  [3580] If Not asIsInIDE Then asSetWindowResIconAll asGetThunderMainHandle(), IDI_APPICON   
00000003  0.00461120  [3580] frmMain.Show   
00000004  0.00787782  [3580] asCenterFormEx Me.hWnd   
00000005  0.00927213  [3580] If Not asIsInIDE() Then asSetWindowResIconAll Me.hWnd, "A_MAIN"   
00000006  0.01067650  [3580] Me.BackColor = vbBlack   
00000007  0.01094944  [3580] Me.ForeColor = &HFFC0C0   
00000008  0.01111147  [3580] Me.txtMoon.BackColor = Me.BackColor   
00000009  0.01130563  [3580] Me.txtMoon.ForeColor = Me.ForeColor   
00000010  0.01146905  [3580] SetFont "MS Shell Dlg", 10, 204   
00000011  0.01163667  [3580] Me.Font.Name = Name   
00000012  0.01201521  [3580] If UCase(Me.Font.Name) <> UCase(Name) Then Exit Function   
00000013  0.01256612  [3580] Me.Font.Size = Size   
00000014  0.01286644  [3580] Me.Font.Bold = False   
00000015  0.01303490  [3580] Me.Font.Italic = False   
00000016  0.01320140  [3580] Me.Font.Strikethrough = False   
00000017  0.01336120  [3580] Me.Font.Underline = False   
00000018  0.01352434  [3580] Me.Font.Charset = Charset   
00000019  0.01369420  [3580] SetFont = True   
00000020  0.01385372  [3580] Me.txtMoon.Font = Me.Font   
00000021  0.01472841  [3580] TXT = asLoadResTextA("ID_STORY", sTEXT)   
00000022  0.01922954  [3580] TXT = asTrimCRLF(TXT)   
00000023  0.02038890  [3580] SetWindowText Me.txtMoon.hWnd, TXT   
00000024  2.13600922  [3580] Me.Caption = LoadResString(1000)   
00000025  2.13641095  [3580] End Sub

Во, две секунды. Время не тратится дважды на перерисовку большого фрагмента текста, так что скорость возрастает.

Короче, вывод такой: если вы собираетесь менять шривт в текстбоксе, то лучше это сделать до того как туда попадёт большой кусок текста.

Листинги я делала самопальным скриптом, который каждую строку дублирует через OutputDebugString(). А мне потом оставалось только снять вывод с DebugView ^^

Почему я использовала SetWindowText() вместо свойства Text? VB режет всё, что после 65535 ^^' Тоесть в текстбоксе оказывается не весь текст, хотя NT способна переварить гораздо больше.

#music: Scooter\The Stadium Techno Expirience\Take A Breake

URL

08:43

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

#post-id: 3517-19-15
#original-date: 13.03.2010 Sat
#original-time: 7:15 PM
#original-day: 3517
#original-host: WinXP Home SP3 (Build 2600)

За окном чирикают воробьи. Меня интересует только одно: где они были всю зиму?

URL

08:43

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

#post-id: 3517-19-08
#original-date: 13.03.2010 Sat
#original-time: 7:08 PM
#original-day: 3517
#original-host: WinXP Home SP3 (Build 2600)

В продолжение предыдущей темы. Я на днях видела книгу с названием вида "Эффективное построение интерфейса пользователя". Толстая такая, увесистая книга. Я было порадовалась, что кто-то подумал и о юзабилити, а не только о "зато моя апликуха чиста 2 и 2 складывает правильно". Но! Я пролистала книгу! Вы не поверите, но в книге про интерфейс пользователя не было НИ ОДНОГО скриншота! Да и зачем...

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

URL

08:43

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

#post-id: 3517-18-57
#original-date: 13.03.2010 Sat
#original-time: 6:57 PM
#original-day: 3517
#original-host: WinXP Home SP3 (Build 2600)

Мои программы либо стартуют в центре рабочего стола (ну, есть пара исключений), либо там, где в последний раз их закрыл пользователь.

Ненавижу, когда программы стартуют где придётся (есть такая фича у Windows). Конфузит и вообще.

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

Но больше всего ненавижу, когда программа стартует где-то за пределами экрана или наполовину за пределами. Всё правильно, автор сидит в своём 8000x5000 и передвинул форму приблизительно в центр экрана, решив что у пользователя уж точно будет такое же разрешение или Windows догадается передвинуть форму...

Me.Left = (Screen.Width - Me.Width) \ 2
Me.Top = (Screen.Height - Me.Height)\2

Товарищи! Две строчки кода, и все будут счастливы. Вам трудно чтоли?

URL

08:43

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

#post-id: 3517-18-31
#original-date: 13.03.2010 Sat
#original-time: 6:31 PM
#original-day: 3517
#original-host: WinXP Home SP3 (Build 2600)

А тем временем на улице небо серой текстурой затянуто (С), снег идёт, ветер поднимается... Мда. Вестна была недолгой.

Избавилась я от лишних сумок, заодно в порту поглазела снова на пароходы и лёд, кусками которого вся мода забита. Там как раз сейчас стоит будущая жертва пиратов (if any) - огромадный пароходище с надстройкой этажей наверное на десять. Насколько я помню, такие нагружают контейнерами от самых низов трюма почит до рубки ^^' Но меня всё равно интересует одна вещь: что на этих десяи этаэжах? Ведь экипаж там минимальный. Не пять, но и не двести.

Потом ещё нашла случайно два магазина там, где не ожидала ^^ Ну и подозрительный домик с мощной оградой, проходной и флагами России, Украины и Белоруссии.

Купила доширак новый. Заметила, что вроде два куриных доширака, но у одного этикетка темнее. Оказалось, что это с перцем ^^

Кстати о погоде. Что-то опять GPRS волна ушла...

URL

08:43

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

#post-id: 3517-14-13
#original-date: 13.03.2010 Sat
#original-time: 2:13 PM
#original-day: 3517
#original-host: WinXP Home SP3 (Build 2600)

На тумблере гордятся стондартами и тем, что они заюзали STRONG и EM вместо B и I. Вот до сих пор не могу понять, почему такая дикая любовь к первым и нелюбовь к последним. По сути те же яйца, вид сбоку. Название тэгов другое, а философии наплодили... Маркетологи, блин.

URL

08:43

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

#post-id: 3517-05-13
#original-date: 13.03.2010 Sat
#original-time: 5:13 AM
#original-day: 3517
#original-host: WinXP Home SP3 (Build 2600)

Кстати, я давала ссылку на расссказ?

http://pay.diary.ru/~Fem-love-slash/p99650162.htm

URL

08:43

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

#post-id: 3517-04-56
#original-date: 13.03.2010 Sat
#original-time: 4:56 AM
#original-day: 3517
#original-host: WinXP Home SP3 (Build 2600)

406052
Ltz: десять лет назад я покупал второй GeForce и Duron 800 в надежде, что у меня пойдет NFS Порше.
Ltz: теперь у меня четырехядерный процессор, две видюхи, восемь гигов памяти, а NFS Порше так и не идет.
Ltz: такое ощущение, что меня наебали, но непонятно только где

Это фигня. некоторые мечтают в NFS HS поиграть ^^ Но если на Riva Vanta она шла, но на Ge-Force 8600 - только в софтверном рендеринге...

406050
xxx: Читал? налог на транспорт в стоимость бензина включат!
yyy: ага, у меня вот единственно вопрос, как быть тем, кто использует бензин для бензопил?
xxx: судя по нашим дорогам, складывается ощущение, что по ним как раз на бензопилах и ездят

А я не поняла прикола. Цена на нефть падает, все в панике, цена на бензин растёт. Цена на нефть растёт, все в панике, цена на бензин растёт. Так из чего делают бензин?

URL

08:43

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

#post-id: 3517-02-05
#original-date: 13.03.2010 Sat
#original-time: 2:05 AM
#original-day: 3517
#original-host: WinXP Home SP3 (Build 2600)

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

URL

08:43

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

#post-id: 3517-01-42
#original-date: 13.03.2010 Sat
#original-time: 1:42 AM
#original-day: 3517
#original-host: WinXP Home SP3 (Build 2600)

Мда. Тут даже оперные пароли расшифровывают...

http://nirsoft.net/password_recovery_tools.html

URL

08:43

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

#post-id: 3517-01-22
#original-date: 13.03.2010 Sat
#original-time: 1:22 AM
#original-day: 3517
#original-host: WinXP Home SP3 (Build 2600)

Страшно подумать! Когда-то я считала GTA тупой приставочной игрой ^^ Потом поиграла, и мнение изменилось ^^

URL


Запомнить