www.pudn.com > AutoUpdate.rar > SERVERINFO.cls

VERSION 1.0 CLASS 
BEGIN 
  MultiUse = -1  'True 
  Persistable = 0  'NotPersistable 
  DataBindingBehavior = 0  'vbNone 
  DataSourceBehavior  = 0  'vbNone 
  MTSTransactionMode  = 0  'NotAnMTSObject 
END 
Attribute VB_Name = "SERVERINFO" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = True 
Attribute VB_PredeclaredId = False 
Attribute VB_Exposed = False 
Option Explicit 
 
Dim sServerAddressValue     As String 
Dim sHttpServerPortValue    As String 
Dim sFtpServerPortValue     As String 
Dim sCommunicationPortValue As String 
Dim sTransferPortValue      As String 
 
Public Property Get sServerAddress() As String 
    sServerAddress = sServerAddressValue 
End Property 
 
Public Property Let sServerAddress(ByVal sValue As String) 
    sServerAddressValue = sValue 
End Property 
 
Public Property Get sHttpServerPort() As String 
    sHttpServerPort = sHttpServerPortValue 
End Property 
 
Public Property Let sHttpServerPort(ByVal sValue As String) 
    sHttpServerPortValue = sValue 
End Property 
 
Public Property Get sFtpServerPort() As String 
    sFtpServerPort = sFtpServerPortValue 
End Property 
 
Public Property Let sFtpServerPort(ByVal sValue As String) 
    sFtpServerPortValue = sValue 
End Property 
 
Public Property Get sCommunicationPort() As String 
    sCommunicationPort = sCommunicationPortValue 
End Property 
 
Public Property Let sCommunicationPort(ByVal sValue As String) 
    sCommunicationPortValue = sValue 
End Property 
 
Public Property Get sTransferPort() As String 
    sTransferPort = sTransferPortValue 
End Property 
 
Public Property Let sTransferPort(ByVal sValue As String) 
    sTransferPortValue = sValue 
End Property