Code: Select all

var := "hello++"
sleep, 200
sendinput % var
exitapp

Code: Select all

oWord.Selection.Goto(1, 2) ; Go to begging of page 2
oWord.Selection.MoveUp(5, 2, 0) ; Move up without selecting, 2 rows
oWord.Selection.HomeKey(6, 1) ; Mark everything from where carat is to begging.
oWord.Selection.MoveDown(5, 4, 1) ; Move down 4

Code: Select all

GUI, add, edit, w300 vProgramToRun
GUI, add, button, default hidden gOK, Ok
GUI, show, autosize,Run command
Return

OK:
If (ProgramToRun = "Notepad")
Run notepad.exe

If (ProgramToRun = "chrome")
Run c:\pathToChrome
Return

Code: Select all

numpad0::
state1 := A_ScriptDir "\states.ini"
IniRead, nstate, %state1%, Teclas, cero
if %nstate% = 0
{
	IniWrite, 1, %state1%, Teclas, cero

	SendInput, {space down}
	
	return
}
else
{
	IniWrite, 0, %state1%, Teclas, cero

	SendInput, {space up}

	return
}

Code: Select all

xl := ComObjActive("Excel.Application")
MsgBox, %xl.ActiveWorkbook.Path%

Code: Select all

loop
{
if WinExist("ahk_class Notepad") {
SendInput, ^F1
Sleep, 10000 ; Waits 10 seconds for the next time the loop runs (so that the windows shuts down?
}
}