Code: Select all

str =
(
Tim Bob John "Sam" Bill Tom Joe
Tim Bob "John" Sam Bill Tom Joe Art
Tim Bob Sam Tom Art "Bill"
)
MsgBox, 64, Result, % new := RegExReplace(str, """(.*?)""", "($1)")

Code: Select all

~q::SendInput qq

Code: Select all

vComputer = Samantha
Run, %A_ScriptDir%\test.cmd "%vComputer%"

Code: Select all

@echo off
echo:
echo %~1
echo:
Pause

Code: Select all

file := A_ScriptDir "\test.txt", x := ["onmessage","DllCall","ShellMessage"], list := ""
For k, v in x
 list .= v "`n"
Sort, list
FileAppend, %list%, %file%
Run, %file%

Code: Select all

tabStop := 35, ttext := ""
str =
(
onmessage	  		[function]
DllCall			[function]
ShellMessage			[function]
)
For k, v in StrSplit(str, "`n")
 part := StrSplit(RegExReplace(v, "\h+", "`t"), "`t"), ttext .= Format("`n{:" -1 * tabStop "}{}", part.1, part.2)
ttext := SubStr(ttext, 2)
SendInput %ttext%

Code: Select all

CoordMode, Pixel
Loop, 10 {
 ImageSearch,,, 0, 0, A_ScreenWidth, A_ScreenHeight, D:\IMAGES\MINE\23 IMPORT DA\1 IMPORT DA SCHWARZ.png
 If !ErrorLevel {
  InstantExplorer("D:\\1990 Mausprogramm")
  Break
 } Else Sleep, 50
}
Return

Code: Select all

RunWait, %ComSpec% /k "test1.cmd %vComputer%", %A_WorkingDir%

Code: Select all

wb := ComObjGet(A_Desktop "\PlanilhaSuporte.xlsx"), n := 0
F1::
Clipboard =
Clipboard := wb.Sheets("Plan1").Cells(++n, 1).Value
ClipWait, 0
If ErrorLevel
 MsgBox, 64, Done, Done!
Else MsgBox, %Clipboard%
Return

Code: Select all

#MaxThreadsPerHotkey 2
cps := 3, nClicks := 5, wait := 500

^F8::
SetMouseDelay, 0
on := !on
While on {
 SoundBeep, 1800, 30
 Loop, %nClicks% {
  Click
  Sleep, on * 1000 / cps
 } Until !on
 Sleep, on * wait
}
SoundBeep, 1000, 30
Return