Вверх ↑
Этот топик читают: Гость
Ответов: 231
Рейтинг: 1
#1: 2026-02-24 03:32:47 ЛС | профиль | цитата
Подскажите, что нужно сделать в схеме для корректной работы кнопок?
Нужно вкл и выкл explorer, и вызвать диспетчер задач одной кнопкой

Add(MainForm,2953706,21,105)
{
Width=408
Height=343
}
Add(Button,1991697,168,161)
{
Left=160
Top=160
Width=105
Caption="Дисп задач"
link(onClick,12332470:doEvent1,[])
}
Add(KeyEvent,8261512,266,140)
{
Ctrl=1
}
Add(KeyEvent,3327015,266,189)
{
Alt=1
}
Add(Hub,12332470,217,161)
{
OutCount=3
link(onEvent1,8261512:doPressDown,[(249,167)(249,153)])
link(onEvent2,3327015:doPressDown,[(249,174)(249,202)])
link(onEvent3,14186949:doPressDown,[(243,181)(243,251)])
}
Add(KeyEvent,14186949,266,238)
{
Code=46
}
Add(WinExec,1232727,504,70)
{
FileName="cmd.exe"
Point(Action)
Point(doConsoleExec)
Point(doConsoleInput)
Point(onConsoleResult)
Point(onConsoleError)
Point(onConsoleTerminate)
}
Add(Button,12684246,399,84)
{
Left=160
Top=105
Width=105
Caption="Старт проводник"
Data=String(start explorer.exe)
link(onClick,3244041:doEvent1,[])
AddHint(20,53,105,13,Data)
}
Add(Hub,3244041,462,84)
{
link(onEvent1,1232727:doConsoleExec,[])
link(onEvent2,1232727:doConsoleInput,[])
}
Add(WinExec,1218134,735,112)
{
FileName="cmd.exe"
Point(Action)
Point(doConsoleExec)
Point(doConsoleInput)
Point(onConsoleResult)
Point(onConsoleError)
Point(onConsoleTerminate)
}
Add(Button,11081468,630,126)
{
Left=160
Top=40
Width=105
Caption="Старт проводник"
Data=String(taskkill /f /im explorer.exe)
link(onClick,8749037:doEvent1,[])
AddHint(20,59,146,13,Data)
}
Add(Hub,8749037,693,126)
{
link(onEvent1,1218134:doConsoleExec,[])
link(onEvent2,1218134:doConsoleInput,[])
}
Add(Button,8378662,168,336)
{
Left=160
Top=225
Width=105
Caption="Дисп задач"
link(onClick,5580247:doExec,[])
}
Add(WinExec,5580247,252,336)
{
FileName="taskmgr"
Point(Action)
Point(doConsoleExec)
Point(doConsoleInput)
Point(onConsoleResult)
Point(onConsoleError)
Point(onConsoleTerminate)
}

карма: 1

0
Ответов: 1052
Рейтинг: 219
#2: 2026-02-24 07:24:20 ЛС | профиль | цитата
Gitarist писал(а):
Нужно вкл и выкл explorer, и вызвать диспетчер задач одной кнопкой

