#Persistent
Menu, Tray, Icon, Shell32.dll, 174
Menu, Tray, Tip, MM-rnd
Menu, Tray, NoStandard
Menu, Tray, Add, Exit, Exit
return
loop {
Random, RandomSleep, 2000, 100000
sleep, %RandomSleep%
mousemove, 10, 0, 10, R
mousemove, -10, 0, 10, R
}
Exit:
ExitApp
Search This Blog
Showing posts with label AHK. Show all posts
Showing posts with label AHK. Show all posts
Friday, April 04, 2025
AHK Mousemover
Saturday, November 28, 2015
TS-Remote-App: Create a launcher box containing the programs from C:\Users\Public\Desktop
This compiled .ahk will behave like an application launcher for
multiple programs from TS in Remote-App mode. If you don't want it to
launch the first program automatically, replace || with a single | on line #9.
Enjoy!
;(c)2014 sorin@xxxxxxxx.com under the terms of LGPL v2
#SingleInstance force
files =
Directory = C:\users\public\desktop
Loop, %Directory%\*.lnk, , 1
{
fullfile = %A_LoopFileName%
filename := RegExReplace(fullfile,"\.lnk","")
files = %filename%||%files%
}
Gui, Color, 22BBFF
Gui -Caption +Border +AlwaysOnTop
Gui, Font, S11, Tahoma
Gui, Add,Button, x255 Y3 w35 h22 gButtonOK, OK
Gui, Add,Button, x10 Y3 w35 h22 gButtonKill, X
Gui Add, ComboBox, X50 Y1 h10 r20 W200 vScript, %files%
Gui Show, x50 y0 H28 W300
ButtonOK:
GuiControlGet Script,, script
if script <>
Run, %Directory%\%script%.lnk, , ,PID
Return
ButtonKill:
Process, Close, %PID%
Sleep, 1000
exitapp
return
return
Tuesday, November 04, 2014
Windows Shell for TS - without Domain Controller
On the RD Session Host Configuration ,the following (compiled as c:\windows\tssession.exe) script is executed as initial shell:
;(c)2014 sorinakis@g**il.com
;msgbox, Username: %A_UserName%
AuthUsers = Administrator|administrator
Loop Parse, AuthUsers, |
{
ifEqual, A_LoopField, %A_Username%
{
Sleep, 500
Run, explorer.exe
;MsgBox EXPLORER Executed.
GoTo, End
}
else
{
;MsgBox In the ELSE branch.
Sleep, 500
Run, D:\Partages\apps\LCM\Bin\wrun32.exe -ws -c D:\Partages\apps\LCM\etc\CBLCONFI-RZ_APP.ini utmenu
Sleep 500
WinMaximize, ahk_class AcucobolWClass
IfWinExist, Cie(01)
{
WinMaximize, Cie(01)
Sleep, 500
WinWaitClose, Cie(01)
Sleep, 500
Run, shutdown /l
}
Return
}
}
End:
Sleep, 100
;MsgBox At the END.
;(c)2014 sorinakis@g**il.com
;msgbox, Username: %A_UserName%
AuthUsers = Administrator|administrator
Loop Parse, AuthUsers, |
{
ifEqual, A_LoopField, %A_Username%
{
Sleep, 500
Run, explorer.exe
;MsgBox EXPLORER Executed.
GoTo, End
}
else
{
;MsgBox In the ELSE branch.
Sleep, 500
Run, D:\Partages\apps\LCM\Bin\wrun32.exe -ws -c D:\Partages\apps\LCM\etc\CBLCONFI-RZ_APP.ini utmenu
Sleep 500
WinMaximize, ahk_class AcucobolWClass
IfWinExist, Cie(01)
{
WinMaximize, Cie(01)
Sleep, 500
WinWaitClose, Cie(01)
Sleep, 500
Run, shutdown /l
}
Return
}
}
End:
Sleep, 100
;MsgBox At the END.
Subscribe to:
Comments (Atom)