@if (@CodeSection == @Batch) @then
::@echo off
if "%1"=="h" goto begin

:begin
SET SendKeys=CScript //nologo //E:JScript "%~F0"
set /a n=0

for /f "delims=" %%a in ('tasklist^|findstr /i "应用名"') do set /a n+=1
     if %n% gtr 0 goto kill_menu
     if %n% equ 0 goto end



:kill_menu

for /f "tokens=2" %%i in ('tasklist ^| findstr 应用名')  do  echo %%i > pid.txt


for /f %%a in (pid.txt) do (

     if "%%~za" equ "0" (

        GOTO end       ) else (

        taskkill /pid %%a
     )

)

echo CreateObject("WScript.Shell").Appactivate("应用名") > tmp.vbs
start tmp.vbs 

ping 127.0.0.1 > nul
%SendKeys% "password"
%SendKeys% "{ENTER}"
del tmp.vbs
del pid.txt
GOTO begin 



@end
// JScript section
var WshShell = WScript.CreateObject("WScript.Shell");
WshShell.SendKeys(WScript.Arguments(0));0
复制代码

CreateObject("WScript.Shell").Appactivate("应用名")
复制代码