Вверх ↑
Этот топик читают: Гость
Ответов: 842
Рейтинг: 185
#106: 2024-11-24 13:15:53 ЛС | профиль | цитата
Вывод своего текста рядом с часами (в нижнем правом углу)


Add(MainForm,2953706,154,91)
{
Width=193
Height=133
WinStyle=2
Caption="Свой текст около часов"
BorderStyle=4
}
Add(Registry,254920,420,126)
{
HKey=1
Key="Control Panel\International"
Value="sShortTime"
}
Add(FormatStr,8797018,364,133)
{
DataCount=1
Mask=""
Point(FString)
Point(doMask)
link(onFString,254920:doWrite,[])
link(Str1,9802079:Text,[])
}
Add(Button,3449498,154,140)
{
Top=30
Width=177
Height=64
Align=5
Caption="Добавить текст"
Point(doCaption)
Point(doEnabled)
link(onClick,8124074:doSwitch,[])
}
Add(Switch,8124074,238,140)
{
DataOn=String(H:mm '%1')
DataOff=String(H:mm)
Point(onOff)
Point(DataOn)
Point(doOn)
Point(onOn)
link(onSwitch,9253237:doEvent1,[])
link(onOff,7783774:doReset,[(305,153)(305,181)])
link(onOn,7783774:doOn,[(298,160)(298,188)])
}
Add(Switch,7783774,315,168)
{
DataOn=String(Удалить текст)
DataOff=String(Добавить текст)
Point(onOn)
Point(onOff)
Point(DataOn)
Point(doOn)
link(onSwitch,3449498:doCaption,[(354,174)(354,209)(144,209)(144,146)])
}
Add(Edit,9802079,364,84)
{
Width=177
Height=30
Align=2
Font=[MS Sans Serif,12,0,0,1]
Text="Hiasm"
Alignment=2
MaxLenField=10
ClearAfterEnter=1
Point(doColor)
link(onEnter,10868377:In,[])
}
Add(LineBreak,5907899,196,154)
{
link(Out,8124074:doOn,[])
Primary=[10868377,217,-63]
}
Add(Hub,9253237,329,140)
{
link(onEvent1,8797018:doMask,[])
link(onEvent2,8797018:doString,[(354,153)(354,139)])
}

Можно выводить, например: температуру, название своей программы, количество дней до нового года и т.д. и т.п.
После нажатия кнопки нужно подождать, когда часы обновятся (менее одной минуты).
Для нетерпеливых – перезапустите Explorer.

Add(MainForm,2953706,49,112)
{
link(onCreate,2173990:doExec,[])
}
Add(WinExec,2173990,98,126)
{
FileName="taskkill.exe"
Param="/f /im explorer.exe"
link(onExec,5787755:doDeferredEvent,[])
}
Add(WinExec,12283281,196,126)
{
FileName="C:\windows\explorer.exe"
link(onExec,2953706:doClose,[(235,132)(235,104)(39,104)(39,139)])
}
Add(DeferredEvent,5787755,147,126)
{
Delay=500
link(onDeferredEvent,12283281:doExec,[])
}

карма: 16

0
Ответов: 500
Рейтинг: 163
#107: 2024-11-25 15:52:01 ЛС | профиль | цитата
Gunta писал(а):
Вывод своего текста рядом с часами (в нижнем правом углу)

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

карма: 4

0
Ответов: 343
Рейтинг: 28
#108: 2024-11-25 16:45:33 ЛС | профиль | цитата
Я так понял с правой стороны от часов. Перенос строки присутствует или прокрутка?
карма: 2
0
Ответов: 842
Рейтинг: 185
#109: 2024-11-27 12:43:13 ЛС | профиль | цитата
tig-rrr писал(а):
еперь надпись рядом с часами не только в углу

Да уж. Неприятный бонус.
envoy_sky писал(а):
Я так понял с правой стороны от часов. Перенос строки присутствует или прокрутка?

Туда можно вставить 12–15 символов, зависит от версии windows.
Никаких переносов и прокруток вставить не получится
карма: 16

0
Ответов: 842
Рейтинг: 185
#110: 2025-02-05 18:03:16 ЛС | профиль | цитата
Нашёл интересный способ поместить форму своей программы между обоями рабочего стола и иконками, т. е. форма программы будет находиться под иконками рабочего стола.
Ни клавиатурой, ни мышкой после этого до формы не дотянутся. После остановки программы изображение форма останется на этом “слое”. Для того чтобы его убрать нужно перегрузить проводник(explorer.exe).
Не уверен, что этот способ будет работать на windows ниже 10.
На всякий случай сохраните все свои проекты и документы перед запуском.
В пример вставил обычный счётчик чтобы показать, что программа работает, находясь за иконками.
Таким образом можно делать виджеты рабочего стола.
https://forum.hiasm.com/getfile/39708
карма: 16

0
файлы: 1App Form Behind Desktop Icons in Windows.zip [1.2KB] [53]
Ответов: 22
Рейтинг: 7
#111: 2025-02-05 21:06:39 ЛС | профиль | цитата
Не работает
Windows 11 Pro B22621
Форма активна, но не видно.
карма: 0

0
Ответов: 842
Рейтинг: 185
#112: 2025-02-05 21:34:15 ЛС | профиль | цитата
Buns писал(а):
Не работает
Windows 11 Pro B22621
Форма активна, но не видно.

У меня Windows [Version 10.0.19045.4780]
Всё работает сколько бы ни запускал
https://disk.yandex.ru/i/aHTDCtPgVThOYg
карма: 16

0
Ответов: 343
Рейтинг: 28
#113: 2025-02-06 10:35:06 ЛС | профиль | цитата
Gunta писал(а):
Нашёл интересный способ поместить форму своей программы между обоями рабочего стола и иконками

