Отправляет email-рассылки с помощью сервиса Sendsay

VB.NET-World

  Все выпуски  

VB.NET-World Первый выпуск!


Информационный Канал Subscribe.Ru


VB.NET-World
::Рассылка:.
  Архив
  Подписка
  Форум

::Авторы:.
   Алексей
   Дмитрий

::Ссылки:.
   VBMania
   NoCode
  VBNet.ru

::Друзья:.

Visual Basic: новости сайтов, советы, примеры кодов

::Баннеры:.

VB.NET-World

SUPERTOP

Рейтинг@Mail.ru
Приветствую всех, кто решил оказать нам честь и подписаться на пока еще немноголикую рассылку. Сразу рождается вопрос, который всегда изъедает измученную голову автора: "Зачем нужно создавать еще одну из тысяч других новостных лент, которые "скопировали" друг-друга как могли". Постараюсь все ваши волнения опровергнуть, ибо, если вам что-то покажется не свежим и скучным, это будет являться для нас огромным толчком в прогрессе!

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

Обязательно в рассылке будут присутствовать новости из компьютерного мира, будут сравнительные таблицы и многое другое... Хотя пока это только перспективы, мы все же будем воплощать мечты в реальность!
С наилучшими пожеланиями,
главный редактор VB.NET-World

Алексей Кувалин


NB: Отныне в этой рассылке будут новости из мира криптографии, а также серия статей Tips'n'Tricks, в которой будут рассказаны основы гика. В этом номере я расскажу о работе с реестром.

Приглашаю всех подписчиков на сайт:
NoCode - Все о криптографии.

редактор VB.NET-World

Дмитрий Алексеенко

Компакт-диск по Visual BASIC!
Прочь все сомнения! Наконец-то вышел в свет долгожданный сборник всех исходников, кодов, утилит, документаций по Visual Basic!

