VB.NET-World

<!--/noindex-->

<table width="100%" align=center><tr><td width="840" align=center>
<table border="1" cellspacing="0" cellpadding="0" width="100%" align=center>
<tr width="100%"><td colspan="5" bgcolor="#d5e6e1" width="100%" align=center>
<B><FONT SIZE="+1" COLOR="Black"><FONT FACE="Verdana">
 VB.NET - World</FONT></FONT></B></td></tr>
 <tr width="100%">
  <td width="120" valign="top" bgcolor="#f7f7f7">

<!-- menu : begin -->
<table width="110" border="0" cellspacing="5" cellpadding="0">
<tr><td></td></tr>
</table>
<table width="105" border="0"  cellspacing="0" cellpadding="0">
<tr><td width="100%" bgcolor="#d5d6e1">
<B><FONT COLOR="White" FACE="Arial"> ::Рассылка:.</FONT></B>
</td></tr>
<tr><td width="100%" bgcolor="#f7f7f7">
&nbsp;&nbsp;<a href="http://subscribe.ru/archive/comp.design.snoozex/"; target=_blank><FONT
COLOR="Black">Архив </FONT></a> <br>
&nbsp;&nbsp;<a href="http://subscribe.ru/catalog/comp.design.snoozex/"; target=_blank><FONT
COLOR="Black">Подписка</FONT></a><br>
</td></tr></table>
<!-- menu : end -->

<!-- window : begin -->
<table border="0" width="105" cellspacing="0" cellpadding="0">
<tr><td><BR></td></tr>
<tr><td width="100%" bgcolor="#d5d6e1">
<B><FONT COLOR="White" FACE="Arial"> ::Авторы:.</FONT></B>
</td></tr>
<tr><td width="100%" bgcolor="#f7f7f7">
&nbsp;&nbsp;<a href="mailto:x-alexis@mail.ru"><FONT COLOR="Black">Алексей</FONT></a><br>
</td></tr></table>
<!-- window : end -->

<!-- projects : begin -->
<table border="0" width="105" cellspacing="0" cellpadding="0">
<tr><td><BR></td></tr>
<tr><td width="100%" bgcolor="#d5d6e1">
<B><FONT COLOR="White" FACE="Arial" FACE="Arial"> ::Ссылки:.</FONT></B>
</td></tr>
<tr><td width="100%" bgcolor="#f7f7f7">
&nbsp;&nbsp;<a href="http:/m-design.prima.susu.ac.ru"; target=_blank title="Недорогое
создание и разработка web-сайтов, программ, баннеров"><FONT COLOR="Black"><B>MoDesign</B></FONT></a><br>
&nbsp;&nbsp;<a href="http://www.vbnet.ru"; target=_blank title="Исходники, коды,
примеры..."><FONT COLOR="Black">VBNet.ru</FONT></a><br>
</td></tr></table>
<!-- projects : end -->

<!-- podpis : begin -->
<table border="0" width="105" cellspacing="0" cellpadding="0">
<tr><td><BR></td></tr>
<tr><td width="100%" bgcolor="#d5d6e1">
<B><FONT COLOR="White" FACE="Arial"> ::Подписка:.</FONT></B>
</td></tr>
<tr><td width="100%" bgcolor="#f7f7f7">
</form>
<form TARGET="_top" ACTION="http://subscribe.ru/member/quick"; METHOD="GET">
<table><tr><td>

<input type="hidden" name="action" value="quick">

<div align="justify"><p><small>
<input type="checkbox" name="grp" value="comp.design.snoozex" CHECKED> <B>VB.NET-World</B>
<br>
<input type="checkbox" name="grp" value="comp.paper.modesign" CHECKED> <B>Советы
от MoDesign</B>
<br>
<input type="checkbox" name="grp" value="comp.soft.prog.vbnewsadvices" CHECKED>
Visual Basic: новости сайтов, советы, примеры кодов
<br>
<input type="checkbox" name="grp" value="comp.soft.prog.pasnews" CHECKED> Новости
сайта 'Все о
Паскале'
<br>
<input type="checkbox" name="grp" value="comp.soft.prog.allaboutpascal" CHECKED>
Все про Pascal
<br>
</td></small></div>
</td></tr>
<tr><td>
<font SIZE="-1"><center>
<INPUT TYPE=html NAME=email SIZE=11 MAXLEN=50 VALUE="ваш e-mail">
<INPUT TYPE=submit VALUE="готово!"></center>
</font>
</form>
</td></tr></table>
</td></tr></table>
<!-- podpis : end -->

