constdefine.bas

用于局域网中的文件自动更新下载

Attribute VB_Name = "ConstDefine"
Option Explicit

'Public Const LOCAL_FOLDER           As String = "E:\Tools\Java\Tomcat 6.0\webapps\ROOT"
'Public Const LOCAL_FOLDER           As String = "C:\Java\Tomcat 6.0\webapps\ROOT"
Public Const LOCAL_FOLDER           As String = "C:\Documents and Settings\wuxud\Desktop\AutoUpdate"

Public Const BACKUP_FOLDER          As String = "Backup"
Public Const UPDATE_FOLDER          As String = "Update"
Public Const TEMP_FILE_NAME         As String = "temp.tmp"
Public Const COMMANDS_TAG           As String = "COMMANDS"
Public Const COMMAND_TAG            As String = "COMMAND"
Public Const FILE_ROOT_ELEMENT      As String = "FILES"
Public Const FILE_ELEMENT           As String = "FILE"
Public Const FILENAME_ELEMENT       As String = "FILENAME"
Public Const MODIFIEDDATE_ELEMENT   As String = "MODIFIEDDATE"
Public Const FILESIZE_ELEMENT       As String = "FILESIZE"

' server info
Public Const SERVER_ADDRESS         As String = "16.157.62.92"
Public Const HTTPSERVER_PORT        As String = "8080"
Public Const FTPSERVER_PORT         As String = "21"
Public Const COMMUNICATION_PORT     As String = "40001"
Public Const TRANSFER_PORT          As String = "40002"

'================================================================
' server to client
' get update file
Public Const COMMAND_GETUPDATEFILE  As String = "get updatefile"
Public Const COMMAND_GETPRODUCTINFO As String = "get productinfo"
Public Const COMMAND_GETAUTHINFO    As String = "get authinfo"

'================================================================
' client to server
Public Const COMMAND_GETUSERINFO    As String = "get userinfo"
Public Const COMMAND_GETORDERINFO   As String = "get orderinfo"
Public Const COMMAND_GETEVENTINFO   As String = "get eventinfo"