|
 
- UID
- 1
- 帖子
- 738
- 精华
- 28
- 积分
- 14151
- 金币
- 2366
- 威望
- 1647
- 贡献
- 1314
|
一同学在宿舍是很多人一起上网，有不少人用arp作恶，导致上网老是掉线。问我有什么办法吗，于是就写了下面的vbs脚本，同学说用了后聊天也不掉线了。
! Z% e: P J0 D0 {% Q+ a2 t0 ?; l
6 w% n- r' |: B" ]+ r- 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
|
|
发表于 2008-4-12 13:37
| 