<!-- reklama : begin -->
<table border="0" width="105" cellspacing="0" cellpadding="0">
<tr><td width="100%" bgcolor="#d5d6e1">
<B><FONT COLOR="White" FACE="Arial" FACE="Arial"> ::Баннеры:.</FONT></B>
</td></tr>
<tr><td width="100%" bgcolor="#f7f7f7">
<BR><div align="center">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://active.macromedia.com/flash4/cabs/swflash.cab#version=4,0,0,0";
  id="modesign" width="88" height="31" border=1>
  <param name="movie"
value="http://m-design.prima.susu.ac.ru/banmake/modesign.swf">;
  <param name="quality" value="high">
  <param name="menu" value="false">
  <param name="bgcolor" value="#FFFFFF">
  <embed name="modesign"
src="http://m-design.prima.susu.ac.ru/banmake/modesign.swf"; quality="high"
menu="false" bgcolor="#FFFFFF"
    width="88" height="31"
    type="application/x-shockwave-flash"
pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_
Version=ShockwaveFlash">
  </embed>
</object>
<BR><BR>
<A TARGET=_blank HREF=http://subscribe.ru/catalog/comp.design.snoozex><IMG ALT="VB.NET-World"
BORDER=0 SRC=http://subscribe.ru/stat/comp.design.snoozex/count.gif WIDTH=88
HEIGHT=31></A>
<BR><BR>
<!--begin of SUPERTOP code *** ID:971187624 ***-->
<a href="http://www.supertop.ru"; target="_blank"><img src="http://supertop.ru/cgi-bin/supertop/nph-supertop1?A=971187624";
width=88 height=31 border=0 alt="SUPERTOP"></a>
<!--end of SUPERTOP code-->
<BR><BR>
<!--Rating@Mail.ru COUNTER--><a target=_blank
href="http://top.mail.ru/jump?from=419533"><img
src="http://top.list.ru/counter?id=419533;t=216";
border=0 height=31 width=88
alt="Рейтинг@Mail.ru"></a><!--/COUNTER-->
<BR><BR>
<!-- начало HTML-кода рейтинга УралWeb -->
<a href="http://www.uralweb.ru/hits/m/go";
target="_blank"><img border=0 width=88 height=31
src="http://www.uralweb.ru/hits/m";
alt="Рейтинг ресурсов УралWeb"></a>
<!-- конец HTML-кода рейтинга УралWeb -->
<BR>
</td></tr></table>
<!-- reklama : end -->

</td>
  <td align="center" bgcolor="#ffffff" width="100%">
<!-- text : begin -->

<table border="0" cellspacing="0" cellpadding="10">
 <tr>
  <td valign="bottom" width=100%>

<!-- NACHALO -->

<!--TABLES-->
<table border="0">
<tr><td valign="top" align="left">
<center>
<table border="0" cellspacing="0" cellpadding="0">
<tr><td valign="bottom" align=center>
<table border="0" cellpadding="10" bgcolor="#f7f7f7"><tr><td> <DIV align=justify>
<FONT FACE="Verdana" SIZE=2>
Приветствую! Вот читайте дополнения к вышедшей статье!
</DIV>
<BR>
<DIV align=right><i>С наилучшими пожеланиями,
<br>главный редактор VB.NET-World</i>
<br> <A HREF="mailto:x-alexis@mail.ru"><FONT COLOR=BLACK>Алексей Кувалин</FONT></A></DIV>
 <br><DIV align=justify>Задать вопрос по рассылке можно отправив <a href="mailto:x-alexis@mail.ru"><FONT
