捌玖网络工作室's Archiver

admin 发表于 2008-4-12 13:37

10行代码让你告别Arp作恶导致的掉线

一同学在宿舍是很多人一起上网,有不少人用arp作恶,导致上网老是掉线。问我有什么办法吗,于是就写了下面的vbs脚本,同学说用了后聊天也不掉线了。
$Kd%sS,wT,l%\#F "H)Q|"ow!fZfH
[code]On Error Resume Next -fTq'IbLd
Dim Times:Times=1000*60 8y.[ f k/d/^$N b Hf:j
Set WshShell = WScript.CreateObject("WScript.Shell")
,CyK6V$rFPu Do While True 6~ T3Mv.I#p
rt =WshShell.Run("ping 192.168.1.1",0,true)
[n,x#k)Z0g#H-no#ZT V If (rt<>0) Then
Bz#rH+K~7J:Yw WshShell.Run "arp -d",0 0g3[${"F"G,N`
End If :Qe'cJ}q9kRD
Wscript.sleep(Times)
Q"F n6[)~$uHv Loop [/code]

页: [1]

Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.