[Script]Tools Menu v.05

[coldbloc]

im looking but finding it but maybe u know it, is there a way to have it send the f5 key with powershell?

Yes and no. I tried sendkeys f5 (powershell console steals focus). I tried minimize console window, then refresh, didn't work. (explorer still had no focus), think it refreshed my 'taskbar'.

Then I tried this, but no go, focus. Explorer blinked but did not refresh fully, I think again focus issue.

http://powershell.com/cs/media/p/8322.aspx

Probably need to spawn powershell invisible so we don't lose focus in the first place. I've been using the old invisible.vbs or cmdow.exe but including those or nirsoft or below app would defeat the purpose.

http://www.ntwind.com/software/hstart.html

Note to self, remove the start /B (spawning powershell externally of cmd.exe) then add windowstyle -hidden and see if it won't run asynchronously and invisibly to cmd.exe. Maybe even a 1 second sleep to be sure the .cmd window has died. EDIT: windows style hidden still shows pop up.

This looks like the real way to invisible powershell.

http://msdn.microsoft.com/en-us/library/system.diagnostics.processstartinfo(v=vs.110).aspx

http://technet.microsoft.com/en-us/library/ff731006.aspx

$objStartInfo = New-Object System.Diagnostics.ProcessStartInfo
$objStartInfo.FileName = "PowerShell.exe"
$objStartInfo.windowStyle ="Hidden"
$objStartInfo.arguments = "-noexit C:\Scripts\Test.ps1"
[System.Diagnostics.Process]::Start($objStartInfo)

Unless anyone can show me how to get the window title from explorer.exe pid so I could set focus properly.

 

[pattyboi:)]

great job man the part after the install had me cracking up

 

[steal25]

great script and great options, one issue though is it is not adding the power menu icons to dropdown. im using win 8.

EDIT: Rebooting PC fixed it. Thank again for a cool script!

 

[mattman86]

Great tool... Could have done without the vulgarity at the end though.

 

[pbanj]

great script and great options, one issue though is it is not adding the power menu icons to dropdown. im using win 8.

EDIT: Rebooting PC fixed it. Thank again for a cool script!

odd that you had to reboot, but im glad its working now

 

[Pjay12]

Hi I installed it and it seems to be working but the icons for power restart and 2 others are not recognized. It just shows a white square next to the option. Is there any fix for this? Thanks for the script!

 

[pbanj]

Hi I installed it and it seems to be working but the icons for power restart and 2 others are not recognized. It just shows a white square next to the option. Is there any fix for this? Thanks for the script!

try restarting your pc that seems to have fixed it for the other person who had that issue, could try restarting explorer first

 

[coldbloc]

try restarting your pc that seems to have fixed it for the other person who had that issue

Wrote a kludge to fix this refresh issue, seems to be working even from special folders.

$check = (Get-ItemProperty -Path 'registry::HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced' -Name 'HideFileExt').HideFileExt;if ($check -eq 0){Set-ItemProperty -Path 'registry::HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced' -Name 'HideFileExt' -Value 1} else {Set-ItemProperty -Path 'registry::HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced' -Name 'HideFileExt' -Value 0}

$app = New-Object -com shell.application
$a = $app.Windows() | where {$_.fullname -match "explorer.exe"} | foreach {$_.LocationURL}
$a = $a | foreach {$_ -Replace "file:///",""}
$a = $a | foreach {$_ -Replace "/","\"}
$a = $a | foreach {$_ -Replace "%20"," "}

$a

$u = gc env:username
Foreach ($c in $a) {

$b = Split-Path -Leaf -Path $c

switch ($b) {
    Desktop {
        $c = "Desktop"
    }
    "$u" {
        $c = $u
    }
    Libraries {
        $c = "Libraries"
    }
    default {
        
    }
}


[void][System.Reflection.Assembly]::LoadWithPartialName('Microsoft.VisualBasic');
[Microsoft.VisualBasic.Interaction]::AppActivate("$c");
Start-Sleep -m 300
[void][System.Reflection.Assembly]::LoadWithPartialName('System.Windows.Forms');
[System.Windows.Forms.SendKeys]::SendWait("{F5}");
Start-Sleep -m 100
}

Haven't programmed in the rest of the special folders (downloads, music, pictures, etc), but it's a start.

EDIT: Here it is swapped into the FE-Tools key in case you want to test it out.

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\FE.Tools]
"Icon"="C:\\Windows\\file.ico"
"MUIVerb"="Files Extensions"

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\FE.Tools\command]
@="cmd /c start /b /wait powershell.exe -nologo -WindowStyle Hidden -sta -command \"$PAYLOAD = 'H4sIAAAAAAAEAO29B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwdaUcjKasqgcplVmVdZhZAzO2dvPfee++999577733ujudTif33/8/XGZkAWz2zkrayZ4hgKrIHz9+fB8/In7jBP/9btN5Pn2bfpZufZ6322dtvnhZV6u8bq/T7ZdZO08/rvOLomnr60ePvv17nf4+v//JV69enb548/t/9fr01e/7ujpvr7I6/32/KKZ11dBfv+93i+Wsump+35N1XefL9ifzuimq5e97+m5VVnVe/77Hs8tsOc1nH6fbL7JFnn787WKWPyvK/PRd+/GdsffXYXGebil+2/kvSnfu/OLX/y/AMd3+yaxc5+nuL0nzssnT/1chtfNLeFKz1Yqm9EV+tf3l5KfzaZtuT6tF2szzshzTd2UxzVoCjpbUDs3H2v3WnfRn0qt5XtPAfrfff3y+LssletteZO10nn6UKzrj/F3+0S+htuf0V0bfoPXzSuB+9er5L7Gwwzbp9qt8VWbTPP3onHB/dPfu3Y9GH310i+Zo9/vepuHvvrdDTdOPlBT875peuZim+fLy0brJawzpN06e6evEZGmxJJB30l/MrSfU+jVRqZWZ3H6eZ+c6q7/bFC2aq6LlFyf8yo89zZu3bbXi33+MoH2WfqQffUSfECI/9tHvtv7I+/p3W+vnz4tJndVF3vjv2g/N27P8PFuXrbSRz36JyO/3Lqti9v3vvb5uiAPHr/LzkqabpmB83DT5YlJef//Ro+dVNvtu0c5fZnVbZCW4Z+vjLwzjjX+yaNZZ+SRriunHdw4JpOVJ/6vx2bLN64yBE8zj1eqYfr/M2nzro99t+hFefN1SB9uvyzxfEb+kuzs7H4CfvqFsOaa5WjSCXuyb8et8Ofu98uuGwOHX72ZFu/XRL352/5cMYibswTLRkZWTaqG/fvSaRebYicxHh/LKeFEsi0Xxgzwry6078R5+4+R8veTRpq/n1dW2xyXU87vBXnudovX4TXVxUeYKA13qEHzQA3PwNSj2/y24/w+DcfMGzAYAAA==';$data = [System.Convert]::FromBase64String($PAYLOAD);$ms = New-Object System.IO.MemoryStream;$ms.Write($data, 0, $data.Length);$ms.Seek(0,0) | Out-Null;$cs = New-Object System.IO.Compression.GZipStream($ms, [System.IO.Compression.CompressionMode]::Decompress);$sr = New-Object System.IO.StreamReader($cs);$t = $sr.readtoend();Invoke-Expression $t;\""

 

