【正文】 如下：（1）NetWkstaGetInfo 函數(shù)函數(shù)返回工作站的配置信息。程序主要用NetWkstaGetInfo 函數(shù)使用的結(jié)構(gòu) WKSTA_INFO_102 帶回工作站的環(huán)境信息，包括平臺信息、域名（或工作組） 、計算機名、登陸到計算機的用戶數(shù)目以及操作系統(tǒng)的信息。窗體使用自定義函數(shù) GetUserNetworkInfo()實現(xiàn)獲取各個用戶詳細信息：Private Function GetUserNetworkInfo(bServername() As Byte, bUsername() As Byte) As USER_INFO…… CopyMemory usrapi, ByVal buff, Len(usrapi) = GetPointerToByteStringW() = GetPointerToByteStringW() = GetPointerToByteStringW() = GetPointerToByteStringW()‘GetPointerToByteStringW()為自定義函數(shù)，用于獲取指針中的字符串……End Function 界面實現(xiàn)添加一個窗體，并按照下表設(shè)置窗體的屬性表 顯示用戶窗體設(shè)置表窗體屬性 取值Name userinformationCaption 用戶信息該窗體首先添加一個 ListBox 控件，然后再添加 5 個 label 控件，Caption分別設(shè)置屬性為服務(wù)器名、用戶名、用戶全名、描述、用戶描述，添加 5 個text 控件分別對應(yīng) 5 個 Label 控件，text 屬性均設(shè)為空，添加完畢后的窗體如圖所示：圖 顯示用戶信息當(dāng)用戶單擊工程主窗體上的‘用戶信息’按鈕，調(diào)用 GetUserEnumInfo()和 rgbGetCompterName()函數(shù)，獲取本機用戶名和服務(wù)器名分別顯示在 ListBox和 text1 控件中，用戶單擊列表框中的任一用戶，調(diào)用 GetUserNetworkInfo()函數(shù)，獲取 USER_INFO_10 結(jié)構(gòu)中的用戶信息，顯示在下面對應(yīng)的四個 text 文本框中。窗體中使用自定義函數(shù) GetUserEnumInfo（）枚舉本機用戶：Private Function GetUserEnumInfo(bServername() As Byte) …… CopyMemory users(0), ByVal buff, entriesread * 4 For t = 0 To entriesread 1 GetPointerToByteStringW(users(t)) Next t ……End Function以服務(wù)器名和當(dāng)前選中用戶名為參數(shù)，調(diào)用函數(shù)，返回 USER_INFO_10 結(jié)構(gòu)中的用戶信息。如果函數(shù)調(diào)用成功，則返回 NERR_SUCCESS；否則，返回錯誤代碼。username: 一個指向 Unicode 字符串的指針，該字符串給出了將返回信息的用戶名稱。該函數(shù)不會返回 windows 所有的系統(tǒng)用戶，它只能返回由函數(shù) NetUserAdd 添加的用戶。給出了重用句柄（resume_handle）,它用于繼續(xù)查找存在的用戶。該變量中包含了實際枚舉的元素的數(shù)量。level：定義返回信息的級別，本設(shè)計只返回枚舉的用戶名，使用 0 值，即返回 USER_INFO_0 的信息。使用 API 函數(shù)GetComputerName 獲取服務(wù)器名，使用 API 函數(shù) NetUserEnum 返回 PDC/BDC 用戶管理器（User Manager）中定義的所有用戶，顯示在 ListBox 控件中，調(diào)用API 函數(shù) NetUserGetInfo 函數(shù)，并使用其中的 USER_INFO_10 結(jié)構(gòu)返回當(dāng)前服務(wù)器上指定用戶的信息，包括用戶名、用戶全名、描述和用戶描述信息，顯示在對應(yīng)的文本框里。添加完畢后的窗體如圖所示：圖 獲取物理地址界面點擊按鈕，程序調(diào)用 GetMACAddress()函數(shù)，在 text 控件中顯示主機物理地址。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)卡的物理地址。 amp。 amp。ADAPTER_STATUS 結(jié)構(gòu)定義如下：Private type ADAPTER_STATUS adapter_address(5) as byte rev_major as byte …… Name_count as integerEnd type在 ADAPTER_STATUS 結(jié)構(gòu)中，最重要的成員是 adapter_address 成員，它表示的是網(wǎng)卡的 MAC 地址。這里主要講述適配器狀態(tài)命令，利用適配器狀態(tài)命令，可取得與本地計算機及其 LANA 編號的有關(guān)信息。NCB 結(jié)構(gòu)的定義如下：private type NET_CONTROL_BLOCK ncb_mand as byte ncb_retcode as byte …… ncb_event as longEnd type進行任何 NetBIOS 調(diào)用之前，必須先將這個結(jié)構(gòu)清零。NetBIOS API 只有一個函數(shù) NetBIOS, 該函數(shù)解釋和執(zhí)行指定的網(wǎng)絡(luò)控制塊（NCB） ，函數(shù)的原型如下：UCHAR NetBIOS (PNCB pncb)；pncb：指向 NCB 結(jié)構(gòu)的指針，該結(jié)構(gòu)描述了網(wǎng)絡(luò)控制塊。添加完畢后的窗體如圖所示：圖 顯示主機名和 IP 地址界面單擊按鈕，調(diào)用 GetIPHostName()和 GetIPAddress()函數(shù)，在 text 文本框中分別顯示出當(dāng)前主機名和 IP 地址。 tmpIPAddr(i) amp。h_addr_lis：一個以 NULL 結(jié)尾的主機地址列表。h_addrtype：返回的地址的類型。（3）結(jié)構(gòu) HOSTENT，結(jié)構(gòu)的定義如下：Struct hostent( Char FAR *h_name； Char FAR *FAR *h_aliases； Short h_addrtype； Short h_length； Char FAR *FAR *h_addr_list；)；h_name：主機名的官方名稱。函數(shù) gethostbyname 可以成功解析由函數(shù) gethostname 返回的主機名字符串。也就是說，如果向函數(shù)傳遞一個 IP 地址字符串作為參數(shù)，則函數(shù)認為這是一個未知的主機名參數(shù)。應(yīng)用程序不能修改本結(jié)果或釋放它的某個成員。函數(shù)原型如下：Struct hostent FAR * gethostbyname( Const char FAR *name)name：一個以空字符結(jié)尾的表示主機名的字符串。應(yīng)用程序可調(diào)用函數(shù)WSAGetLastError 來獲取詳細的錯誤信息。主機名的形式取決于 Windows Sockets 的實現(xiàn)，也就是說，它可以是一個簡單的主機名，也可以是一個域名。該函數(shù)把本地主機名存放在由 name 參數(shù)指定的緩沖區(qū)中。功能實現(xiàn)主要函數(shù)和結(jié)構(gòu)：（1）gethostname 函數(shù)返回本地主機的標準主機名，函數(shù)原型如下：int PASCAL FAR gethostname( char FAR *name int namelen)name：一個指向要存放主機名的緩沖區(qū)指針。模塊使用 WSAGetLastError 函數(shù)返回上次發(fā)生的網(wǎng)絡(luò)錯誤。獲取本地主機名及 IP 地址通過 WinSock API 編程實現(xiàn)，應(yīng)用程序在使用 WinSock API 之前，必須先成功調(diào)用函數(shù) WSAStartup，對 WinSock DLL 進行初始化，協(xié)商 WinSock DLL 的版本支持，并分配必要的資源，如果在調(diào)用 WinSock 函數(shù)之前，沒有加載 WinSock DLL，則會返回 SOCKET_ERROR 錯誤，錯誤信息是 WSANOTINITIALISED。文件查找：查找文件是每個用戶經(jīng)常遇到的事情，因此，一個簡潔、方便的文件搜索工具將受到大家的青睞。列舉本機服務(wù)：了解網(wǎng)絡(luò)機器提供的服務(wù)信息非常有用，它可以讓用戶充分了解機器的性能和功用，對服務(wù)進行管理。通過一個簡易的用戶顯示工具，管理員可以很快的知道用戶對某種資源有什么權(quán)限。任何行為都直接與它的用戶賬號相聯(lián)系。如何獲取計算機上安裝的網(wǎng)卡的物理地址是一個重要問題。獲取物理地址：Windows 下的 TCP/IP 協(xié)議允許計算機通過網(wǎng)絡(luò)與另一臺計算機通過 IP 地址、主機名或 NETBIOS 名稱進行通信。 軟件設(shè)計（1）功能模塊初步設(shè)計通過對用戶需求調(diào)研并分析，確定系統(tǒng)應(yīng)具備的功能，包括：獲取主機名和 IP 地址，獲取物理地址，顯示本機用戶信息，顯示工作站信息，列舉本機服務(wù)，測試目的地是否可達，文件查找，各功能設(shè)計如下：獲取主機名和 IP 地址：對用戶而言要想輕松地在網(wǎng)絡(luò)中遨游，首先必須對本地主機的網(wǎng)絡(luò)配置信息有清晰的了解，如主機名、IP 地址、所注冊的域等。右下方是窗體布局區(qū)，它能夠調(diào)節(jié)程序運行時窗體在屏幕中的位置。右上方是工程資源管理器，它能讓我們對整個工程進行整體性的管理。正中間是窗體編輯器，又稱對象窗口。6．Visual Basic 有兩張光盤的文檔資料，包括 Visual Basic 程序員設(shè)計手冊、全文搜索索引、Visual Basic 文檔（VB Documentation） 、Visual Basic 程序樣例（VB Product Samples）等。Visual Basic 集成了 Visual Component Manager(VCM,可視化模塊設(shè)計器)。這些新增的向?qū)Ъ肮δ茉鰪姷南驅(qū)?，可以使開發(fā)人員能設(shè)計出更優(yōu)秀的應(yīng)用程序。③ 函數(shù)可以將數(shù)組作為返回值，并且可以為可變大小的數(shù)組賦值。3．控件、語言和向?qū)Х矫娴男略鎏匦裕孩?DataGrid、DataList、DataCombo 等新增的數(shù)據(jù)控件，相當(dāng)于 DB 版本的 DB Grid、OLEDBList 和 DBCombo，所不同的是它們都支持新的 ADO 控件。② DHTML 的設(shè)計：利用 Visual 程序員可直接通過 Visual Basic 代碼來實現(xiàn)動態(tài)網(wǎng)頁的設(shè)計。① IIS 程序設(shè)計：專業(yè)版和企業(yè)版中都有。第三，增加了 ADO 控件和集成的可視化數(shù)據(jù)庫工具。同時，Visual Basic 在數(shù)據(jù)技術(shù)、Inter 技術(shù)及智能化向?qū)Х矫娑加辛嗽S多新的特性。專業(yè)人員可以用 Visual Basic 實現(xiàn)其他任何 Windows 編程語言的功能，而初學(xué)者只要掌握幾個關(guān)鍵詞就可以建立簡單的應(yīng)用程序。 “Basic”指的是 BASIC（Beginners AllPurpose Symbol Instruction Code）語言，是一種十分廣泛的計算機語言。 “Visual”指的是開發(fā)圖形用戶界面（GUI）的方法。（2） Visual 概述Visual Basic 提供了開發(fā) Windows 應(yīng)用程序最迅速、最簡潔的方法。 開發(fā)運行環(huán)境（1） 安裝此系統(tǒng)所需的基本軟、硬件環(huán)境為① Windows 2022/XP② Visual Basic ③ 486DX/66MHz 或更高的處理器④ 32MB 以上內(nèi)存⑤ VGA 顯示器⑥ CD——ROM 驅(qū)動器本程序在 Windows 操作系統(tǒng)下，以中文版 Visual 為前臺開發(fā)工具，其中主要