落絮飞雁的个人网站

顺流而下,把梦做完

USB 控制台 – 父亲节特别版

使用本程序可以禁止电脑使用USB设备.
代码如下

REM  QBFC Project Options Begin
::  HasVersionInfo: No
REM  Companyname:
REM  Productname:
REM  Filedescription:
REM  Copyrights:
REM  Trademarks:
REM  Originalname:
REM  Comments:
REM  Productversion:  0. 0. 0. 0
REM  Fileversion:  0. 0. 0. 0
REM  Internalname:
REM  Appicon:
REM  QBFC Project Options End

@echo off
color 0b
:start
cls
echo                  usb权限控制  程序设计:高旭
echo                   版权所有  不许用于商业用途
echo                   修改日期:2009/06/13
echo                   父亲节特别版!祝爸爸节日快乐!
echo                  1 为禁用 USB 移动储存设备
echo.
echo                  2 为解除禁用 USB 移动储存设备
set/p N=请选择:
if "%N%"=="" goto k
echo %N%|findstr "^[0-9]*$">nul &&echo 输入正确||goto ABC
if %N% equ 2 goto 2
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesUsbStor" /v ImagePath /t Reg_Expand_Sz /d USB移动储存设备已经被禁掉 /f
echo                         USB移动储存设备已经被禁掉,按任意键退出.
pause>nul 2>nul
exit
:2
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesUsbStor" /v ImagePath /t Reg_Expand_Sz /d system32DRIVERSUSBSTOR.SYS /f
echo                         USB移动储存设备已可以正常使用,按任意键退出.
pause>nul 2>nul
exit
:ABC
mshta vbscript:CreateObject("Wscript.Shell").popup("对不起!你输入的是 %N% 不符合规定,请重新输入",10,"警告:",64)(window.close)
goto start
:k
mshta vbscript:CreateObject("Wscript.Shell").popup("对不起!你没有输入任何选项 不符合规定,请重新输入",10,"警告:",64)(window.close)
goto start

end

EXE版本下载:
镜像下载|dropbox分流

扫描IP的简单工具

一个用批处理写的扫描内网IP的小工具~

@Echo off

  date /t > IPList.txt

  time /t >> IPList.txt

  echo =========== >> IPList.txt

  For /L %%f in (1,1,100) Do Ping.exe -n 2 192.168.1.%%f   Find

  "Request timed out." & echo 192.168.1.%%f Timed Out >>

  IPList.txt & echo off

  cls

  Echo Finished!

  @Echo on

  Notepad.exe IPList.txt


桌面文件备份工具

一个批处理,可以方便的备份桌面上的文件.

代码:

@echo off
mode con cols=78 lines=10&color b0
setlocal enabledelayedexpansion
Title 载入中...


::备份文件次数,超过此次数,依次向前替换上一次备份
set strBakCount=10
::目的确路径
set strBakPath=BakFile
::备份路径
set strFo=%userprofile%桌面
::备份类型
set strOP=txt doc xls pdf lnk
::执行命令
set strRunName=桌面文档备份


::备份文件夹初始化
md !strBakPath! >nul 2>nul
md ... >nul 2>nul
for /l %%i in (0,1,!strBakCount!) do (
	md !strBakPath!!strBakPath!s%%i >nul 2>nul
	attrib +s +a +r !strBakPath!!strBakPath!s%%i)
::初始化与读取操作数SaveCount
if not exist !strBakPath!!strBakPath!s0DatSet.dat echo SaveCount=0 >!strBakPath!!strBakPath!s0DatSet.dat
for /f "tokens=1-2 delims==" %%i in ('type !strBakPath!!strBakPath!s0DatSet.dat') do (
	if /i "%%i"=="SaveCount" set strSaveCount=%%j
	if /i "%%i"=="DateTime" set strDateTime=%%j)
set /a strSaveCount+=0
Title [!strRunName!] - Max:!strBakCount! - Done:!strSaveCount!  - Last Time:!strDateTime!

echo  [备份类型] : %strOP%
echo  [源 路 径] : %strFo%
echo  [目标路径] : %strBakPath%
echo ______________________________________________________________________________
echo.&echo                             按任意键开始备份...&pause>nul