color="#cc0000"> письмо</Font></a> в текстовом формате. Быстрый ответ по этому
ящику гарантирован.</DIV></FONT>
</TD></TR>
</TABLE></TABLE></center><br><br>
<TABLE Cellpadding=10>
<FONT FACE="Tahoma" SIZE=4>№ 7 <FONT COLOR=8493AA SIZE=2>(от 16.06.2003)</FONT></FONT>
<br><b> <FONT FACE="Verdana" SIZE=2> Содержание выпуска:</FONT></b>
<FONT FACE="Verdana" SIZE=2><ul type="square">
                    <li><a href="#disk"><FONT COLOR="Black">Компакт-диск "VB.NET-World":
<i>Стоит ли покупать?</i></FONT></a> <br>
                    </li>
                    <li><a href="#newdisk"><FONT COLOR="Black">Компакт-диск "VB.NET-World":
<i>Новые дополнения и изменения </i></FONT></a> <br>
                    </li>
                    <li><a href="#mdesign"><FONT COLOR="Black">Дизайн-студия
"Mountain-Design": <i>Выгодное решение вашего интернет-бизнеса</i></FONT></a>
                    </li>
                    <li><a href="#1"><FONT COLOR="Black">Практикум на примерах:
<i>Продвинутая форма аутенфикации пользователя.</i></FONT></a>
                    </li>
                  </ul></FONT>
</Table>
</td>
<td width="1%"></td>
<td valign="top" align="right">
<TABLE border=0 cellPadding=0 cellSpacing=0 width=150>
<TBODY>
<TR vAlign=top>
<TD bgColor=black width="100%">
<TABLE border=0 cellPadding=2 cellSpacing=1 width="100%">
<TBODY>
<TR vAlign=top>
<TD bgColor=#d5e6e1 width="100%">
<DIV align=center><B><FONT color=black>Компакт-диск по Visual BASIC!</FONT></B></DIV></TD></TR>
<TR vAlign=top>
<TD bgColor=#ffffff width="100%">
<DIV align=justify> <small>Прочь все сомнения! Наконец-то вышел в свет долгожданный
сборник всех исходников, кодов, утилит, документаций по Visual Basic!
<br><br><center><i>Выдержки из меню:</i></center>
<li>исходники (30МБ)</li>
<br><li>документация (200МБ)</li>
<br><li>компоненты (40МБ)</li>
<br><li>утилиты (150МБ)</li>
<br><li>VB6.0 RUS (100МБ)</li>
<br><li>полезности (180МБ)</li>

