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