HTA launched from Explorer right click context menu

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

HTA launched from Explorer right click context menu

Logged in as: Guest

arrSession:exec spGetSession 2,16,62419

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> HTA launched from Explorer right click context menu
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

HTA launched from Explorer right click context menu - 7/16/2008 12:57:21 AM

TomRiddle

Posts: 165
Score: 4
Joined: 2/7/2008
Status: offline

Script for DiGiTAL.SkReAM

More of a proof of concept than anything else. Fans of DOS findstr.exe will like this script. HTA front end to findstr is launched from Windows Explorer's right click context menu.

<html> 
<head> 
<title>Search</title>

<HTA:APPLICATION 
     ID="ObjSearch" 
     APPLICATIONNAME="Search" 
     SCROLL="yes" 
     SINGLEINSTANCE="no"

'---------------------------------------------------------

'Script and concept by TomRiddle 2008 
'findstr.hta GUI v1.00

'Tested XP Pro Sp2
'Run HTA by clicking on it directly and it will run in install mode. 
'Then
'Right click drive or folder in Windows Explorer and select findstr

'Version 1.00 is a frills free HTA GUI, feel free to take code to make your own scripts or_
'develop this one further.

'This concept can be applied to running vbs files from Explorer's right click context menu too.

'---------------------------------------------------------

Sub Window_Onload

window.resizeto 860,900

With document
      sTmp = ObjSearch.commandline 
      aTmp = Split(sTmp, """")

If 1 = UBound(aTmp) Then
         sTmp = aTmp(1)
      End If

xTmp = document.Script.Location.Pathname
      xTmp = UnEscape(xTmp)
   End With

if instr(sTmp, chr(34)) then
     'Launched by clicking Script Directly
      SetupMode xTmp
   else
     'Launched from right click context menu in Explorer
      zTmp = trim(replace(sTmp, xTmp, ""))
      Main.Style.Display = "inline"
      FolderHTML.value = "FINDSTR /M /I /S /C:"&chr(34)&"YourString"&chr(34)&" "&chr(34)&zTmp &"\*.*"&chr(34)      
   end if

End Sub

'---------------------------------------------------------

Sub SetupMode(xTmp)

'Create right click context menu by adding registry key
   on error resume next
   Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."
 
   Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
       strComputer & "\root\default:StdRegProv")
 
   strKeyPath = "SOFTWARE\Classes\Folder\shell\findstr\Command"
   'strValueName = "Default"
   strValue = "mshta C:\windows\system32\findstr.hta %L"

oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
   oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

'Copy HTA to right place on HD
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   objFSO.CopyFile xTmp , "C:\windows\system32\findstr.hta"

if err=0 then
      msgbox "****  findstr Script Installed  ****" &vbcrlf&vbcrlf& "Right click folder in Explorer to see" &vbcrlf& "the right click context menu added."  
   else
      msgbox "Installation Problem"
   end if

self.close
 
end sub

'---------------------------------------------------------

sub SearchButton

Set objShell = CreateObject("WScript.Shell")
   Set objExecObject = objShell.Exec("cmd /c "&FolderHTML.value)

Do While Not objExecObject.StdOut.AtEndOfStream
      strText = strText & "<BR>" & objExecObject.StdOut.ReadLine()
   Loop

findstrOutput.innerhtml = strText

end sub

'---------------------------------------------------------

sub Resetfindstr

location.reload()

end sub

'---------------------------------------------------------

sub Closefindstr

self.close

end sub

'---------------------------------------------------------

</script> 
</head>

<body>

<br>

<pre>
FINDSTR [/B] [/E] [/L] [/R] [/S] [/I] [/X] [/V] [/N] [/M] [/O] [/P] [/F:file]
        [/C:string] [/G:file] [/D:dir list] [/A:color attributes] [/OFF[LINE]]
        strings [[drive:][path]filename[ ...]]

/B         Matches pattern if at the beginning of a line.
  /E         Matches pattern if at the end of a line.
  /L         Uses search strings literally.
  /R         Uses search strings as regular expressions.
  /S         Searches for matching files in the current directory and all
             subdirectories.
  /I         Specifies that the search is not to be case-sensitive.
  /X         Prints lines that match exactly.
  /V         Prints only lines that do not contain a match.
  /N         Prints the line number before each line that matches.
  /M         Prints only the filename if a file contains a match.
  /O         Prints character offset before each matching line.
  /P         Skip files with non-printable characters.
  /OFF[LINE] Do not skip files with offline attribute set.
  /A:attr    Specifies color attribute with two hex digits. See "color /?"
  /F:file    Reads file list from the specified file(/ stands for console).
  /C:string  Uses specified string as a literal search string.
  /G:file    Gets search strings from the specified file(/ stands for console).
  /D:dir     Search a semicolon delimited list of directories
  strings    Text to be searched for.
  [drive:][path]filename
             Specifies a file or files to search.

Use spaces to separate multiple search strings unless the argument is prefixed
with /C.  For example, 'FINDSTR "hello there" x.y' searches for "hello" or
"there" in file x.y.  'FINDSTR /C:"hello there" x.y' searches for
"hello there" in file x.y.

Regular expression quick reference:
  .        Wildcard: any character
  *        Repeat: zero or more occurances of previous character or class
  ^        Line position: beginning of line
  $        Line position: end of line
  [class]  Character class: any one character in set
  [^class] Inverse class: any one character not in set
  [x-y]    Range: any characters within the specified range
  \x       Escape: literal use of metacharacter x
  \<xyz    Word position: beginning of word
  xyz\>    Word position: end of word

For full information on FINDSTR regular expressions refer to the online Command
Reference.
</pre>

</Div>

</body> 
</html>

Tip:- double click "YourString" to highlight it so you can type or paste over it.

I am already thinking of improvements. The first one I can think of is making the script accept input from an enter key rather than having to press the search button. I have the code for that.
Other improvements to the HTA visuals and features are limited only by your imagination.

< Message edited by TomRiddle -- 7/16/2008 11:21:56 PM >

Revisions: 2 | Post #: 1

RE: HTA launched from Explorer right click context menu - 7/22/2008 9:40:04 PM

DiGiTAL.SkReAM

Posts: 1157
Score: 7
Joined: 9/6/2005
From: Florida, USA
Status: offline

Nice.
I'd like to make a few ebellishments, such as having check boxes for the various options, etc.
But that's gonna have to wait until I can get the floodwaters down beneath my eyebrows.

_____________________________

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

"It is better to die like a tiger, than to live like a pussy."
-Master Wong, from Balls of Fury

(in reply to TomRiddle)