https://www.youtube.com/watch?v=zRGaCiYMceE#t=0.449023

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, ключ есть!