您当前的位置: 首页 » ASP/ASP.NET编程 » 10行代码让你告别Arp作恶导致的掉线
10行代码让你告别Arp作恶导致的掉线
论坛链接
一同学在宿舍是很多人一起上网，有不少人用arp作恶，导致上网老是掉线。问我有什么办法吗，于是就写了下面的vbs脚本，同学说用了后聊天也不掉线了。
On Error Resume Next
Dim Times:Times=1000*60
Set WshShell = WScript.CreateObject("WScript.Shell")
Do While True
rt =WshShell.Run("ping 192.168.1.1",0,true)
If (rt<>0) Then
WshShell.Run "arp -d",0
End If
Wscript.sleep(Times)
Loop
On Error Resume Next
Dim Times:Times=1000*60
Set WshShell = WScript.CreateObject("WScript.Shell")
Do While True
rt =WshShell.Run("ping 192.168.1.1",0,true)
If (rt<>0) Then
WshShell.Run "arp -d",0
End If
Wscript.sleep(Times)
Loop