【正文】 ..............24參考文獻(xiàn) ....................................................................24致 謝 ....................................................................25聲 明 ....................................................................261 引言 課題背景Windows 這個(gè)優(yōu)秀的圖形化操作系統(tǒng),如今已深入人心，成了 PC 機(jī)市場(chǎng)中的絕對(duì)主流操作系統(tǒng)。通過對(duì)非計(jì)算機(jī)行業(yè)的用戶使用計(jì)算機(jī)的調(diào)查了解，用戶希望有一個(gè)操作簡(jiǎn)單、界面友好的工具集，在這種情況下，該系統(tǒng)開發(fā)了一個(gè)獲取基本信息的網(wǎng)絡(luò)工具集和一個(gè)簡(jiǎn)易的文件查找系統(tǒng)。 besides, it can set up document searching in accordance with the users’ needs. The process of the design, which is on the basis of the analysis of need, shall write the systematic development plan, program the realizing flow and the realizing methods of some related problem。一些工具功能強(qiáng)大，比如一些文件查找工具，用戶需在界面上輸入精確關(guān)鍵字，或是包括其他一些信息才能實(shí)現(xiàn)查找的功能，也許一些用戶只記得文件名的一部分，或是對(duì)于一些對(duì)系統(tǒng)操作或是系統(tǒng)相關(guān)知識(shí)不太熟悉的用戶來說，一些功能或選項(xiàng)反而讓人覺得模糊，不知道其功能。了解了用戶需求后，對(duì)系統(tǒng)進(jìn)行開發(fā)和設(shè)計(jì)。 “Basic”指的是 BASIC（Beginners AllPurpose Symbol Instruction Code）語言，是一種十分廣泛的計(jì)算機(jī)語言。① IIS 程序設(shè)計(jì)：專業(yè)版和企業(yè)版中都有。這些新增的向?qū)Ъ肮δ茉鰪?qiáng)的向?qū)?，可以使開發(fā)人員能設(shè)計(jì)出更優(yōu)秀的應(yīng)用程序。右上方是工程資源管理器，它能讓我們對(duì)整個(gè)工程進(jìn)行整體性的管理。如何獲取計(jì)算機(jī)上安裝的網(wǎng)卡的物理地址是一個(gè)重要問題。文件查找：查找文件是每個(gè)用戶經(jīng)常遇到的事情，因此，一個(gè)簡(jiǎn)潔、方便的文件搜索工具將受到大家的青睞。該函數(shù)把本地主機(jī)名存放在由 name 參數(shù)指定的緩沖區(qū)中。應(yīng)用程序不能修改本結(jié)果或釋放它的某個(gè)成員。h_addrtype：返回的地址的類型。NetBIOS API 只有一個(gè)函數(shù) NetBIOS, 該函數(shù)解釋和執(zhí)行指定的網(wǎng)絡(luò)控制塊（NCB） ，函數(shù)的原型如下：UCHAR NetBIOS (PNCB pncb)；pncb：指向 NCB 結(jié)構(gòu)的指針，該結(jié)構(gòu)描述了網(wǎng)絡(luò)控制塊。 amp。使用 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ù)器上指定用戶的信息，包括用戶名、用戶全名、描述和用戶描述信息，顯示在對(duì)應(yīng)的文本框里。該函數(shù)不會(huì)返回 windows 所有的系統(tǒng)用戶，它只能返回由函數(shù) NetUserAdd 添加的用戶。窗體使用自定義函數(shù) GetUserNetworkInfo()實(shí)現(xiàn)獲取各個(gè)用戶詳細(xì)信息：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 界面實(shí)現(xiàn)添加一個(gè)窗體，并按照下表設(shè)置窗體的屬性表 顯示用戶窗體設(shè)置表窗體屬性 取值Name userinformationCaption 用戶信息該窗體首先添加一個(gè) ListBox 控件，然后再添加 5 個(gè) label 控件，Caption分別設(shè)置屬性為服務(wù)器名、用戶名、用戶全名、描述、用戶描述，添加 5 個(gè)text 控件分別對(duì)應(yīng) 5 個(gè) Label 控件，text 屬性均設(shè)為空，添加完畢后的窗體如圖所示：圖 顯示用戶信息當(dāng)用戶單擊工程主窗體上的‘用戶信息’按鈕，調(diào)用 GetUserEnumInfo()和 rgbGetCompterName()函數(shù)，獲取本機(jī)用戶名和服務(wù)器名分別顯示在 ListBox和 text1 控件中，用戶單擊列表框中的任一用戶，調(diào)用 GetUserNetworkInfo()函數(shù)，獲取 USER_INFO_10 結(jié)構(gòu)中的用戶信息，顯示在下面對(duì)應(yīng)的四個(gè) text 文本框中。bufptr：一個(gè)緩存的指針，存放由參數(shù) level 指定的數(shù)據(jù)。Entriesread：表明實(shí)際枚舉列表的元素個(gè)數(shù)。一旦獲得了數(shù)據(jù)庫的句柄，就可以調(diào)用該函數(shù)了） ，獲取的相關(guān)信息記錄在 ENUM_SERVICE_STATUS 結(jié)構(gòu)中，并由SERVICE_STATUS 結(jié)構(gòu)返回服務(wù)的有關(guān)信息。 vbTab amp。程序主要使用 API 函數(shù) IsDestinationReachable 確定目的地址是否可達(dá)，并提供目的地址質(zhì)量信息。1 個(gè) mandbutton 控件。搜索根目錄下的該類型文件，使用 Dir 函數(shù)查找 strres = Dir( + \ + ) Do While strres Dim li As ListItem ‘把搜索到的文件及部分屬性添加到 ListView 中 Set li = (, , strres) (). , , + \ Set Ufile = ( + \ + strres) …… Loop ……使用自定義函數(shù) Findfolder()搜索子文件夾Private Function Findfolder(ByVal pathstr As String)……Set flds = ‘獲得子文件夾If 0 Then For Each subfld In flds strres = Dir( + \ + ) ‘在子文件夾中查找 Do While strres Dim li As ListItem Set li = (, , strres) (). , , Set Ufile = ( + \ + strres) …… Loop Findfolder ‘遞歸調(diào)用搜索子文件夾 NextEnd IfEnd Function 界面實(shí)現(xiàn)添加一個(gè)窗體，并按照下表設(shè)置窗體屬性表 文件搜索窗體設(shè)置表窗體屬性 取值Name searchCaption 文件搜索該窗體首先添加 4 個(gè) label 控件，1 個(gè) textbox 控件，text 屬性設(shè)置為空，用戶向其中輸入查詢關(guān)鍵字；再添加 1 個(gè) Drive 控件，供用戶選擇搜索驅(qū)動(dòng)器；1 個(gè) check 控件，供用戶選擇是否搜索子文件夾。結(jié) 論信息技術(shù)的發(fā)展，以及由此帶來的便利使得廣大用戶希望更高效、快捷地利用數(shù)字信息，所以大量的應(yīng)用工具應(yīng)運(yùn)而生。[5] basic 函數(shù)實(shí)用手冊(cè)[M].北京：冶金工業(yè)出版社，2022。關(guān)于學(xué)位論文使用權(quán)和研究成果知識(shí)產(chǎn)權(quán)的說明本人完全了解成都信息工程學(xué)院有關(guān)保管使用學(xué)位論文的規(guī)定，其中包括：（1）學(xué)校有權(quán)保管并向有關(guān)部門遞交學(xué)位論文的原件與復(fù)印件。特此聲明！ 作者簽名: 年 月 日。文中除了特別加以標(biāo)注地方外，不包含他人已經(jīng)發(fā)表或撰寫過的研究成果，也不包含為獲得成都信息工程學(xué)院或其他教學(xué)機(jī)構(gòu)的學(xué)位或證書而使用過的材料。[3] basic 系統(tǒng)開發(fā)事例精粹[M].北京：人民郵電出版社，2022。各功能模塊逐一實(shí)現(xiàn)后，將其生成可執(zhí)行文件，逐一運(yùn)行，均能在 WindowsXP/2022 操作系統(tǒng)上正常運(yùn)行。如果沒有找到 pathname，則會(huì)返回零長(zhǎng)度字符串。 字節(jié)/秒 = FormatNumber(.dwOutSpeed, 0) amp?？梢钥吹搅斜砜蛑幸蚜信e出了本地機(jī)的所有服務(wù)名稱及狀態(tài)信息?？烧{(diào)用函數(shù)GetLastError 來獲取詳細(xì)的錯(cuò)誤信息。 列舉本機(jī)服務(wù) 功能設(shè)計(jì)這個(gè)窗體主要用來列舉本機(jī)在指定的服務(wù)控制管理器（SCM:Service Control Manager）數(shù)據(jù)庫中的服務(wù)，返回每個(gè)服務(wù)的名稱和狀態(tài)信息。本程序使用 WKSTA_USER_INFO_0 結(jié)構(gòu)。level：指定返回的信息的級(jí)別。窗體中使用自定義函數(shù) GetUserEnumInfo（）枚舉本機(jī)用戶：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)中的用戶信息。給出了重用句柄（resume_handle）,它用于繼續(xù)查找存在的用戶。添加完畢后的窗體如圖所示：圖 獲取物理地址界面點(diǎn)擊按鈕，程序調(diào)用 GetMACAddress()函數(shù)，在 text 控件中顯示主機(jī)物理地址。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 地址。添加完畢后的窗體如圖所示：圖 顯示主機(jī)名和 IP 地址界面單擊按鈕，調(diào)用 GetIPHostName()和 GetIPAddress()函數(shù)，在 text 文本框中分別顯示出當(dāng)前主機(jī)名和 IP 地址。（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_a