<br><br>Цена диска 50 рублей + пересылка 40 рублей! Итого 90 рублей за полный
комплект для профессионалов!
</small>
<br><U> <FONT color=#cc0000> <BR></FONT></U><center><A href="http://m-design.prima.susu.ac.ru/index.php?mm=52";
target=_blank><U><FONT color=#cc0000>Заказать >>></center></FONT></U></A>
<br></DIV></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
</td></tr></table>
<!--TABLES-->
<a name=disk>
<FONT FACE="Tahoma" SIZE=4> Компакт-диск "VB.NET-World"</FONT>
<br><b> <FONT FACE="Verdana" SIZE=2> Стоит ли покупать?</FONT></b>
<DIV align=justify> <FONT FACE="Verdana" SIZE=2>
<br>Когда-то, еще когда я был участником конфы "Сообча ВБ" меня посетила мысль
создания компакт-диска для ВБ-программера, диска, который бы удовлетворил требования
и профи и начинающего. Но воплотить идею в реальность получилось только в данный
момент. Думаю, что в какой-то мере мне удалось одухотворить ранние перспективы.
На диске представлены коллекция документационных материалов, включающий сайт
рассылки "Мир программирования на Visual BASIC и HTML" с очень удобной навигацией,
огромное количество учебников и книг по VB, около 11 инсталляционных программ,
от самых простых, до полностью профессиональных пакетов. Инсталляция русской
VB6. Очень большое количество примеров и исходников, компонентов. А самое главное,
что представлены скины для любых проектов! Не обошлось и без полезных утилит.
В общем весь VB в одном флаконе!
<br><br>
<a name=newdisk>
<b><FONT FACE="Verdana" SIZE=2> Новые дополнения и изменения</FONT></b>
<br><br>После решения обновить содержимое диска новыми программными продуктами,
<b>было добавлено:</b>
<ul type="square">
<li>несколько десятков исходных кодов и архивов с проектами;
</li>
<li>архивы выпусков рассылки "VB.NET-World";
</li>
<li>около 200 иконок и графических файлов для ваших проектов;
</li>
<li>новые программы для создания инсталляционных и справочных пакетов;
</li>
<li>документация, ранее не присутствовавшая на диске;
</li>
</ul>
<center><A href="http://vbnet.nm.ru/loads.htm"><U><FONT color=#cc0000 size=3>Заказать
>>></center></FONT></U></A>
<br>
Для покупки данного компакт-диска нужно ПОЛНОСТЬЮ заполнить нижеприведенную форму,
после чего, вам придет уведомление о прочтении данного документа. Если же в течении
2-4 дней ответа не послупило, попробуйте отправить данные повторно. Если пришел
ответ, то через 2-3 недели на ваш адрес придет почтовое уведомление и вы должны
будете выкупить на почте бандероль стоимостью 80-90 рублей.
<BR><BR><BR>
<a name=mdesign>
<FONT FACE="Tahoma" SIZE=4> Дизайн-студия "Mountain Design"</FONT>
<br><b> <FONT FACE="Verdana" SIZE=2> Выгодное решение вашего интернет-бизнеса</FONT></b>
<DIV align=justify> <FONT FACE="Verdana" SIZE=2>
<br>
Сегодня уже не стоит вопрос : использовать Интернет в своем бизнесе или нет.
Но немногие ясно представляют себе пути реализации проектов, возможные последствия.
Наши специалисты на основе глубокого и всестороннего анализа деятельности Клиента,
помогут разработать оптимальное решение поставленных задач, что обеспечит успех
их интернет-реализаций.
<BR><BR>
Давно известно, что использование в своей деятельности профессионально разработанного
web-сайта не только продвигает Заказчика в безграничный мир информационных технологий,
где он во всеуслышание сможет объявить о своей деятельности, но и расширяет круг
его потенциальных клиентов, а значит, ускоряет рост его бизнеса. Также, дизайн
сайта организации является отражением ее индивидуальности и деятельной направленности
в удобной для посетителя форме. Но если сайт не выполняет своих основных функций
(а это зависит главным образом от дизайнера), то данное предприятие потерпит
невосполнимые убытки, так как большинство клиентов многие организации “черпают”
через интернет.
<BR><BR>
Мы занимаемся разработкой профессиональных сайтов любой сложности и способны
удовлетворить самые независимые вкусы, а также наиболее полно и ярко отразить
в каждой работе особенности вашего предприятия и создать для него собственный
неповторимый стиль. Каждая работа, разработанная нашими дизайнерами, отличается
высоким профессионализмом и яркой неповторимостью.
<BR><BR>
Также, мы принимаем заказы на разработку программных продуктов, баннеров и RE-дизайн
сайтов. Но главное, что <B>цены на разработку web-сайтов и программ начинаются
от 500 рублей, а на создание баннерной рекламы от 50 рублей</B>, что очень привлекает,
т.к. большинство дизайн-студий за подобные услуги запрашивают в несколько раз
больше!
<BR><BR>Но отвлечемся от рекламы. На сайте дизайн-студии я выложил архивы выпусков
рассылок "Мир программирования на Visual BASIC и HTML" и "VB.NET-World" в очень
удобной и простой форме. Они находятся в разделе <a href="http://m-design.prima.susu.ac.ru?mm=51";
target=_blank><FONT COLOR=BLACK>"Документация"</FONT></a>.
<BR><BR>
Посетите наш сайт по адресу <u>http://www.m74.by.ru</u>; или по ссылке указанной
ниже:
<BR><BR>
<center><A href="http://m-design.prima.susu.ac.ru"; target=_blank><U><FONT color=#cc0000
size=3>Дизайн-студия "Mountain-Design"</center></FONT></U></A>
<BR><BR>
<a name="1">
<FONT FACE="Tahoma" SIZE=4> Практикум на примерах</FONT>
<br><b> <FONT FACE="Verdana" SIZE=2> Продвинутая форма аутенфикации пользователя.</FONT></b>
<BR><BR><b> <FONT FACE="Verdana" SIZE=2> Автор: <u><a href="mailto:alexis@istok74.ru"><FONT
COLOR=Black>Алексей Кувалин</FONT></a></FONT></u></b>
<br><br>Здравствуйте! Сегодня мы займемся разработкой формы для аутенфикации
пользователей вашего проекта. Итак, вначале поставим задачи формы-аутенфикатора:
<FONT FACE="Verdana" SIZE=2><ul type="square">
                    <li>Выключение компьютера после некоторого числа неправильных
