【導(dǎo)讀】類社會的各個領(lǐng)域，網(wǎng)絡(luò)管理和搜索系統(tǒng)一直以來都是計算機的重要功能。一個簡易的文件查找系統(tǒng)。本設(shè)計采用VisualBASIC開發(fā)工具，有效的實現(xiàn)了。態(tài)，還可根據(jù)用戶需求設(shè)定搜索文件。在設(shè)計中以需求分析為基礎(chǔ)，寫出系統(tǒng)開。發(fā)計劃、規(guī)劃實現(xiàn)流程及相關(guān)問題的實現(xiàn)方法；設(shè)計過程遵循軟件工程的方法，用戶提供了一個便捷的操作環(huán)境。

　　

【正文】 節(jié) /秒 }QOCINFO， *LPQOCINFO； 窗體中響應(yīng)按鈕單擊事件，調(diào)用 API 函數(shù) IsDestinationReachable()，并返回連接質(zhì)量： result = IsDestinationReachable((), qoc) With qoc Select Case .dwFlags Case NETWORK_ALIVE_LAN: tmp = 有一個或多個 LAN網(wǎng)卡 Case NETWORK_ALIVE_WAN: tmp = 有一個或多個 RAS連接 Case Else End Select = FormatNumber(.dwInSpeed, 0) amp。 字節(jié) /秒 = FormatNumber(.dwOutSpeed, 0) amp。 字節(jié) /秒 = tmp End With 界面實現(xiàn) 添加一個窗體，并按照下表設(shè)置窗體的屬性 表 測試目的地可達(dá)窗體設(shè)置表 窗體屬性 取值 Name destination Caption 目的地是否可達(dá) 該窗體首先添加一個 Combobox控件 (將 textbox控件和 listbox控件的特性 第 21 頁 共 26 頁 結(jié)合在一起，既可以在控件的文本框部分輸入信息，也可以在控件的列表框部分選擇一項 )，在代碼部分向其中添加幾個地址；然后添加 3 個 text 控件， text屬性均設(shè)為空，等待 接收數(shù)據(jù)。 1個 mandbutton 控件。設(shè)置后運行的界面如圖所示： 圖 測試目的地是否可達(dá)界面 用戶單擊組合框后，選擇其中的元素，文本框中的信息全部清空，準(zhǔn)備接收下一個信息，單擊按鈕后，調(diào)用 API 函數(shù)判斷能否抵達(dá)組合框中的選定地址，將結(jié)果顯示在文本框中。 文件搜索詳細(xì)設(shè)計 功能設(shè)計 這個窗體主要實現(xiàn)對輸入關(guān)鍵字相匹配的文件的查找，用戶在關(guān)鍵字文本框中輸入要查找文件的關(guān)鍵字，選擇要搜索的驅(qū)動，在該驅(qū)動下查找，程序中加如代碼判斷關(guān)鍵字里是否含有 *，若不含，則加上，然后使用 Dir 函數(shù)搜索根目錄中的 符合搜索條件的文件，并在 ListView 控件中顯示搜索到的文件的名稱、路徑、文件大小和修改時間。窗體中添加一個搜索子文件夾的 check 控件，若用戶選擇搜索子文件夾，則調(diào)用搜索子文件夾的函數(shù)遞歸調(diào)用搜索各個子文件夾。其主要函數(shù)定義如下： （ 1） Dir 函數(shù) 返回一個表示文件名、目錄名或文件夾名稱的字符串，它必須與指定的模式或文件屬性、磁盤卷標(biāo)相匹配。 Dir[ (pathname[,attributes]) ] pathname:可選參數(shù)，用來指定文件名的字符串表達(dá)式，可能包含目錄或文件夾以及驅(qū)動器。如果沒有找 到 pathname，則會返回零長度字符串 。 attributes：可選參數(shù)，常數(shù)或數(shù)值表達(dá)式，其總和用來指定文件屬性，如果省略，則會返回匹配 pathname，但不包含屬性的文件。 第 22 頁 共 26 頁 搜索根目錄下的該類型文件，使用 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)用搜索子文件夾 Next End If End Function 界面實現(xiàn) 添加一個窗體，并按照下表設(shè)置窗體屬性 第 23 頁 共 26 頁 表 窗體屬性 取值 Name search Caption 文件搜索 該窗體首先添加 4 個 label 控件， 1 個 textbox 控件， text 屬性設(shè)置為空，用戶向其中輸入查詢關(guān)鍵字；再添加 1個 Drive 控件，供用戶選擇搜索驅(qū)動器；1個 check 控件，供用戶選擇是否搜索子文件夾。添加 2 個 mandbutton 控件，caption 屬性分別設(shè)置為‘運行’、‘退出’；再添加一個 ListView控件，用于顯示搜索的結(jié)果，添加時將其 Visible 屬性設(shè)置為 False，當(dāng)用戶單擊‘運行’，執(zhí)行搜索功能時，該屬性設(shè)置為可見，顯示相應(yīng)結(jié)果。設(shè)計后運行的界面如圖所示： 圖 文件搜索界面 用戶輸入關(guān)鍵字，設(shè)置好搜索路徑、是否搜索子文件夾后，單擊‘運行’按鈕，執(zhí)行搜索功能，若單擊‘退出’按鈕，則退出搜索功能。 4 測試 (1) 模塊測試 在 VB 開發(fā)環(huán)境中，各功能模塊代碼輸入完成后，針對預(yù)先的設(shè)想，為檢查各功能的完備性和可操作性，以便及時進(jìn)行更改和完善。經(jīng)過編譯調(diào)試，測試出其中變量、函數(shù)書寫、合法性等錯誤，過程、 事件功能實現(xiàn)代碼不完善等錯誤，逐一解決后，成功調(diào)用相應(yīng)函數(shù)，實現(xiàn)各功能。 (2) 系統(tǒng)測試 系統(tǒng)測試是針對整個系統(tǒng)進(jìn)行的一系列整體、有效 性 的測試。 各功能模塊逐 第 24 頁 共 26 頁 一實現(xiàn)后，將其生成可執(zhí)行文件，逐一運行，均 能在 WindowsXP/2020 操作系統(tǒng)上正常運行 。 基本實現(xiàn)了 預(yù)期的 功能 ， 目前試運行良好 。 結(jié) 論 信息技術(shù)的發(fā)展，以及由此帶來的便利使得廣大用戶希望更高效、快捷地利用數(shù)字信息，所以大量的應(yīng)用工具應(yīng)運而生。 在開發(fā)過程中，由于初接觸 VB，以及對網(wǎng)絡(luò)編程等知識的不熟悉，使得開發(fā)工作遇到了不少問題，但最終通過查閱資料 以及老師和同學(xué)的幫助一一解決了，基本上實現(xiàn)了預(yù)期的效果，實現(xiàn)功能包括獲取主機名和 IP 地址、獲取物理地址、顯示計算機用戶信息、列舉本機服務(wù)，以及簡易的文件搜索。通過這次畢業(yè)設(shè)計，使我將所學(xué)的理論與實踐結(jié)合起來，并從中發(fā)現(xiàn)自己很多不足之處。例如對計算機的注冊表等管理功能沒有進(jìn)行設(shè)計開發(fā)，今后會在以后的學(xué)習(xí)進(jìn)一步進(jìn)行開發(fā)完善本系統(tǒng)。 參考文獻(xiàn) [1] 劉圣才 .Visual basic [M].北京：清華大學(xué)出版社， 2020。 [2] 肖斌 .Visual basic [M].北京：北京希望電子出版社， 2020。 [3] 曹衍龍 .Visual basic [M].北京：人民郵電出版社， 2020。 [4] 李光明 .Visual basic [M].北京：冶金工業(yè)出版社， 2020。 [5] 張青 .Visual basic函數(shù)實用手冊 [M].北京：冶金工業(yè)出版社， 2020。 [6] 羅朝盛 .Visual basic 程序設(shè)計教程 [M].北京：人民郵電出版社， 2020。 [7] 陳峰棋 .Visual basic網(wǎng)絡(luò)編程從入門到精通 [M].北京：中國鐵道出版社， 2020。 第 25 頁 共 26 頁 致 謝 本文是在蔣毅老師和韓桂華老師的熱情關(guān)心和指導(dǎo)下完成的，他們淵博的知識和嚴(yán)謹(jǐn)?shù)闹螌W(xué)作風(fēng)使我受益匪淺，對順利完成本課題起到了極大的作用。在此向他們表示我最衷心的感謝！ 感謝我的同學(xué)在開發(fā)過程中給予的幫助，正是因為他們的幫助，使我遇到的一些意想不到的難題和疑惑被一個個的攻破，使我的課題得以順利地完全地達(dá)到了預(yù)期的目標(biāo)，并使論文最終得以順利地完成。 最后向在百忙之中評審本文的各位專家、老師表示衷心 的感謝！ 作者簡介： 姓 名：曹華娟 性別：女 出生年月： 1985 年 4月 民族：漢 Email: 第 26 頁 共 26 頁 聲 明 本論文的工作是 2020年 2月至 2020年 6月在成都信息工程學(xué)院網(wǎng)絡(luò)工程系完成的。文中除了特別加以標(biāo)注地方外，不包含他人已經(jīng)發(fā)表或撰寫過的研究成果，也不包含為獲得成都信息工程學(xué)院或其他教學(xué)機構(gòu)的學(xué)位或證書而使用過的材 料。除非另有說明，本文的工作是原始性工作。 關(guān)于學(xué)位論文使用權(quán)和研究成果知識產(chǎn)權(quán)的說明 本人完全了解成都信息工程學(xué)院有關(guān)保管使用學(xué)位論文的規(guī)定，其中包括： （ 1）學(xué)校有權(quán)保管并向有關(guān)部門遞交學(xué)位論文的原件與復(fù)印件。 （ 2）學(xué)?？梢圆捎糜坝?、縮印或其他復(fù)制方式保存學(xué)位論文。 （ 3）學(xué)?？梢詫W(xué)術(shù)交流為目的復(fù)制、贈送和交換學(xué)位論文。 （ 4）學(xué)?？稍试S學(xué)位論文被查閱或借閱。 （ 5）學(xué)?？梢怨紝W(xué)位論文的全部或部分內(nèi)容（保密學(xué)位論文在解密后遵守此規(guī)定）。 除非另有科研合同和其他法律文書的制約，本論文的科研成果屬于成都 信息工程學(xué)院。 特此聲明！ 作者簽名 : 年 月 日 小方框無邊眼鏡，臉上總是掛著微笑，有人稱呼他卓總，也有人稱呼他教授，真正親近的朋友，管他叫強巴。 卓姆強巴，藏族，四十二歲，天獅名犬馴養(yǎng)基地公司總裁，也是復(fù)旦大學(xué)生物系客座教授，主講世界名犬。強巴生長在一個叫達(dá)瓦奴措的 小村，那是深入藏原腹地、最接近無人區(qū)的地方，他的名字，原意是能戰(zhàn)勝大海的人。他沒有讓他的父母失望，如今已是擁有千萬資產(chǎn)的公司老總，也是著名大學(xué)的教授，可謂名利俱盛，讓他起家的資本，不是別的，是犬。 美國，賓夕法尼亞州。 “幾千年來，全世界所公認(rèn)的，體形最龐大，性格最兇猛的，叫獒。那是我們藏區(qū)特產(chǎn)，它們已經(jīng)存在幾千萬年了，約在兩千年前流傳到希臘，后到羅馬帝國，又由東歐的斯拉夫族人傳到歐洲各國，至今世界名犬的體內(nèi)還保留著藏獒的研究理論“隔代大遺傳”是否有關(guān)。 或許聽錯了。你說，你不去德國了 ?” 方新教授肯定地點頭，瑪瑞重復(fù)道：“教授，方教授 !你真的不去參加那個論壇了嗎 ?那可是你一直想?yún)⒓拥陌?!” 第 27 頁 共 26 頁 方新長長吐了口氣，和藹地對瑪瑞笑笑，拍拍她的肩膀，說道：“去吧，瑪瑞，電話號碼簿在書桌左邊臺燈的座下。” 瑪瑞滿腹狐疑，悻悻地去了，心里喃喃念叨著：“瘋了，教授一定是瘋了。默默研究了一輩子，誰會放棄可以證明價值的最高獎勵 ?到底是為什么 ?”她轉(zhuǎn)念心想，“那個高大的男人，肯定是魔鬼的化身 !” 方新教授剛剛轉(zhuǎn)過身來，就被卓木喜馬拉雅山脈的中部偏東南方向，可能越過國境線。”電腦上在氣象局 發(fā)來的橘紅色區(qū)域中又用更深的大紅色畫出一塊，從珠峰以北畫到錫金和尼泊爾境內(nèi)。方新一握拳，也忍不住激動道：“太好了 !” 只見電腦那頭的專家，打字回復(fù)調(diào)侃道：“老方，又要進(jìn)藏逮狗嗎 ?聽說上次你進(jìn)藏時，是把那話兒凍僵了才回來的。我一直想到上海來探望你，看看是不是真的?！? 方新教授笑著回復(fù)：“是腳指頭截去了，你老哥??”這時，機場已經(jīng)遙遙在望了。 方新收起電腦，喃喃道：“入藏后，就不能無線上網(wǎng)了，只是電腦里的很多資料很有用處。對了，飛機先飛成都嗎 ?” 卓木強微笑道：“不，我們直飛拉薩。” “哦 ?”方新疑惑道，“好像這個時段，沒有直飛拉薩的航班吧 ?” 卓木強道：“因為是我們要去拉薩，所以就有了去那里的直飛航班呢?！? 進(jìn)了機場，方新不由看了卓木強一眼，吸氣道：“軍用包機 !” 第 03 部分 第二個瘋子 第七回 第二個瘋子 上 卓木強看見方新有些驚訝，面色有些得意地解釋道：“嗯，拉薩來的，沒花多少錢。” 方新道：“可是，軍用包機不在拉薩機場降落，在旁邊有個專用的軍用機場，離城還有一段距離呢。” “什么 ?”這番輪到卓木強吃驚了，他道，“我??我不知道啊，以前沒包過 。我以為，它們都在拉薩機場起降呢?！边@是他為了討好導(dǎo)師，特意吩咐下人安排