XYplorer Beta Club

Code: Select all

IfWinActive, ahk_class ThunderRT6FormDC
{
#If (DetectContextMenu() = 1)
{
RButton::
MessagetoXYplorer = ::perm $rmb=1;
SendFunction(MessagetoXYplorer)
click
Return
}
#IfWinActive
}
DetectContextMenu() ; based on closeContextMenu() by Stefaan - http://www.autohotkey.com/community/viewtopic.php?p=163183#p163183
	;https://autohotkey.com/board/topic/85769-how-to-detect-existence-of-a-right-click-menu in-any-app/
{

	GuiThreadInfoSize = 48
	VarSetCapacity(GuiThreadInfo, 48)
	NumPut(GuiThreadInfoSize, GuiThreadInfo, 0)
	if not DllCall("GetGUIThreadInfo", uint, 0, str, GuiThreadInfo)
	{
		MsgBox GetGUIThreadInfo() indicated a failure.
		Return
	}
	; GuiThreadInfo contains a DWORD flags at byte 4
	; Bit 4 of this flag is set if the thread is in menu mode. GUI_INMENUMODE = 0x4
	If (NumGet(GuiThreadInfo, 4) & 0x4)
		Return 1 ; we've found a context menu
	Else
		Return 0
}

SendFunction(MessagetoXYplorer)
{
	HWND := WinExist("ahk_class ThunderRT6FormDC")
	Size := StrLen(MessagetoXYplorer)
	If !(A_IsUnicode) {
		VarSetCapacity(Data, Size * 2, 0)
		StrPut(MessagetoXYplorer, &Data, "UTF-16")
		} Else {
		Data := MessagetoXYplorer
	}
	VarSetCapacity(COPYDATA, A_PtrSize * 3, 0)
	NumPut(4194305, COPYDATA, 0, "Ptr")
	NumPut(Size * 2, COPYDATA, A_PtrSize, "UInt")
	NumPut(&Data, COPYDATA, A_PtrSize * 2, "Ptr")
	Result := DllCall("User32.dll\SendMessageW", "Ptr", HWND, "UInt", 74, "Ptr", 0, "Ptr", &COPYDATA, "Ptr")
}

Code: Select all

"C:\Program Files (x86)\XYplorer\XYplorer.exe" /feed=|:: perm $b="hi!"; echo $b;|

Code: Select all

#IfWinActive, ahk_class ThunderRT6FormDC
{
    ~z::
    MessagetoXYplorer := "::perm $rmb=1;"
    SendFunction(MessagetoXYplorer)
    Return

}
#IfWinActive

SendFunction(MessagetoXYplorer)
{
    HWND := WinExist("ahk_class ThunderRT6FormDC")
    Size := StrLen(MessagetoXYplorer)
    If !(A_IsUnicode) {
        VarSetCapacity(Data, Size * 2, 0)
        StrPut(MessagetoXYplorer, &Data, "UTF-16")
        } Else {
        Data := MessagetoXYplorer
    }
    VarSetCapacity(COPYDATA, A_PtrSize * 3, 0)
    NumPut(4194305, COPYDATA, 0, "Ptr")
    NumPut(Size * 2, COPYDATA, A_PtrSize, "UInt")
    NumPut(&Data, COPYDATA, A_PtrSize * 2, "Ptr")
    Result := DllCall("User32.dll\SendMessageW", "Ptr", HWND, "UInt", 74, "Ptr", 0, "Ptr", &COPYDATA, "Ptr")
}

Code: Select all

"NotePad++<tab>AkelPad|D:\Tools\AkelPad\AkelPad.exe" if ($rmb == 1) {openwith "D:\Tools\AkelPad\AkelPad.exe";}
	else {openwith "D:\Tools\NotePad++\notepad++.exe"}

Code: Select all

// WhiteSpaceCtxMenu_test
// Unsetting $rmb in the next line worked in 23.50.0013.  From 23.50.0015 on it, unsetting $rmb results in a script failure.
// The variable $rmb ends up being "" so the script gives an error since if ($rmb="1") {... results in "if(==1) {..."
// So for some reason in beta 23.50.0015, unsset $rmb affects what comes later where AHK is detecting the right click
// in the context menu and setting $rmb="1"

	unset $rmb;   //this unset of $rmb causes the script to fail
	perm $mod, $loc;
	$mod = get("shift");
	$loc = ControlatPos();

	$FavFolders = <<<FAVS
"Home [C:\]<tab>Downloads|:home" if($rmb=="1") {goto "G:\Downloads\";}
	else {#1401;}
"Wallpaper<tab>Photos  📷|D:\Graphics\Icons\wallpaper_08.ico" if($rmb=="1") {goto "H:\Pictures\"}
	else {goto "G:\Wallpaper\1920x1080\";}
"XY scripts<tab>AHK scripts  🅰️|D:\Graphics\Icons\xy.ico" if($rmb=="1") {goto "D:\Tools\AutoHotkey\AHKscripts\";}
	else {goto "D:\Tools\XYplorer\Scripts\";}
"Agent DLs<tab>Tools  🛠️|D:\Graphics\Icons\agent.ico" if($rmb=="1") {goto "D:\Tools\";} else {goto "G:\Agent downloads\";}
"XYmenu<tab>Pics && Walls  🌷|XY light.ico" if($rmb=="1") {load "<xyscripts>\ThumbnailViewer_exec_L_Photos_R_Wallpaper.xys";} else {load "<xyscripts>\XYmenu_NESTED.xys";}
"RegEdit<tab>GPedit  ⚙️|C:\Windows\regedit.exe" if($rmb == '1') {open "gpedit.msc";}
	else {open "C:\Windows\regedit.exe";}
"Control Panel<tab>Task Manager  ™|C:\Windows\System32\taskmgr.exe" if($rmb == '1') {open "C:\Windows\System32\taskmgr.exe";} else {#640;}
"Cards && Games<tab>Photo Crop  ✂|:ghost" if($rmb=="1") {load "<xyscripts>\PhotoCrop_both_axis_01.xys";} else {load "D:\Tools\XYplorer\Scripts\cards&games_left.xys";}
FAVS;

/*** Copy/Move/New menu ***/
//"Caption|Icon|State|Level 
	$copymove = <<<COMO
"To clipboard|:clip||"
"Item path/name(s)|:cliptext||1" #101;
"Item name(s)|:cliptext||1" #102;
"Image|D:\Graphics\Icons\image eye.ico||1" #115;
"Copy<tab>Move  🐇|:copyto||1" if ($rmb == 1){#4;} else {#5;}
"New folder<tab>New file  📂|:newfolder" if ($rmb == "1"){#234;} else {#231;};
COMO;

	if($loc == "T") {
			if ($mod == 0) {load "$FavFolders<crlf>-<crlf>$copymove"; end 1;} //			if ($mod == 0) {load "$FavFolders<crlf>-<crlf>$copymove", ,s; end 1}
			else {load "<xyscripts>\XYmenu_NESTED.xys", ,s; end 1;}
	}

	elseif(gettokenindex($loc, "L 1|L 2", "|", "i")) {
				load "$FavFolders<crlf>-<crlf>$copymove", ,s; end 1;
	}
"_Terminate";
	unset $mod, $loc, $rmb;