AutoHotKey HWID Login

[Svidinsky]

Помогите, я бы хотел сделать авторизацию в программу. То есть, я скидываю программу пользователю, он открывает, присылает сгенерированный HWID код, после чего я заношу его код в базу данных и он тем самым может открыть программу.

Есть код с одной статьи:

#Include http.ahk

Active := false
URL := "https://url.com"

DriveGet, DriveNumber, Serial, C:\
responseText := UrlGetContents(URL)

Loop, Parse, % responseText, `n
{
if( DriveNumber == A_LoopField)
Active := true
}
if(Active == false)
{
MsgBox, Not activated
return
}
; далее  код

И возникает вопрос.
Куда должен вести url? На базу данных? На сайт?

 

[degrando]

url на файл, в который заносишь hwid

 

[Svidinsky]

url на файл, в который заносишь hwid

Не работает, я думаю что то не так с самим кодом. Можно ли без #incude http.ank сделать подобный скрипт, что бы он считывал номера на сайте и если там есть hwid пользователя, программа открывалась?

 

[degrando]

#NoTrayIcon
strComputer := "."
objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . strComputer . "\root\cimv2")
colSettings := objWMIService.ExecQuery("Select * from Win32_OperatingSystem")._NewEnum
While colSettings[objOSItem]
{
Key := objOSItem.SerialNumber
}
;===========================================================================
URLDownloadToFile, Ссылка на сайт, %a_temp%/d3d9.txt
fileread, read, %a_temp%/d3d9.txt
if read contains %Key%
goto true
Gui, Font, S16 CBlack Bold, Arial
Gui, Add, Text, x53 y0 w113 h30 , Ваш ключ:
Gui, Font, ,
Gui, Add, Edit, x1 y31 w219 h21 ReadOnly vEdit,
Gui, Add, Button, x35 y52 w153 h24 gClip , Копировать и закрыть
Gui, Show, w221 h76, Key
GuiControl, , Edit, % Key
return
Clip:
Gui, Submit, NoHide
Clipboard := Edit
ExitApp
GuiClose:
ExitApp
true:
msgbox, Индентификация прошла успешно.
; Сюда вставлять ваш скрипт

 

[Svidinsky]

#NoTrayIcon
strComputer := "."
objWMIService := ComObjGet("winmgmts:{impersonationLevel=impersonate}!\\" . strComputer . "\root\cimv2")
colSettings := objWMIService.ExecQuery("Select * from Win32_OperatingSystem")._NewEnum
While colSettings[objOSItem]
{
Key := objOSItem.SerialNumber
}
;===========================================================================
URLDownloadToFile, Ссылка на сайт, %a_temp%/d3d9.txt
fileread, read, %a_temp%/d3d9.txt
if read contains %Key%
goto true
Gui, Font, S16 CBlack Bold, Arial
Gui, Add, Text, x53 y0 w113 h30 , Ваш ключ:
Gui, Font, ,
Gui, Add, Edit, x1 y31 w219 h21 ReadOnly vEdit,
Gui, Add, Button, x35 y52 w153 h24 gClip , Копировать и закрыть
Gui, Show, w221 h76, Key
GuiControl, , Edit, % Key
return
Clip:
Gui, Submit, NoHide
Clipboard := Edit
ExitApp
GuiClose:
ExitApp
true:
msgbox, Индентификация прошла успешно.
; Сюда вставлять ваш скрипт

Ты просто лучший! Спасибо тебе огромное! :)