#post-id: 3519-12-49
#original-date: 15.03.2010 Mon
#original-time: 12:49 PM
#original-day:  3519
#original-host: WinXP Home SP3 (Build 2600)

Ха-ха ^_^ Прилетело в обойкоблог ^_^

your under arrest aoi futaba hentai

---

#post-id: 3519-06-54
#original-date: 15.03.2010 Mon
#original-time: 6:54 AM
#original-day:  3519
#original-host: WinXP Home SP3 (Build 2600)

В манге R+V у героев лица как будто приплюснуты. Одна только Юкари нормально нарисована...

Да, и Куруму как-то странно себя ведёт. То в задумчивости, то в лирике ^^'

#upd Куруму действительно странно себя ведёт, но! В одной из глав именно она вынесла демона! И в изменённой форме у неё ыли уши как у эльфа ^^

---

#post-id: 3519-03-28
#original-date: 15.03.2010 Mon
#original-time: 3:28 AM
#original-day:  3519
#original-host: WinXP Home SP3 (Build 2600)

Как же я не хочу домой...

---

#post-id: 3519-03-26
#original-date: 15.03.2010 Mon
#original-time: 3:26 AM
#original-day:  3519
#original-host: WinXP Home SP3 (Build 2600)

На диске к винту идёт какой-то Dist Wizard Technology. Windows Only. Из описания ясно, что это GHOST/dd с красивым названием ^^'

---

#post-id: 3519-00-53
#original-date: 15.03.2010 Mon
#original-time: 12:53 AM
#original-day:  3519
#original-host: WinXP Home SP3 (Build 2600)

А, поняла. Кажется, у меня снова начал отходить контакт в одном ухе. Там уже его припаивали, видимо он снова отвалился.

Кстати! Я видела в автобусе как один мужик провода за уши заворачивал! Интересно, это действительно настолько эффективно против вываливания наушников? Сейчас попробовала - вроде держатся.

#music: Scooter\Whos Got the Last Laugh Now\Seven Bridges

---

#post-id: 3519-00-51
#original-date: 15.03.2010 Mon
#original-time: 12:51 AM
#original-day:  3519
#original-host: WinXP Home SP3 (Build 2600)

Интересно, почему мне кажется таким каваййным голос, который звучит во многих песнях Скутера? Такой писклявый. Да. И почему он у меня так ассоциируется с героиней Летнего резонанса, той, которая "мы в порорерьных мирах" ^^'

#music: Scooter\Whos Got the Last Laugh Now\Everlasting Love

---

#post-id: 3519-00-31
#original-date: 15.03.2010 Mon
#original-time: 12:31 AM
#original-day:  3519
#original-host: WinXP Home SP3 (Build 2600)

В Хабаровске было много книжных магазинов, и они постоянно открывались, продавая всё, что угодно, были бы деньги. Я любила там бывать, хотя читаю мало.

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

А букинистов что-то вообще нема. Помнится в Хабаровске в центре у львов я купила хорошую книжку Лема всего за рублей 20-50. Она была издана ещё в восьмидесятых, но хорошо сохранилась. В Петропавловске же я видела разве что только отдел уценённой литературы.

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

Мда. Говорят, что якобы народ пости у нас не читает (чаще говорят, что вообще никто не читает). Возникает вопрос, откуда в вышеуказанном Хабаровске столько книжных? Если не читают, значит не покупают, значит убытки, а у них постоянно расширения идут. Отсюда вывод: либо ораторы нагло врут, либо считают чтением только избранную литературу.

---

#post-id: 3519-00-25
#original-date: 15.03.2010 Mon
#original-time: 12:25 AM
#original-day:  3519
#original-host: WinXP Home SP3 (Build 2600)

Я нашла правильный ответ на шутку одного знакомого, который любит время от времени искажать слова или вопрошать: "Не стОит или не стоИт?" Меня таким не смутить, но ответить-то нечего. Но я горжусь собой, поскольку нашла правильнй ответ: "Ну, в твоём случае может быть и "не стоИт"" ^_^v

---

#post-id: 3518-22-43
#original-date: 14.03.2010 Sun
#original-time: 10:43 PM
#original-day:  3518
#original-host: WinXP Home SP3 (Build 2600)

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

#upd: Спокуха! Это был твиттер Sexytales.ru ^^

http://twitter.com/sexytales_ru/status/10431761701

