modconfiguration.bas

用VB写的一个代理服务器程序.rar复件 用VB写的一个代理服务器程序.rar

Attribute VB_Name = "modConfiguration"
Option Explicit

Public LocalIP As String

Public Const ConfigFileName = "PPS.INI"
Public Const ConfigSectionName = "Configuration"

Public Const vbTransparant = &H8000000F
Public Const C_USER_AGENT_IE5 = "Mozilla/4.0 (compatible; MSIE 5.5; Windows 98; Win 9x 4.90)"
Public Const C_USER_AGENT_PPS = "Personal Proxy Server"
Public Const C_PERSONAL_PROXY = "Tristan's Personal Proxy Server"

Public UserAgent As String
Public PersonalProxyName As String
Public LocalComputerName As String

Public MaximumConnection As Long
Public ListeningPort As Long

Public UseProxy As Boolean
Public netProxy As CProxy

Public UseAuthentication As Boolean
Public LocalOnly As Boolean

Public ChildOpen As Boolean
Public ProxySet As Boolean

Public UserOpen As Boolean
Public LoginOpen As Boolean
Public LoginSet As Boolean

Public Filter_Reload As Boolean
Public Filter_Disable_Cookie As Boolean
Public Filter_Hide_Server As Boolean
Public Filter_Hide_Proxy As Boolean
Public Filter_Hide_UserAgent As Boolean

Public Sub LoadConfigurationScreen(ParentForm As Form, ProxySetting As CProxy)
    '根据配置信息更新系统界面
    ChildOpen = True
    ProxySet = False
    ParentForm.Enabled = False
    With ProxySetting
        frmConfiguration.OpenCommunication _
                            ParentForm, 0, _
                            IIf(UseProxy, vbChecked, vbUnchecked), _
                            .Server, _
                            .Port, _
                            MaximumConnection, _
                            ListeningPort, _
                            IIf(Filter_Reload, vbChecked, vbUnchecked), _
                            IIf(Filter_Disable_Cookie, vbChecked, vbUnchecked), _
                            IIf(Filter_Hide_Server, vbChecked, vbUnchecked), _
                            IIf(Filter_Hide_Proxy, vbChecked, vbUnchecked), _
                            IIf(Filter_Hide_UserAgent, vbChecked, vbUnchecked), _
                            PersonalProxyName, _
                            LocalComputerName, _
                            UserAgent, _
                            IIf(UseAuthentication, vbChecked, vbUnchecked), _
                            IIf(LocalOnly, vbChecked, vbUnchecked)

        While ChildOpen
            DoEvents
        Wend
        If ProxySet Then
            '是否使用代理服务器
            If frmConfiguration.chkUseProxy = vbChecked Then
                UseProxy = True
                ProxySetting.Server = frmConfiguration.txtProxySetting(0).Text
                ProxySetting.Port = Val(frmConfiguration.txtProxySetting(1).Text)
            Else
                UseProxy = False
                ProxySetting.Server = ""
                ProxySetting.Port = 0
            End If
            '最大连接数
            MaximumConnection = Val(frmConfiguration.txtProxySetting(5))
            '代理端口
            ListeningPort = Val(frmConfiguration.txtProxySetting(6))
            If frmConfiguration.chkConfig(0) = vbChecked Then
                Filter_Reload = True
            Else
                Filter_Reload = False
            End If
            '是否使用Cookie
            If frmConfiguration.chkConfig(1) = vbChecked Then
                Filter_Disable_Cookie = True
            Else
                Filter_Disable_Cookie = False
            End If
            If frmConfiguration.chkConfig(2) = vbChecked Then
                Filter_Hide_Server = True
                PersonalProxyName = frmConfiguration.txtProxySetting(7)
            Else
                Filter_Hide_Server = False
            End If
            If frmConfiguration.chkConfig(3) = vbChecked Then
                Filter_Hide_Proxy = True
                LocalComputerName = frmConfiguration.txtProxySetting(8)
            Else
                Filter_Hide_Proxy = False
            End If
            If frmConfiguration.chkConfig(4) = vbChecked Then
                Filter_Hide_UserAgent = True
                UserAgent = frmConfiguration.txtProxySetting(9)
            Else
                Filter_Hide_UserAgent = False
            End If
            '是否需要用户验证
            If frmConfiguration.chkConfig(5) = vbChecked Then
                UseAuthentication = True
            Else
                UseAuthentication = False
            End If
            If frmConfiguration.chkConfig(6) = vbChecked Then
                LocalOnly = True
            Else
                LocalOnly = False
            End If
            SaveProxyConfiguration
        End If
    End With
    Unload frmConfiguration
    ParentForm.Enabled = True
End Sub