Add(MainForm,11984821,203,98)
{
Width=408
Height=343
}
Add(Button,12684246,308,154)
{
Left=160
Top=105
Width=105
Caption="Старт проводник"
Data=String()
link(onClick,12283281:doExec,[])
}
Add(Button,11081468,308,105)
{
Left=160
Top=40
Width=105
Caption="Стоп проводник"
Data=String()
link(onClick,2173990:doExec,[])
}
Add(Button,8378662,308,301)
{
Left=160
Top=225
Width=105
Caption="Дисп задач"
link(onClick,16663561:doString,[])
}
Add(WinExec,5580247,371,224)
{
FileName="taskmgr"
Param="/0 /startup"
Point(Action)
Point(doConsoleExec)
Point(doConsoleInput)
Point(onConsoleResult)
Point(onConsoleError)
Point(onConsoleTerminate)
}
Add(WinExec,2173990,371,105)
{
FileName="taskkill.exe"
Param="/f /im explorer.exe"
RunEvent=1
}
Add(WinExec,12283281,371,154)
{
FileName="C:\windows\explorer.exe"
}
Add(Button,1991697,308,224)
{
Left=160
Top=160
Width=105
Caption="Дисп задач"
link(onClick,5580247:doExec,[])
}
Add(FormatStr,16663561,371,301)
{
Mask="Start-Process taskmgr.exe -ArgumentList """/0 /silent"""\r\n"
link(onFString,15277625:doConsoleExec,[])
}
Add(WinExec,15277625,427,287)
{
FileName="powershell"
Mode=0
Point(doConsoleExec)
}


Редактировалось 1 раз(а), последний 2026-02-24 07:26:02
карма: 20

1
Голосовали:Gitarist
Ответов: 215
Рейтинг: 6
#3: 2026-02-24 12:33:47 ЛС | профиль | цитата
Чувствую, что-то замышляется "зловещее".
карма: 1
Сообщество Hiasm в VK hhttps://vk.com/club_hiasm (компоненты, статьи, схемы).
0
Ответов: 231
Рейтинг: 1
#4: 2026-02-24 14:00:53 ЛС | профиль | цитата
Gunta, Благодарю! Как всегда выручил.
strannik_nebes, Не.. я не дестроер по жизни, это всё во благо. Чтоб пользователь лишнего не понажимал.
карма: 1

0
Ответов: 231
Рейтинг: 1
#5: 2026-03-04 13:32:29 ЛС | профиль | цитата
Подскажите, можно ли реализовать проводник на Hiasm?
Если подробнее: Мне как то нужно ограничить доступ к другим файлам на компьютере, и просто чтобы юзер моей программы мог перекинуть 1 текстовый файл на вставленную флешку.

Редактировалось 2 раз(а), последний 2026-03-04 13:38:32
карма: 1

0
Ответов: 1052
Рейтинг: 219
#6: 2026-03-04 14:15:33 ЛС | профиль | цитата
Gitarist писал(а):
Подскажите, можно ли реализовать проводник на Hiasm?


Add(MainForm,2953706,63,91)
{
Width=658
Height=552
link(onCreate,14744872:doNavigate,[])
}
Add(WebBrowser,14744872,133,105)
{
Width=642
Height=513
Align=5
Font=[MS Sans Serif,14,0,0,1]
URL=""
link(onNavigate,7895941:doEvent1,[])
link(URL,340062:CurrentDir,[])
}
Add(Dir,340062,133,35)
{
}
Add(StatusBar,5840605,238,112)
{
Panels=#4:=500|
link(Panel,15706691:Value,[])
}
Add(Memory,15706691,245,56)
{
Default=Integer(0)
}
Add(Hub,7895941,189,105)
{
link(onEvent1,2953706:doCaption,[(214,111)(214,83)(53,83)(53,97)])
link(onEvent2,5840605:doText,[])
}

карма: 20

0
Ответов: 231
Рейтинг: 1
#7: 2026-03-04 15:09:19 ЛС | профиль | цитата
Много функций открывается при нажатии правой кнопки мыши. Это контекстное меню как то можно убрать?

--- Добавлено в 2026-03-04 15:28:50

Еще вопрос: при подключении любой флэшки в разъем USB, мы можем как то узнать букву диска, чтобы сразу послать ее в браузер?
Я пробовал назначить букву диска через управление дисками в виндоус, и это прокатило, но вставил другую флэшку и ей уже присвоилась другая буква диска.

Редактировалось 4 раз(а), последний 2026-03-04 15:28:50
карма: 1

0
Ответов: 1052
Рейтинг: 219
#8: 2026-03-04 15:43:13 ЛС | профиль | цитата
Gitarist писал(а):
Много функций открывается при нажатии правой кнопки мыши. Это контекстное меню как то можно убрать?

Add(MainForm,10084801,280,189)
{
Width=658
Height=552
link(onActivate,7704589:doTimer,[])
link(onDeactivate,7704589:doStop,[])
link(onCreate,14744872:doNavigate,[(333,209)(333,293)])
}
Add(WebBrowser,14744872,343,287)
{
Width=642
Height=513
Align=5
Font=[MS Sans Serif,14,0,0,1]
URL=""
Point(onMouseDown)
link(onNavigate,7895941:doEvent1,[])
link(URL,340062:CurrentDir,[])
}
Add(Dir,340062,343,238)
{
}
Add(StatusBar,5840605,462,287)
{
Panels=#4:=500|
link(Panel,15706691:Value,[])
}
Add(Memory,15706691,469,238)
{
Default=Integer(0)
}
Add(Hub,7895941,413,287)
{
link(onEvent1,5840605:doText,[])
link(onEvent2,10084801:doCaption,[(439,300)(439,337)(270,337)(270,195)])
}
Add(Timer,7704589,343,189)
{
Interval=1
link(onTimer,13313118:doFind,[])
}
Add(FindWindow,13313118,392,189)
{
ClassName="#32768"
SkipParam=1
link(onFind,2763271:doCase,[])
}
Add(SendMessage,9542769,497,189)
{
Message=7
}
Add(Case,2763271,441,189)
{
Value=Integer(0)
link(onNextCase,9542769:doSendMessage,[])
}


--- Добавлено в 2026-03-04 15:47:42

Gitarist писал(а):
Еще вопрос: при подключении любой флэшки в разъем USB, мы можем как то узнать букву диска, чтобы сразу послать ее в браузер?
Я пробовал назначить букву диска через управление дисками в виндоус, и это прокатило, но вставил другую флэшку и ей уже присвоилась другая буква диска.

Add(MainForm,2953706,161,126)
{
Width=572
Height=421
}
Add(FSMonitor,3404981,238,126)
{
link(onDeviceArrival,14058202:doStrCat,[])
}
Add(WebBrowser,14744872,350,126)
{
Width=556
Height=382
Align=5
Font=[MS Sans Serif,14,0,0,1]
URL=""
Point(onMouseDown)
}
Add(StrCat,14058202,294,126)
{
Str2=":\"
link(onStrCat,14744872:doNavigate,[])
}


Редактировалось 2 раз(а), последний 2026-03-04 15:55:13
карма: 20

0
Ответов: 231
Рейтинг: 1
#9: 2026-03-04 15:55:49 ЛС | профиль | цитата
Ок... Спасибо) Сейчас попробую прикрутить...

--- Добавлено в 2026-03-04 16:17:42



Add(MainForm,2953706,161,126)
{
Width=572
Height=421
}
Add(FSMonitor,3404981,238,126)
{
link(onDeviceArrival,14058202:doStrCat,[])
}
Add(WebBrowser,14744872,350,126)
{
Width=556
Height=382
Align=5
Font=[MS Sans Serif,14,0,0,1]
URL=""
Point(onMouseDown)
}
Add(StrCat,14058202,294,126)
{
Str2=":\"
link(onStrCat,14744872:doNavigate,[])
}



А есть что то типа такого маниторинга, только касательно HID устройств. надо исключить подключения устройств ввода.

Редактировалось 2 раз(а), последний 2026-03-04 16:18:37
карма: 1

0
Ответов: 1052
Рейтинг: 219
#10: 2026-03-04 18:10:08 ЛС | профиль | цитата
Gitarist писал(а):
А есть что то типа такого маниторинга, только касательно HID устройств. надо исключить подключения устройств ввода.

Есть. Используй этот компонент.
Add(DeviceInfo,14102167,210,154)
{
Point(doDeviceOnOff)
}

Схему принципиально выкладывать не буду. А то кто-то обязательно сделает что-нибудь нехорошее.

Редактировалось 1 раз(а), последний 2026-03-04 18:10:40
карма: 20

0
Ответов: 231
Рейтинг: 1
#11: 2026-03-04 19:06:22 ЛС | профиль | цитата
Gunta писал(а):
Схему принципиально выкладывать не буду. А то кто-то обязательно сделает что-нибудь нехорошее.

Ок... Можем, если хотите, удалить тогда тему. А то правда все выглядит как вредительство, а на самом деле я таких целей не преследую.

--- Добавлено в 2026-03-04 19:33:52

Браузер в этом самодельном проводнике все таки не подходит(( ведь могут вредоносное ПО запустить...
Наверно надо как то реализовать через таблицу, но как то геморно получается.

Редактировалось 1 раз(а), последний 2026-03-04 19:33:52
карма: 1

0
11
Сообщение
...
Прикрепленные файлы
(файлы не залиты)