【正文】 NetWkstaGetInfo( LPWSTR servername, DWORD level, LPBYTE * bufptr)；servername：遠程服務器名字的 Unicode 字符串地址。本程序使用 WKSTA_INFO_102 結構。函數調用成功，則返回 NERR_SUCCESS，否則，返回錯誤信息。結構定義如下：Typedef struct_WKSTA_INFO_102( DWORD wki102_platform_id； ‘信息級別，用于返回平臺信息 LPWSTR wki102_putername； ‘一個 Unicode 字符串指針，是本地計算機名 LPWSTR wki102_langroup； ‘一個 Unicode 字符串指針，包含了計算機所屬域名稱 DWORD wki102_ver_major； ‘操作系統(tǒng)的主版本號 DWORD wki102_ver_minor； ‘操作系統(tǒng)的次版本號 LPWSTR wki102_lanroot； DWORD wki102_logged_on_users；‘登陸到本地計算機上的用戶數)WKSTA_INFO_102， *PWKSTA_INFO_102， *LPWKSTA_INFO_102；（3）NetWkstaUserEnum 函數該函數枚舉當前登陸到工作站的所有用戶信息，只有本地組的管理員可以在本機或遠程機上成功執(zhí)行該函數。Level：指定返回的信息的級別。Bufptr：函數返回時，它是指向返回的數據信息結構的指針。Totalentries：表明當前可重用位置的可枚舉的入口總數。（4）WKSTA_USER_INFO_0 結構該結構包含了指定工作站上的用戶名信息。添加完畢后的窗體如圖所示：圖 顯示工作站信息用戶單擊按鈕，獲取 WKSTA_INFO_102 結構中的工作站信息，調用函數GetWorkstationUserName()返回指定機器的當前注冊用戶名，列表框中將顯示出工作站的配置信息、用戶數目以及登陸用戶名。使用API 函數 EnumServicesStatus 枚舉指定的 SCM 數據庫中的服務，包括服務的名稱和狀態(tài)（為了成功調用函數 EnumServicesStatus，必須先調用函數OpenSCManager 打開服務管理數據庫。程序執(zhí)行時，首先調用EnumServicesStatus 函數獲取服務信息，然后判斷是否枚舉成功，并枚舉了所有服務信息，若完成，則調用相關函數將信息返回顯示在列表框中。由函數 OpenSCManager 返回。如果函數調用成功，則返回非零值；否則返回 0。(3)ENUM_SERVICE_STATUS 結構Typedef struct_ENUM_SERVICE_STATUS( LPTSTR lpServiceName； ‘指明了 SCM 數據庫中的服務的名稱 …… SERVICE_STATUS ServiceStatus； ‘指定一個 SERVICE_STATUS 結構，結構中包含了返回的 lpServiceName 指定的服務狀態(tài)信息)ENUM_SERVICE_STATUS, *LPENUM_SERVICE_STATUS；(4)SERVICE_STATUS 結構Typedef struct_SERVICE_STATUS( DWORD dwServiceType； ‘標明返回的服務類型 DWORD dwCurrentState； ‘指明服務的當前狀態(tài) ……)SERVICE_STATUS， *LPSERVICE_STATUS；窗體中使用函數 EnumSystemServices()枚舉系統(tǒng)中的用戶：Private function EnumSystemServices(ct1 as control)as long……If EnumServicesStatus(hSCManager, SERVICE_WIN32, SERVICE_STATE_ALL, pntr(0), cbBuffSize, cbRequired, dwReturned, hEnumResume) Then‘從 pntr()數組中提取所需的信息 With List1 Clear For i = 0 To dwReturned 1 sDispName = GetStrFromPtrA(ByVal pntr(i).lpDisplayName) sSvcName = GetStrFromPtrA(ByVal pntr(i).lpServiceName) dwState = pntr(i). .AddItem sDispName amp。 sSvcName amp。 GetServiceState(dwState) Next End With …… EnumSystemServices = dwReturned ‘返回服務的數量End Function以下是獲取服務狀態(tài)的函數：Private Function GetServiceState(dwState As Long) As String Select Case dwState Case SERVICE_STOPPED: GetServiceState = 停止 Case SERVICE_START_PENDING: GetServiceState = 啟動期間 …… Case SERVICE_PAUSED: GetServiceState = 暫停 Case Else: GetServiceState = End SelectEnd Function 界面實現(xiàn)添加一個窗體，并按照下表設置窗體的屬性表 列舉本機服務窗體設置表窗體屬性 取值Name serviceCaption 本機服務該窗體首先添加一個 Listbox 控件，然后添加 3 個 label 控件，對應返回的工作站信息分別設置其 Caption 屬性。設置后運行的界面如下所示：圖 列舉本機服務當用戶單擊按鈕，調用函數 EnumSystemServices(),實現(xiàn)對本地主機上的所有服務的枚舉功能。 目的地是否可達 功能設計這個窗體主要用來確定能否到達指定的目的地，并提供目的地的連接質量(QOC：Quality of Connection)信息，包括接收數據速度，發(fā)送數據速度等。此函數只使用于 TCP/IP 連接，用戶在 Combo1 控件中輸入目的地址后，目的地址以字符串形式傳遞給本函數，其中的參數 lpQOCInfo則給出包含接收 QOC 信息的結構 QOCINFO 的地址，獲取其中信息，顯示在相應的文本框中。lpQOCInfo：指向 QOCINFO 結構的指針，該結構用于接收連接質量信息。（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é)/秒 = tmpEnd With 界面實現(xiàn)添加一個窗體，并按照下表設置窗體的屬性表 測試目的地可達窗體設置表窗體屬性 取值Name destinationCaption 目的地是否可達該窗體首先添加一個 Combobox 控件(將 textbox 控件和 listbox 控件的特性結合在一起，既可以在控件的文本框部分輸入信息，也可以在控件的列表框部分選擇一項)，在代碼部分向其中添加幾個地址；然后添加 3 個 text 控件，text 屬性均設為空，等待接收數據。設置后運行的界面如圖所示：圖 測試目的地是否可達界面用戶單擊組合框后，選擇其中的元素，文本框中的信息全部清空，準備接收下一個信息，單擊按鈕后，調用 API 函數判斷能否抵達組合框中的選定地址，將結果顯示在文本框中。窗體中添加一個搜索子文件夾的 check 控件，若用戶選擇搜索子文件夾，則調用搜索子文件夾的函數遞歸調用搜索各個子文件夾。Dir[ (pathname[,attributes]) ]pathname:可選參數，用來指定文件名的字符串表達式，可能包含目錄或文件夾以及驅動器。attributes：可選參數，常數或數值表達式，其總和用來指定文件屬性，如果省略，則會返回匹配 pathname，但不包含屬性的文件。添加 2 個 mandbutton 控件，caption 屬性分別設置為‘運行’ 、 ‘退出’ ；再添加一個 ListView 控件，用于顯示搜索的結果，添加時將其 Visible 屬性設置為 False，當用戶單擊‘運行’ ，執(zhí)行搜索功能時，該屬性設置為可見，顯示相應結果。4 測試(1) 模塊測試在 VB 開發(fā)環(huán)境中，各功能模塊代碼輸入完成后，針對預先的設想，為檢查各功能的完備性和可操作性，以便及時進行更改和完善。(2) 系統(tǒng)測試系統(tǒng)測試是針對整個系統(tǒng)進行的一系列整體、有效性的測試。基本實現(xiàn)了預期的功能，目前試運行良好。在開發(fā)過程中，由于初接觸 VB，以及對網絡編程等知識的不熟悉，使得開發(fā)工作遇到了不少問題，但最終通過查閱資料以及老師和同學的幫助一一解決了，基本上實現(xiàn)了預期的效果，實現(xiàn)功能包括獲取主機名和 IP 地址、獲取物理地址、顯示計算機用戶信息、列舉本機服務，以及簡易的文件搜索。例如對計算機的注冊表等管理功能沒有進行設計開發(fā)，今后會在以后的學習進一步進行開發(fā)完善本系統(tǒng)。[2] basic 網絡編程事例教程[M].北京：北京希望電子出版社，2022。[4] basic 編程實例大制作[M].北京：冶金工業(yè)出版社，2022。[6] basic 程序設計教程[M].北京：人民郵電出版社，2022。致 謝本文是在蔣毅老師和韓桂華老師的熱情關心和指導下完成的，他們淵博的知識和嚴謹的治學作風使我受益匪淺，對順利完成本課題起到了極大的作用。最后向在百忙之中評審本文的各位專家、老師表示衷心的感謝！作者簡介：姓 名：曹華娟 性別：女出生年月：1985 年 4 月 民族：漢 Email:聲 明本論文的工作是 2022 年 2 月至 2022 年 6 月在成都信息工程學院網絡工程系完成的。除非另有說明，本文的工作是原始性工作。（2）學?？梢圆捎糜坝?、縮印或其他復制方式保存學位論文。（4）學?？稍试S學位論文被查閱或借閱。除非另有科研合同和其他法律文書的制約，本論文的科研成果屬于成都信息工程學