summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--appspecific.ahk114
-rw-r--r--borders.ahk90
2 files changed, 157 insertions, 47 deletions
diff --git a/appspecific.ahk b/appspecific.ahk
index 776af5b..ace2b0d 100644
--- a/appspecific.ahk
+++ b/appspecific.ahk
@@ -1,12 +1,70 @@
+;application specific hotkeys
-;explorer -win7
-#IfWinActive ahk_class CabinetWClass
- Capslock::SendInput {ALTDOWN}{UP}{ALTUP} ;capslock goes up a folder
- F6::Send {ALTDOWN}d{ALTUP} ;addressbar
- F1::Send {F2} ;disable help, enable rename
-#IfWinActive
+;detect os
+if A_OSVersion in WIN_NT4,WIN_95,WIN_98,WIN_ME,WIN_XP
+{
+ ;windows xp:
+
+ ;explorer
+ #IfWinActive ahk_class CabinetWClass
+ F1::Send {F2}{CTRLDOWN}{HOME}{SHIFTDOWN}{END}{CTRLUP}{LEFT 4}{SHIFTUP} ; rename (hopefully) deselects file extension
+ F2::Send {F2}{CTRLDOWN}{HOME}{SHIFTDOWN}{END}{CTRLUP}{LEFT 4}{SHIFTUP} ; rename (hopefully) deselects file extension
+ ^+n::Send {ALTDOWN}f{ALTUP}wf ; ctrl+shift+n creates new folder
+ #IfWinActive
+
+ ;outlook
+ #IfWinActive ahk_class rctrl_renwnd32
+ ^enter::Return ;disable accidentally send email shortcut
+ #IfWinActive
+
+ ;excel
+ #IfWinActive ahk_class XLMAIN
+ ^+v::Send {ESC}{UP}{CTRLDOWN}c{CTRLUP}{DOWN}{CTRLDOWN}v{CTRLUP}{ESC}{DOWN} ;ctrl+shift+v copies above cell into current
+ #IfWinActive
+
+ ;mstsc
+ #IfWinActive ahk_class #32770
+ ^enter::Send 10.0.0.5{enter} ;tserver
+ ^+enter::Send 10.0.0.10{enter} ;dserer
+ #IfWinActive
+
+ ;act
+ #IfWinActive ahk_class WindowsForms10.Window.8.app.0.2004eee
+ ^enter::Send {CONTROLDOWN}{END}{CONTROLUP}{SPACE}-PG{SHIFTDOWN}{TAB 3}{SHIFTUP}{ENTER} ;save note with footer
+ ^n::Send {F9} ;insert note
+ ^f::Send {ALTDOWN}L{ALTUP}C ;search for company
+ #IfWinActive
+}
+Else
+{
+ ;windows 7:
+
+ ;explorer
+ #IfWinActive ahk_class CabinetWClass
+ Capslock::SendInput {ALTDOWN}{UP}{ALTUP} ;capslock goes up a folder
+ F6::Send {ALTDOWN}d{ALTUP} ;addressbar
+ F1::Send {F2} ;disable help, enable rename
+ #IfWinActive
-;command prompt -winxp
+ ;photoviewer
+ #IfWinActive ahk_class Photo_Lightweight_Viewer
+ Capslock::SendInput {ALTDOWN}{F4}{ALTUP} ;quits
+ Up::Return ;removes annoying feature where up/down stops left/right naviagation
+ Down::Return
+ #IfWinActive
+
+ ;mpc-hc
+ #IfWinActive ahk_class MediaPlayerClassicW
+ 1::Send 2{ctrldown}1{ctrlup} ;1 keeps borders
+ Ralt & Enter::Send {altdown}{enter}{altup} ; ralt-enter fullscreens
+ Capslock::Send {altdown}{f4}{altup} ;quit
+ p::Send {ctrldown}7{ctrlup} ;p for playlist
+ #IfWinActive
+}
+
+;applicable for both:
+
+;command prompt
#IfWinActive ahk_class ConsoleWindowClass
^c:: ;copy
Send {Enter}
@@ -18,22 +76,7 @@
return
#IfWinActive
-;photoviewer -win7
-#IfWinActive ahk_class Photo_Lightweight_Viewer
- Capslock::SendInput {ALTDOWN}{F4}{ALTUP} ;quits
- Up::Return ;removes annoying feature where up/down stops left/right naviagation
- Down::Return
-#IfWinActive
-
-;mpc-hc -win7
-#IfWinActive ahk_class MediaPlayerClassicW
- 1::Send 2{ctrldown}1{ctrlup} ;1 keeps borders
- Ralt & Enter::Send {altdown}{enter}{altup} ; ralt-enter fullscreens
- Capslock::Send {altdown}{f4}{altup} ;quit
- p::Send {ctrldown}7{ctrlup} ;p for playlist
-#IfWinActive
-
-;chrome/chromium -win7
+;chrome/chromium
#IfWinActive ahk_class Chrome_WidgetWin_1
^+w::Send {CTRLDOWN}w{CTRLUP}
^q::Send {CTRLDOWN}w{CTRLUP} ;quit now closes tab, the two keys are too close for this sort of thing
@@ -41,30 +84,7 @@
^+h::Send {CTRLDOWN}t{CTRLUP}chrome://chrome/settings/clearBrowserData{ENTER} ;delete history page
#IfWinActive
-;remote desktop -winxp
-#IfWinActive ahk_class #32770
- ^enter::Send 10.0.0.5{enter} ;tserver
- ^+enter::Send 10.0.0.10{enter} ;dserer
-#IfWinActive
-
-;act -winxp
-#IfWinActive ahk_class WindowsForms10.Window.8.app.0.2004eee
- ^enter::Send {CONTROLDOWN}{END}{CONTROLUP}{SPACE}-PG{SHIFTDOWN}{TAB 3}{SHIFTUP}{ENTER} ;save note with footer
- ^n::Send {F9} ;insert note
- ^f::Send {ALTDOWN}L{ALTUP}C ;search for company
-#IfWinActive
-
-;outlook -winxp
-#IfWinActive ahk_class rctrl_renwnd32
- ^enter::Return ;disable accidentally send email shortcut
-#IfWinActive
-
-;excel -winxp
-#IfWinActive ahk_class XLMAIN
- ^+v::Send {ESC}{UP}{CTRLDOWN}c{CTRLUP}{DOWN}{CTRLDOWN}v{CTRLUP}{ESC}{DOWN} ;ctrl+shift+v copies above cell into current
-#IfWinActive
-
-;notepad2 -win7
+;notepad2
#IfWinActive ahk_class Notepad2
!z::Return ;disable delete first char of line 'feature;
^Down::Send {Down} ; disable shift line down feature
diff --git a/borders.ahk b/borders.ahk
new file mode 100644
index 0000000..0261e6e
--- /dev/null
+++ b/borders.ahk
@@ -0,0 +1,90 @@
+;window border removal ahk script
+;for use at work, on XP
+
+;doesn't work via include, must run standalone
+
+GoSub, HookWindow
+
+HookWindow:
+ ; New Window Hook
+ Gui +LastFound
+ hWnd := WinExist()
+
+ DllCall( "RegisterShellHookWindow", UInt,hWnd )
+ MsgNum := DllCall( "RegisterWindowMessage", Str,"SHELLHOOK" )
+ OnMessage( MsgNum, "ShellMessage" )
+
+ ShellMessage(wParam,lParam) {
+ If (wParam = 1) ; HSHELL_WINDOWCREATED := 1
+ {
+ Sleep, 10
+ AdjustWindow(lParam)
+ }
+ }
+Return
+
+AdjustWindow(id)
+{
+ WinId := id
+ WinTitle := id = "A" ? "A" : "ahk_id " . id
+
+ ; This is to check if the window is shown in the alt-tab menu, you don't want to do it on every single frame
+ WinGet, WinExStyle, ExStyle, %WinTitle%
+ If (WinExStyle & 0x80)
+ {
+ Return
+ }
+
+ WinGetClass, WinClass, %WinTitle%
+ WinGet, WinProcess, ProcessName, %WinTitle%
+
+ If WinClass In % "CabinetWClass"
+ If WinProcess In % "explorer.exe"
+ {
+ WinSet, Style, -0xC00000, %WinTitle%
+ }
+
+
+
+ If WinClass In % "ShImgVw:CPreviewWnd"
+ {
+ WinSet, Style, -0xC00000, %WinTitle%
+ }
+ If WinProcess In % "Photoshop.exe"
+ {
+ WinSet, Style, -0xC00000, %WinTitle%
+ }
+ If WinProcess In % "sumatrapdf.exe"
+ {
+ WinSet, Style, -0xC00000, %WinTitle%
+ }
+ If WinProcess In % "mintty.exe"
+ {
+ WinSet, Style, -0xC00000, %WinTitle%
+ }
+ If WinProcess In % "7zFM.exe"
+ {
+ WinSet, Style, -0xC00000, %WinTitle%
+ }
+ If WinProcess In % "msaccess.exe"
+ {
+ WinSet, Style, -0xC00000, %WinTitle%
+ }
+ If WinProcess In % "excel.exe"
+ {
+ WinSet, Style, -0xC00000, %WinTitle%
+ }
+ If WinProcess In % "Notepad2.exe"
+ {
+ WinSet, Style, -0xC00000, %WinTitle%
+ }
+ If WinProcess In % "outlook.exe"
+ {
+ WinSet, Style, -0xC00000, %WinTitle%
+ Winset, AlwaysOnTop, off, %WinTitle%
+ }
+ If WinProcess In % "winword.exe"
+ {
+ WinSet, Style, -0xC00000, %WinTitle%
+ }
+} \ No newline at end of file