找出计算机上当前登录入网的用户

2016-02-19 17:17 2 1 收藏

下面图老师小编要向大家介绍下找出计算机上当前登录入网的用户,看起来复杂实则是简单的,掌握好技巧就OK,喜欢就赶紧收藏起来吧!

【 tulaoshi.com - 编程语言 】

  有的程序员希望能够显示用户当前登录的用户名。这使得程序员可以识别当前企图执行某个操作的用户,也可以通知用户机器已被某个用户以外的用户名登录。如何使用 Windows 9x 的网络函数来完成此功能呢?

  利用 Windows API 函数 WNetGetUser 可以确定当前登录的用户。在 WIN32 系统中(Windows 9x 和 Windows NT),此函数接受本地驱动器名,返回用户名及其大小(用户名缓冲区的大小)。

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/bianchengyuyan/)

  按照下列步骤实现一个例子程序。运行此例子程序,从菜单 NetWorks 中选择菜单项 User Names, 将弹出一个对话框,显示此机器上安装的驱动器。当从列表中选择一个驱动器后,文本域将改变为与此驱动 器相连接的用户名或字符串None。

  实现例子程序的具体步骤如下:

  1.在 Visual C++ 中,利用 AppWizard 创建新的项目文件,并命名此项目文件为 LD17.MAK.

  2.进入 AppStudio 并创建新的对话框,在对话框中,添加标题分别为 Drive Ltter: 和 Network Name: 以及 User Name: 的三个文本域。添加一个组合框,风格设置为 Drop Down List。添加两个静态 文本域,标识符分别为:ID_NET_NAME 和 ID_NET_USER。

  3.将对话框 ID 改为 ID_NETWORK_USER,并设置标题为 View Network Users,保存对话框。

  4.进入 ClassWizard,选择按钮 Add Class。在名字域中键入名字 CNetworkUserDlg,基类 为 CDIALOG,对话框 ID 为 ID_NETWORK_USER。

  5.在 ClassWizard 的下拉列表中选择 CNetworkUserDlg ,从消息列表中选择消息 WM_INITDIALOG, 点击按钮 Edit Code。

  6.在 CNetworkUserDlg 的方法 OnInitDialog 中输入下列代码:

  

BOOL CNetworkUserDlg::OnInitDialog()
{
CDialog::OnInitDialog();
char buf[20];
CComboBox *combo=(CComboBox *)GetDlgItem(IDC_COMBO1);
for(int i=0;i26;i++)
{
sprintf(buf,"%c:",'A'+i);
WORD type="GetDriveType(buf);"
switch(type)
{ case DRIVE_FIXED: sprintf(buf,"%c:",'A'+i); combo-AddString(buf);
break;
case DRIVE_REMOTE:
sprintf(buf,"%c:",'A'+i);
combo-AddString(buf);
break;
case DRIVE_CDROM:
sprintf(buf,"%c:",'A'+i);
combo-AddString(buf);
break;
}
}
combo-SetCurSel(0);
OnDriveChange();
return TRUE; // return TRUE unless you set the focus to a control
}

   7.在 ClassWizard 中,从对象 ID 列表中选择对象 IDC_COMBO1,选择命令 CBN_SELCHANGE。 点击按钮 Add Function,命名方法为 OnDriveChange。点击按钮 Edit Code,在 CNetworkUserDlg 的方法 OnDriveChange 中输入下列代码:

  

