|
 
- UID
- 1
- 帖子
- 738
- 精华
- 28
- 积分
- 14171
- 金币
- 2376
- 威望
- 1647
- 贡献
- 1324
|
一同学在宿舍是很多人一起上网，有不少人用arp作恶，导致上网老是掉线。问我有什么办法吗，于是就写了下面的vbs脚本，同学说用了后聊天也不掉线了。
; ?1 C7 U6 h: o! V5 k, t
+ n# u/ h+ b' [, L) \4 M! o4 G# |- 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
| 