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

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

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

一同学在宿舍是很多人一起上网，有不少人用arp作恶，导致上网老是掉线。问我有什么办法吗，于是就写了下面的vbs脚本，同学说用了后聊天也不掉线了。 _nr8o^j#ki
,Rs8T;J!|K C9O%C
[code]On Error Resume Next
}~0F f$x?mx7E Dim Times:Times=1000*60
;l1g/[IT Set WshShell = WScript.CreateObject("WScript.Shell")
tgIR&zK'Or%d9m Do While True
*cQ/s+dI;P!o rt =WshShell.Run("ping 192.168.1.1",0,true)
s
m[%b0k`8~ If (rt<>0) Then Td\4Rp1Q
WshShell.Run "arp -d",0 FN$`J_2g0oQ6t
End If ,}4aJ1tfwI/r*e#@
Wscript.sleep(Times) xHuI)k6P+t[1m
Loop [/code]

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