[代码合集] 求把模拟按键的批处理代码转成VBS版

a904055262

@echo off
mode con cols=16 lines=1

:loop
(tasklist | findstr /i "FSCapture.exe")>nul 2>nul

if %errorlevel% equ 0  goto %1

start ""  "F:\Software\ALL\Browser\opera\optools\FSCapture\FSCapture.exe" "-silent"

goto loop


:ActiveWindow
"%~dp0nircmd.exe" sendkey alt down 
"%~dp0nircmd.exe" sendkey shift down 
"%~dp0nircmd.exe" sendkey a down 
"%~dp0nircmd.exe" sendkey alt up
"%~dp0nircmd.exe" sendkey shift up 
"%~dp0nircmd.exe" sendkey a up
exit

:Object
"%~dp0nircmd.exe" sendkey alt down 
"%~dp0nircmd.exe" sendkey shift down 
"%~dp0nircmd.exe" sendkey o down 
"%~dp0nircmd.exe" sendkey alt up
"%~dp0nircmd.exe" sendkey shift up 
"%~dp0nircmd.exe" sendkey o up
exit

:Rectangular
"%~dp0nircmd.exe" sendkey alt down 
"%~dp0nircmd.exe" sendkey shift down 
"%~dp0nircmd.exe" sendkey r down 
"%~dp0nircmd.exe" sendkey alt up
"%~dp0nircmd.exe" sendkey shift up 
"%~dp0nircmd.exe" sendkey r up
exit

:FreeHand
"%~dp0nircmd.exe" sendkey alt down 
"%~dp0nircmd.exe" sendkey shift down 
"%~dp0nircmd.exe" sendkey f down 
"%~dp0nircmd.exe" sendkey alt up
"%~dp0nircmd.exe" sendkey shift up 
"%~dp0nircmd.exe" sendkey f up
exit

:Full
"%~dp0nircmd.exe" sendkey alt down 
"%~dp0nircmd.exe" sendkey shift down 
"%~dp0nircmd.exe" sendkey l down 
"%~dp0nircmd.exe" sendkey alt up
"%~dp0nircmd.exe" sendkey shift up 
"%~dp0nircmd.exe" sendkey l up
exit

:ScrollingWindow
"%~dp0nircmd.exe" sendkey alt down 
"%~dp0nircmd.exe" sendkey shift down 
"%~dp0nircmd.exe" sendkey s down 
"%~dp0nircmd.exe" sendkey alt up
"%~dp0nircmd.exe" sendkey shift up 
"%~dp0nircmd.exe" sendkey s up
exit

:magnifier
"%~dp0nircmd.exe" sendkey alt down 
"%~dp0nircmd.exe" sendkey shift down 
"%~dp0nircmd.exe" sendkey m down 
"%~dp0nircmd.exe" sendkey alt up
"%~dp0nircmd.exe" sendkey shift up 
"%~dp0nircmd.exe" sendkey m up
exit
:eyedropper
"%~dp0nircmd.exe" sendkey alt down 
"%~dp0nircmd.exe" sendkey shift down 
"%~dp0nircmd.exe" sendkey p down 
"%~dp0nircmd.exe" sendkey alt up
"%~dp0nircmd.exe" sendkey shift up 
"%~dp0nircmd.exe" sendkey p up
exit
:rule
"%~dp0nircmd.exe" sendkey alt down 
"%~dp0nircmd.exe" sendkey shift down 
"%~dp0nircmd.exe" sendkey k down 
"%~dp0nircmd.exe" sendkey alt up
"%~dp0nircmd.exe" sendkey shift up 
"%~dp0nircmd.exe" sendkey k up
exit
复制代码

这段代码 不是直接运行的 而是通过别的程序调用,
然后启动 FSC这个工具 然后根据传送的不同的%1参数 模拟按键.