Code: Select all

MsgBox, 36, Q1, Are you Jim?
IfMsgBox, Yes
 jim := True
MsgBox, 36, Q2, Are you Jane?
IfMsgBox, Yes
 jane := True
If jim
 MsgBox, Thanks, Jim!

Code: Select all

key = HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\16.0\Common\General
out = %A_ScriptDir%\backup.reg
FileRecycle, %out%
RunWait, %A_WinDir%\System32\reg.exe export "%key%" "%out%,, HIDE
Run, %A_WinDir%\System32\notepad.exe "%out%"

Code: Select all

change(str, key, incr) {
 While pos := RegExMatch(str, """" key """:\s*\K\d+", num, pos ? pos + 1 : 1)
  str := RegExReplace(str, num, num + incr,, 1, pos)
 Return str
}

Code: Select all

list =
(
a
b
c
)
item := StrSplit(list, "`n"), imageLoop := 0
While (++imageLoop <= item.Count())
 MsgBox, % item[imageLoop]

k::imageLoop := Max(0, imageLoop - 1)

Code: Select all

F1 Up::Reload

Code: Select all

Loop {
 Click, right, down
 Sleep, 10000
 Click, right, up
 Click
 Click
}