七招破解Windows XP访问网络慢的故障
　　Windows XP的网上邻居有许多差强人意的地方：访问速度慢，无法访问其它主机……其实这些问题通过简单的设置都可以很好地解决。
　　在这之前先确保能够互相PING通。
　　1、开启guest账户。
　　2、允许Guest用户访问本机：打开组策略编辑器，依次选择「计算器配置→Windows设置→安全设置→本地策略→用户权利指派」，删除「拒绝从网络访问这台计算器」策略中的「GUEST」账号。
　　3、更改网络访问模式：打开组策略编辑器，依次选择「计算器配置→Windows设置→安全设置→本地策略→安全选项」，双击「网络访问：本地账号的共享和安全模式」策略，将「仅来宾—本地用户以来宾身份验证」改为「经典：本地用户以自己的身份验证」。
　　4、解除空口令限制：在系统「安全选项」中停用「账户：使用空白密码的本地账户只允许进行控制台登录」策略。
　　5、网络邻居看不到计算器：打开「控制面板→性能和维护→管理工具→服务」，启动里面的「Computer Browser」服务。
　　6、增加共享文件权限选项：依次打开「我的计算机→工具→活页夹属性→查看→高级设置」，将「简单文件共享(推荐)」前面的选择取消，若还有「Mickey Mouse」项也将其取消。
　　7、网络邻居不响应或者反应慢，关掉WinXP的计划任务服务(Task Scheduler) 到「控制面板/管理工具/服务」中打开「Task Scheduler」的属性对话框，停止该服务，再将启动类型设为「手动」。
　　关掉自动搜索的网络活页夹和打印机，到「网上邻居/文件/活页夹选项」中，点击查看最后一项，关闭自动搜索的网络活页夹和打印机这项。

 Sub DeleteMenu()
    '读取有那些菜单
    Dim i As Integer
    Dim i1 As Integer
    Dim i2 As Integer
    Dim index() As Long
    Dim DataString As String
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set FSO_File = FSO.OpenTextFile(GetPath & "menu.txt", ForReading, True)
    Do While Not FSO_File.AtEndOfStream
            DataString = FSO_File.ReadLine
            i = inStr_n(DataString, ",", index)
            If i = 0 Then
                i1 = Val(DataString)
            ElseIf i = 1 Then
                DataString = Left(DataString, Len(DataString) - 1)
                For Each TG In ThisDrawing.Application.MenuGroups
                    For Each T In TG.Toolbars
                        If T.Name = DataString Then
                            T.Delete
                            i2 = i2 + 1
                            If i2 = i1 Then Exit Do
                        End If
                    Next
                Next
            End If
    Loop
    FSO_File.Close
End Sub