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