Выдержки из меню:
  • исходники (30МБ)

  • документация (200МБ)

  • компоненты (40МБ)

  • утилиты (150МБ)

  • VB6.0 RUS (100МБ)

  • полезности (180МБ)


  • Цена диска 40 рублей + пересылка 35 рублей! Итого 75 рублей за полный комплект для профессионалов!


    Заказать >>>


    Windows and Office XP!

    WinXP Pro SP1 MUI >>>
    WinXP Home FINAL >>>
    OfficeXP SP1 MUI >>>

    Цена одного диска 50 рублей + пересылка 35 рублей = 85 рублей


    № 1 (от 6.10.2002)
    Содержание выпуска: Компакт-диск "VB.NET-World"
    Стоит ли покупать?

    Когда-то, еще когда я был участником конфы "Сообча ВБ" меня посетила мысль создания компакт-диска для ВБ-программера, диска, который бы удовлетворил требования и профи и начинающего. Но воплотить идею в реальность получилось только в данный момент. Думаю, что в какой-то мере мне удалось одухотворить ранние перспективы. На диске представлены коллекция документационных материалов, включающий сайт рассылки "Мир программирования на Visual BASIC и HTML" с очень удобной навигацией, огромное количество учебников и книг по VB, около 11 инсталляционных программ, от самых простых, до полностью профессиональных пакетов. Инсталляция русской VB6. Очень большое количество примеров и исходников, компонентов. А самое главное, что представлены скины для любых проектов! Не обошлось и без полезных утилит. В общем весь VB в одном флаконе!

    Практикум на примерах
    Создание формы загрузки новостей

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

    Очень много перспектив, а самое главное, что код уже лежит перед вами :) Ну-с, начнем.

    Создаем проект, форма:

    Контрол Имя Caption
    CommandButton Command1 Загрузить
    CommandButton Command2 Сохранить
    RichTextBox Text1
    Label Label1 Http://stripped.nm.ru/news.txt
    Inet Inet1

    Попрошу еще раз заметить, что в проекте использованы контролы Microsoft Rich Text Box и Internet Transfer Control. Первый используется для вмещения текстовых файлов больше 64КБ, а последний для непосредственно загрузки текстового файла.

    Теперь прописываем содержание части для загрузки новостей в коде для Command1:
    Private Sub Command1_Click()
    'если ошибка, то выводим ее
    On Error GoTo Handle
    'загружаем текстовый файл по адресу, который дан в Label2
    Text1.Text = Inet1.OpenURL(Label2.Caption, icString)
    Dim FN As Integer
    FN = FreeFile
    'спрашиваем сохранять ли?
    Select Case MsgBox("Загрузка завершена. Сохранить?", vbYesNo, "Педиатр")
    Case vbYes
    Call Savefile
    Case vbNo
    Exit Sub
    End Select
    'вызываем функцию (Loadfile) для загрузки файла
    Call Loadfile
    'ОШИБКА!
    Handle: MsgBox "Ошибка: " & Err.Description
    End Sub
    
    Теперь создаем функции для загрузки (Loadfile) и сохранения (Savefile) файлов.
    Private Function Savefile()
    'Путь к файлу новостей
    patch = App.Path + "\" + "news.txt"
    
    Dim FN As Integer
    FN = FreeFile
    'Открываем путь для сохранения
    Open patch For Output As #FN
    'Прописываем построчно весь Text1
    Print #FN, Text1.Text
    Close #FN
    End Function
    
    Private Function Loadfile()
    'Если ошибки, то завершаем действие
    On Error GoTo 1
    'Путь к файлу новостей
    patch = App.Path + "\" + "news.txt"
    
    Dim FN As Integer
    FN = FreeFile
    'Открываем путь для загрузки
    Open patch For Input As #FN
    'Загружаем построчно в Text1
    Text1.Text = Input(LOF(FN), #FN)
    Close #FN
    1: Exit Function
    End Function
    
    Теперь осталось только сделать объявления для Command1 и Form_Load:
    Private Sub Command2_Click()
    'Сохраняем...
    Call Savefile
    Unload Me
    End Sub
    
    Private Sub Form_Load()
    'Выводим пользователю
    MsgBox "Загрузка только в интрернет", , "Педиатор"
    'Объявляем загрузку файла новостей
    Call Loadfile
    End Sub
    
    Вот и все! Теперь осталось только протестировать и заканчивать самую популярную программу после Windows! Удачи!

    Если что-то не получилось то можно скачать
    архив.

    База знаний
    Сохранение и загрузка Listbox
    Sub saveitems(lstin As ListBox)
    Dim i As Integer
    Open App.Path & "\" & lstin.Name & ".txt" For Output As #1
    For i = 0 To lstin.ListCount - 1
    Print #1, lstin.List(i)
    Next i
    Close #1
    End Sub
    Sub LoadItems(lstin As ListBox)
    Dim i As Integer
    Dim str As String
    If Len(Dir(App.Path & "\" & lstin.Name & ".txt")) Then
    Open App.Path & "\" & lstin.Name & ".txt" For Input As #1
    Do While Not EOF(1)
    Line Input #1, str
    List1.AddItem str
    Loop
    Close #1
    End If
    End Sub
    
    Private Sub Command1_Click()
    Call saveitems(List1)
    List1.Clear
    End Sub
    
    Private Sub Command2_Click()
    Call LoadItems(List1)
    End Sub
    
    Private Sub Form_Load()
    List1.AddItem "Мурка"
    List1.AddItem "Чурка"
    List1.AddItem "Васька"
    List1.AddItem "Сосиска"
    End Sub
    
    Криптография
    Новости

       Источник: Russian Security Newsline
    Network Associates продала линейку продуктов PGP, которую она фактически перестала поддерживать и похоронила после ухода из компании автора PGP Фила Циммермана, вновь образованной компании PGP corp. Новая компания хочет видеть большое число корпоративных клиентов среди своих покупателей и планирует добиться этого путем упрощения программы (в смысле, простоты пользования). 19 августа компания уже анонсировала новую версию PGP 8.0 для операционок Windows и MacOS. Отрадно, что исполнительный директор (CEO) и президент компании Phil Dunkelberger отметил, что компания будет продолжать наряду с коммерческими версиями развивать также OpenSource версию. А технический директор (CTO) Jon Callas заявил о всемерной поддержке спецификации OpenPGP. Оба обращения доступны на сайте компании.

       Источник: Russian Security Newsline
    В PGP обнаружилась очень неприятная дырочка: при обработке длинных имен файлов в шифрованном архиве происходит переполнение буфера, со всеми вытекающими последствиями. Патчик к 7.1.0 и 7.1.1 выпустила Network Associates. На сайте PGP.COM, которой NA недавно продала всю линейку продуктов PGP, и которая уже анонсировала новую версию 8.0, пока тихо.

    Tips'n'Tricks №0
    Реестр: что там внутри?

    Наверняка, тебе хотелось самому что-либо подправить в реестре ручками, не пользуясь твиками. Да вот, акромя всяческих изменений label'ов типа "Корзина"->"Мусорка", что-то дело не пошло. Что же, давай-ка полазеем в этом реестре ручками (прям, как 31337 ;)

    1. У тебя никогда не вызывала раздражения надпись около пуска "Click Here to Begin"? Пришло время ее убрать. Добираемся в реестре до ключа "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", создаем значение "NoStartBanner" типа REG_BINARY. В нем пишем "01 00 00 00", чтобы убрать надпись (чтобы вернуть ее обратно, нужно прописать все нули).

    2. Все ярлыки содержат ненужную стрелочку, которую можно убрать с помощью TweakUI, либо... своими /dev/hands ;) Идем в "HKEY_CLASSES_ROOT\piffile" и "HKEY_CLASSES_ROOT\lnkfile" и удаляем в обоих значение "IsShortCut". А если ты хочешь заменить эту стрелочку на свою, иди сюда: "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Icons" и создавай значение "29" типа REG_SZ. Пиши путь к новой стрелочке.

    3. Про всякие .hpp, позволяющие изменить стандартные хинты уже знают все. Но реестр более интересен: он поможет тебе изменить стандартные советы при загрузке. Адрес: "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Tips". Создаем значение типа REG_SZ, в котором ты можешь написать текст совета.

    4. Иногда Windows отображает имена папок БОЛЬШИМИ буквами, хотя ты написал их маленькими (или наоборот). Например, создаем новую папку, называем ее "Folder", а Explorer отображает ее, как "FOLDER". Эту вещь нужно исправлять - сносить Windows нафиг и ставить unix-like os ;) Там все четко в этом плане. Но если у тебя нет особого порыва поддерживать юниксоидов, изменяй значения в реестре. Добираемся до ключа "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", в нем создаем значение "DontPrettyPath" типа REG_DWORD, равное "1", если мы хотим оригинального отображения букв.

    5. Этот совет, на мой взгляд, очень актуальный для обладателей скромных по конфигурации машин. Он позволяет увеличить скорость выпадания менюшек. Теперь тебе не придется ждать минуту пока выпадет менюшка "Создать". Идем сюда: "HKEY_CURRENT_USER\Control Panel\Desktop". Добавляем значение "MenuShowDelay" типа REG_SZ и пишем в нем количество миллисекунд для задержки (от 0 до 999).

    Совет 1: используй какую-нибудь программу для редактирования реестра, так гораздо удобнее и приятнее. Я, например, использую RegCool, которую можно скачать по адресу: http://www.zsoftware.de/mainpage.htm . Если вдруг Windows не загружается из-за твоих изменений в реестре (что при прямых руках невозможно), используй досовскую утилиту restore, она тебе предложит вернуться к версии реестра за последние четыре дня.

    Совет 2: чтобы все изменения в реестре вступили в силу - перезагрузи компьютер или проделай следующее: нажми Ctrl-Alt-Del в Win9x и прибей задачу Explorer. Когда он тебя спросит, выключить компьютер или нет - нажми "Отмена", потом подожди секунд 10, появится окошко, нажми в нем "Завершить задачу" и твой Explorer все обновит.

    Удачи!

    Опрос
    Какой компакт-диск вы бы хотели увидеть в продаже и купили бы?
    Ответ на вопрос:


    E-Mail для ответа:

    Выпуск подготовили:
    Алексей: x-alexis@mail.ru
    Дмитрий: dmitri@pisem.net
    © 2002 Рассылка "VB.NET-World"
    Главный редактор: Алексей
    Криптография: Дмитрий

    http://subscribe.ru/
    E-mail: ask@subscribe.ru
    Отписаться
    Убрать рекламу

    В избранное