Ë­ÄÜ°ÑVB¶Ï¿ªÍøÂçÁ¬½ÓµÄ³ÌÐò·­Òë³ÉPB

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()

Const ssfCONTROLS = 3

sConnectionName = "ÎÒµÄÁ¬½Ó"

sEnableVerb = "Á¬½Ó(&O)"
sDisableVerb = "¶Ï¿ª(&O)"

Set shellApp = CreateObject("shell.application")
Set oControlPanel = shellApp.Namespace(ssfCONTROLS)

Set oNetConnections = Nothing
For Each folderitem In oControlPanel.items
    If folderitem.Name = "ÍøÂçºÍ²¦ºÅÁ¬½Ó" Then
        Set oNetConnections = folderitem.getfolder: Exit For
    End If
Next

If oNetConnections Is Nothing Then
    wscript.Quit
End If

Set oLanConnection = Nothing
For Each folderitem In oNetConnections.items
    If LCase(folderitem.Name) = LCase(sConnectionName) Then
        Set oLanConnection = folderitem: Exit For
    End If
Next

If oLanConnection Is Nothing Then
    wscript.Quit
End If

bEnabled = True
Set oEnableVerb = Nothing
Set oDisableVerb = Nothing
s = "Verbs: " & vbCrLf
For Each Verb In oLanConnection.verbs
    s = s & vbCrLf & Verb.Name
    If Verb.Name = s