22. november 1999 - 22:57Der er
9 kommentarer og 1 løsning
Get User Name VB 5.0
Gymnasiets elever må ikke installere på PC'erne. Man kan kun komme til at anvende en maskine med sit user-id og password, der giver internetadgang m.v. gennem NT-server. Når der oprettes mapper kan NT fortælle om "ownership", men der er behov for at kunne logge hvilken bruger der er online i hvilket tidsrum. Jeg har forsøgt at få nedenstående til at opfange User-Id.
From: jcolman@ISA.CO.UK
Declare the following:
Declare Function WNetGetUser% Lib "USER" (ByVal Userid As String, BufSize As Integer)
Get User Functions:
Function GetUser () As String Dim ReturnCode As Integer, size As Integer, UserName As String
GetUser = "Not logged on to network" UserName = String$(255, 0) size = Len(UserName) ReturnCode = WNetGetUser%(UserName, size)
If ReturnCode = 0 Then While Asc(Mid$(UserName, size, 1)) = 0 size = size - 1 Wend GetUser = Left$(UserName, size) End If End Function
Example of its use:
label.Caption=GetUser()
Det giver fejl 453: Can't find DLL entry point WNetgetUser in User32 (jeg har selv ændret til user32 for win95, "user.dll" findes slet ikke.)
I et modul: Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function NetworkUserName() As String Dim lpBuff As String * 25 Dim lret As Long lret = GetUserName(lpBuff, 25) NetworkUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1) End Function
Programmet jeg har lavet fungerer fint, og det har virket. Eleverne holder sig i skindet med at installere spil etc. Er nogen interesseret i koden, giver jeg den gerne bort.
Jeg er meget interesseret. Det lyder meget spændende. Nu står der webster som afsender på dette indlæg, men mit egentlige "alias" er Jannick, kan bare ikke huske passwordet. Du må meget gerne sende kildekoden til Jannick@Chefen.dk
hehe, jeg kan faktisk ikke huske om jeg nogensinde fik kildekoden? Jeg tror det ikke, da jeg finder dit projekt meget spændende, og nok havde hæftet mig ved det så. Hvis du har mulighed for at sende den, vil jeg blive meget glad. Mail adressen er stadigvæk jannick@chefen.dk
ehrm, jørn, du burde nok lige checke computerne i 600-afdelingen! der ligger da utroligt mange spil på, så den med at "de holder sig i skindt" er nok mere noget med at skindet bedrager!
Synes godt om
Ny brugerNybegynder
Din løsning...
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.