home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 7_2009-2012.ISO / data / zips / Remote_Des21926411122010.psc / RemoteDesktop / class / clsUser.cls < prev    next >
Text File  |  2010-11-12  |  2KB  |  78 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsUser"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = False
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = True
  14. '<CSCC>
  15. '--------------------------------------------------------------------------------
  16. '    Component  : clsUser
  17. '    Project    : NetRemote
  18. '    Author     : B2qid www.labsoft.web.id
  19. '    Description: {ParamList}
  20. '
  21. '    Modified   : 11/12/2010 2:52:18 PM
  22. '--------------------------------------------------------------------------------
  23. '</CSCC>
  24. Private m_StrClientIP As String
  25. Private m_VarClientPort As Variant
  26. Private m_BytClientsock As Byte
  27. Private m_LonClientID As Long
  28. Private m_Struser As String
  29. Private m_bAllowControl As Boolean
  30.  
  31. Public Property Get AllowControl() As Boolean
  32.     AllowControl = m_bAllowControl
  33. End Property
  34.  
  35. Public Property Let AllowControl(ByVal bValue As Boolean)
  36.     m_bAllowControl = bValue
  37. End Property
  38.  
  39. Public Property Get User() As String
  40.     User = m_Struser
  41. End Property
  42.  
  43. Public Property Let User(ByVal StrValue As String)
  44.     m_Struser = StrValue
  45. End Property
  46.  
  47. Public Property Get ClientID() As Long
  48.     ClientID = m_LonClientID
  49. End Property
  50.  
  51. Public Property Let ClientID(ByVal LonValue As Long)
  52.     m_LonClientID = LonValue
  53. End Property
  54.  
  55. Public Property Get Clientsock() As Byte
  56.     Clientsock = m_BytClientsock
  57. End Property
  58.  
  59. Public Property Let Clientsock(ByVal BytValue As Byte)
  60.     m_BytClientsock = BytValue
  61. End Property
  62.  
  63. Public Property Get ClientPort() As Variant
  64.     ClientPort = m_VarClientPort
  65. End Property
  66.  
  67. Public Property Let ClientPort(ByVal VarValue As Variant)
  68.     m_VarClientPort = VarValue
  69. End Property
  70.  
  71. Public Property Get ClientIP() As String
  72.     ClientIP = m_StrClientIP
  73. End Property
  74.  
  75. Public Property Let ClientIP(ByVal StrValue As String)
  76.     m_StrClientIP = StrValue
  77. End Property
  78.