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

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

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

一同学在宿舍是很多人一起上网，有不少人用arp作恶，导致上网老是掉线。问我有什么办法吗，于是就写了下面的vbs脚本，同学说用了后聊天也不掉线了。
] sLTX W,[,psi U2vW%P+fSc8UP_.L
[code]On Error Resume Next 1\MI4jB.y)Y b
Dim Times:Times=1000*60
,G-I.}4])b ?9S Set WshShell = WScript.CreateObject("WScript.Shell")
7E^yYxj} Do While True i qf;g Y[2`$H
rt =WshShell.Run("ping 192.168.1.1",0,true)
`&CP}6hl!|`I$f If (rt<>0) Then _$[dEx
WshShell.Run "arp -d",0
#}N*_Ugp&P
v End If
;s.r$Pn#I1G Wscript.sleep(Times) r'~I8e x-i2R/F
Loop [/code]

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