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