VB.NET调用Window API经验总结

复制Imports System   Imports System.Text   Imports Microsoft.VisualBasic   Public Class Form3Class Form3   Declare Function GetUsername()Function GetUsername Lib "advapi32.dll" Alias _   "GetUserNameA" (ByVal lpbuffer As String, ByRef nSize As Integer) _   As Integer  

Private Sub Button3_Click()Sub Button3_Click(ByVal sender As System.Object, 

ByVal e As System.EventArgs) Handles Button3.Click   Dim RV As Integer   Dim UserName As String   Dim Buffer As String   Buffer = New String(CChar(" "), 25)   RV = GetUsername(Buffer, 25)   UserName = Microsoft.VisualBasic.Left(Buffer, InStr(Buffer, Chr(0)) - 1)   MsgBox(UserName)   End Sub   End Class   1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.