Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
'Hier die benötigten API-Deklarationen
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
'Die Prozedur ermittelt den angemeldeten
'Benutzernamen
Public Function GetBenutzer() As String
Dim UserName As String
Dim Result As Long
UserName = Space$(256)
Result = GetUserName(UserName, Len(UserName))
If InStr(UserName, Chr$(0)) > 0 Then _
UserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1)
GetBenutzer = UserName
End Function