1 (изменено: pechenko.iwan, 2019-12-02 20:53:50)

Тема: AHK: Привязка скрипта к компьютеру

Здравствуйте,нашел такой код для привязки скрипта к компьютеру.
Вроде бы все работает,но проблема в том что,когда нажимаю на Numpad1 скрипт срабатывает в независимости от того введен пароль или нет.Подскажите,что я делаю не так?


#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, https://ahktested1.000webhostapp.com/ahkkey.txt, %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, ключ есть!
If MsgBox Ok
Numpad1::
SendInput, {F6} рлоывталоы {enter}
return

2

Re: AHK: Привязка скрипта к компьютеру

Всё правильно, так в коде и написано:

Numpad1::
SendInput, {F6} рлоывталоы {enter}
return

Где тут зависимость от пароля?

Разработка AHK-скриптов:
e-mail dfiveg@mail.ru
Telegram jollycoder

3

Re: AHK: Привязка скрипта к компьютеру

teadrinker
Как сделать так,чтобы горячая клавиша не срабатывала пока скрипт не найдет нужный пароль из скаченого файла?

4

Re: AHK: Привязка скрипта к компьютеру

Немного хелп почитать? Если не хотите, у нас ещё коммерческий раздел есть.

Разработка AHK-скриптов:
e-mail dfiveg@mail.ru
Telegram jollycoder

5 (изменено: Indomito, 2019-12-04 18:50:24)

Re: AHK: Привязка скрипта к компьютеру

pechenko.iwan
Когда ты пишешь вот так,  то это безусловное срабатывание секции hotkey.

Numpad1::
SendInput, {F6} рлоывталоы {enter}
return


Надо добавить проверку внутри самой секции, например вот так.

Numpad1::
If (fKeysGet = False) ;Проверка ключа, если False то он не введён.
       ;Можно добавить стандартную реакцию на Numpad1
   Return 
SendInput, {F6} рлоывталоы {enter}
Return 
"На каждое действие есть равная ему противодействующая критика." Постулат Харриссона
OS Windows 7 x64
AutoHotkey v1.1.32.00 - November 24, 2019
Click to Download

6

Re: AHK: Привязка скрипта к компьютеру

А тут не пройдет условие через #IF?

Win10: LTSC (21H2); AHK: ANSI (v1.1.36.02)

7

Re: AHK: Привязка скрипта к компьютеру

Phoenixxx_Czar
Я в коде не вижу ни одного #If [Expression], так что всё зависит как написать и что написать, а так просто не скажешь.

"На каждое действие есть равная ему противодействующая критика." Постулат Харриссона
OS Windows 7 x64
AutoHotkey v1.1.32.00 - November 24, 2019
Click to Download

8

Re: AHK: Привязка скрипта к компьютеру

Я имею ввиду перед кодом, который должен выполняться только с лицензией добавить #if.

Win10: LTSC (21H2); AHK: ANSI (v1.1.36.02)