@echo off
reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\|find /i "sogou input">nul 2>nul
if %errorlevel%==0 (echo 搜狗拼音输入法:是) else echo 搜狗拼音输入法:否
echo.
reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\|find /i "{052CFB79-9D62-42E3-8A15-DE66C2C97C3E}">nul 2>nul
if %errorlevel%==0 (echo QQ:是) else echo QQ:否
echo.
reg query HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\|find /i "360sd">nul 2>nul
if %errorlevel%==0 (echo 360杀毒:是) else echo 360杀毒:否
echo.
pause
exit
----------------------------------------------------------------------------------------------------------------------
要记得加分喔,呵呵~~
dim wh
set wh=createobject("wscript.shell")
for i=1 to 5 ‘这位刷新次数
wh.sendkeys "{F5}"
wscript.sleep 3000 ’3000为延迟,单位是毫秒
next
存为文本,然后另存为1.vbs就可以了。双击1.vbs就能刷新屏幕了
可以