敬业的IT人 互联网 佚名 2008-1-8 14:58:10

　　某本地设备通过某种方式与网络连接。通过FoxPro程序获取本地用户登陆网络时使用的用户名。这时候本地设备与网络之间的连接必须是存在的。

　　方案1：利用WNetGetUser函数
DECLARE INTEGER WNetGetUser IN Win32API STRING lpName, STRING @lpUserName,INTEGER @lpnLength
szUserName = SPACE(80)
dwResult = 0
cchBuff = 80
dwResult = WNetGetUser("", @szUserName, @cchBuff)
?substr(szUsername,1,atc(chr(0),szUsername)-1)
?cchBuff

　　方案2：利用SYS(0)函数
IF allt(substr(sys(0),rat("#",sys(0))+2)) > "1" and
!empty(allt(substr(sys(0),rat("#",sys(0))+2)))
gcUserName = allt(substr(sys(0),rat("#",sys(0))+2))
ELSE
gcUserName = "NotConnected"
ENDIF

　　事实上，在某些内置了网络功能的PC机（如运行Windows98的PC机）上，运行以上两个方案都将返回正在使用本机的用户名。

最新文章

Visual FoxPro9.0浏览修改数据图解[01-08]

用VFP批量打印信封[01-08]

在VFP 6.0利用API函数调用Windows格式化磁盘界..[01-08]

数据挖掘技术简介[01-08]

VFP编辑框中实现自动更正的方法[01-08]

随机函数与随机化算法应用实例[01-08]

相关文章

VFP 6.0网络编程应注意的问题[01-08]

通过编程运行拨号网络连接[01-08]

利用Foxpro在网络环境下开发数据库管理软件经验点滴[01-08]

优化 FoxPro 在网络上的性能[01-08]

怎样才能确保racle 9i网络的正常运行?[01-07]

MySQL数据库中关于网络安全的解决方案[01-07]