Secure acces to .dvb programs??
Declare Function Get_User_Name Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function GetUserName() As String
Dim lpBuff As String * 25
Get_User_Name lpBuff, 25
GetUserName = left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Function
then put in
if not ucase(username) = "BOB" then exit sub
so only people you know can run your code.
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function GetUserName() As String
Dim lpBuff As String * 25
Get_User_Name lpBuff, 25
GetUserName = left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Function
then put in
if not ucase(username) = "BOB" then exit sub
so only people you know can run your code.
---------------------------
(defun botsbuildbots() (botsbuildbots))
(defun botsbuildbots() (botsbuildbots))