🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: be.comp.programming
Article #13599

RE: vb naam gebruiker

#13599
From: Pino Cooreman
Date: Sat, 16 Jun 2001 15:42
17 lines
1346 bytes
hier volgt de code om de naam van de ingelogde gebruiker op te halen:

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" 
(ByVal lpBuffer As String, nSize As Long) As Long

Dim strNaam As String

Private Sub Form_Click()
    'maakt een buffer
    strUserName = String(100, Chr$(0))
    'haalt de naam op 
    GetUserName strUserName, 100
    'plaatst hem op het formulier
    Form1.Caption = strUserName
End Sub

Pino
Technical Details
Message-ID: <Xns90C2B47C3861Fpi@195.130.132.65>
Path: arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!sn-xit-02!supernews.com!newsfeed.direct.ca!look.ca!newsfeed.icl.net!dispose.news.demon.net!demon!skynet.be!newsfeeds.belnet.be!news.belnet.be!afrodite.telenet-ops.be!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,e8881bb21e5b4893,start
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2001-06-16 08:42:08 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!newsfeed.google.com!sn-xit-02!supernews.com!newsfeed.direct.ca!look.ca!newsfeed.icl.net!dispose.news.demon.net!demon!skynet.be!newsfeeds.belnet.be!news.belnet.be!afrodite.telenet-ops.be!not-for-mail
Newsgroups: be.comp.programming
Subject: RE: vb naam gebruiker
From: pinocooreman@hotmail.moc (Pino Cooreman)
Message-ID: <Xns90C2B47C3861Fpi@195.130.132.65>
User-Agent: Xnews/4.05.11
Lines: 17
Date: Sat, 16 Jun 2001 15:42:00 GMT
NNTP-Posting-Host: 213.224.2.242
X-Complaints-To: abuse@pandora.be
X-Trace: afrodite.telenet-ops.be 992706120 213.224.2.242 (Sat, 16 Jun 2001 17:42:00 MET DST)
NNTP-Posting-Date: Sat, 16 Jun 2001 17:42:00 MET DST
Organization: Telenet Internet