Серый форум — AHK: Скрипт "Я гуль"

Re: AHK: Скрипт "Я гуль"

2021-12-08T19:21:57Z

Mokson, ознакомьтесь, пожалуйста, с Правилами, отредактируйте свои посты. Обратите внимание на точки в конце предложений.

Re: AHK: Скрипт "Я гуль"

2021-12-08T19:15:04Z

Изучает пускай все кто хочет, тут нет претензий. Зачем на этом форуме просто такой код выкладывать?
Ну хотя бы такой скрипт нужно было выложить:

SetBatchLines -1
Gui -MinimizeBox -MaximizeBox +AlwaysOnTop
Gui Color, 0xFF8080
Gui Font, s16
Gui Add, Text, vText x16 y8 w140 h23 +0x200 +0x1, Вы гуль?
Gui Font, s12 Bold
Gui Add, Button, hwndOk gOk x8 y48 w70 h25, Да
Gui Add, Button, gGuiClose x88 y48 w70 h25, Нет
Gui Show, w166 h77, Тест на гуля:
Return

GuiEscape:
GuiClose:
ExitApp

Ok:
Gui Color, 0xFF8080
GuiControl, Disable, % Ok
D := 1000
While(D > 6){
 Sleep, 150
 GuiControl,, Text, % D " - 7 = " D := (D-7)
}
Gui Color, 0xF00000
GuiControl,, Text, Я гуль
GuiControl, Enable, % Ok
Return

Re: AHK: Скрипт "Я гуль"

2021-12-08T19:04:18Z

__Михаил__

Ну так ahk не только взрослые дяди изучают. Мал да удал, как говорится. MsgBox ещё никто не использовал для таких "приколов", поэтому решил стать первым

Re: AHK: Скрипт "Я гуль"

2021-12-08T18:55:09Z

1) Форум для программистов, зачем такое нам тут? Мемы вроде как не для взрослых дядек. Ладно 'осуждать' не буду - все учатся на своих ошибках.
2) 'MsgBox' с постоянным миганием - эпилепсию не вызовет?

AHK: Скрипт "Я гуль"

2021-12-08T18:47:33Z

Здравствуйте, хочу поделится моим мини скриптом с тем самым надоедливым мемом "1000-7". Сделал от нечего делать, да и вообще я дебил, поэтому не осуждайте, пожалуйста)

Код:

Add (x,y,z)
x=1000
z=993
y=7
	

MsgBox, 4, Тест на гуля, Вы гуль?
IfMsgBox No
	return
else
	
Loop 
	{
	EnvSub x, %y%
	EnvSub z, %y%
	SetTimer, CloseMsgBox, 50
	MsgBox %x% - 7 = %z%
	If (x <= 0 or z<=0)
		
		Break
	}
MsgBox Я гуль

CloseMsgBox:
WinClose, ahk_class #32770
Return

Пишите, если есть предложения по улучшению скрипта)