::备份操作判断
if !strSaveCount! geq !strBakCount! (
	::备份文件夹已满
	for /l %%i in (1,1,!strBakCount!) do (
		set /a strTmp=%%i - 1
		move /y "!strBakPath!!strBakPath!s%%i*.*" !strBakPath!!strBakPath!s!strTmp! >nul 2>nul)
	for %%i in (!strOP!) do copy /y "!strFo!*.%%i" !strBakPath!!strBakPath!s!strBakCount! >nul 2>nul
)else (
	::备份文个夹未满
	set /a strSaveCount+=1

	for %%i in (!strOP!) do copy /y "!strFo!*.%%i" !strBakPath!!strBakPath!s!strSaveCount! >nul 2>nul)
::后续操作
del /q !strBakPath!!strBakPath!s0!strFo! >nul 2>nul
echo SaveCount=!strSaveCount! >!strBakPath!!strBakPath!s0DatSet.dat
echo DateTime=%date:~0,10%,%time:~0,5% >>!strBakPath!!strBakPath!s0DatSet.dat
echo.&echo                             备份完成.&pause>nul



cls&echo.
set /p OP=              是否打开最后一次备份所在文件夹 [y/n]? :
if /i "!OP!"=="y" start !strBakPath!!strBakPath!s!strSaveCount!



在图片中添加文件(图种生成器)

写了个批处理,可以在图片中藏文件.俗称图种~

代码:

copy /b pic.jpg+file.rar output.jpg

用法:
pic.jpg 替换为图片名 file.rar替换为想要隐藏的文件.把批处理和两个文件放在同一目录下执行即可.

隐藏私密文件到我的电脑

通过批处理实现:把一个文件夹变成”我的电脑”.点击后显示计算机各个分区而不是文件夹内的资料.从而实现隐藏功能

使用方法:
1,将需要隐藏的文件夹更名为我的电脑
2,将本程序与“我的电脑”文件夹处于同一目录下
3,选择“加密”,“解密”即可

@echo off&mode con lines=10 cols=57&title 我的电脑隐藏-powered by LXFY
set str1=本程序由落絮飞雁开发,受国际著作权法保护
set str2=欢迎推广本程序!欢迎向我们反馈
set str3=发现更多:luoxufeiyan.howbbs.com
echo.
for /l %%i in (1,1,28) do (set/p=—nul)
echo.
for /l %%i in (1,1,3) do (
   for /l %%j in (1,1,%%i) do set/p=     nul)
   echo.
)
for /l %%i in (1,1,28) do (set/p=—nul)
echo.
echo.
cls
echo.      -----------------------------------------
echo       使用方法:
echo        1,将需要隐藏的文件夹更名为我的电脑
echo        2,将本程序与“我的电脑”文件夹处于同一目录下
echo        3,选择“加密”,“解密”
echo       -----------------------落絮飞雁开发------
echo.
set select=
set/p select=           1为加密,2为解密
echo %select% | findstr "<[1-2]>" || echo 不好意思,您的输入不对,请重新输入. && pause && goto again
if %select%==1 goto 1:
if %select%==2 goto 2:
goto :again
1:
ren 我的电脑 我的电脑;{20D04FE0-3AEA-1069-A2D8-08002B30309D}
end
1:
ren 我的电脑;{20D04FE0-3AEA-1069-A2D8-08002B30309D} 我的电脑
end

禁用USB接口的方法

通过批处理来禁用或者启用USB接口的方法.我的USB管理软件就是基于这个开发的.
禁用:

@echo off COPY %WINDIR%infusbstor.inf %WINDIR%usbstor.inf COPY %WINDIR%infusbstor.PNF %WINDIR%usbstor.PNF DEL %WINDIR%infusbstor.inf DEL %WINDIR%infusbstor.PNF reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesUSBSTOR" /v Start /t reg_dword /d 4 /f echo on

启用:

@echo off COPY %WINDIR%usbstor.inf %WINDIR%infusbstor.inf COPY %WINDIR%usbstor.PNF %WINDIR%infusbstor.PNF reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesUSBSTOR" /v Start /t reg_dword /d 3 /f echo on

一段恶搞代码

一段用来恶搞的代码.使电脑在开机后立刻关机.
仅供实验,请勿对他人或公共计算机使用

@rem 一切后果本人不承担责任。
@copy %0 "%ALLUSERSPROFILE%「开始」菜单程序启动"
@shutdown -s -t 0