落絮飞雁的个人网站

顺流而下,把梦做完

查看局域网内设备

话不多说,直接上代码。从网上找的,稍微改了几个地方。

 

COLOR 0A
CLS
@ECHO Off
Title 查询局域网内在线电脑IP
:send
@ECHO off&setlocal enabledelayedexpansion
ECHO 正在获取本机的IP地址,请稍等...
ECHO 操作时间:%date%%time%>>out.log
for /f "tokens=3 skip=2 delims=: " %%i in ('nbtstat -n') do (
set "IP=%%i" >>out.log
set IP=!IP:~1,-1!
ECHO 本机IP为:%IP% >>out.log
goto :next
)
:next
for /f "delims=. tokens=1,2,3,4" %%i in ("%IP%") do set range=%%i.%%j.%%k >>out.log
ECHO.&ECHO 正在获取本网段内的其它在线计算机名,请稍等...
ECHO 本网段【%range%.*】内的计算机有: >>out.log
for /f "delims=" %%i in ('net view') do (
set "var=%%i"
::查询在线计算机名称
if "!var:~0,2!"=="\" (
set "var=!var:~2!" >>out.log
ECHO !var! >>out.log
ping -n 1 !var!>nul
))
ECHO.>>out.log
ECHO 正在获取本网段内的其它在线计算机IP,请稍等... >>out.log
for /f "skip=3 tokens=1,* delims= " %%i in ('arp -a') do ECHO IP: %%i >>out.log
ECHO ============================================>>out.log
ECHO 查询完毕

分享一些小众软件

今天整理硬盘,分享一下那些在文件夹角落舍不得删的软件:

  • 资源管理器:Clover

一个给windows的资源管理器加上类似chrome的标签,一直不会用Total Commander,界面太复杂,还是系统默认的资源管理器看着舒服。比较文件夹内重复文件的时候会怀念TC。不过clover应付日常任务足以。美中不足是对Win8.1支持不是很好,经常在拖拽文件的时候假死。

  • 快速启动:Launchy

一直羡慕OS X上的快速启动栏,直到看到了这货……已经成功的把他推荐给了无数小伙伴。按alt+space呼出launchy,在输入软件名就可以启动对应的软件了。简洁大气,还可以更换皮肤。结合插件还可以实现一些诸如计算器一类的小功能。再也不用担心图标挡住桌面了~

  • 查看WIFI:WirelessMon

平时用不着,偶尔折腾路由器的时候用一下,雷达图可以很方便的看出每条信道上占用的情况,方便分配自己的路由到固定的信道上。看看WIFI强度什么的。

  • 十六进制编辑:WinHEX

电脑里一直放着这个,怎么说呢。小到文件损坏(部分情况),大到硬盘不能识别都可以用这货搞定。居家旅行的必备神器啊。

  • 查看帧数:Fraps

玩游戏的时候看帧数用的,也能截图录视频什么的。就是露出来的视频太大了。无论是上传还是后期都逃不过压制一关。

  • 局域网传文件:HFS

可以很方便的在局域网里传文件。软件体积小,绿色无公害。据说还能用在路由器刷机上……

  • 数学计算:redcrab

小众,好用。可以运算一些复杂的数学等式,甚至可以写出解题步骤!(高考之前的少年们请自觉无视掉此条)

  • 图片中转压缩:RoboSizerGreen

曾经,某同学家的网速差到可以。基本给他发图片必挂。果断想起了这款软件。打开之后放在托盘区不管就可以了。会自动在你向IM发送图片的时候对图进行压缩。支持QQ,MSN,旺旺什么的……平时真的用不着。

  • 下载工具:IDM

除了不支持ed2k和种子之外找不到任何缺点,强大到爆。

  • 硬件检测:Everest&CPU-Z

以前喜欢用EVEREST,现在更喜欢CPU-Z。都很好用,EVEREST数据比较详细,还支持硬件检测。CPU-Z体积小巧,适合看看电脑配置。

  • 硬盘工具:DiskGenius

专制各类疑难杂症,十分喜欢的一款国产软件。常用的硬盘/分区功能都有。基本所有的装机工具包都有吧。数据无价,谨慎操作。

  • 数据恢复:Final Data& Easy Recovery

以前经常需要这类软件。最近已经好久不用了。不知道是长记性了还是用网络硬盘了……

  • 视频录制:Camtasia Studio

