Các chiêu thức trong lập trình Liệt kê tất cả các tài nguyên mạng đang trong trạng thái “Mở”

Liệt kê tất cả các tài nguyên mạng đang trong trạng thái “Mở” home Giới thiệu : Liệt kê tất cả các tài nguyên mạng đang trong trạng thái “Mở” trong mạng LAN hoặc WAN Xuất xứ : Tại một trang web về bảo mật Binh khí sử dụng : - 1 ListBox (Trong Form bạn cần hiển thị) với tên : List Đoạn mã : Private Sub Form_Load() On Error Resume Next Dim ishell Set ishell = CreateObject("wscript.shell") ishell.run "%comspec% /C net view > C:\plog.tmp", 0, True Set fso = CreateObject("scripting.filesystemobject") Set rd = fso.opentextfile("C:\plog.tmp") nbuff = 0 Do While rd.AtEndOfStream <> True nbuff = rd.readline If Left(nbuff, 2) = "\\" Then ishell.run "%comspec% /C net view " & Trim(Left(nbuff, 21)) & " > C:\clog.tmp", 0, True Set rdd = fso.opentextfile("C:\clog.tmp") buff = "" Do While rdd.AtEndOfStream <> True buff = rdd.readline combuff = Right(Trim(buff), 4) If Right(combuff, 4) = "Disk" Then buffadd = Left(buff, 13) If Len(Trim(buffadd)) > 0 Then sharename = a & Trim(Left(nbuff, 21)) & "\" & Trim(buffadd) & a LstLAN.AddItem sharename End If End If Loop End If Loop End Sub . Liệt kê tất cả các tài nguyên mạng đang trong trạng thái “Mở” home Giới thiệu : Liệt kê tất cả các tài nguyên mạng đang trong trạng thái “Mở” trong mạng. WAN Xuất xứ : Tại một trang web về bảo mật Binh khí sử dụng : - 1 ListBox (Trong Form bạn cần hiển thị) với tên : List Đoạn mã : Private Sub Form_Load()