AutoHotkey Community

Code: Select all

SetBatchLines, -1 ; for great things
DetectHiddenText, on ; for optimal things
#NoEnv ; for amazing things
Global yourName ; avoid function headaches, make everything global
Global removeQuotes
Global TidBit
Global Hello
Global CountSomething
TimeNow := A_Now
TimeLate := A_TickCount
Greeting = "Hello" ; bug in ahk it should know only to look on the text in the quotes, maybe in V3 it will be fixed
yourName = "TidBit"
Sleep, 60 ; to protect the mouse from running too fast
Clipboard := RemoveQuotes(greeting) " " RemoveQuotes(yourName) ; store it in clipboard in case you need it later
ClipWait, 2 ; always wait a little 
MsgBox, % clipboard " The Date and Time now is " 
. TimeNow 
. " + " 
. (A_TickCount - TimeLate) 
. " MS."
if greeting = "Hello" 
if yourName = "Tidbit"
{
SetTimer, CountSomething, 200 ; start the loop
}
else
ExitApp
return


CountSomething:
Loop,
{
if A_index = 6
{
Settimer, CountSomething, Off  ; stop the timer
ToolTip ; turn off the tooptip or it can remain stuck until you remove the battery on your motherboard 
		ExitApp
break
}
toolTip, % A_Now
Sleep, 300 ; always add a sleep or the machine could overheat 
}
return

ExitApp

