【正文】 特此聲明！ 作者簽名: 年 月 日。（5）學?？梢怨紝W位論文的全部或部分內(nèi)容（保密學位論文在解密后遵守此規(guī)定） 。（3）學?？梢詫W術(shù)交流為目的復制、贈送和交換學位論文。關(guān)于學位論文使用權(quán)和研究成果知識產(chǎn)權(quán)的說明本人完全了解成都信息工程學院有關(guān)保管使用學位論文的規(guī)定，其中包括：（1）學校有權(quán)保管并向有關(guān)部門遞交學位論文的原件與復印件。文中除了特別加以標注地方外，不包含他人已經(jīng)發(fā)表或撰寫過的研究成果，也不包含為獲得成都信息工程學院或其他教學機構(gòu)的學位或證書而使用過的材料。在此向他們表示我最衷心的感謝！感謝我的同學在開發(fā)過程中給予的幫助，正是因為他們的幫助，使我遇到的一些意想不到的難題和疑惑被一個個的攻破，使我的課題得以順利地完全地達到了預期的目標，并使論文最終得以順利地完成。[7] basic 網(wǎng)絡編程從入門到精通[M].北京：中國鐵道出版社，2022。[5] basic 函數(shù)實用手冊[M].北京：冶金工業(yè)出版社，2022。[3] basic 系統(tǒng)開發(fā)事例精粹[M].北京：人民郵電出版社，2022。參考文獻[1] basic 程序設計導學[M].北京：清華大學出版社，2022。通過這次畢業(yè)設計，使我將所學的理論與實踐結(jié)合起來，并從中發(fā)現(xiàn)自己很多不足之處。結(jié) 論信息技術(shù)的發(fā)展，以及由此帶來的便利使得廣大用戶希望更高效、快捷地利用數(shù)字信息，所以大量的應用工具應運而生。各功能模塊逐一實現(xiàn)后，將其生成可執(zhí)行文件，逐一運行，均能在 WindowsXP/2022 操作系統(tǒng)上正常運行。經(jīng)過編譯調(diào)試，測試出其中變量、函數(shù)書寫、合法性等錯誤，過程、事件功能實現(xiàn)代碼不完善等錯誤，逐一解決后，成功調(diào)用相應函數(shù)，實現(xiàn)各功能。設計后運行的界面如圖所示：圖 文件搜索界面用戶輸入關(guān)鍵字，設置好搜索路徑、是否搜索子文件夾后，單擊‘運行’按鈕，執(zhí)行搜索功能，若單擊‘退出’按鈕，則退出搜索功能。搜索根目錄下的該類型文件，使用 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 界面實現(xiàn)添加一個窗體，并按照下表設置窗體屬性表 文件搜索窗體設置表窗體屬性 取值Name searchCaption 文件搜索該窗體首先添加 4 個 label 控件，1 個 textbox 控件，text 屬性設置為空，用戶向其中輸入查詢關(guān)鍵字；再添加 1 個 Drive 控件，供用戶選擇搜索驅(qū)動器；1 個 check 控件，供用戶選擇是否搜索子文件夾。如果沒有找到 pathname，則會返回零長度字符串。其主要函數(shù)定義如下：（1）Dir 函數(shù)返回一個表示文件名、目錄名或文件夾名稱的字符串，它必須與指定的模式或文件屬性、磁盤卷標相匹配。 文件搜索詳細設計 功能設計這個窗體主要實現(xiàn)對輸入關(guān)鍵字相匹配的文件的查找，用戶在關(guān)鍵字文本框中輸入要查找文件的關(guān)鍵字，選擇要搜索的驅(qū)動，在該驅(qū)動下查找，程序中加如代碼判斷關(guān)鍵字里是否含有*，若不含，則加上，然后使用 Dir 函數(shù)搜索根目錄中的符合搜索條件的文件，并在 ListView 控件中顯示搜索到的文件的名稱、路徑、文件大小和修改時間。1 個 mandbutton 控件。 字節(jié)/秒 = FormatNumber(.dwOutSpeed, 0) amp。如果函數(shù)調(diào)用返回 true，表示可以抵達目的地；否則，表示不能抵達目的地，可調(diào)用函數(shù) GetLastError 來獲取相應的信息的原因信息。其中主要的函數(shù)及結(jié)構(gòu)定義如下：（1）IsDestinationReachable 函數(shù)BOOL IsDestinationReachable( LPCSTR lpszDestionation, LPCSTR lpQOCInfo)；lpszDestination：一個指向表示目的地字符串的指針。程序主要使用 API 函數(shù) IsDestinationReachable 確定目的地址是否可達，并提供目的地址質(zhì)量信息?？梢钥吹搅斜砜蛑幸蚜信e出了本地機的所有服務名稱及狀態(tài)信息。1 個 mandbutton 控件。 vbTab amp。 vbTab amp?？烧{(diào)用函數(shù)GetLastError 來獲取詳細的錯誤信息。dwServiceType：枚舉的服務類型，本程序使用 SERVICE_WIN32 類型，枚舉SERVICE_WIN32_OWN_PROCESS 和 SERVICE_WIN32_SHARE_PROCESS 類型的服務dwServiceState： 程序使用 SERVICE_STATE_ALL 類型，枚舉處于SERVICE_ACTIVE 和 SERVICE_INACTIVE 運行狀態(tài)的服務lpServices：一個 ENUM_SERVICE_STATUS 結(jié)構(gòu)的數(shù)組指針，其中包含了返回的數(shù)據(jù)庫中的每個服務的名稱和服務狀態(tài)的信息pcbBytesNeeded：指向一個 DWORD 變量的指針，該變量給出了接收剩余的服務入口所需的緩沖的字節(jié)數(shù)量lpResumeHandle：指向一個 DWORD 變量的指針，該變量是一個輸入/輸出參數(shù)，用于輸入時，它指定了枚舉開始的入口地址，用于輸出時，如果函數(shù)調(diào)用成功，則該參數(shù)的值為 0。其中主要的函數(shù)及結(jié)構(gòu)定義如下：（1）函數(shù) OpenSCManagerSC_HANDLE OpenSCManager( LPCTSTR lpMachineName, ‘機器名地址 LPCTSTR lpDatabaseName, ‘數(shù)據(jù)庫名地址 DWORD dwDesireAccess， ‘訪問類型,本程序使用SC_MANAGER_ENUMERATE_SERVICE 類型，允許調(diào)用 EnumServicesStatus 函數(shù)來列舉數(shù)據(jù)庫中的服務） ；（2）函數(shù) EnumServicesStatusBOOL EnumServiceStatus( SC_HANDLE hSCManager, DWORD dwServiceType, DWORD dwServiceState, LPENUM_SERVICE_STATUS lpServices, …… LPDWORD lpServicesReturned, LPDWORD lpResumeHandle)；hSCManager：SCM 數(shù)據(jù)庫的句柄。一旦獲得了數(shù)據(jù)庫的句柄，就可以調(diào)用該函數(shù)了） ，獲取的相關(guān)信息記錄在 ENUM_SERVICE_STATUS 結(jié)構(gòu)中，并由SERVICE_STATUS 結(jié)構(gòu)返回服務的有關(guān)信息。 列舉本機服務 功能設計這個窗體主要用來列舉本機在指定的服務控制管理器（SCM:Service Control Manager）數(shù)據(jù)庫中的服務，返回每個服務的名稱和狀態(tài)信息。其定義如下：Typedef struct_WKSTA_USER_INFO_0( LPWSTR wkui0_username； ‘當前的登陸到工作站的用戶名)WKSTA_USER_INFO_0,*PWKSTA_USER_INFO_0,*LPEKSTA_USER_INFO_0；窗體使用自定義函數(shù) GetWorkstationUserName()顯示登陸到當前工作站的用戶名：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)添加一個窗體，并按照下表設置窗體的屬性表 顯示工作站信息窗體設置表窗體屬性 取值Name detailCaption 網(wǎng)絡工作站及當前用戶信息該窗體首先添加一個 ListBox 控件，然后在控件上添加 8 個 label 控件，其中 6 個對應返回的工作站信息分別設置其 Caption 屬性，另一個 Label 控件設置標題為“函數(shù)調(diào)用成功（0）或錯誤次數(shù)：“，剩余一個 Label 控件標題為調(diào)用 NetWkstaGetInfo()函數(shù)出錯的次數(shù)，無錯則返回 0，1 個 mandbotton控件。函數(shù)調(diào)用成功，則返回 NERR_SUCCESS；否則，返回 ERROR_INVALID_LEVEL,表示參數(shù) level 指定的值無效。Entriesread：表明實際枚舉列表的元素個數(shù)。本程序使用 WKSTA_USER_INFO_0 結(jié)構(gòu)。函數(shù)原型：NET_API_STATUS NetWkstaUserEnum( LPWSTR servername, DWORD level, LPBYTE * bufptr, LPDWORD entriesread, LPDWORD totalentries, ……)；servername：遠程服務器名字的 Unicode 字符串地址。（2）WKSTA_INFO_102 結(jié)構(gòu)該結(jié)構(gòu)包含了工作站環(huán)境信息，包括工作平臺、域名、本機名稱以及與操作系統(tǒng)有關(guān)的信息。bufptr：一個緩存的指針，存放由參數(shù) level 指定的數(shù)據(jù)。level：指定返回的信息的級別。主要函數(shù)及結(jié)構(gòu)定義