аутенфикаций.
                    </li>
                    <li>Посредством таймера ограничиваем время работы с формой.
По окончанию выделенного промежутка - выключение системы.
                    </li>
                    <li>Отключение рабочего стола на время заполнения, а также
добавление программы в автозагрузку при закрытии формы.
                    </li>
                    <li>Отдельный вход администратору.
                    </li>
                  </ul></FONT>
Итак. Создаем форму, ее назовем <b>"frmAuth"</b>, на нее добавим фрэйм <b>"Frame1"</b>.
На фрэйме разместим сверху листбох <b>"List1"</b>, в котором будет отображаться
список польбователей, текстбокс <b>"Text1"</b>, в который будет вводиться пароль,
кнопка <b>"Command1"</b> для начала аутенфикации, 2 таймера: <b>"Timer1"</b>
(для создания промежутка времени, ограничивающего работу формы) и <b>"Timer2"</b>
(для обработки ошибок).
<BR>Настройки формы frmAuth: <b>Autoredraw = false; Borderstyle="0</b>" Это для
того, чтобы не могли закрыть форму. Теперь вводим код формы:
<FONT FACE="Arial" SIZE=3 COLOR=8493AA><PRE>
' Код формы frmAuth
Dim Pass As String ' правильный пароль
Dim schet As String ' число попыток ввода
Dim patch As String ' полный путь к файлу настроек
Dim sysdir As String  ' путь к системному каталогу
Dim slength As Long  ' длина возвращаемой строки
Dim checks As String ' переменная блокирующая учетную запись
Dim sec As Long ' число оставшихся секунд
Dim dux As Long ' число оставшихся попыток

Private Sub Command1_Click()
sysdir = Space(255)  ' отводим место для получения строки в буфере
slength = GetSystemDirectory(sysdir, 255)
sysdir = Left(sysdir, slength)  ' получаем имя из буфера
patch = sysdir + "\" + "users.ini" ' создаем путь к файлу настроек

' ФОРМАТ ЧТЕНИЯ ФАЙЛА НАСТРОЕК:
' Переменная = GetINI(путь к файлу, "Пользователь", "Параметр", по умолчанию)

' Чтение из файла настроек пароля выбранного пользователя
Pass = GetINI(patch, List1.Text, "Password", "")

' Проверяем в файле: блокирован ли выбранный пользователь
checks = GetINI(patch, List1.Text, "Check1", "")

' Если выбран администратор, то он точно не блокирован
If List1.Text = "Администратор" Then GoTo 1
If checks <> 1 Then
1: If schet < 3 Then

' Праверка правильности пароля
 If Text1.Text = Pass Then

' {!!!}
' Если правильно - открываем основную форму программы
' {!!!}

Desktop True ' включаем рабочий стол