void CNetworkUserDlg::OnDriveChange()
{
 char drive_letter[20];
 char network_name[256];
 char user_name[256];
 unsigned long size=256;
 UpdateData();
 CComboBox *combo=(CComboBox *)GetDlgItem(IDC_COMBO1);
 int sel=combo-GetCurSel();
 combo-GetLBText(sel,drive_letter);
 if(WNetGetConnection(drive_letter,network_name,&size)==0)
  GetDlgItem(ID_NET_NAME)-SetWindowText(network_name);
 else
  GetDlgItem(ID_NET_NAME)-SetWindowText("Not network drive");
  if(WNetGetUser(drive_letter,user_name,&size))
   GetDlgItem(ID_NET_USER)-SetWindowText(user_name);
  else
   GetDlgItem(ID_NET_USER)-SetWindowText("None");
}

  8.进入 AppStudio,在菜单 IDR_MAINFAME 中,添加新的菜单 Networks。在菜单 Networks 中, 添加菜单项 Get User Names,其 ID 为 ID_NETWORK_USERS。

  9.进入 ClassWizard,从下拉列表中选择类 CMainFrame,从对象 ID 列表中选择对象 ID_NETWORK_USERS,从消息列表中选择消息 COMMAND。点击按钮 Add Function,函数命名为 OnNetworkUsers,点击按钮 Edit Code,在 CMainFrame 的方法 OnNetworkUsers 中输入下列代码:

  

void CMainFrame::OnNetworkUsers()
{
 CNetworkUserDlg dlg;
 dlg.DoModal();
}

  10.在文件 MAINFRM.CPP 的顶部添加下列行:

  #include "NetworkUserDlg.h"

  11.编译并运行此例子程序。

  以上例子程序中的大部分代码是相当直接的。首先检查驱动器是否有效,如果是,将驱动器添加到组合框中。当用户从组合框中选择驱动器后,程序接着向网络软件查询此驱动器逻辑连接的网络名。最后,由于在同一台工作站上可以用多个用户名登录多个网络,所以向网络软件查询的是与驱动器相连接的用户名。

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/bianchengyuyan/)

来源:https://www.tulaoshi.com/n/20160219/1614850.html

延伸阅读
Windows7系统创建无线临时(计算机到计算机)网络的方法   Windows 7系统如何连接到工作区 点击设置新的连接或网络。 选择连接到工作区,点击下一步。 点击使用我的Internet连接。 键入要连接的Internet地址后点击下一步。 输入用户名和密码后点击连接即可。 如果使用电话号码连接,则点...
标签: 浏览器
IE浏览器如何在计算机上完整的保存网页内容   在IE浏览器中,我们可以通过浏览器中的文件下拉菜单中的另存为来将当前的页面保存。保存的时候我们在文件名框中键入网页的文件名以后,在保存类型中我们可以选择网页,html,这样可以完整的保存网页。 另一种保存的类型就是网页,全部,这个选项就更强大了,可以将当前页面中...
标签: 电脑入门
1、巧用策略,记录上次登录时间 在多人共同使用同一台计算机的情况下,我们经常会碰到这样一种现象,那就是当自己临时离开计算机的这段时间内,有其他用户偷偷利用自己的账号登录系统,查看自己的操作记录以及其他访问痕迹。为了弄清楚究竟是谁在偷偷关注自己的操作隐私,我们可以利用 Windows Vista系统的组策略设置功能,来自动追踪显示上...
标签: 电脑入门
任何一个微处理器都要与一定数量的部件和外围设备连接,但如果将各部件和每一种外围设备都分别用一组线路与CPU直接连接,那么连线将会错综复杂,甚至难以实现。为了简化硬件电路设计、简化系统结构,常用一组线路,配置以适当的接口电路,与各部件和外围设备连接,这组共用的连接线路被称为总线。采用总线结构便于部件和设备的扩充,尤其制定了...
标签: 电脑入门
如何让某个EXCEL文件,限制在某台电脑上打开,而其它电脑不能打开该EXCEL文件。 这得借助VBA代码来实现。 只需要在工作薄打开的事件中,添加如下代码即可。 Private Sub Workbook_Open() Application.ScreenUpdating = False On Error GoTo 100 Workbooks.Open ThisWorkbook.Path & "/验证.XLS" ActiveWorkbook.Close Fal...

经验教程

347

收藏

14
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部