Public Sub SaveProxyConfiguration()
    '保存代理服务器配置信息
    WriteInitString ConfigSectionName, "MaximumConnection", _
                    CStr(MaximumConnection), _
                    App.Path & "\" & ConfigFileName
    WriteInitString ConfigSectionName, "ListeningPort", _
                    CStr(ListeningPort), _
                    App.Path & "\" & ConfigFileName
    WriteInitString ConfigSectionName, "LocalHostName", _
                    LocalComputerName, _
                    App.Path & "\" & ConfigFileName
    WriteInitString ConfigSectionName, "UserAgent", _
                    UserAgent, App.Path & "\" & ConfigFileName
    WriteInitString ConfigSectionName, "PersonalProxyName", _
                    PersonalProxyName, _
                    App.Path & "\" & ConfigFileName
    WriteInitString ConfigSectionName, "ForceReload", _
                    CStr(CInt(Filter_Reload)), _
                    App.Path & "\" & ConfigFileName
    WriteInitString ConfigSectionName, "DisableCookie", _
                    CStr(CInt(Filter_Disable_Cookie)), _
                    App.Path & "\" & ConfigFileName
    WriteInitString ConfigSectionName, "HideServer", _
                    CStr(CInt(Filter_Hide_Server)), _
                    App.Path & "\" & ConfigFileName
    WriteInitString ConfigSectionName, "HideProxy", _
                    CStr(CInt(Filter_Hide_Proxy)), _
                    App.Path & "\" & ConfigFileName
    WriteInitString ConfigSectionName, "HideUserAgent", _
                    CStr(CInt(Filter_Hide_UserAgent)), _
                    App.Path & "\" & ConfigFileName
    WriteInitString ConfigSectionName, "UseProxy", _
                    CStr(CInt(UseProxy)), _
                    App.Path & "\" & ConfigFileName
    WriteInitString ConfigSectionName, "ProxyServer", _
                    netProxy.Server, App.Path & "\" & ConfigFileName
    WriteInitString ConfigSectionName, "ProxyPort", _
                    CStr(netProxy.Port), App.Path & "\" & ConfigFileName
    WriteInitString ConfigSectionName, "UseAuthentication", _
                    CStr(CInt(UseAuthentication)), _
                    App.Path & "\" & ConfigFileName
    WriteInitString ConfigSectionName, "LocalOnly", _
                    CStr(CInt(LocalOnly)), App.Path & "\" & ConfigFileName
End Sub

Public Sub LoadProxyConfiguration()
    '从配置文件中读取配置信息
    Dim tmpLong As Long, tmpString As String

    If FileLen(App.Path & "\" & ConfigFileName) = 0 Then
        LoadDefaultConfiguration
    End If
    tmpLong = Val(GetInitString(ConfigSectionName, _
            "MaximumConnection", App.Path & "\" & ConfigFileName))
    MaximumConnection = tmpLong
    tmpLong = Val(GetInitString(ConfigSectionName, _
            "ListeningPort", App.Path & "\" & ConfigFileName))
    ListeningPort = tmpLong
    tmpString = GetInitString(ConfigSectionName, _
            "LocalHostName", App.Path & "\" & ConfigFileName)
    If tmpString <> "" Then LocalComputerName = tmpString
    tmpString = GetInitString(ConfigSectionName, _
            "UserAgent", App.Path & "\" & ConfigFileName)
    If tmpString <> "" Then UserAgent = tmpString
    tmpString = GetInitString(ConfigSectionName, _
            "PersonalProxyName", App.Path & "\" & ConfigFileName)
    If tmpString <> "" Then PersonalProxyName = tmpString
    tmpLong = Val(GetInitString(ConfigSectionName, _
            "ForceReload", App.Path & "\" & ConfigFileName))
    Filter_Reload = tmpLong
    tmpLong = Val(GetInitString(ConfigSectionName, _
            "DisableCookie", App.Path & "\" & ConfigFileName))
    Filter_Disable_Cookie = tmpLong
    tmpLong = Val(GetInitString(ConfigSectionName, _
            "HideServer", App.Path & "\" & ConfigFileName))
    Filter_Hide_Server = tmpLong
    tmpLong = Val(GetInitString(ConfigSectionName, _
            "HideProxy", App.Path & "\" & ConfigFileName))
    Filter_Hide_Proxy = tmpLong
    tmpLong = Val(GetInitString(ConfigSectionName, _
            "HideUserAgent", App.Path & "\" & ConfigFileName))
    Filter_Hide_UserAgent = tmpLong
    tmpLong = Val(GetInitString(ConfigSectionName, _
            "UseProxy", App.Path & "\" & ConfigFileName))
    UseProxy = tmpLong
    tmpString = GetInitString(ConfigSectionName, _
            "ProxyServer", App.Path & "\" & ConfigFileName)
    If tmpString <> "" Then netProxy.Server = tmpString
    tmpLong = Val(GetInitString(ConfigSectionName, _
            "ProxyPort", App.Path & "\" & ConfigFileName))
    netProxy.Port = tmpLong
    tmpLong = Val(GetInitString(ConfigSectionName, _
            "UseAuthentication", App.Path & "\" & ConfigFileName))
    UseAuthentication = tmpLong
    tmpLong = Val(GetInitString(ConfigSectionName, _
            "LocalOnly", App.Path & "\" & ConfigFileName))
    LocalOnly = tmpLong
End Sub

Private Sub LoadDefaultConfiguration()
    MaximumConnection = 10000
    ListeningPort = 8080
    UserAgent = C_USER_AGENT_PPS
    PersonalProxyName = C_PERSONAL_PROXY & "/" & App.Major & "." & App.Minor
    Filter_Reload = False
    Filter_Disable_Cookie = False
    Filter_Hide_Server = False
    Filter_Hide_Proxy = False
    Filter_Hide_UserAgent = False
    UseAuthentication = False
    LocalOnly = False
End Sub