schet = 0 ' обнуляем переменную
Unload Me
Else
schet = schet + 1 ' увеличиваем счетчик на единицу
dux = 3 - schet ' число оставшихся попыток
MsgBox "Введен неверный пароль! Осталось попыток: " & dux, , "'ERROR'"
Text1.Text = ""
End If
Else
MsgBox "Неверный пароль введен уже 3 раза. Доступ к ПК закрыт!", , "'ERROR'"

GoTo 2

End If
Else
MsgBox "Доступ к этой учетной записи закрыт!", , "'ERROR'"

2: ' {!!!}
' Выключить компьютер и снова добавить в автозагрузку
' {!!!}

End If
End Sub

Private Sub Form_Load()
sec = 61 ' начинаем обратный отсчет

' {!!!}
' Устанавливаем форму поверх всех окон
' {!!!}

schet = 0 ' устанавливаем счетчик на ноль
Call OpenItems(Me.List1) ' загружаем список юзеров в листбокс
Desktop False ' отрубаем рабочий стол
End Sub

Private Sub List1_Click()
Text1.SetFocus
End Sub

Private Sub List1_DblClick()
Command1_Click
End Sub

Private Sub Timer1_Timer()
sec = sec - 1 ' обратный отсчет
Frame1.Caption = "Осталось " & sec & " сек."
If sec = 0 Then ' время исчерпано

' {!!!}
' Выключить компьютер и снова добавить в автозагрузку
' {!!!}

End If
End Sub

Private Sub Timer2_Timer()
On Error GoTo handle
List1.ListIndex = 0
Timer2.Enabled = False
handle: Exit Sub
End Sub
</PRE></FONT>
Далее добавляем в проект модуль <b>"mdlAuth"</b> и вставляем нижеследующий код:
<FONT FACE="Arial" SIZE=3 COLOR=8493AA><PRE>
' Код модуля mdlAuth
Dim patch As String ' полный путь к файлу настроек
Dim sysdir As String  ' путь к системному каталогу
Dim slength As Long  ' длина возвращаемой строки

' ЧТЕНИЕ ФАЙЛА СО СПИСКОМ ПОЛЬЗОВАТЕЛЕЙ
Public Sub OpenItems(lstin As ListBox)
sysdir = Space(255)  ' отводим место для получения строки в буфере
slength = GetSystemDirectory(sysdir, 255)
sysdir = Left(sysdir, slength)  ' получаем имя из буфера
patch = sysdir + "\" + "users.ini" ' создаем путь к файлу настроек

