221.htm

VB的一些网络编程的例子,个人认为还不错。大家一起来研究一下.

<p>找出计算机上当前登录入网的用户  </p>
<p></p>
<p>　　有的程序员希望能够显示用户当前登录的用户名。这使得程序员可以识别当前企图执行某个操作的用户，也可以通知用户机器已被某个用户以外的用户名登录。如何使用 Windows 9x 的网络函数来完成此功能呢？</p>
<p></p>
<p>　　利用 Windows API 函数 WNetGetUser 可以确定当前登录的用户。在 WIN32 系统中（Windows 9x 和 Windows NT），此函数接受本地驱动器名，返回用户名及其大小（用户名缓冲区的大小）。</p>
<p></p>
<p>　　按照下列步骤实现一个例子程序。运行此例子程序，从菜单 NetWorks 中选择菜单项 User Names， 将弹出一个对话框，显示此机器上安装的驱动器。当从列表中选择一个驱动器后，文本域将改变为与此驱动 器相连接的用户名或字符串“None”。</p>
<p></p>
<p>　　实现例子程序的具体步骤如下：</p>
<p></p>
<p>　　1.在 Visual C++ 中，利用 AppWizard 创建新的项目文件，并命名此项目文件为 LD17.MAK．</p>
<p></p>
<p>　　2.进入 AppStudio 并创建新的对话框，在对话框中，添加标题分别为 Drive Ltter: 和 Network Name: 以及 User Name: 的三个文本域。添加一个组合框，风格设置为 Drop Down List。添加两个静态 文本域，标识符分别为：ID_NET_NAME 和 ID_NET_USER。</p>
<p></p>
<p>　　3.将对话框 ID 改为 ID_NETWORK_USER，并设置标题为 View Network Users，保存对话框。</p>
<p></p>
<p>　　4.进入 ClassWizard，选择按钮 Add Class。在名字域中键入名字 CNetworkUserDlg，基类 为 CDIALOG，对话框 ID 为 ID_NETWORK_USER。</p>
<p></p>
<p>　　5.在 ClassWizard 的下拉列表中选择 CNetworkUserDlg ,从消息列表中选择消息 WM_INITDIALOG, 点击按钮 Edit Code。</p>
<p></p>
<p>　　6.在 CNetworkUserDlg 的方法 OnInitDialog 中输入下列代码：</p>
<p></p>
<p>BOOL CNetworkUserDlg::OnInitDialog() </p>
<p>{</p>
<p>CDialog::OnInitDialog();</p>
<p>char buf[20];</p>
<p></p>
<p>CComboBox *combo=(CComboBox *)GetDlgItem(IDC_COMBO1);</p>
<p></p>
<p>for(int i=0;i<26;i++)</p>
<p>{ </p>
<p>sprintf(buf,"%c:\\",注释：A注释：+i);</p>
<p>WORD type="GetDriveType(buf);" </p>
<p>switch(type) </p>
<p>{ case DRIVE_FIXED: sprintf(buf,"%c:",注释：A注释：+i); combo->AddString(buf);</p>
<p>break;</p>
<p>case DRIVE_REMOTE:</p>
<p>sprintf(buf,"%c:",注释：A注释：+i);</p>
<p>combo->AddString(buf);</p>
<p>break;</p>
<p>case DRIVE_CDROM: </p>
<p>sprintf(buf,"%c:",注释：A注释：+i);</p>
<p>combo->AddString(buf);</p>
<p>break;</p>
<p>}</p>
<p>}</p>
<p>combo->SetCurSel(0);</p>
<p>OnDriveChange();</p>
<p></p>
<p>return TRUE; // return TRUE unless you set the focus to a control</p>
<p>} </p>
<p></p>
<p>　　7.在 ClassWizard 中，从对象 ID 列表中选择对象 IDC_COMBO1，选择命令 CBN_SELCHANGE。 点击按钮 Add Function，命名方法为 OnDriveChange。点击按钮 Edit Code，在 CNetworkUserDlg 的方法 OnDriveChange 中输入下列代码：</p>
<p></p>
<p>void CNetworkUserDlg::OnDriveChange() </p>
<p>{</p>
<p>　char drive_letter[20];</p>
<p>　char network_name[256];</p>
<p>　char user_name[256];</p>
<p>　unsigned long size=256; </p>
<p></p>
<p>　UpdateData();</p>
<p></p>
<p>　CComboBox *combo=(CComboBox *)GetDlgItem(IDC_COMBO1);</p>
<p>　int sel=combo->GetCurSel();</p>
<p></p>
<p>　combo->GetLBText(sel,drive_letter);</p>
<p></p>
<p>　if(WNetGetConnection(drive_letter,network_name,&size)==0)</p>
<p>　　GetDlgItem(ID_NET_NAME)->SetWindowText(network_name);</p>
<p>　else</p>
<p>　　GetDlgItem(ID_NET_NAME)->SetWindowText("Not network drive");</p>
<p></p>
<p>　　if(WNetGetUser(drive_letter,user_name,&size))</p>
<p>　　　GetDlgItem(ID_NET_USER)->SetWindowText(user_name);</p>
<p>　　else</p>
<p>　　　GetDlgItem(ID_NET_USER)->SetWindowText("None");</p>
<p>} </p>
<p></p>
<p></p>
<p>　　8.进入 AppStudio，在菜单 IDR_MAINFAME 中，添加新的菜单 Networks。在菜单 Networks 中， 添加菜单项 Get User Names，其 ID 为 ID_NETWORK_USERS。</p>
<p></p>
<p>　　9.进入 ClassWizard，从下拉列表中选择类 CMainFrame，从对象 ID 列表中选择对象 ID_NETWORK_USERS，从消息列表中选择消息 COMMAND。点击按钮 Add Function，函数命名为 OnNetworkUsers，点击按钮 Edit Code，在 CMainFrame 的方法 OnNetworkUsers 中输入下列代码：</p>
<p></p>
<p>void CMainFrame::OnNetworkUsers() </p>
<p>{</p>
<p>　CNetworkUserDlg dlg;</p>
<p></p>
<p>　dlg.DoModal();</p>
<p>} </p>
<p></p>
<p></p>
<p>　　10.在文件 MAINFRM.CPP 的顶部添加下列行：</p>
<p></p>
<p>　　　#include "NetworkUserDlg.h"</p>
<p></p>
<p>　　11.编译并运行此例子程序。</p>
<p></p>
<p>　　以上例子程序中的大部分代码是相当直接的。首先检查驱动器是否有效，如果是，将驱动器添加到组合框中。当用户从组合框中选择驱动器后，程序接着向网络软件查询此驱动器逻辑连接的网络名。最后，由于在同一台工作站上可以用多个用户名登录多个网络，所以向网络软件查询的是与驱动器相连接的用户名。</p>