【正文】 ”這是他為了討好導(dǎo)師，特意吩咐下人安排的，沒(méi)?！? “什么 ?”這番輪到卓木強(qiáng)吃驚了，他道，“我??我不知道啊，以前沒(méi)包過(guò) ?！? 進(jìn)了機(jī)場(chǎng)，方新不由看了卓木強(qiáng)一眼，吸氣道：“軍用包機(jī) !” 第 03 部分 第二個(gè)瘋子 第七回 第二個(gè)瘋子 上 卓木強(qiáng)看見(jiàn)方新有些驚訝，面色有些得意地解釋道：“嗯，拉薩來(lái)的，沒(méi)花多少錢。對(duì)了，飛機(jī)先飛成都嗎 ?” 卓木強(qiáng)微笑道：“不，我們直飛拉薩?！? 方新教授笑著回復(fù)：“是腳指頭截去了，你老哥??”這時(shí)，機(jī)場(chǎng)已經(jīng)遙遙在望了。方新一握拳，也忍不住激動(dòng)道：“太好了 !” 只見(jiàn)電腦那頭的專家，打字回復(fù)調(diào)侃道：“老方，又要進(jìn)藏逮狗嗎 ?聽(tīng)說(shuō)上次你進(jìn)藏時(shí)，是把那話兒凍僵了才回來(lái)的。默默研究了一輩子，誰(shuí)會(huì)放棄可以證明價(jià)值的最高獎(jiǎng)勵(lì) ?到底是為什么 ?”她轉(zhuǎn)念心想，“那個(gè)高大的男人，肯定是魔鬼的化身 !” 方新教授剛剛轉(zhuǎn)過(guò)身來(lái)，就被卓木喜馬拉雅山脈的中部偏東南方向，可能越過(guò)國(guó)境線。你說(shuō)，你不去德國(guó)了 ?” 方新教授肯定地點(diǎn)頭，瑪瑞重復(fù)道：“教授，方教授 !你真的不去參加那個(gè)論壇了嗎 ?那可是你一直想?yún)⒓拥陌?!” 第 27 頁(yè) 共 26 頁(yè) 方新長(zhǎng)長(zhǎng)吐了口氣，和藹地對(duì)瑪瑞笑笑，拍拍她的肩膀，說(shuō)道：“去吧，瑪瑞，電話號(hào)碼簿在書(shū)桌左邊臺(tái)燈的座下。那是我們藏區(qū)特產(chǎn)，它們已經(jīng)存在幾千萬(wàn)年了，約在兩千年前流傳到希臘，后到羅馬帝國(guó)，又由東歐的斯拉夫族人傳到歐洲各國(guó)，至今世界名犬的體內(nèi)還保留著藏獒的研究理論“隔代大遺傳”是否有關(guān)。 美國(guó)，賓夕法尼亞州。強(qiáng)巴生長(zhǎng)在一個(gè)叫達(dá)瓦奴措的 小村，那是深入藏原腹地、最接近無(wú)人區(qū)的地方，他的名字，原意是能戰(zhàn)勝大海的人。 特此聲明！ 作者簽名 : 年 月 日 小方框無(wú)邊眼鏡，臉上總是掛著微笑，有人稱呼他卓總，也有人稱呼他教授，真正親近的朋友，管他叫強(qiáng)巴。 （ 5）學(xué)?？梢怨紝W(xué)位論文的全部或部分內(nèi)容（保密學(xué)位論文在解密后遵守此規(guī)定）。 （ 3）學(xué)?？梢詫W(xué)術(shù)交流為目的復(fù)制、贈(zèng)送和交換學(xué)位論文。 關(guān)于學(xué)位論文使用權(quán)和研究成果知識(shí)產(chǎn)權(quán)的說(shuō)明 本人完全了解成都信息工程學(xué)院有關(guān)保管使用學(xué)位論文的規(guī)定，其中包括： （ 1）學(xué)校有權(quán)保管并向有關(guān)部門遞交學(xué)位論文的原件與復(fù)印件。文中除了特別加以標(biāo)注地方外，不包含他人已經(jīng)發(fā)表或撰寫過(guò)的研究成果，也不包含為獲得成都信息工程學(xué)院或其他教學(xué)機(jī)構(gòu)的學(xué)位或證書(shū)而使用過(guò)的材 料。在此向他們表示我最衷心的感謝！ 感謝我的同學(xué)在開(kāi)發(fā)過(guò)程中給予的幫助，正是因?yàn)樗麄兊膸椭?，使我遇到的一些意想不到的難題和疑惑被一個(gè)個(gè)的攻破，使我的課題得以順利地完全地達(dá)到了預(yù)期的目標(biāo)，并使論文最終得以順利地完成。 [7] 陳峰棋 .Visual basic網(wǎng)絡(luò)編程從入門到精通 [M].北京：中國(guó)鐵道出版社， 2020。 [5] 張青 .Visual basic函數(shù)實(shí)用手冊(cè) [M].北京：冶金工業(yè)出版社， 2020。 [3] 曹衍龍 .Visual basic [M].北京：人民郵電出版社， 2020。 參考文獻(xiàn) [1] 劉圣才 .Visual basic [M].北京：清華大學(xué)出版社， 2020。通過(guò)這次畢業(yè)設(shè)計(jì)，使我將所學(xué)的理論與實(shí)踐結(jié)合起來(lái)，并從中發(fā)現(xiàn)自己很多不足之處。 結(jié) 論 信息技術(shù)的發(fā)展，以及由此帶來(lái)的便利使得廣大用戶希望更高效、快捷地利用數(shù)字信息，所以大量的應(yīng)用工具應(yīng)運(yùn)而生。 各功能模塊逐 第 24 頁(yè) 共 26 頁(yè) 一實(shí)現(xiàn)后，將其生成可執(zhí)行文件，逐一運(yùn)行，均 能在 WindowsXP/2020 操作系統(tǒ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)各功能。設(shè)計(jì)后運(yùn)行的界面如圖所示： 圖 文件搜索界面 用戶輸入關(guān)鍵字，設(shè)置好搜索路徑、是否搜索子文件夾后，單擊‘運(yùn)行’按鈕，執(zhí)行搜索功能，若單擊‘退出’按鈕，則退出搜索功能。 第 22 頁(yè) 共 26 頁(yè) 搜索根目錄下的該類型文件，使用 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 界面實(shí)現(xiàn) 添加一個(gè)窗體，并按照下表設(shè)置窗體屬性 第 23 頁(yè) 共 26 頁(yè) 表 窗體屬性 取值 Name search Caption 文件搜索 該窗體首先添加 4 個(gè) label 控件， 1 個(gè) textbox 控件， text 屬性設(shè)置為空，用戶向其中輸入查詢關(guān)鍵字；再添加 1個(gè) Drive 控件，供用戶選擇搜索驅(qū)動(dòng)器；1個(gè) check 控件，供用戶選擇是否搜索子文件夾。如果沒(méi)有找 到 pathname，則會(huì)返回零長(zhǎng)度字符串 。其主要函數(shù)定義如下： （ 1） Dir 函數(shù) 返回一個(gè)表示文件名、目錄名或文件夾名稱的字符串，它必須與指定的模式或文件屬性、磁盤卷標(biāo)相匹配。 文件搜索詳細(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í)間。 1個(gè) mandbutton 控件。 字節(jié) /秒 = FormatNumber(.dwOutSpeed, 0) amp。 如果函數(shù)調(diào)用返回 true，表示可以抵達(dá)目的地；否則，表示不能抵達(dá)目的地，可調(diào)用函數(shù) GetLastError 來(lái)獲取相應(yīng)的信息的原因信息。其中主要的函數(shù)及結(jié)構(gòu)定義如下： （ 1） IsDestinationReachable 函數(shù) BOOL IsDestinationReachable( LPCSTR lpszDestionation, LPCSTR lpQOCInfo )； 第 20 頁(yè) 共 26 頁(yè) lpszDestination：一個(gè)指向表示目的地字符串的指針。程序主要使用 API 函數(shù) IsDestinationReachable 確定目的地址是否可達(dá)，并提供目的地址質(zhì)量 信息?？梢钥吹搅斜砜蛑幸蚜信e出了本地機(jī)的所有服務(wù)名稱及狀態(tài)信息。 1個(gè) mandbutton 控件 。 vbTab amp。 vbTab amp?？烧{(diào)用函數(shù) GetLastError來(lái)獲取詳細(xì)的錯(cuò)誤信息。 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ù)及結(jié)構(gòu)定義如下： （ 1）函數(shù) OpenSCManager SC_HANDLE OpenSCManager( LPCTSTR lpMachineName, ‘機(jī)器名地址 LPCTSTR lpDatabaseName, ‘?dāng)?shù)據(jù)庫(kù)名地址 DWORD dwDesireAccess ， ‘訪問(wèn)類型 , 本程序使用SC_MANAGER_ENUMERATE_SERVICE 類型，允許調(diào)用 EnumServicesStatus 函數(shù)來(lái)列舉數(shù)據(jù)庫(kù)中的服務(wù) ）； （ 2）函數(shù) EnumServicesStatus BOOL EnumServiceStatus( 第 17 頁(yè) 共 26 頁(yè) SC_HANDLE hSCManager, DWORD dwServiceType, DWORD dwServiceState, LPENUM_SERVICE_STATUS lpServices, ?? LPDWORD lpServicesReturned, LPDWORD lpResumeHandle )； hSCManager： SCM 數(shù)據(jù)庫(kù)的句柄。一旦獲得了數(shù)據(jù)庫(kù)的句柄，就可以調(diào)用該函數(shù)了），獲取的相關(guān)信息記錄在 ENUM_SERVICE_STATUS 結(jié)構(gòu)中，并由 SERVICE_STATUS 結(jié)構(gòu)返回服務(wù)的有關(guān)信息。 列舉本機(jī)服務(wù) 功能設(shè)計(jì) 這個(gè)窗體主要用來(lái)列舉本機(jī)在指定的服務(wù)控制管理器（ SCM:Service Control Manager）數(shù)據(jù)庫(kù)中的服務(wù)，返回每個(gè)服務(wù)的名稱和狀態(tài)信息。其定義如下： 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 detail Caption 網(wǎng)絡(luò)工作站及當(dāng)前用戶信息 該窗體首先添加一個(gè) ListBox 控件，然后在控件上添加 8個(gè) label 控件，其中 6 個(gè)對(duì)應(yīng)返回的工作站信息分別設(shè)置其 Caption 屬性，另一個(gè) L