如何获取任意一台电脑的用户名
解决方案 »
- 悬赏一个排序问题,不知道哪位有办法?看看就知道问题不简单,呵呵
- 不管是那天,得到系统日期,s=format(date,"yyyymmdd"),然后根据这个s值生成一个不重复的6位数字,请问该怎么弄?
- 上传下载文件
- 导出到EXCEL,如何将单元格设置为小数并且小数后显示两位并且负数能显示如-1234.56?
- 程序中要调用avi文件,vb打包后,该avi文件是否会被vb编译进exe文件中.
- 怎样在Windows任务栏中显示窗体图标?
- 一个表内多条件查询问题
- 靠~~~~水平高就很拽吗?瞧不起我这样的菜鸟?!
- 高分!!!
- 用vb泡MM,团结就是力量
- 好心人帮我编译一个资源文件,50分相送...
- vb picture控件在预览图片时,如何实现图片的放大与缩小?
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Sub Form_Load()
Dim st As String * 100
Dim pln As Long
pln = 99
GetUserName st, pln
MsgBox Left$(st, pln)
End Sub