04. februar 2005 - 11:50Der er
14 kommentarer og 2 løsninger
Hente brugernavn på en computer/lokalt netwærk.
Hej Eksperter!
Indledning: Jeg er igang med at lave et chatprogram/messenger til et Lokalt netværk. Chatten foregår på den måde at programmet sender en tekst til en .txt fil som ligger på et fællesdrev som alle brugere har adgang til og kan skrive på. Jeg har så sat en timer der opdaterer hvert sekund og henter teksten fra .txt filen. Det er meget enkelt, men virker glimrende efter hensigten :)
Så er mit spørgsmål så til jer: Da det er et lokalt netværk med mange forskellige brugere så synes jeg det kunne være smart hvis den bruger der er logget på computeren, åbner mit chatprogram, automatisk ville hedde sit brugernavn til computeren i mit chatprogram.
Som det ser ud nu så hedder alle brugere som standard "bruger", det synes jeg er kedeligt og upersonligt da alle der logger på mit chatprogram hedder bruger, der er dog mulighed for at ændre sit brugernavn, men det er jo ikke alle der gør det. Sådan ser en chatlog fra mit program f.eks ud: 14:45:56 Bruger: Hej 14:46:15 Bruger: Dav 14:46:36 Bruger: farvel det er jo ikke til at finde rundt i!!! Derfor er mit sprøgsmål til jer:
SPØRGSMÅL: Hvordan henter jeg den bruger der bruger computerens brugernavn ind i mit program?
Så det kunne se f.eks. så således ud: 14:45:56 JDS: Hej 14:46:15 QZY: Dav 14:46:36 JDS: farvel
I lang tid har samarbejdsbranchen fokuseret på at forbedre enhedsfunktioner – bedre kameraer, klarere lyd og smartere software. Men den virkelige forvandling handler ikke om funktioner.
Jeg kan ikke rigtigt få hentet usernamet ind i VB, det gider ikke virke....
Men artiklen som du sendte til mig er supergod :D Så den synes jeg du skal have points for, så hvis du lige vil give at svar så jeg kan acceptere det ;)
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31 Private Declare Function GetComputerName Lib "kernel32" _ Alias "GetComputerNameA" ( _ ByVal lpBuffer As String, _ nSize As Long) As Long
Public Function ComputerName() As String Dim dwLen As Long Dim strSpace As String dwLen = (MAX_COMPUTERNAME_LENGTH + 1) strSpace = Space$(dwLen) If GetComputerName(strSpace, dwLen) Then ComputerName = Left(strSpace, dwLen) End If End Function
Private Sub Form_Load() MsgBox ComputerName End Sub '-------------------------- Form1 --------------------------
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.
