编程|落絮飞雁

成功解决开机显示Floppy disk(s) fail(40)

开机显示Floppy disk(s) fail(40)，很久以前就有这个问题。现成功解决：

方法如下：开机后按Del键,进入BIOS,移动光标到Standard CMOS Features处,再把光标移动到DriveA处,回车,选中None,按F10键,再按Y键保存设置后回车

继续：1装网卡

2系统

3驱动

4维护

任务不少

Vim 常用快捷键

退出

:q 不修改退出
:q! 强制退出
:wq 保存退出
:wq! 强制保存退出
:w !sudo tee % 以root身份强制保存
(:x) 同:wq 去掉括号，插件转义
shitf+zz 同:wq

搜索

/ 在文件中向下搜索
? 在文件中向上搜索
n 向前重复搜索
N 向后重复搜索

移动

:n 将光标定位到第n行
gg 将光标定位到第一行
:$ 将光标定位到最后一行同G
H 将光标定位到屏幕的顶端
M 将光标定位到屏幕的中间
L 将光标定位到屏幕的底端

复制粘贴撤销

yy 复制光标当前行
nyy 复制当前行开始n行
:A,B co C 将A到B行的内容复制到第C行，最后行为$
v 可视选择光标移动选择文本
p : 粘贴到当前光标后
P : 粘贴到当前光标前
u : 撤销
Ctrl+R 撤消还原

删除（同剪切，可粘贴）

dd 删除当前行
ndd 删除当前行开始n行
:nd 删除第n行
:A,Bd 删除A到B行
x 删除一个字符
nx 删除n个字符
dw 删除一个单词
ndw 删除n个单词
dG 删除当前光标到文件末尾的所有内容
d0 删除当前光标到本行行首的所有内容
d$ 删除当前光标到本行行尾的所有内容

移动

:A,B mo C 将A~B行的内容移动到C行，最后行为$

其他

. 重复上一命令

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分流

邂逅电脑

一九九九年，我还在上幼儿园。却一直对幼儿园有反感，每次都是趁老师把我从妈妈手中接过来时“逃跑”。逃跑的次数多了，爸爸妈妈不得不想办法了。

一次爸爸郑重地把我叫到客厅，跟我签订了一份“协议”：“在此之的一个星期里坚持到幼儿园上学，认真听讲。那样爸爸就会买来一台电脑。”出于对电脑的好奇，我变郑重地在黄色纸条上墙上了自己的名字……

转眼间，一个星期过去了，得到老师好评的我高高兴兴回家了，门口大大小小的纸箱告诉我，爸爸真的把电脑买回家。

推开家门，只见两位叔叔在电脑前敲打着什么，，爸爸在旁边看着。正当我打量着这台机器时，爸爸已经把两位叔叔送走了。

爸爸指导我：“你把这个（鼠标）拿起来晃晃试试。”天真的我把鼠标拿起来，放到空中不停摇晃……爸爸耐心地告诉我鼠标要放到鼠标垫上，平移。晚饭后，爸爸把《开天辟地学电脑》放入光驱，一家三口学习其电脑来。

第二天，爸爸通过请教同事知道了如何在电脑中打字。晚上，第一次看到自己的名字出现在显示器上，是我增加了对这台机器的好奇之心。

我渐渐明白，一切应用程序是建立在操作系统上的。于是首先学习的便是操作系统的安装。当时主流的操作系统为windows98，并且当时的操作系统安装通过dos实现。于是，小学2年级的我得过了如format（格式化）、setup（安装）、dir（查看）等文件指令。其中对以上指令的尝试，都是在第一台电脑上完成的，几次都险些失败。

现在，我已经完全掌握了windows98~windows7操作系统的安装方法、vb编程、photoshop、flash及网页制作，小时候的好奇心装换成了对电脑的求知欲，去挖掘更多的电脑知识，去挖掘更多的电脑知识。

电脑仍有许多秘密值得去探索……

扫描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 "" || 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