---

#post-id: 3518-17-35
#original-date: 14.03.2010 Sun
#original-time: 5:35 PM
#original-day:  3518
#original-host: WinXP Home SP3 (Build 2600)

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

---

#post-id: 3518-17-07
#original-date: 14.03.2010 Sun
#original-time: 5:07 PM
#original-day:  3518
#original-host: WinXP Home SP3 (Build 2600)

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

---

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

---

#post-id: 3518-16-28
#original-date: 14.03.2010 Sun
#original-time: 4:28 PM
#original-day:  3518
#original-host: WinXP Home SP3 (Build 2600)

http://diskomir.ru/figures/detail.php?ID=4577&phrase_id=397365

Вау *_*

Ну и вот тоже здорово ^^

---

#post-id: 3518-16-15
#original-date: 14.03.2010 Sun
#original-time: 4:15 PM
#original-day:  3518
#original-host: WinXP Home SP3 (Build 2600)

http://www.goth.by/index.php?productID=5815

Мне кажется или оно полмиллиона стоит? OO Что-то мне кажется, что за такие деньги легче сшить самостоятельно...

Кстати о Роберте. Здесь есть несколько фигурок с ней ^^ Даже Чибик есть ^^

http://roanapura.city.free.fr/figurines-black-lagoon-manga.html

---

#post-id: 3518-16-02
#original-date: 14.03.2010 Sun
#original-time: 4:02 PM
#original-day:  3518
#original-host: WinXP Home SP3 (Build 2600)

Качественный косплей Урд ^^

http://fullcosplay.tumblr.com/post/446022816/sexy-cosplay-belldandy-ahh-megami-sama

А вот тоже мощно ^^

http://fullcosplay.tumblr.com/post/446743006/cosplay-motoko-kusanagi-ghost-in-the-shell

Вроде было, ну да ладно...

http://cosplaygirl.tumblr.com/post/446549204/belldandy-by-jia-1-by-shiroin-on-deviantart
http://cosplaygirl.tumblr.com/post/446548742/belldandy-by-jia-2-by-shiroin-on-deviantart
http://cosplaygirl.tumblr.com/post/446548373/belldandy-by-jia-4-by-shiroin-on-deviantart

---

#post-id: 3518-05-53
#original-date: 14.03.2010 Sun
#original-time: 5:53 AM
#original-day:  3518
#original-host: WinXP Home SP3 (Build 2600)

Тсссс! Я тут засветилась ^^ Не знала, что такой дайджест вообще есть ^^

http://pay.diary.ru/~femlenta/p99728294.htm

---

#post-id: 3518-05-51
#original-date: 14.03.2010 Sun
#original-time: 5:51 AM
#original-day:  3518
#original-host: WinXP Home SP3 (Build 2600)

Только что в IE выскочила ошибка "Операция прервана" OO Они же вроде побороли её OO

---

#post-id: 3518-05-38
#original-date: 14.03.2010 Sun
#original-time: 5:38 AM
#original-day:  3518
#original-host: WinXP Home SP3 (Build 2600)

Ща буду ругаться. Гопипастеры делятся на два типа: тупо копипастеры и копипастерасты. Тупо копипастеры копируют всё от и до, так что всегда можно понять откуда скопировано, всегда можно найти опознавательные знаки. Копипастерасты педантичнее Эти скопируют всё, но опозначательные знаки старательно вырежут (да, и залюьют на какой-нибудь быдлоресурс "Рассказы от Дианы"). Даже не знаю что тут сказать. Наш народ настолько свихнулся на халяве, что ворует даже бесплатное/свободное =_= Ничего не просишь. Скопировать? пожалуйста! Поделиться? Пожалуйста! Выложить где-то? Да не вопрос. Только авторство оставьте. Неты же! Вырежут и довольны - победили великого копираста. Ага.

v_v

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

---

#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. По любым вопросам, связанным с данной программой, обращайтесь 
'    по адресу [e-mail]
' 
' Загружено с 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>

---

#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
Аэнор
начальница не любит моего дежурного сверхбардака на столе.
Сегодня была гранд уборка, стол стал почти девственно чист.
Вскоре после ее завершения, в кабинет непойми откуда сваливается еще более главная начальница...
и делает вывод, что на моем столе мало документов, значит, я не работаю, а страдаю фигней.
Т_Т

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