Вот скрипт
И на сайте загружен файл Setting.ini
и в нём прописывается
а как мне зделать несколько строк
прописать в Setting.ini
а в скрипте
Код:
_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
И на сайте загружен файл Setting.ini
и в нём прописывается
Код:
[Options]
1=6125615615
прописать в Setting.ini
Код:
[Options]
1=6125615615
2=5612561597
3=2569745631
а в скрипте
Код:
_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', '?')
$Serial = IniRead($Temp, 'Options', '2', '?')
$Serial = IniRead($Temp, 'Options', '3', '?')
FileDelete($Temp)
If DriveGetSerial('C:') <> $Serial Then
MsgBox(16, 'Ошибка', 'Была произведена попытка передачи программы')
Exit
EndIf
EndFunc ;==>_ValidateSerial