RemoveQuotes(Name) ; bug workaround 
{
{
removeQuotes := strreplace(Name, """") ; cleans up the data 0000.1 seconds faster than regex, took me a month to figure this out
	}
return removeQuotes
	}
	

Code: Select all

myautohotkeyscript

messagebox "Hello"
return

Code: Select all

h
(join
o
t
k
e
y
)
,
(
a
)
,
(
a
)
s
(join
e
n
d
)
,
(
a
)
r
(join
e
t
u
r
n
)
a
(
:
)
m
(join
s
g
b
o
x
)
,
,
(join
K
i
l
l
%
a
_
s
p
a
c
e
%
M
e
)
,
(join
T
h
i
s
%
a
_
s
p
a
c
e
%
h
o
t
k
e
y
%
a
_
s
p
a
c
e
%
i
s
%
a
_
s
p
a
c
e
%
%
a
_
t
h
i
s
H
o
t
k
e
y
%
.
)
e
(join
x
i
t
A
p
p
)

Code: Select all

x:="hkcu\Software\ahkdumb",y:="Hello, AHK.."
regRead,a,% x
if errorlevel{
	regWrite,reg_sz,% x,,% a:=1
	run,notepad
	winWait,ahk_exe notepad.exe
}else if !a{
	exitApp
}
send,% subStr(y,a,1)
if (a=strLen(y)){
	regDelete,% x
	exitApp
}else{
	regWrite,reg_sz,% x,,% ++a
	reload
}

Code: Select all

#MaxThreadsPerHotkey 2
setbatchlines, -1 
while GetKeyState("xbutton1","T")
xbutton1::
toggle := !toggle
If (!Toggle)
    goto, stop
If (Toggle)
    goto, canyou
return
omg:
loop
{
click
}
return
ffs:
reload
return
canyou:
goto, really
return
seriously:
SoundBeep , 750, 500
goto, ffs
return
stop:
msgbox, pointless message here too
goto, seriously
return
really:
msgbox, Pointless message here
SoundBeep , 300, 600
goto, omg
return

Code: Select all

while GetKeyState("xbutton1","T")
$*xbutton1::
toggle := !toggle
If (!Toggle)
    goto, 111111
If (Toggle)
    goto, 1111111
return
11111:
send, {xbutton1}
SoundBeep , %11111%, %IIIII%
return
11111111:
send, {xbutton1}
SoundBeep , %11111%, %IIIII%
goto, 1111III
return
111111111:
loop
{
GetKeyState("capslock","T")
send, {xbutton1}
while GetKeyState("lshift","T")
send, {xbutton1}
while GetKeyState("rshift","T")
send, {xbutton1}
while GetKeyState("a","T")
send, {xbutton1}
while GetKeyState("b","T")
send, {xbutton1}
while GetKeyState("c","T")
send, {xbutton1}
reload
}
return

1111111:
SoundBeep , %11111%, %IIIII%
goto, IIIIIIII
return
IIIIIIIIII:
SoundBeep , %11111%, %IIIII%
goto, 11111111
return

111111:
msgbox, pointless message here too
SoundBeep , %11111%, %IIIII%
goto, IIIIIIIIII
return
IIIIIIII:
msgbox, Pointless message here
SoundBeep , %11111%, %IIIII%
goto, 11111
return
1111III:
reload
return
esc::exitapp

Code: Select all

$*a::
vara := 1
send, {blind}a
return
$*a up::
vara := 0
settimer, aspam, off
return

*$b::
varb := 1
send, {blind}b
return
$*b up::
varb := 0
settimer, bspam, off
return

#if vara
*a up::
vara := 0
settimer, aspam, off
return
*b up::
settimer, aspam, 20
return
#if

#if varb
$*b up::
varb := 0
settimer, bspam, off
return
a up::
settimer, bspam, 20
return
#if

aspam:
send, {blind}a
if !getkeystate("a","p")
{
settimer, aspam, off
vara := 0
}
return

bspam:
send, {blind}b
if !getkeystate("b","p")
{
settimer, bspam, off
varb := 0
}
return

Code: Select all

#persistent
settitlematchmode 2
DetectHiddenWindows On

f2::
WinGet, count, list, ahk_class AutoHotkey
WinGet, title, ID, tester.ahk ahk_class AutoHotkey

loop % count
{
countvar%a_index% := count%a_index%
}
var := countvar1 " " . countvar2 " " . countvar3 " " . countvar4 " " . countvar5 " " . countvar6 " " .  countvar7 " " . countvar8 " " . countvar9 " " . countvar10 " " . countvar11 " "

output := StrReplace(var, title, ".")
array := StrSplit(output, A_Space, ".")


Loop % array.MaxIndex()
{
 PostMessage, 0x111, 65307,,, % "ahk_id" array[a_index]
}

reload ; comment this out, and uncomment "exitapp" if you wantto exit the script instead 
sleep 100
; exitapp "uncomment this if you want to close this script, and remember to comment out reload"
return

Code: Select all

:?*:nn::ñ

Code: Select all

~n::
doExtraStuff10++
settimer, clearvar, -200
if !getkeystate("capslock","t")
setTimer, extraStuffTimer10, -140
else
seTtimer, extrastuffdifferent, -140
return

~+n::
doExtraStuff10++
settimer, clearvar, -200
if getkeystate("capslock","t")  ; This time we want this timer to trigger IF caps lock is on
setTimer, extraStuffTimer10, -140
else
seTtimer, extrastuffdifferent, -140
return

extraStuffTimer10:
if (doExtraStuff10 == 2) {
    Send {Blind}{BackSpace}
    Send {Blind}{BackSpace}
    Send ñ
}
return

extrastuffdifferent:
if (doExtraStuff10 == 2) {
    Send {Blind}{BackSpace}
    Send {Blind}{BackSpace}
send Ñ
}
return

clearvar:
doExtraStuff10 := 0
return

Code: Select all

name=  ;//Enter your name here!!!

email=  ;//Enter your email here!!!

password=  ;//Enter your password here, don't tell anyone!!!

setBatchLines,100 ;// Add 100 milliseconds in between each command.

goTo,AutoExecSection ;// Go to the AutoExecSection label.


;// Auto exec section

AutoExecSection:

msgBox,0,Best Hacker Script Ever!!,Thanks for downloading this script! It's the best hacker script ever!!, 5 ;// Display a message box.

formatTime,time,,HH:mm:ss tt ;//Get the current time.

toolTip,The Time is: %time% ;//Display the current time in a tool tip.

return ;//Close out of the auto exec section


;// Bunny hop when you hold spacebar!

Space::

getKeyState,space_keyPress,Space,P ;//Check if the spacebar is pressed.

ifEqual,space_keyPress,1,setTimer,BunnyHop,100 ;//If the spacebar is pressed, execute the BunnyHop label.

else

setTimer,BunnyHop,off ;//If the spacebar is not pressed, turn off the timer.

return


;// Bunny hop code
BunnyHop:

send,{Space} ;//Press the spacebar.

return ;//Close out of the BunnyHop label.