Что нового

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

KING536

Новичок
Сообщения
21
Репутация
0
Это только для одного компьютера !!!
Код:
_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

Новичок
Сообщения
18
Репутация
1
Не может у тя не робить!У меня всё робит и ты надеюсь писал вместо
Код:
http://www.pb-mak.ru/Setting.ini
свой адрес!
 
Автор
K

KING536

Новичок
Сообщения
21
Репутация
0
да я писал свой адрес !!!


Добавлено: [time]1306045511[/time]
Всё я решил проблему !!!


Добавлено: [time]1306045733[/time]
проблему в FTP были !!!
 
Верх