#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
MsgBox(64, 'Info', 'Работаем дальше')
Func _ValidateSerial()
Local $s_Serial, $a_Control, $s_TextFromSite
$s_TextFromSite = InetRead('http://updchsd3d.16mb.com/updater/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