[Gack69]

Missing Icons...

Just installed, and I too am having trouble with icons not properly displaying. I've tried restarting explorer...no help...and rebooting PC several times, and also shutting down...waiting a bit, then restarting...same issue. See screenshot.

BTW...I'm on a new MS Surface 2 Pro...for what that's worth.

 

[ckpv5]

Just installed, and I too am having trouble with icons not properly displaying. I've tried restarting explorer...no help...and rebooting PC several times, and also shutting down...waiting a bit, then restarting...same issue. See screenshot.

BTW...I'm on a new MS Surface 2 Pro...for what that's worth.

Had the same issue on my PC running Win8.1.

What I did to solve the missing icons is copied the icons from \Tools_Menu v0.4\Files\Pow to C:\Windows and restart PC. All icons are there.

 

[onlineemails]

Glad to c some windows developers...

 

[Gack69]

Had the same issue on my PC running Win8.1.

What I did to solve the missing icons is copied the icons from \Tools_Menu v0.4\Files\Pow to C:\Windows and restart PC. All icons are there.

That worked perfectly! Thank you!

 

[NuriJ]

Works just perfect on win8.1, thanks. This made my day...

 

[trm96]

Script needing updating

Your script needs updating

:pow2
cd /d %~dp0
REGEDIT /s Files\Reg\Install_Epo.reg
xcopy Files\Epo C:\Windows
echo Done installing. Have a ****ed day.
pause
exit

Should read:

:pow2
cd /d %~dp0
REGEDIT /s Files\Reg\Install_Epo.reg
xcopy Files\Epo C:\Windows
xcopy Files\Pow C:\Windows
echo Done installing. Have a ****ed day.
pause
exit

Or you should put all the power icons into one folder.

 

[obynio]

@pbanj

You made a small mistake in Hidden_Files.vbs. If the user click "Hidden Files" in the context menu, it doesn't show SuperHidden files as the Reg variable is always set to 0

[---]
If Check = 2 Then
Command1.RegWrite Hidden, 1, "REG_DWORD"
Command1.RegWrite SSHidden, [B][COLOR="Red"][SIZE="5"]0[/SIZE][/COLOR][/B], "REG_DWORD"  [B][COLOR="Green"][SIZE="5"]<-- Replace 0 by a 1[/SIZE][/COLOR][/B]
Else
Command1.RegWrite Hidden, 2, "REG_DWORD"
Command1.RegWrite SSHidden, [B][COLOR="Red"][SIZE="5"]0[/SIZE][/COLOR][/B], "REG_DWORD"
End If
[---]

However, nice work

 

[abhi98228]

power menu icons are not working here how do i fix it i even tried manually copying all icons to windows folder not working

 

[puntebhunte]

Just installed, and I too am having trouble with icons not properly displaying. I've tried restarting explorer...no help...and rebooting PC several times, and also shutting down...waiting a bit, then restarting...same issue. See screenshot.

BTW...I'm on a new MS Surface 2 Pro...for what that's worth.

Same here in Windows 8.1 Pro with WMC

---------- Post added at 05:02 PM ---------- Previous post was at 04:52 PM ----------

Had the same issue on my PC running Win8.1.

What I did to solve the missing icons is copied the icons from \Tools_Menu v0.4\Files\Pow to C:\Windows and restart PC. All icons are there.

Worked for me, Thank you.

 

[xzaxox]

When click "run as an administrator" cmd flashes and nothing else happens. Win 8.1 Pro x64

 

[Nickjg11]

Kudos developer! thumps up.

 

[zookarma]

Kudos developer! thumps up.

Same here :good: Simple solution but everybody must welcome it