Серый форум — AHK: Простой секундомер в виде отдельного окна (динамический)

Re: AHK: Простой секундомер в виде отдельного окна (динамический)

null@example.com (Michael) — Sun, 05 Dec 2021 17:41:37 +0000

__Михаил__
Огромное спасибо! Всё работает!

Re: AHK: Простой секундомер в виде отдельного окна (динамический)

null@example.com (__Михаил__) — Sun, 05 Dec 2021 13:36:05 +0000

Остановить секундомер не проблема - отключить таймер.

Start := 0
gui -caption +alwaysontop +LastFound
gui, font, s50, impact
;gui color, 0x1c9900
;WinSet, TransColor, 0x1c9900
Gui Add, Text, vText x8 y8 w250 h60 +0x200, --:--:--
Gui Show, w275 h80 x5 y380 NA, Секундомер
Return

GuiEscape:
GuiClose:
ExitApp

F10::
KeyWait, %A_ThisHotkey%, U
If (Start := !Start){
 Time := A_TickCount
 SetTimer, Now, 1000
}
Else
 SetTimer, Now, Off
Now:
GuiControl,, Text, % FormatTime(A_TickCount-Time)
Return


FormatTime(Time) {
 Local Rest, Hours, Min, Sec
 If Time < 0
  Return "00:00:00"
 Rest := Mod(Time, 3600000)
  Hours := Format("{:02d}", Time // 3600000)
  Min := Format("{:02d}", Rest // 60000)
  Sec := Format("{:02d}", Mod(Rest, 60000) // 1000)
 Return Hours ":" Min ":" Sec
}

F8:: 
 IfWinExist, Секундомер
 {
  WinGet ExStyle, ExStyle
  if Not (ExStyle & 0x8)  ; 0x8 is WS_EX_TOPMOST. The window is always-on-top.
  {
   WinSet ExStyle, +0x20 ; чтобы клики проходили сквозь окошко
   WinSet Transparent, 255 ; прозрачность окна: 0 - максимальная, 255 - непрозрачное 
   WinSet AlwaysOnTop, On
  } else 
   {
   WinSet ExStyle, -0x20
   WinSet Transparent, 255
   WinSet AlwaysOnTop, Off
   ; переключаем режим "поверх всех" в окне игры, чтобы окошко ушло на задний план
   WinSet AlwaysOnTop, On, A
   WinSet AlwaysOnTop, Off, A
   }
 }

Re: AHK: Простой секундомер в виде отдельного окна (динамический)

null@example.com (Michael) — Sun, 05 Dec 2021 12:48:05 +0000

teadrinker
Для игры, сорян, тупанул. Точнее для всех игр одновременно, как оверлей. Универсально, так сказать.

__Михаил__
Остановился на варианте без прозрачного фона. Он не так важен.
Хочу вот что еще добавить: чтобы при первом нажатии F10 таймер стартовал (что уже есть), при повторном - останавливался, третье нажатие - запуск с нуля снова. И так далее.
Текущий скрипт где работает исчезновение оверлея корректно:

gui -caption +alwaysontop +LastFound
gui, font, s50, impact
;gui color, 0x1c9900
;WinSet, TransColor, 0x1c9900
Gui Add, Text, vText x8 y8 w250 h60 +0x200, --:--:--
Gui Show, w511 h80 x5 y380 NA, Секундомер
Return

GuiEscape:
GuiClose:
ExitApp

F10::
Time := A_TickCount
SetTimer, Now, 1000
Return

Now:
GuiControl,, Text, % FormatTime(A_TickCount-Time)
Return

FormatTime(Time) {
	Local Rest, Hours, Min, Sec
	If Time < 0
		Return "00:00:00"
	Rest := Mod(Time, 3600000)
	 Hours := Format("{:02d}", Time // 3600000)
	 Min := Format("{:02d}", Rest // 60000)
	 Sec := Format("{:02d}", Mod(Rest, 60000) // 1000)
	Return Hours ":" Min ":" Sec
}

F8:: 
	IfWinExist, Секундомер
	{
		WinGet ExStyle, ExStyle
		if Not (ExStyle & 0x8)  ; 0x8 is WS_EX_TOPMOST. The window is always-on-top.
		{
			WinSet ExStyle, +0x20 ; чтобы клики проходили сквозь окошко
			WinSet Transparent, 255 ; прозрачность окна: 0 - максимальная, 255 - непрозрачное 
			WinSet AlwaysOnTop, On
		} else 
		 {
			WinSet ExStyle, -0x20
			WinSet Transparent, 255
			WinSet AlwaysOnTop, Off
			; переключаем режим "поверх всех" в окне игры, чтобы окошко ушло на задний план
			WinSet AlwaysOnTop, On, A
			WinSet AlwaysOnTop, Off, A
		 }
	}

Re: AHK: Простой секундомер в виде отдельного окна (динамический)

null@example.com (teadrinker) — Fri, 03 Dec 2021 06:51:08 +0000

Michael, если скрипт применяется для игры, он должен быть в соответствующей ветке, переношу.

Re: AHK: Простой секундомер в виде отдельного окна (динамический)

null@example.com (Michael) — Fri, 03 Dec 2021 00:09:55 +0000

__Михаил__
К сожалению, нет...
Некоторые игры крашатся при такое функцией, потестил, тут именно нужно что-то с прозрачность сделать.

Re: AHK: Простой секундомер в виде отдельного окна (динамический)

null@example.com (__Михаил__) — Thu, 02 Dec 2021 23:39:38 +0000

Тут дело со стилем Gui, а я стилями мало знаком, редко их использую.
Как такой вариант:

SW=1
Gui -Caption +AlwaysOnTop +LastFound 
Gui, Font, s50, impact
Gui Color, 0x1c9900
WinSet, TransColor, 0x1c9900
Gui Add, Text, vText x8 y8 w250 h60 +0x200, --:--:--
Gui Show, w400 h100 NA, Секундомер
Return

GuiEscape:
GuiClose:
ExitApp

F10::
Time := A_TickCount
SetTimer, Now, 1000
Now:
GuiControl,, Text, % FormatTime(A_TickCount-Time)
Return

FormatTime(Time){
 Local Rest, Hours, Min, Sec
 If (Time < 0)
  Return "00:00:00"
 Rest := Mod(Time, 3600000)
 Hours := Format("{:02d}", Time // 3600000)
 Min := Format("{:02d}", Rest // 60000)
 Sec := Format("{:02d}", Mod(Rest, 60000) // 1000)
 Return Hours ":" Min ":" Sec
}

F9::
If (SW := !SW)
 Gui Show, NA
Else
 Gui Hide
Return

Re: AHK: Простой секундомер в виде отдельного окна (динамический)

null@example.com (Michael) — Thu, 02 Dec 2021 23:25:02 +0000

__Михаил__ пишет:

Вот пример с Gui:

Gui -MinimizeBox -MaximizeBox
Gui Add, Text, vText x8 y8 w120 h23, --:--:--
Gui Add, Button, gGT x136 y8 w80 h23, Запуск
Gui Show, w222 h39, Секундомер
Return

GuiEscape:
GuiClose:
ExitApp

GT:
Time := A_TickCount
SetTimer, Now, 1000
Now:
GuiControl,, Text, % FormatTime(A_TickCount-Time)
Return

Спасибо большое! Начинаю подгонять под то что нужно.

Сделал прозрачный фон, убрал кнопки, запуск по горячей клавише - все работает.

На F9 хотел сделать реализацию "скрыть/показать" поверх игры, но вместо скрытия оно окрашивается в зеленый и не скрывается... В чем может быть проблема? Понимаю, что что-то с прозрачностью перемудрил...

gui -caption +alwaysontop +lastfound 
gui, font, s50, impact
gui color, 0x1c9900
winset, transcolor, 0x1c9900
Gui Add, Text, vText x8 y8 w250 h60 +0x200, --:--:--
Gui Show, w400 h100, Секундомер
Return

GuiEscape:
GuiClose:
ExitApp

F10::
Time := A_TickCount
SetTimer, Now, 1000
Return

Now:
GuiControl,, Text, % FormatTime(A_TickCount-Time)
Return

FormatTime(Time) {
	Local Rest, Hours, Min, Sec
	If Time < 0
		Return "00:00:00"
	Rest := Mod(Time, 3600000)
	 Hours := Format("{:02d}", Time // 3600000)
	 Min := Format("{:02d}", Rest // 60000)
	 Sec := Format("{:02d}", Mod(Rest, 60000) // 1000)
	Return Hours ":" Min ":" Sec
}

F9::
	IfWinExist, Секундомер
	{
		WinGet ExStyle, ExStyle
		if Not (ExStyle & 0x8)  ; 0x8 is WS_EX_TOPMOST. The window is always-on-top.
		{
			WinSet ExStyle, +0x20 ; чтобы клики проходили сквозь окошко
			WinSet Transparent, 255 ; прозрачность окна: 0 - максимальная, 255 - непрозрачное 
			WinSet AlwaysOnTop, On
		} else 
		 {
			WinSet ExStyle, -0x20
			WinSet Transparent, 255
			WinSet AlwaysOnTop, Off
			; переключаем режим "поверх всех" в окне игры, чтобы окошко ушло на задний план
			WinSet AlwaysOnTop, On, A
			WinSet AlwaysOnTop, Off, A
		 }
	}

Re: AHK: Простой секундомер в виде отдельного окна (динамический)

null@example.com (__Михаил__) — Thu, 02 Dec 2021 23:02:02 +0000

Вот пример с Gui:

Gui -MinimizeBox -MaximizeBox
Gui Add, Text, vText x8 y8 w120 h23, --:--:--
Gui Add, Button, gGT x136 y8 w80 h23, Запуск
Gui Show, w222 h39, Секундомер
Return

GuiEscape:
GuiClose:
ExitApp

GT:
Time := A_TickCount
SetTimer, Now, 1000
Now:
GuiControl,, Text, % FormatTime(A_TickCount-Time)
Return

Re: AHK: Простой секундомер в виде отдельного окна (динамический)

null@example.com (__Михаил__) — Thu, 02 Dec 2021 22:56:07 +0000

Вроде уже обсуждали такое.

AHK: Простой секундомер в виде отдельного окна (динамический)

null@example.com (Michael) — Thu, 02 Dec 2021 22:34:40 +0000

Приветствую!
Хотелось бы реализовать простой секундомер в виде отдельного окна GUI, которое будет при нажатии на клавишу (в примере F2) - показываться в определенной области экрана, при повторном нажатии клавиши - скрываться.
Запускает секундомер другая клавиша (в примере - F1).
В данном примере показывается статические цифры, а мне хотелось бы что они были динамическими, т.е. чтобы я мог бы видеть идущие секунды при нажатии F2.
Элементы окна я думаю сам смогу убрать, и шрифт побольше сделать тоже. В первую очередь хочется понять как сделать это элементов GUI (отдельного окна) и чтобы циферки бегали, без статики.

F1:: time := A_TickCount ; старт таймера

F2:: msgbox, % "Прошло времени: " FormatTime(A_TickCount-time)

FormatTime(Time) {
	Local Rest, Hours, Min, Sec
	If Time < 0
		Return "00:00:00"
	Rest := Mod(Time, 3600000)
	 Hours := Format("{:02d}", Time // 3600000)
	 Min := Format("{:02d}", Rest // 60000)
	 Sec := Format("{:02d}", Mod(Rest, 60000) // 1000)
	Return Hours ":" Min ":" Sec
}