【正文】 又如查看本機(jī)用戶、地址、服務(wù)等信息，對(duì) WINDOWS 系統(tǒng)操作不熟悉的用戶來(lái)說(shuō)就顯得比較盲目，為了解決以上問(wèn)題所帶來(lái)的麻煩，提高信息技術(shù)應(yīng)用效率，本設(shè)計(jì)開發(fā)一個(gè) WINDOWS 輔助管理工具，為不熟悉 WINDOWS 系統(tǒng)操作的人員提供一個(gè)更方便、快捷的操作環(huán)境。只要將 DLL 中的函數(shù)按一定的規(guī)則在 VB 中進(jìn)行聲明，就可以調(diào)用這些API 函數(shù)，實(shí)現(xiàn)其中功能，程序編寫簡(jiǎn)潔、易懂。2 需求分析 需求調(diào)研通過(guò)對(duì)非計(jì)算機(jī)行業(yè)使用計(jì)算機(jī)的人調(diào)查，了解他們對(duì)計(jì)算機(jī)使用中需要的功能進(jìn)行分析。為不熟悉WINDOWS 系統(tǒng)操作的人員提供一個(gè)更方便、快捷的操作環(huán)境。以下對(duì)本設(shè)計(jì)主要的開發(fā)軟件Visual 做個(gè)概述。它提供了一整套工具，供用戶開發(fā)應(yīng)用程序。在圖形用戶界面下，不需要編寫大量的代碼去描述界面元素的外觀和位置，而只要把預(yù)先建立的對(duì)象加到屏幕上的適當(dāng)位置，再進(jìn)行簡(jiǎn)單的設(shè)置即可。Visual Basic 在原有 BASIC 語(yǔ)言的基礎(chǔ)上進(jìn)一步發(fā)展，至今包含了數(shù)百條語(yǔ)句、函數(shù)及關(guān)鍵詞，其中很多和 Windows GUI 有直接關(guān)系。Visual Basic 與以前的版本不同，它是 Visual Studio 家族的一個(gè)組件，保留了 Visual Basic 的優(yōu)點(diǎn)，如在開發(fā)環(huán)境上的改進(jìn)；增加了工作組；在代碼編輯器中提供了控件屬性／方法的自動(dòng)提示；能編譯生成本機(jī)代碼，大大提高程序的執(zhí)行速度等。1．?dāng)?shù)據(jù)訪問(wèn)的新特性：Visual Basic 在數(shù)據(jù)訪問(wèn)技術(shù)方面比 Visual Basic 有了很大的增強(qiáng)，首先，它采用了一種新的數(shù)據(jù)訪問(wèn)技術(shù)ADO(Active Data Object)，使之能更好地訪問(wèn)本地和遠(yuǎn)程的數(shù)據(jù)庫(kù)，其次，在數(shù)據(jù)環(huán)境方面，允許程序員可視化地創(chuàng)建和操作 ADO 連接及命令，為程序員操作數(shù)據(jù)源提供了很大的方便。2．Inter 功能的增強(qiáng)：Inter 是當(dāng)今發(fā)展的潮流，Visual Basic 在 Inter 方面的在增強(qiáng)使得它已成為當(dāng)前最強(qiáng)有力的開發(fā)工具之一。用 Visual Basic 可直接創(chuàng)建 IIS 應(yīng)用程序，響應(yīng)用戶的要求。③ Inter Explorer 對(duì)下載 ActiveX 文檔的支持。② 可以創(chuàng)建自己的數(shù)據(jù)源和數(shù)據(jù)綁定對(duì)象。④ 安裝向?qū)А?shù)據(jù)對(duì)象向?qū)?、?shù)據(jù)窗體向?qū)б约皯?yīng)用程序向?qū)А?．高度可移植化的代碼：代碼的可移植性是面向?qū)ο缶幊痰囊粋€(gè)重要特點(diǎn)。5．創(chuàng)建 ActiveX 控件更加輕松方便：用 Visual Basic 創(chuàng)建 ActiveX控件，其外觀和行為均和用Ｃ語(yǔ)言編寫的控件一樣，可以用在 Visual C++、Visual Basic、Delphi 甚至 Word、Access 中。（3） Visual Basic 集成開發(fā)圖 VB 開發(fā)環(huán)境圖左面是 VB 的工具箱里面的各種圖標(biāo)是我們開發(fā)程序時(shí)經(jīng)常用到的標(biāo)準(zhǔn)控件。我們程序的界面，大部分是在它上面設(shè)計(jì)的。右中處的是屬性窗口，陳列著程序中所涉及的各種窗體和控件的屬性?？偨Y(jié)：以非計(jì)算機(jī)行業(yè)的用戶為分析對(duì)象，確定該系統(tǒng)開發(fā)的方向，最后確定其應(yīng)該具備的功能，以確定系統(tǒng)的主要模塊，也簡(jiǎn)單介紹了該軟件的開發(fā)環(huán)境和運(yùn)行條件。在網(wǎng)絡(luò)編程中，一般都需要獲取本地主機(jī)的主機(jī)名和 IP 地址，起碼應(yīng)該將這些信息顯示給用戶，讓其感到程序界面的友好性。但是，當(dāng)計(jì)算機(jī)間使用上述三種名稱進(jìn)行通信時(shí)，這些名稱都必須解析為硬件地址，即 MAC 地址。顯示本機(jī)用戶信息：由于 Windows 設(shè)計(jì)已達(dá)到了 C2 標(biāo)準(zhǔn)，C2 標(biāo)準(zhǔn)建立在用戶級(jí)別的權(quán)限管理基礎(chǔ)上，因此任何 Windows 中與安全性有關(guān)的問(wèn)題都要先查看用戶賬號(hào)的相關(guān)信息，用戶賬號(hào)是 Windows 常用的最小的用戶身份標(biāo)識(shí)。但是，管理整個(gè)系統(tǒng)的所有用戶的權(quán)限是一個(gè)費(fèi)時(shí)費(fèi)力的工作，特別是用戶很多的情況下。顯示工作站信息：獲取工作站的配置信息（如工作站的操作平臺(tái)信息、操作系統(tǒng)版本信息等）以及工作站上的登陸用戶信息。測(cè)試目的地是否可達(dá)：隨著網(wǎng)絡(luò)的普及，網(wǎng)絡(luò)資源的豐富給很多用戶帶來(lái)很大的便利，獲取網(wǎng)絡(luò)的連接狀態(tài)能更高效的利用網(wǎng)絡(luò)資源。（2）模塊的組織結(jié)構(gòu)圖Windows 輔助管理程序設(shè)計(jì)與開發(fā)網(wǎng)絡(luò)工具 文件查找顯示主機(jī)名和IP地址獲取物理地址顯示用戶信息工作站及用戶信息本機(jī)服務(wù)目的地是否可達(dá)圖 功能模塊圖3 系統(tǒng)工具設(shè)計(jì)與實(shí)現(xiàn) 獲取主機(jī)名和 IP 地址 功能設(shè)計(jì)這個(gè)窗體主要用來(lái)獲取本地主機(jī)名和 IP 地址。而應(yīng)用程序結(jié)束時(shí)，調(diào)用 WSACleanup 函數(shù)終止對(duì) Winsock DLL 的使用，并釋放資源，以備下一次使用。當(dāng)一特定的 Winsock Sockets API 函數(shù)指出已經(jīng)發(fā)生了一個(gè)錯(cuò)誤，則調(diào)用本函數(shù)來(lái)獲得相應(yīng)的錯(cuò)誤代碼。namelen：緩沖區(qū)的長(zhǎng)度。返回的主機(jī)名是一個(gè)以空字符結(jié)尾的字符串。如果函數(shù)調(diào)用成功，則返回 0；否則返回 SOCKET_ERROR。（2）Gethostbyname 函數(shù)根據(jù)主機(jī)名稱返回相應(yīng)的信息。函數(shù) gethostbyname 返回一個(gè) HOSTENT 結(jié)構(gòu)的地址，該結(jié)構(gòu)由 Windows 套接字分配。函數(shù)gethostbyname 不能解析傳遞給它的 IP 地址字符串。如果要想通過(guò)機(jī)器的 IP 地址字符串獲取相應(yīng)的主機(jī)信息，可以先調(diào)用函數(shù)i_addr，將 IP 地址字符串轉(zhuǎn)換為實(shí)際的 IP 地址，然后使用函數(shù)gethostbyaddr 來(lái)得到 HOSTENT 結(jié)構(gòu)中的信息。如果成功，則函數(shù)返回一個(gè)指向 HOSTENT 結(jié)構(gòu)的指針；否則，函數(shù)返回一個(gè) NULL 指針，若調(diào)用函數(shù)WSAGetLastError，還可得到相應(yīng)的錯(cuò)誤代碼。h_aliases：可選擇的別名數(shù)組，該數(shù)組以 NULL 結(jié)尾。h_length：每個(gè)地址的字節(jié)長(zhǎng)度。窗體使用自定義函數(shù) GetIPAddress()實(shí)現(xiàn)本地主機(jī) IP 地址的獲?。篜rivate Function GetIPAddress() As String …… sHostName = Trim$(sHostName) lpHost = gethostbyname(sHostName)……‘為展開返回的 IP 地址，將 HOST 結(jié)構(gòu)及其數(shù)據(jù)復(fù)制到變量中……CopyMemory tmpIPAddr(1), dwIPAddr, For i = 1 To ‘由結(jié)果數(shù)組建立實(shí)際的 IP 地址 sIPAddr = sIPAddr amp。 . Next ……End Function窗體使用函數(shù) GetIPHostName()實(shí)現(xiàn)主機(jī)名的獲?。篜rivate Function GetIPHostName() As String …… GetIPHostName = Left$(sHostName, InStr(sHostName, Chr(0)) 1) socketscleanupEnd Function 界面實(shí)現(xiàn)添加一個(gè)窗體，并按照下表設(shè)置窗體的屬性表 獲取主機(jī)名和 IP 地址窗體設(shè)置表窗體屬性 取值Name nameandipCaption 獲取主機(jī)名及 IP 地址該窗體添加 2 個(gè) label 控件，Caption 屬性分別設(shè)置為‘主機(jī)名’ ， ‘IP 地址’ ，2 個(gè) text 控件，text 屬性均設(shè)為空，１個(gè) mandbotton 控件，Caption屬性設(shè)置為‘運(yùn)行’ 。 獲取物理地址 功能設(shè)計(jì)這個(gè)窗體主要用來(lái)獲取 MAC 地址，本模塊使用 NetBIOS 網(wǎng)絡(luò)編程接口來(lái)獲取網(wǎng)卡的物理地址。在網(wǎng)絡(luò)控制塊結(jié)構(gòu)中，包含了一個(gè)執(zhí)行 NetBIOS 命令、相應(yīng)的 NetBIOS 函數(shù)需要用到的全部信息。 NetBIOS 提供了幾個(gè)專門負(fù)責(zé)收集網(wǎng)絡(luò)參數(shù)的命令，其中包括名字查找命令（NCBFINDNAME）和適配器狀態(tài)命令(NCBASTAT)。適配器狀態(tài)命令返回一個(gè) ADAPTER_STATUS 結(jié)構(gòu)和緊接其后的大量 NAME_BUFFER 結(jié)構(gòu)。使用函數(shù) GetMACAddress()實(shí)現(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。 Format$(Hex((1)), 00) amp。 ……Format$(Hex((5)), 00)……End Function函數(shù) GetMACAddress()為自定義函數(shù)，它通過(guò)調(diào)用 NetBIOS 函數(shù)來(lái)獲取網(wǎng)卡的 MAC 地址。 界面實(shí)現(xiàn)添加一個(gè)窗體，并按照下表設(shè)置窗體的屬性表 獲取物理地址窗體設(shè)置表窗體屬性 取值Name MACaddressCaption 獲取物理地址該窗體上添加 1 個(gè) label 控件，Caption 屬性設(shè)置為‘MAC 地址’ ，1 個(gè)text 控件，text 屬性設(shè)置為空，1 個(gè) mandbotton 控件，Caption 屬性設(shè)置為‘運(yùn)行’ 。 顯示本機(jī)用戶信息 功能設(shè)計(jì)這個(gè)窗體主要用來(lái)顯示系統(tǒng)中所有用戶及其相關(guān)信息。其主要的函數(shù)和結(jié)構(gòu)如下：（1）NetUserEnum 函數(shù)NET_API_STATUS NetUserEnum( LPWSTR servername, DWORD level, …… LPDWORD entriesread, LPDWORD totalentries, LPDWORD resume_handle)；servername：一個(gè)指向 Unicode 字符串的指針，該字符串給出了執(zhí)行該函數(shù)的遠(yuǎn)程服務(wù)器名，空指針或空字符串指明以本地機(jī)作為服務(wù)器。Entriesread：指向一個(gè) DWORD 變量的指針。resume_handle:指向一個(gè) DWORD 變量的指針。如果函數(shù)調(diào)用成功，則返回 NERR_SUCCESS；否則，返回錯(cuò)誤代碼。（2）NetUserGetInfo 函數(shù)NET_API_STATUS NetUserGetInfo( LPWSTR servername, LPWSTR username, DWORD level, LPBYTE * bufptr)；servername：一個(gè)指向 Unicode 字符串的指針，該字符串給出了執(zhí)行該函數(shù)的遠(yuǎn)程服務(wù)器名，空指針或空字符串指明以本地機(jī)作為服務(wù)器。level：定義返回信息的級(jí)別，本設(shè)計(jì)只返回枚舉的用戶名，使用 10 值，即返回 USER_INFO_10 結(jié)構(gòu)的信息。（3）USER_INFO_10 結(jié)構(gòu)Private type USER_INFO_10 Usr10_name as long Usr10_ment as long Usr10_usr_ment as long Usr10_full_name as long End type窗體中使用定義了 USER_INFO 結(jié)構(gòu)存放實(shí)際顯示的字符串。GetPointerToByteStringW()函數(shù)獲取指針?biāo)傅淖址畔ⅰ?顯示工作站信息 功能設(shè)計(jì)這個(gè)窗體主要用來(lái)顯示工作站的配置信息和當(dāng)前登陸的用戶。使用 NetWkstaUserEnum 函數(shù)使用的結(jié)構(gòu) WKSTA_USER_INFO_0，該結(jié)構(gòu)僅有一個(gè)成員，帶回當(dāng)前登陸到工作站的用戶名。NET_API_STATUS