Got a .bat file. It works well but......

Been messing about making myself a SHA1 and SHA2556 checksum calculator and verifier.
It's coming along nicely but I need a bit of help with a .bat script I am using to get file names and run my .exe

I have set up a right click on the Context Menu to get the full path and name of and image, a .iso or a .svf image file.

It gets the image paths, writes a .text file and then runs my .exe which reads the text file and carries on working.

What I don't like though is the command window pops up for a fraction of a second just before my .exe runs and I want this not to happen.

I was hoping somebody in the know could help me out. I would like to write it in .vbs but I am unsure.

Anyway here is my script, a .bat file

Code:

@echo OFF

set File="%1"

for /F "delims=" %%i in (%File%) do set dirname=%%~dpi 
for /F "delims=" %%i in (%File%) do set filename=%%~nxi
for /F "delims=" %%i in (%File%) do set basename=%%~ni

for /F "delims=" %%i in (%File%) do set FullPathNoQuotes=%%~i

::echo |set /p=%File%|clip

echo %FullPathNoQuotes%  > C:\VeriHash\Image.txt
echo %filename% >> C:\VeriHash\Image.txt


Start C:\VeriHash\VeriHash.exe

exit

As you can see I was going to use the Clipboard at first before I decided to get both the full path and image name but left that bit of code there for any future reference.

It works just by dropping an image onto the .bat too.

So is there any way to have the text file written to without any command window showing what so ever ?

 

i tried using a .vbs to call the .bat but that didn’t pick up the file path, name info I wanted.

 

Yep, tried that but it doesn't carry the info of the file into the .bat.

 

I have this .vbs script

Code:

Set objFS=CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
strFile= objArgs(0)
Set objFile = objFS.OpenTextFile(strFile)
Set objFile = objFS.GetFile(strFile)
WScript.Echo objFile.Path

If i drop a file onto this .vbs file I get the full path, which is good.

If I add this to the registry

Code:

Windows Registry Editor Version 5.00

:: vbs get path
[HKEY_CLASSES_ROOT\*\shell\VBS Get Path]
"icon"="C:\\VeriHash\\Hash.ico"


[HKEY_CLASSES_ROOT\*\shell\VBS Get Path\command]
@="WScript C:\\VeriHash\\vbsGetPath.vbs"

The through the context menu, right click to get the path I get an error, "subscript out of rang"

any ideas guys ?

 

right...
This .vbs script works on the right click

Code:

Function GetSelectedFiles() 'Returns paths as array of strings
    Dim FileList, Window, SelectedItem
    'avoid duplicates by storing paths in dictionary keys
    Set FileList = CreateObject("Scripting.Dictionary")

    With CreateObject("Shell.Application")
        For Each Window In .Windows
            'skip IE Windows
            If InStr(1, Window.FullName, "iexplore.exe", vbTextCompare) = 0 Then
                For Each SelectedItem In Window.Document.SelectedItems
                    FileList(SelectedItem.Path) = Null
                Next
            End If
        Next
    End With

    GetSelectedFiles = FileList.Keys 'array of paths
End Function

MsgBox  "Click OK after selecting the items",  _
        vbOKOnly Or vbInformation, "Select a few items"

Dim SelectedFiles
    SelectedFiles =  GetSelectedFiles

MsgBox  "You selected: " & vbNewLine  & vbNewLine & _
         Join(SelectedFiles, vbNewLine), vbOKOnly Or vbInformation, "Selected Items"

'loop through array
'Dim FileItem
'For Each FileItem In SelectedFiles
'   WScript.Echo FileItem
'Next

Does too much, will have to just right the full path to a text file, or even to the clipboard

 

Still having problem with seeing the command window.

I have this REG code

Code:

:: Copy Path On The Context Menu
[HKEY_CLASSES_ROOT\AllFilesystemObjects\shell\windows.copyaspath]
"CanonicalName"="{707C7BC6-685A-4A4D-A275-3966A5A3EFAA}"
"CommandStateHandler"="{3B1599F9-E00A-4BBF-AD3E-B3F99FA87779}"
"CommandStateSync"=""
"Description"="@shell32.dll,-30336"
"Icon"="imageres.dll,-5302"
"InvokeCommandOnSelection"=dword:00000001
"MUIVerb"="@shell32.dll,-30329"
"VerbHandler"="{f3d06e7c-1e45-4a26-847e-f9fcdee59be0}"
"VerbName"="copyaspath"

[HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\CopyAsPathMenu]
@="{f3d06e7c-1e45-4a26-847e-f9fcdee59be0}"

Now that copies the file path to the clipboard without seeing any sign of the command window.
Is it possible to add to that script so it runs a .exe at the end ?

anybody with any ideas on this

 

cheers for that. Will look at it later on, one I get up.

 

Just tested that and it works pretty nice, cheers.

Just wondering, can "Start .exe" be added on the end some how ?

So it grabs the file path and runs my app.

 

Well....

I don't know what to say.

You spent 5 hours doing this for me ?

Brilliant.

Thank you very much. !!!!!!!!

 

Well after having a bit of bother I think I have got it.

This REG entry

Code:

@="mshta vbscript:CreateObject(\"wscript.shell\").Run(\"cmd /c chcp 65001 && echo | set /p x=\"\"%1\"\" | clip | c:\\hash.bat\",0)(window.close)"

points to C\hash.bat

Code:

@ECHO OFF

c:\VeriHash\Verihash.exe 

which calls my VeriHash.exe which when started it reads the clipboard and displays the image name and full path.

NO command console window flashes up at all, which is exactly what I wanted..

Many thanks to haz367. Brilliant work on your part. could not have done it without your help..

THANKS !!

 

I will look at placing the files in Windows.

my little project isn’t at any stage yet to be shared right now. Never really thought about sharing it actually.
More of, I wanted to do summet specific when I realised the .iso images of Windows 10 I download suddenly changed to SHA256 instead of SHA1 ?
The usual app I used never handled SHA256 so I decided to script some .bats up to calculate checksums.
This sort of turned into making a nice looking GUI.

once I get the rough edges smoothed out I’ll drop you a line and let you have it.
Would be interesting getting somebody else’s opinion, good or bad.

making the GUI with Autoplay Media Studio. It’s the only one I know how to use.

cheers again.

 

Altered the REG file script a little more, eliminating the need for a .bat file

I now have this

Code:

@="mshta vbscript:CreateObject(\"wscript.shell\").Run(\"cmd /c chcp 65001 && echo | set /p x=\"\"%1\"\" | clip | c:\\VeriHash\\VeriHash.exe\",0)(window.close)"

works pretty well