windows系統(tǒng)輔助管理程序設計與開發(fā)—計算機畢業(yè)設計論文-資料下載頁

　　

【正文】 暫停 Case Else: GetServiceState = End SelectEnd Function 界面實現添加一個窗體，并按照下表設置窗體的屬性表 列舉本機服務窗體設置表窗體屬性 取值Name serviceCaption 本機服務該窗體首先添加一個 Listbox 控件，然后添加 3 個 label 控件，對應返回的工作站信息分別設置其 Caption 屬性。1 個 mandbutton 控件。設置后運行的界面如下所示：圖 列舉本機服務當用戶單擊按鈕，調用函數 EnumSystemServices(),實現對本地主機上的所有服務的枚舉功能?？梢钥吹搅斜砜蛑幸蚜信e出了本地機的所有服務名稱及狀態(tài)信息。 目的地是否可達 功能設計這個窗體主要用來確定能否到達指定的目的地，并提供目的地的連接質量(QOC：Quality of Connection)信息，包括接收數據速度，發(fā)送數據速度等。程序主要使用 API 函數 IsDestinationReachable 確定目的地址是否可達，并提供目的地址質量信息。此函數只使用于 TCP/IP 連接，用戶在 Combo1 控件中輸入目的地址后，目的地址以字符串形式傳遞給本函數，其中的參數 lpQOCInfo則給出包含接收 QOC 信息的結構 QOCINFO 的地址，獲取其中信息，顯示在相應的文本框中。其中主要的函數及結構定義如下：（1）IsDestinationReachable 函數BOOL IsDestinationReachable( LPCSTR lpszDestionation, LPCSTR lpQOCInfo)；lpszDestination：一個指向表示目的地字符串的指針。lpQOCInfo：指向 QOCINFO 結構的指針，該結構用于接收連接質量信息。如果函數調用返回 true，表示可以抵達目的地；否則，表示不能抵達目的地，可調用函數 GetLastError 來獲取相應的信息的原因信息。（2）QOCINFO 結構Typedef struct tagQOCINFO{ DWORD dwSize； DWORD dwFlags； ‘有效的網絡連接類型 DWORD dwInSpeed； ‘從目的地返回的數據的接收速度，單位是字節(jié)/秒 DWORD dwOutSpeed； ‘發(fā)送到目的地的數據的發(fā)送速度，單位是字節(jié)/秒}QOCINFO， *LPQOCINFO；窗體中響應按鈕單擊事件，調用 API 函數 IsDestinationReachable()，并返回連接質量： result = IsDestinationReachable((), qoc) With qoc Select Case .dwFlags Case NETWORK_ALIVE_LAN: tmp = 有一個或多個 LAN 網卡 Case NETWORK_ALIVE_WAN: tmp = 有一個或多個 RAS 連接 Case Else End Select = FormatNumber(.dwInSpeed, 0) amp。 字節(jié)/秒 = FormatNumber(.dwOutSpeed, 0) amp。 字節(jié)/秒 = tmpEnd With 界面實現添加一個窗體，并按照下表設置窗體的屬性表 測試目的地可達窗體設置表窗體屬性 取值Name destinationCaption 目的地是否可達該窗體首先添加一個 Combobox 控件(將 textbox 控件和 listbox 控件的特性結合在一起，既可以在控件的文本框部分輸入信息，也可以在控件的列表框部分選擇一項)，在代碼部分向其中添加幾個地址；然后添加 3 個 text 控件，text 屬性均設為空，等待接收數據。1 個 mandbutton 控件。設置后運行的界面如圖所示：圖 測試目的地是否可達界面用戶單擊組合框后，選擇其中的元素，文本框中的信息全部清空，準備接收下一個信息，單擊按鈕后，調用 API 函數判斷能否抵達組合框中的選定地址，將結果顯示在文本框中。 文件搜索詳細設計 功能設計這個窗體主要實現對輸入關鍵字相匹配的文件的查找，用戶在關鍵字文本框中輸入要查找文件的關鍵字，選擇要搜索的驅動，在該驅動下查找，程序中加如代碼判斷關鍵字里是否含有*，若不含，則加上，然后使用 Dir 函數搜索根目錄中的符合搜索條件的文件，并在 ListView 控件中顯示搜索到的文件的名稱、路徑、文件大小和修改時間。窗體中添加一個搜索子文件夾的 check 控件，若用戶選擇搜索子文件夾，則調用搜索子文件夾的函數遞歸調用搜索各個子文件夾。其主要函數定義如下：（1）Dir 函數返回一個表示文件名、目錄名或文件夾名稱的字符串，它必須與指定的模式或文件屬性、磁盤卷標相匹配。Dir[ (pathname[,attributes]) ]pathname:可選參數，用來指定文件名的字符串表達式，可能包含目錄或文件夾以及驅動器。如果沒有找到 pathname，則會返回零長度字符串。attributes：可選參數，常數或數值表達式，其總和用來指定文件屬性，如果省略，則會返回匹配 pathname，但不包含屬性的文件。搜索根目錄下的該類型文件，使用 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 控件，供用戶選擇是否搜索子文件夾。添加 2 個 mandbutton 控件，caption 屬性分別設置為‘運行’ 、 ‘退出’ ；再添加一個 ListView 控件，用于顯示搜索的結果，添加時將其 Visible 屬性設置為 False，當用戶單擊‘運行’ ，執(zhí)行搜索功能時，該屬性設置為可見，顯示相應結果。設計后運行的界面如圖所示：圖 文件搜索界面用戶輸入關鍵字，設置好搜索路徑、是否搜索子文件夾后，單擊‘運行’按鈕，執(zhí)行搜索功能，若單擊‘退出’按鈕，則退出搜索功能。4 測試(1) 模塊測試在 VB 開發(fā)環(huán)境中，各功能模塊代碼輸入完成后，針對預先的設想，為檢查各功能的完備性和可操作性，以便及時進行更改和完善。經過編譯調試，測試出其中變量、函數書寫、合法性等錯誤，過程、事件功能實現代碼不完善等錯誤，逐一解決后，成功調用相應函數，實現各功能。(2) 系統(tǒng)測試系統(tǒng)測試是針對整個系統(tǒng)進行的一系列整體、有效性的測試。各功能模塊逐一實現后，將其生成可執(zhí)行文件，逐一運行，均能在 WindowsXP/2022 操作系統(tǒng)上正常運行。基本實現了預期的功能，目前試運行良好。結 論信息技術的發(fā)展，以及由此帶來的便利使得廣大用戶希望更高效、快捷地利用數字信息，所以大量的應用工具應運而生。在開發(fā)過程中，由于初接觸 VB，以及對網絡編程等知識的不熟悉，使得開發(fā)工作遇到了不少問題，但最終通過查閱資料以及老師和同學的幫助一一解決了，基本上實現了預期的效果，實現功能包括獲取主機名和 IP 地址、獲取物理地址、顯示計算機用戶信息、列舉本機服務，以及簡易的文件搜索。通過這次畢業(yè)設計，使我將所學的理論與實踐結合起來，并從中發(fā)現自己很多不足之處。例如對計算機的注冊表等管理功能沒有進行設計開發(fā)，今后會在以后的學習進一步進行開發(fā)完善本系統(tǒng)。參考文獻[1] basic 程序設計導學[M].北京：清華大學出版社，2022。[2] basic 網絡編程事例教程[M].北京：北京希望電子出版社，2022。[3] basic 系統(tǒng)開發(fā)事例精粹[M].北京：人民郵電出版社，2022。[4] basic 編程實例大制作[M].北京：冶金工業(yè)出版社，2022。[5] basic 函數實用手冊[M].北京：冶金工業(yè)出版社，2022。[6] basic 程序設計教程[M].北京：人民郵電出版社，2022。[7] basic 網絡編程從入門到精通[M].北京：中國鐵道出版社，2022。致 謝本文是在蔣毅老師和韓桂華老師的熱情關心和指導下完成的，他們淵博的知識和嚴謹的治學作風使我受益匪淺，對順利完成本課題起到了極大的作用。在此向他們表示我最衷心的感謝！感謝我的同學在開發(fā)過程中給予的幫助，正是因為他們的幫助，使我遇到的一些意想不到的難題和疑惑被一個個的攻破，使我的課題得以順利地完全地達到了預期的目標，并使論文最終得以順利地完成。最后向在百忙之中評審本文的各位專家、老師表示衷心的感謝！作者簡介：姓 名：曹華娟 性別：女出生年月：1985 年 4 月 民族：漢 Email:聲 明本論文的工作是 2022 年 2 月至 2022 年 6 月在成都信息工程學院網絡工程系完成的。文中除了特別加以標注地方外，不包含他人已經發(fā)表或撰寫過的研究成果，也不包含為獲得成都信息工程學院或其他教學機構的學位或證書而使用過的材料。除非另有說明，本文的工作是原始性工作。關于學位論文使用權和研究成果知識產權的說明本人完全了解成都信息工程學院有關保管使用學位論文的規(guī)定，其中包括：（1）學校有權保管并向有關部門遞交學位論文的原件與復印件。（2）學?？梢圆捎糜坝　⒖s印或其他復制方式保存學位論文。（3）學校可以學術交流為目的復制、贈送和交換學位論文。（4）學?？稍试S學位論文被查閱或借閱。（5）學校可以公布學位論文的全部或部分內容（保密學位論文在解密后遵守此規(guī)定） 。除非另有科研合同和其他法律文書的制約，本論文的科研成果屬于成都信息工程學院。特此聲明！ 作者簽名: 年 月 日