捌玖网络工作室 » 网络安全 » 10行代码让你告别Arp作恶导致的掉线

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

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

一同学在宿舍是很多人一起上网，有不少人用arp作恶，导致上网老是掉线。问我有什么办法吗，于是就写了下面的vbs脚本，同学说用了后聊天也不掉线了。
!j K4}%tpx%R&l Z4n
bLnt7q g}4}
[code]On Error Resume Next
+Sy:r!ed;l2g Dim Times:Times=1000*60 "|5h?QL(CId n ~
Set WshShell = WScript.CreateObject("WScript.Shell")
~q#X0U/H`f$~ Do While True
8Q6P@S:J$t#Q rt =WshShell.Run("ping 192.168.1.1",0,true)
S'aaj#a}G&i If (rt<>0) Then &Yat9|X"IfgK
WshShell.Run "arp -d",0
+GN"WMe|k-\ End If /{$cp `l A0U+b
Wscript.sleep(Times)
$F:uWnzhcj Loop [/code]

查看完整版本: 10行代码让你告别Arp作恶导致的掉线