【正文】 RD 變量的指針，該變量給出了接收剩余的服務(wù)入口所需的緩沖的字節(jié)數(shù)量lpResumeHandle：指向一個 DWORD 變量的指針，該變量是一個輸入/輸出參數(shù)，用于輸入時，它指定了枚舉開始的入口地址，用于輸出時，如果函數(shù)調(diào)用成功，則該參數(shù)的值為 0。其定義如下：Typedef struct_WKSTA_USER_INFO_0( LPWSTR wkui0_username； ‘當(dāng)前的登陸到工作站的用戶名)WKSTA_USER_INFO_0,*PWKSTA_USER_INFO_0,*LPEKSTA_USER_INFO_0；窗體使用自定義函數(shù) GetWorkstationUserName()顯示登陸到當(dāng)前工作站的用戶名：Private Function GetWorkstationUserName(ByVal dwWorkstation As Long) As String…… success = NetWkstaUserEnum(dwWorkstation, 0, bufptr, MAX_PREFERRED_LENGTH, dwEntriesread, dwTotalentries, dwResumehandle) …… If dwEntriesread 0 Then CopyMemory wui0, ByVal bufptr, nStructSize GetWorkstationUserName = GetPointerToByteStringW() Call NetApiBufferFree(bufptr) ‘釋放緩存并退出 Exit Function End If……End Function 界面實現(xiàn)添加一個窗體，并按照下表設(shè)置窗體的屬性表 顯示工作站信息窗體設(shè)置表窗體屬性 取值Name detailCaption 網(wǎng)絡(luò)工作站及當(dāng)前用戶信息該窗體首先添加一個 ListBox 控件，然后在控件上添加 8 個 label 控件，其中 6 個對應(yīng)返回的工作站信息分別設(shè)置其 Caption 屬性，另一個 Label 控件設(shè)置標(biāo)題為“函數(shù)調(diào)用成功（0）或錯誤次數(shù)：“，剩余一個 Label 控件標(biāo)題為調(diào)用 NetWkstaGetInfo()函數(shù)出錯的次數(shù)，無錯則返回 0，1 個 mandbotton控件。函數(shù)原型：NET_API_STATUS NetWkstaUserEnum( LPWSTR servername, DWORD level, LPBYTE * bufptr, LPDWORD entriesread, LPDWORD totalentries, ……)；servername：遠程服務(wù)器名字的 Unicode 字符串地址。主要函數(shù)及結(jié)構(gòu)定義如下：（1）NetWkstaGetInfo 函數(shù)函數(shù)返回工作站的配置信息。如果函數(shù)調(diào)用成功，則返回 NERR_SUCCESS；否則，返回錯誤代碼。該變量中包含了實際枚舉的元素的數(shù)量。GetMACAddress()函數(shù)兩次調(diào)用了 NetBIOS 函數(shù)：第一次調(diào)用NetBIOS 函數(shù)采用的是 NCBRESET 命令，目的是重置所有的 LANA 編號；第二次調(diào)用采用的是適配器狀態(tài)命令 NCBASTAT，通過它可以取得與本地計算機指定LANA 編號有關(guān)的結(jié)構(gòu)信息，從這個結(jié)構(gòu)信息中，可以解析出網(wǎng)卡的物理地址。這里主要講述適配器狀態(tài)命令，利用適配器狀態(tài)命令，可取得與本地計算機及其 LANA 編號的有關(guān)信息。 tmpIPAddr(i) amp。函數(shù) gethostbyname 可以成功解析由函數(shù) gethostname 返回的主機名字符串。應(yīng)用程序可調(diào)用函數(shù)WSAGetLastError 來獲取詳細(xì)的錯誤信息。模塊使用 WSAGetLastError 函數(shù)返回上次發(fā)生的網(wǎng)絡(luò)錯誤。通過一個簡易的用戶顯示工具，管理員可以很快的知道用戶對某種資源有什么權(quán)限。 軟件設(shè)計（1）功能模塊初步設(shè)計通過對用戶需求調(diào)研并分析，確定系統(tǒng)應(yīng)具備的功能，包括：獲取主機名和 IP 地址，獲取物理地址，顯示本機用戶信息，顯示工作站信息，列舉本機服務(wù)，測試目的地是否可達，文件查找，各功能設(shè)計如下：獲取主機名和 IP 地址：對用戶而言要想輕松地在網(wǎng)絡(luò)中遨游，首先必須對本地主機的網(wǎng)絡(luò)配置信息有清晰的了解，如主機名、IP 地址、所注冊的域等。6．Visual Basic 有兩張光盤的文檔資料，包括 Visual Basic 程序員設(shè)計手冊、全文搜索索引、Visual Basic 文檔（VB Documentation） 、Visual Basic 程序樣例（VB Product Samples）等。3．控件、語言和向?qū)Х矫娴男略鎏匦裕孩?DataGrid、DataList、DataCombo 等新增的數(shù)據(jù)控件，相當(dāng)于 DB 版本的 DB Grid、OLEDBList 和 DBCombo，所不同的是它們都支持新的 ADO 控件。同時，Visual Basic 在數(shù)據(jù)技術(shù)、Inter 技術(shù)及智能化向?qū)Х矫娑加辛嗽S多新的特性。（2） Visual 概述Visual Basic 提供了開發(fā) Windows 應(yīng)用程序最迅速、最簡潔的方法。 本課題的研究方法Windows 系統(tǒng)動態(tài)連接庫提供了豐富的 API，這些函數(shù)可為 VB 應(yīng)用程序所調(diào)用。Inter 的發(fā)展是計算機技術(shù)的發(fā)展熱點。本設(shè)計采用 Visual BASIC 開發(fā)工具，有效的實現(xiàn)了對本機地址、用戶信息、工作站信息、服務(wù)信息的查看，獲取目的網(wǎng)絡(luò)的連接狀態(tài)，還可根據(jù)用戶需求設(shè)定搜索文件。 it also helps realize gaining the link state of the target 。越來多的人享受著電腦和網(wǎng)絡(luò)帶來的便利，在這些過程中，不可避免的要對文件查找、本機上的一些信息的查看，以便更好、更快的利用資源，因此，大量的系統(tǒng)操作工具也應(yīng)運而生。2 需求分析 需求調(diào)研通過對非計算機行業(yè)使用計算機的人調(diào)查，了解他們對計算機使用中需要的功能進行分析。在圖形用戶界面下，不需要編寫大量的代碼去描述界面元素的外觀和位置，而只要把預(yù)先建立的對象加到屏幕上的適當(dāng)位置，再進行簡單的設(shè)置即可。2．Inter 功能的增強：Inter 是當(dāng)今發(fā)展的潮流，Visual Basic 在 Inter 方面的在增強使得它已成為當(dāng)前最強有力的開發(fā)工具之一。④ 安裝向?qū)?、?shù)據(jù)對象向?qū)?、?shù)據(jù)窗體向?qū)б约皯?yīng)用程序向?qū)?。我們程序的界面，大部分是在它上面設(shè)計的。但是，當(dāng)計算機間使用上述三種名稱進行通信時，這些名稱都必須解析為硬件地址，即 MAC 地址。測試目的地是否可達：隨著網(wǎng)絡(luò)的普及，網(wǎng)絡(luò)資源的豐富給很多用戶帶來很大的便利，獲取網(wǎng)絡(luò)的連接狀態(tài)能更高效的利用網(wǎng)絡(luò)資源。namelen：緩沖區(qū)的長度。函數(shù) gethostbyname 返回一個 HOSTENT 結(jié)構(gòu)的地址，該結(jié)構(gòu)由 Windows 套接字分配。h_aliases：可選擇的別名數(shù)組，該數(shù)組以 NULL 結(jié)尾。 獲取物理地址 功能設(shè)計這個窗體主要用來獲取 MAC 地址，本模塊使用 NetBIOS 網(wǎng)絡(luò)編程接口來獲取網(wǎng)卡的物理地址。使用函數(shù) GetMACAddress()實現(xiàn)物理地址的獲?。篜rivate Function GetMACAddress() As String……pASTAT = HeapAlloc(GetProcessHeap(), HEAP_GENERATE_EXCEPTIONS Or HEAP_ZERO_MEMORY, ) …… = pASTAT Call Netbios(NCB) CopyMemory AST, , Len(AST) tmp = Format$(Hex((0)), 00) amp。 顯示本機用戶信息 功能設(shè)計這個窗體主要用來顯示系統(tǒng)中所有用戶及其相關(guān)信息。如果函數(shù)調(diào)用成功，則返回 NERR_SUCCESS；否則，返回錯誤代碼。GetPointerToByteStringW()函數(shù)獲取指針?biāo)傅淖址畔ⅰ１境绦蚴褂?WKSTA_INFO_102 結(jié)構(gòu)。Bufptr：函數(shù)返回時，它是指向返回的數(shù)據(jù)信息結(jié)構(gòu)的指針。使用API 函數(shù) EnumServicesStatus 枚舉指定的 SCM 數(shù)據(jù)庫中的服務(wù)，包括服務(wù)的名稱和狀態(tài)（為了成功調(diào)用函數(shù) EnumServicesStatus，必須先調(diào)用函數(shù)OpenSCManager 打開服務(wù)管理數(shù)據(jù)庫。(3)ENUM_SERVICE_STATUS 結(jié)構(gòu)Typedef struct_ENUM_SERVICE_STATUS( LPTSTR lpServiceName； ‘指明了 SCM 數(shù)據(jù)庫中的服務(wù)的名稱 …… SERVICE_STATUS ServiceStatus； ‘指定一個 SERVICE_STATUS 結(jié)構(gòu)，結(jié)構(gòu)中包含了返回的 lpServiceName 指定的服務(wù)狀態(tài)信息)ENUM_SERVICE_STATUS, *LPENUM_SERVICE_STATUS；(4)SERVICE_STATUS 結(jié)構(gòu)Typedef struct_SERVICE_STATUS( DWORD dwServiceType； ‘標(biāo)明返回的服務(wù)類型 DWORD dwCurrentState； ‘指明服務(wù)的當(dāng)前狀態(tài) ……)SERVICE_STATUS， *LPSERVICE_STATUS；窗體中使用函數(shù) EnumSystemServices()枚舉系統(tǒng)中的用戶：Private function EnumSystemServices(ct1 as control)as long……If EnumServicesStatus(hSCManager, SERVICE_WIN32, SERVICE_STATE_ALL, pntr(0), cbBuffSize, cbRequired, dwReturned, hEnumResume) Then‘從 pntr()數(shù)組中提取所需的信息 With List1 Clear For i = 0 To dwReturned 1 sDispName = GetStrFromPtrA(ByVal pntr(i).lpDisplayName) sSvcName = GetStrFromPtrA(ByVal pntr(i).lpServiceName) dwState = pntr(i). .AddItem sDispName amp。 目的地是否可達 功能設(shè)計這個窗體主要用來確定能否到達指定的目的地，并提供目的地的連接質(zhì)量(QOC：Quality of Connection)信息，包括接收數(shù)據(jù)速度，發(fā)送數(shù)據(jù)速度等。 字節(jié)/秒 = tmpEnd With 界面實現(xiàn)添加一個窗體，并按照下表設(shè)置窗體的屬性表 測試目的地可達窗體設(shè)置表窗體屬性 取值Name destinationCaption 目的地是否可達該窗體首先添加一個 Combobox 控件(將 textbox 控件和 listbox 控件的特性結(jié)合在一起，既可以在控件的文本框部分輸入信息，也可以在控件的列表框部分選擇一項)，在代碼部分向其中添加幾個地址；然后添加 3 個 text 控件，text 屬性均設(shè)為空，等待接收數(shù)據(jù)。attributes：可選參數(shù)，常數(shù)或數(shù)值表達式，其總和用來指定文件屬性，如果省略，則會返回匹配 pathname，但不包含屬性的文件?；緦崿F(xiàn)了預(yù)期的功能，目前試運行良好。[4] basic 編程實例大制作[M].北京：冶金工業(yè)出版社，2022。除非另有說明，本文的工作是原始性工