- 帖子
- 281
- 积分
- 1063
- 技术
- 22
- 捐助
- 0
- 注册时间
- 2008-9-12
|
If bEnabled Then
' oLanConnection.invokeverb sDisableVerb
'if msgbox(sConnectionName & " 当前状态:已启用", 36, "是否停用")=vbYes then
oDisableVerb.DoIt
'then
Else
' oLanConnection.invokeverb sEnableVerb
'if msgbox(sConnectionName & " 当前状态:已禁用", 36, "是否启用")=vbYes then
oEnableVerb.DoIt
'then
End If
2个脚本分别替换成里面的单独2句。 |
|