Question

我目前的设置是我有一个VBS文件打开隐藏在后台的批处理文件。如果有任何不合适的地方，这个批处理文件会造成一些损害，所以作为预防措施我想在鼠标点击时添加一个kill开关。

`Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "Auto.bat" & Chr(34), 0
Set WshShell = Nothing`

这是我的VBS文件，如果点击然后终止Auto.bat我怎么能添加？我也可以将它放入批处理文件中，但我很害怕它会在到达终止行之前通过很多代码。我只需要点击一下就可以终止它，就像我之前说的那样，它会造成一些伤害！

提前致谢！

这是auto.bat文件

 rem @echo off
SETLOCAL enableextensions
for %%x in (*.pdf) do (
    set "_pdfname=%%x"
    call :doAllWork
)
goto :eof

:doAllWork
ECHO start
start %_pdfname%
TIMEOUT /T 2 /NOBREAK
start select.vbs
start copy.vbs
TIMEOUT /T 2 /NOBREAK
for /F %%g in ('
  wmic OS get LocalDateTime /value^|findstr "="
  ') do for /F %%G in ("%%g") do set "_%%G"
echo %_LocalDateTime:~0,14%
type NUL > TextFiles\%_LocalDateTime:~0,14%.txt
start TextFiles\%_LocalDateTime:~0,14%.txt
TIMEOUT /T 2 /NOBREAK
ECHO close PDF
start close.vbs
TIMEOUT /T 2 /NOBREAK
start window.vbs
TIMEOUT /T 2 /NOBREAK
start paste.vbs
TIMEOUT /T 2 /NOBREAK
start save.vbs
TIMEOUT /T 2 /NOBREAK
start close.vbs
start enter.vbs
rem                    v                 remove this backslash?
move /-y "%_pdfname%" "OldTimesheets\"
rem                    ^                 remove this backslash?
TIMEOUT /T 2 /NOBREAK
ECHO exit loop
if exist *.pdf (
    goto :eof
) else (
    goto :end
)


:end

cscript MessageBox.vbs "This will be shown in a popup."

使用触发器

0 个答案: