Что нового

Ini файл для привязки.

DelphiExpert

Сначала подумай, потом сделай.
Сообщения
13
Репутация
7
Всем привет, нашел на форуме способ привязки к железу с базой в интернете. Но не могу сообразить для нее
требуемый File.ini
File.ini и есть база в которой лежат ключи точнее Id HDD.
Пожалуйста помогите собрать ини что бы он работал правельно.
Исход привязки.


Код:
#include 'IniString.au3'
$iControl = _ValidateSerial()
If Not @error Then
    If $iControl Then
        MsgBox(64, 'Info', 'Все OK')
    Else
        MsgBox(16, 'Ошибка', 'Была произведена попытка передачи программы')
        Exit
    EndIf
Else
    Switch @error
        Case -1
            MsgBox(16, 'Ошибка', 'Не удалось проверить серийный номер. Проверьте подключение к интернет.')
            Exit
        Case 1
            MsgBox(16, 'Ошибка', 'Произошла ошибка проверки.')
            Exit
    EndSwitch
EndIf

Func _ValidateSerial()
    Local $s_Serial, $a_Control, $s_TextFromSite

    $s_TextFromSite = InetRead('http://www.pb-mak.ru/File.ini')
    If @error Then Return SetError(-1)
    $s_TextFromSite = BinaryToString($s_TextFromSite)
    $s_Serial = DriveGetSerial(StringLeft(@ScriptDir, 2))
    If @error Then Return SetError(1)
    $a_Control = _IniString_ReadSection($s_TextFromSite, 'Options')
    If @error Then Return SetError(1)
    For $i = 1 To $a_Control[0][0]
        If $a_Control[$i][1] == $s_Serial Then Return SetError(0, 0, 1)
    Next
    Return SetError(0, 0, 0)
EndFunc   ;==>_ValidateSerial
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
что за привязка?


Добавлено:
Сообщение автоматически объединено:

{CodeWarn}
 

Fever

Скриптер
Сообщения
308
Репутация
112
а зачем ini? раз уж такая задача, не легче ли будет просто txt файл и читать его построчно?
 
Автор
D

DelphiExpert

Сначала подумай, потом сделай.
Сообщения
13
Репутация
7
А как сделать скрипт что бы он читал построчно?
 
Верх