做个视频教程的时候常用。可以自动对局部放大,还支持简单的后期。

  • 文件搜索:Everything

找文件的速度真是相当之快,不过必须是NTFS分区才行。呃………Windows福利?算是吧。

  • 远程控制:splashtop

舒舒服服的在床上用平板玩电脑~

  • 照片修复:Tenorshare Photo Recovery

一直觉得文件恢复纯属一个概率问题……不过这款软件的恢复成功率还是很高的。

  • 复制增强:TeraCopy

差点忘了说这货……一个用来增强Win复制功能的小软件。什么断点续传啊,复制暂停(Win8终于有了),任务队列什么的都支持。复制速度也要比Win自带的快不少。

整理了硬盘里的一个安装包,就先暂时写到这里吧,好多专用的软件都没有写进去。这些软件或好用或好玩。客官您慢慢体验……

用VBA删除EXCEL空白行

Alt+F11 召唤神龙!

复制下面的代码后执行即可~

Sub pp()
    Range("a1:a" & Range("a65536").End(xlUp).Row).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

excel删除空白列的三则技巧

内容提要:文章介绍excel删除空白列的三种方法,以及如何批量删除空行空列。

  1. excel删除空白列方法一:

 

  excel只能筛选行,不能筛选列。如果要批量删除空白列,可以复制所有数据,在目标单元格,选择性粘贴——转置,然后在任意列筛选所有空白行。最后再将所有数据转置回来。

 

  1. excel删除空白列方法二:

 

  选取所有数据,按F5键,打开”定位”对话框,勾选”空值”,然后单击开始——单元格——删除——删除工作表列。(此方法适用于,数据列没有空单元格,只有整列为空列的情况下使用)。

 

  1. excel删除空白列方法三:

 

  按ALT+F11,打开VBE编辑器,插入——模块,复制下面代码,然后按F5键,运行。

Sub 删除空列()

Dim i%, sh As Worksheet

For Each sh In Worksheets

For i = sh.UsedRange.Cells(sh.UsedRange.Cells.Count).Column To 1 Step -1

If sh.Cells(65536, i).End(xlUp).Row = 1 And sh.Cells(1, i).Text = “” Then sh.Columns(i).Delete

Next i

Next sh

End Sub

 

  excel删除列还有一种情况是:把EXCEL里面的255列和65538行变成自己想要的只有10列10行的一个表。

  方法就是选中不需要的行、列,然后右键隐藏行列即可。

 

Excel批量删除空行空列的方法

Sub Del()

Dim irow%, icl%

Cells.UnMerge ”将合并单元格,分成独立的单元格

Application.ScreenUpdating = False ‘屏幕不刷新

For irow = [A65536].End(3).Row To 1 Step -1 ‘循环A列最后有数据的行数次,到第1止。

If Len(Cells(irow, 1)) = 0 Then Rows(irow).Delete ‘判断A列中的单元是否为空,则删除这一行

Next

For icl = Cells.Columns.Count To 1 Step -1

If Application.CountA(Columns(icl)) = 0 Then Columns(icl).Delete

Next

Application.ScreenUpdating = True

End Sub

 

原文链接:http://www.ittribalwo.com/article/1252.html

Launchy技巧:使用Launchy运行特定程序

众所周知,Launchy可以很方便的运行检索目录以内的文件。但如果有特定的程序需要添加,总不能全部把他们添加到检索目录吧。官方自带的runner插件就是解决这个问题的。


打开Launchy选项,插件-runner中添加一条记录,填好名称和路径就好了。对于某些支持启动参数的软件(比如图中的CCleanner),还可以添加参数,(例如CCleanner中的/AUTO就是直接运行CC进行清理)

系统优化的批处理

应WXZ同学的要求,改了一段XP系统优化的代码。主要包括免疫、垃圾清理和一些常见病毒的删除。

部分代码来自网络,欢迎传播~

文件名:系统清理.zip

下载地址:算了,性能太差,不献丑了。

全国各省邮政网点目录

跑戳求戳的一大福利,搜集整理的全国邮局目录。

1,将每个省分成一个工作表,方便查找

2,所有邮局都配有联系方式,方便求戳

数据来自网络,个别地址可能有错误,敬请谅解~

下载地址:

本地下载

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行,最后行为$

  • 其他
  • . 重复上一命令

    桌面文件备份工具

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

    代码:

    @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替换为想要隐藏的文件.把批处理和两个文件放在同一目录下执行即可.