分类： 软件

查看局域网内设备

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

 

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自带的快不少。

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

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进行清理）

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!