Что нового

[Данные, строки] Привязка к hard disk с помошю ini

Roman89

Новичок
Сообщения
107
Репутация
3
Всем доброго времени суток!
У меня созрел вопрос!
Можно ли переделать данный скрипт привязки таким образом что бы:
Серийный номер диска брался с ini файла с сервера ( сайта ) по ссылке - http://www.frostkill.com/Setting.ini
Вод сам скрипт привязки:
Код:
$proverkaHD = "618859868"

disk()

Func disk()
    $Dserial = DriveGetSerial("C:")
    If $Dserial <> $proverkaHD Then
        MsgBox(0, "Ошыбка", "Была произведена попытка передачи программы")
    EndIf

EndFunc   ;==>disk

P.s. Не судите строго вить я пытался писать без ошибок!
Зарание спасибо!
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,717
С помощью функции InetGet() закачиваешь .ini на локальный компьютер, читаешь "серийник", а затем удаляешь этот файл.
 
Автор
R

Roman89

Новичок
Сообщения
107
Репутация
3
Yashied
С помощью функции InetGet() закачиваешь .ini на локальный компьютер, читаешь "серийник", а затем удаляешь этот файл.
Мне кажется вы меня не верно поняли!
Мне нужно что бы ini файл постоянно находился на сайте и при необходимости я мог зайти на него и изменить серийник харда!
Мне кажется там нужно использовать такое:
Код:
$sServer_Page = 'http://www.frostkill.com/Setting.ini'
            $tempfile = @TempDir & "\options.ini"
$iInetGet = InetGet($sServer_Page, $tempfile)
$var = IniRead($tempfile, "Options", "1", "")

Только как вот это соединить с моим скриптом?
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,717
Код:
_ValidateSerial()

Func _ValidateSerial()

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

	If Not InetGet('http://www.frostkill.com/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


Только имей ввиду, что если ты переформатируешь диск, то серийный номер изменится, т.к. это серийный номер тома, а не диска.
 
Автор
R

Roman89

Новичок
Сообщения
107
Репутация
3
Большое спасибо это именно то что я искал!
Только имей ввиду, что если ты переформатируешь диск, то серийный номер изменится, т.к. это серийный номер тома, а не диска.
Я знаю по этому мне и нужен был данный скрипт скрипт!
 
Верх