⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 150.htm

📁 VB的一些网络编程的例子,个人认为还不错。大家一起来研究一下.
💻 HTM
字号:
<p>得到登入windows 的人的id </p>
<p></p>
<p></p>
<p> </p>
<p></p>
<p>Private Declare Function GetUserName Lib "advapi32.dll" Alias _</p>
<p>        "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long</p>
<p></p>
<p>Private Sub Form_Load()</p>
<p>Dim aa As Long</p>
<p>Dim len5 As Long</p>
<p>Dim usern As String</p>
<p>len5 = 256</p>
<p>usern = String(255, 0)</p>
<p>aa = GetUserName(usern, len5)</p>
<p>usern = Left(usern, InStr(1, usern, Chr(0)) - 1)</p>
<p>Debug.Print usern</p>
<p>End Sub</p>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -