Привязка ахк к пк

sanchezzzz

Новичок
Автор темы
16
1
Нужно привязать ахк скрипт к пк на котором он был запущен. Жду ответа.
 

Fyger

Известный
1,056
380
Нужно привязать ахк скрипт к пк на котором он был запущен. Жду ответа.
Если ты про AHK от Horii, то ничего не получиться, твой HWID не находится на бд ахк. А доступ имеет только Horii и LaRossa. Соотвественного никак не обойти, но ты можешь попросить обойти привязку, например у @DarkP1xel, но стоить это будет в раз 10 дороже чем купить привязку)
 
Последнее редактирование:

sanchezzzz

Новичок
Автор темы
16
1
Если ты про AHK от Horii, то ничего не получиться, твой HWID не находится на бд ахк. А доступ имеет только Horii и LaRossa. Соот вественного никак не обойти, но ты можешь попросить обойти привязку, например у @DarkP1xel, но стоить это будет в раз 10 дороже чем купить привязку)
Нет. Я хочу привязать свое ахк к пк, после чего скомпенсировать и выставить на продажу.
 

Rinat_Namazov

🆁🅸🅽🆆🅰️🆁🅴🆂
Всефорумный модератор
1,145
546
Через DllCall можно вызывать функции GetSystemInfo и т.п.
Через DriveGet можно получить серийник диска.
Через ComObjGet можно получить доступ к интерфейсу WMI, через которое можно запрашивать серийники биоса, процессора, мака и всего что есть в ПК.
И эти данные ссылать на хостинг который будет все сверят, чекать что ключ еще не активирован и так далее.
И естественно накрыть AHK протектором.
 
Последнее редактирование:

Dartanian

Новичок
9
0
Код:
#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, Индентификация прошла успешно.
; Сюда вставлять ваш скрипт
 
Последнее редактирование:

Kvisk

Активный
102
114
Код:
#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, Индентификация прошла успешно.
; Сюда вставлять ваш скрипт
закинул в темп папку с таким же названием файл в него вписал свой номер винды поставил только для чтения и всё обошел защиту
 

muxui

Потрачен
254
135
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
закинул в темп папку с таким же названием файл в него вписал свой номер винды поставил только для чтения и всё обошел защиту
Да там можно и другие ключи слить попросту
 

SuSmer4Coder

Активный
389
46
online
AutoHotKey:
/*
URL - ваш сайт, на нем должны быть серийные номера жестких дисков которым предоставлен доступ.
1на строчка - 1ин серийник затем перенос строки! , иначе будет ошибка.
*/

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

DriveGet, DriveNumber, Serial, C:\

Web := ComObjCreate("WinHttp.WinHttpRequest.5.1")
Web.Open("Get", URL)
Web.Send()
Loop, Parse, Web.responseText, `n
{
    if( DriveNumber == A_LoopField)
        Active := true
}
if(Active == false)
{
    MsgBox, Ваше приложение не активированно.
    return
}
; далее твой код
offline
AutoHotKey:
Active := false
Key := 3595986868 ; Сюда вписываем серийник жесткого диска "C" юзера кому делается привязка
DriveGet, DriveNumber, Serial, C:\
if( DriveNumber == Key)
    Active := true

if(Active == false)
{
    MsgBox, Ваше приложение не активированно.
    return
}
; далее твой код
принцип работы - получает серийник ЖД имя которого ( C ) и сравнивает с теми что есть на сайте или тем что введен в переменную " Key ", если нету совпадений выпадает msgbox мол иди отсюда, а если совпал то дальше идет твой код.
 
  • Нравится
Реакции: NHacker1271