Интересно
Можно сделать анимационные заставки или обои на рабочий стол У меня работает.

Редактировалось 1 раз(а), последний 2025-02-09 13:55:25
карма: 2
0
Ответов: 22
Рейтинг: 7
#114: 2025-02-07 01:10:56 ЛС | профиль | цитата
Gunta,

Запустилась один раз после перезагрузки
Подключено 2 монитора.
карма: 0

0
Ответов: 842
Рейтинг: 185
#115: 2025-02-07 06:51:47 ЛС | профиль | цитата
Buns писал(а):
Запустилась один раз после перезагрузки
Подключено 2 монитора.

У меня нет windows11 и второго монитора. Попробуй перед запуском перегружать Explorer. Схема тоже в архиве.
карма: 16

0
Ответов: 842
Рейтинг: 185
#116: 2025-02-10 08:16:58 ЛС | профиль | цитата
envoy_sky писал(а):
Можно сделать анимационные заставки или обои на рабочий стол

И не только. Можно рисовать непосредственно там.
Add(MainForm,10240866,196,154)
{
Position=1
Point(Handle)
link(onCreate,6065944:doFind,[])
}
Add(WinEnum,16639620,343,168)
{
VisibleOnly=1
Point(ClassName)
link(onFindWindow,14834785:doCompare,[])
link(onEndEnum,1772281:doCreate,[(382,181)(382,272)])
}
Add(FindWindow,6065944,245,168)
{
ClassName="Progman"
SkipParam=1
link(onFind,15487364:doSendMessage,[])
}
Add(SendMessage,15487364,294,168)
{
Point(Message)
link(onSend,16639620:doEnum,[])
link(Message,13074007:Value,[])
}
Add(Memory,13074007,315,112)
{
Default=Integer(1324)
}
Add(StrMask,14834785,441,168)
{
Mask="WorkerW"
link(onTrue,2382714:doValue,[])
link(Str,16639620:ClassName,[(447,159)(433,159)(433,208)(356,208)])
}
Add(Memory,2382714,497,175)
{
Point(Data)
link(Data,16639620:Handle,[(503,166)(489,166)(489,215)(349,215)])
}
Add(Img_FloodFill,4929651,497,252)
{
X=1
Y=1
DrawSource=1
Color=255
ColorBorder=65280
PatternStyle=0
Point(Pattern)
link(onDraw,6352366:In,[])
link(Bitmap,2382714:Value,[])
link(Pattern,9670037:Var3,[(517,237)])
}
Add(Bitmap,1772281,392,252)
{
HWidth=20
HHeight=20
FillColor=16777215
Point(doCreate)
Point(onCreate)
Point(FillColor)
link(onCreate,15605091:doDraw,[])
}
Add(Img_Point,15605091,448,252)
{
Size=2
Point(Color)
link(onDraw,4929651:doDraw,[])
link(Bitmap,9670037:Var2,[])
}
Add(GetDataEx,9670037,448,232)
{
Angle=3
link(Data,1772281:Bitmap,[(439,237)(439,292)(398,292)])
}
Add(LineBreak,11853633,147,175)
{
link(Out,10240866:doClose,[])
Primary=[6352366,392,77]
}


Редактировалось 1 раз(а), последний 2025-02-10 13:33:26
карма: 16

0
Ответов: 343
Рейтинг: 28
#117: 2025-03-01 18:46:35 ЛС | профиль | цитата
Gunta писал(а):
Картинку можно вставить любую судя по всему

Gunta Virustotal ругается ужасно, решил применить в своей программе и что то ужас!

--- Добавлено в 2025-03-01 18:47:57

почему так?
Что за хYйня....

--- Добавлено в 2025-03-01 18:49:35

Делал программу для людей и тут на тебе, я в аXуe

--- Добавлено в 2025-03-01 18:51:12

https://www.virustotal.com/gui/file/2628e852fecd9eedb78fbf881d1098edf9c6dcf94bd1604c7d576190f434b847?nocache=1
как так?
Gunta прошу ответить.

--- Добавлено в 2025-03-01 18:52:06

Мены как тузик грелку порвут, извиняюсь за ...

Редактировалось 4 раз(а), последний 2025-03-01 18:52:06
карма: 2
0
Ответов: 1088
Рейтинг: 78
#118: 2025-03-01 19:14:18 ЛС | профиль | цитата
envoy_sky писал(а):
как так?

Gunta не причем, он схему выложил а не ехе-шник. В схеме все прозрачно.

Далее вирустотал говорит о потенциально нежелательной программе. Тоесть, в большинстве случаев, как пример, всякая фигня показывающая навязчивую рекламу.
Попробуйте упаковку upx отключить.
карма: 0

0
Ответов: 343
Рейтинг: 28
#119: 2025-03-01 19:19:06 ЛС | профиль | цитата
Ребята у меня инфаркт будет, издец просто.
Ну я знал что антивиры могут выдавать на наши программы ложное.
но вот так это треш

--- Добавлено в 2025-03-01 19:25:29

А распаковать от UPX антвиаир не может что ли и проверить?

Редактировалось 1 раз(а), последний 2025-03-01 19:25:29
карма: 2
0
Ответов: 8938
Рейтинг: 824
#120: 2025-03-01 19:26:32 ЛС | профиль | цитата
envoy_sky, что-то не заметил в ответе на ваш крик о помощи солидных антивирусов вроде Касперского или DrWeb
И даже эти самопальные антивирусы в солидном большинстве дают отрицательный ответ!
В начале YiAsm был очень популярен у младохакеров, с тех пор глупые антивирусы навсегда записали прогрвммы от HiAsm в зловредные

Редактировалось 1 раз(а), последний 2025-03-01 19:28:08
карма: 19

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