Что нового
Автор:
Фильтры

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

R

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

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,724
С помощью функции 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

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,724
Код: 
_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
Большое спасибо это именно то что я искал!
Только имей ввиду, что если ты переформатируешь диск, то серийный номер изменится, т.к. это серийный номер тома, а не диска.
Нажмите, чтобы раскрыть...
Я знаю по этому мне и нужен был данный скрипт скрипт!
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
A Из ресурсов исполняемых файлов получить данные в виде строки-структуры Общие вопросы по AutoIt 4
erience [Данные, строки] Поиск определенных данных в txt и копирование их в другой txt Стол заказов 4
A [Данные, строки] командная строка, кавычки Общие вопросы по AutoIt 4
Y [Данные, строки] Сравнение строки из тхт и выполнение действия при совпадении с образцом Общие вопросы по AutoIt 2
H [Данные, строки] Привязка к hard с помощью файла ini Общие вопросы по AutoIt 12
Похожие темы
Из ресурсов исполняемых файлов получить данные в виде строки-структуры
[Данные, строки] Поиск определенных данных в txt и копирование их в другой txt
[Данные, строки] командная строка, кавычки
[Данные, строки] Сравнение строки из тхт и выполнение действия при совпадении с образцом
[Данные, строки] Привязка к hard с помощью файла ini
Верх