Привязка к 100 или более Hard с помощью ini

[KING536]

Это только для одного компьютера !!!

_ValidateSerial()

Func _ValidateSerial()

    Local $Serial, $Temp = @TempDir & '\~snzrtqw.tmp'

    If Not InetGet('http://www.pb-mak.ru/Setting.ini', $Temp) Then
        MsgBox(16, 'Ошибка', 'Не удалось проверить серийный номер. Проверьте подключение к интернет.')
        Exit
    EndIf
    $Serial = IniRead($Temp, 'Options', '1', '?')
    FileDelete($Temp)
    If DriveGetSerial('C:') <> $Serial Then
        MsgBox(16, 'Ошибка', 'Была произведена попытка передачи программы')
        Exit
    EndIf
EndFunc   ;==>_ValidateSerial

Это у меня неробит !!!

$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 $sSerial, $aControl, $sTemp = @TempDir & '\~snzrtqw.tmp'

    If Not InetGet('http://www.pb-mak.ru/Setting.ini', $sTemp) Then
        Return SetError(-1)
    EndIf
    $sSerial = DriveGetSerial(StringLeft(@ScriptDir, 2))
    If @error Then Return SetError(1)
    $aControl = IniReadSection($sTemp, 'Options')
    If @error Then Return SetError(1)
    FileDelete($sTemp)
    For $i = 1 To $aControl[0][0]
        If $aControl[$i][1] == $sSerial Then Return SetError(0, 0, 1)
    Next
    Return SetError(0, 0, 0)
EndFunc   ;==>_ValidateSerial

И это неробит !!!

#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/Setting.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

http://autoit-script.ru/index.php?topic=1083.0

 

[hahasi45]

Не может у тя не робить!У меня всё робит и ты надеюсь писал вместо

http://www.pb-mak.ru/Setting.ini

свой адрес!

 

[KING536]

да я писал свой адрес !!!


Добавлено:

Сообщение автоматически объединено: 22 Май 2011

Всё я решил проблему !!!


Добавлено:

Сообщение автоматически объединено: 22 Май 2011

проблему в FTP были !!!