Dim i As Integer
Dim str As String
' Если есть файл "lists.ini в котором список пользователей то открываем его
If Len(Dir(sysdir & "\" & "lists.ini")) Then
Open sysdir & "\" & "lists.ini" For Input As #1
Do While Not EOF(1)
Line Input #1, str
frmAuth.List1.AddItem str 'добавляем пользователя в листбокс для выбора
Loop
Close #1
End If
End Sub

' ЗАПИСЬ ФАЙЛА СО СПИСКОМ ПОЛЬЗОВАТЕЛЕЙ
Public Sub Saveitems(lstin As ListBox)
sysdir = Space(255)  ' отводим место для получения строки в буфере
slength = GetSystemDirectory(sysdir, 255)
sysdir = Left(sysdir, slength)  ' получаем имя из буфера
patch = sysdir + "\" + "users.ini" ' создаем путь к файлу настроек

Dim i As Integer
Open sysdir & "\" & "lists.ini" For Output As #1
For i = 0 To lstin.ListCount - 1
Print #1, lstin.List(i)
Next i
Close #1
End Sub
</PRE></FONT>
Теперь как вы поняли, остается уметь программно добавлять пользователей. Но с
этим вы уж сами постарайтесь разобраться. Хочу поставить лишь акцент на чтении
 и записи файла INI и отключении рабочего стола. Для этого создайте модуль <b>"mdlOther"</b>
и добавьте код:
<FONT FACE="Arial" SIZE=3 COLOR=8493AA><PRE>
' Код модуля mdlOther

' ОТКЛЮЧЕНИЕ РАБОЧЕГО СТОЛА
Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, 
ByVal nCmdShow As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" 
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function EnableWindow Lib "user32" (ByVal hWnd As Long, _
ByVal fEnable As Long) As Long

Const SW_HIDE = 0
Const SW_SHOW = 5

Public Sub Desktop(Visible As Boolean)
Dim hWnd As Long
hWnd = FindWindow("Progman", "Program Manager")
If Visible Then
ShowWindow hWnd, SW_SHOW
Else
ShowWindow hWnd, SW_HIDE
End If
EnableWindow hWnd, Visible
End Sub

' ЧТЕНИЕ И ЗАПИСЬ В ФАЙЛ INI
Declare Function GetPrivateProfileString& Lib 
"kernel32" Alias "GetPrivateProfileStringA" (ByVal 
lpszSection$, ByVal lpszKey$, ByVal lpszDefault$, 
ByVal lpszReturnBuffer$, ByVal cchReturnBuffer&, 
ByVal lpszFile$)
Declare Function WritePrivateProfileString Lib 
"kernel32" Alias "WritePrivateProfileStringA" (ByVal 
lpApplicationName As String, ByVal lpKeyName As String, 
ByVal lpString As String, ByVal lplFileName As String) As Long

' Чтение
Public Function GetINI(INIfile As String, Section As String, 
Key As String, Default As String)
'Call Admin.DeCode
Dim temp As String * 256
Dim length As Integer
temp = Space$(256)
length = GetPrivateProfileString(Section, Key, 
Default, temp, 255, INIfile)
GetINI = Left$(temp, length)
'Call Admin.Code
End Function

' Запись
Public Sub SetINI(INIfile As String, Section As String, 
Key As String, Value As String)
'Call Admin.DeCode
Dim n As Integer
Dim temp As String
temp = Value
For n = 1 To Len(Value)
If Mid$(Value, n, 1) = vbCr Or Mid$(Value, n, 1) = vbLf _
Then Mid$(Value, n) = ""
Next n
n = WritePrivateProfileString(Section, Key, temp, INIfile)
'Call Admin.Code
End Sub
</PRE></FONT>
С помощью всех вышеперечисленных исходников вы научитесь и записывать настройки
пользователей в файлы, читать их.
Но помните: необходимо обрабатывать случаи, когда файл с настройками будет намеренно
удален (кстати: его необходимо шифровать, но об этом уже шел разговор ранее),
следовательно, нужно полностью блокировать программу и требовать административный
пароль, который никогда нельзя изменить.
<BR><BR>Не буду приводить исходные коды функций размещения формы поверх всех
окон, выключения компьютера и добавления программы в автозагрузку. Их существует
много множество. Функций, которые не приведены здесь, ограничены символами <b>{!!!}</b>.
<BR><BR>
Успехов в работе!
<tr><td>
<table width="100%" border="0" cellspacing="2" cellpadding="2">
              <tr align="left" valign="top">
                <td width="23%" bgcolor="#f7f7f7"><small>
Выпуск подготовили: <br>
                  Алексей: <a href="mailto:x-alexis@mail.ru"><FONT COLOR=Black>x-alexis@mail.ru</FONT></a>
<br>


</td>
                <td width="53%" bgcolor="#f7f7f7"><small>&copy; 2002-2003 Рассылка
"VB.NET-World" <br>
                &copy; 2000-2002 экс "Мир программирования на VB и HTML" <br>


                  </td>
</td>
                <td width="24%" bgcolor="#f7f7f7"><small>
Главный редактор: <a href="mailto:x-alexis@mail.ru"><FONT COLOR=Black>Алексей</FONT></a>
<br>
              </tr>
            </table>


<!-- END -->
</td></tr>
<tr>
  <td valign="bottom">
</TD></TR></TABLE>
</td><td colspan="2" bgcolor="#d5e6e1"><table width="5" border="0" width="100%"
cellspacing="0" cellpadding="0">
<tr><td></td></tr>
</table></td></tr>
<tr><td colspan="5" bgcolor="#d5e6e1"><table><tr><td></td></tr></table></td></tr>
</td></tr></table>
</td></tr></table>

<!--noindex-->