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

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

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

一同学在宿舍是很多人一起上网，有不少人用arp作恶，导致上网老是掉线。问我有什么办法吗，于是就写了下面的vbs脚本，同学说用了后聊天也不掉线了。
y4W:H7gl D@;n7h

oL*Fq(hi*LJ [code]On Error Resume Next %V2]7u4q|
Dim Times:Times=1000*60 :|*s'DV c2c
Set WshShell = WScript.CreateObject("WScript.Shell") 0T
UI Vp"M"x6^ h
Do While True 9`Uec2Tb9hu.y/X
rt =WshShell.Run("ping 192.168.1.1",0,true)
c(N~$BU;n If (rt<>0) Then qx?d,wqh
WshShell.Run "arp -d",0
uc*Vk2^#S'a8U)| End If })sgc"}SA
Wscript.sleep(Times) @I SjvLj;vv@
Loop [/code]

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