Flashit, du er galt på den - koden indeholder asp-elementer som ikke kan benyttes i Visual Basic, men som skal omskrives for at fungere. Det kan dog også sagens ordnes, så prøv at skriv hvad koden skal gøre...
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load() Dim strTemp As String, strUserName As String 'Create a buffer strUserName = String(100, Chr$(0)) 'Get the username GetUserName strUserName, 100 'strip the rest of the buffer strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1) MsgBox "Hello " + strUserName End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.