10行代码让你告别Arp作恶导致的掉线
一同学在宿舍是很多人一起上网,有不少人用arp作恶,导致上网老是掉线。问我有什么办法吗,于是就写了下面的vbs脚本,同学说用了后聊天也不掉线了。"H)Q|"ow!fZfH
[code]On Error Resume Next -fTq'IbLd
Dim Times:Times=1000*60 8y.[ f k/d/^$N bHf:j
Set WshShell = WScript.CreateObject("WScript.Shell")
Do While True 6~T3Mv.I#p
rt =WshShell.Run("ping 192.168.1.1",0,true)
If (rt<>0) Then
WshShell.Run "arp -d",0 0g3[${"F"G,N`
End If :Qe'cJ}q9kRD
Wscript.sleep(Times)
Loop [/code]
页:
[1]