VERSION 5.00
Begin VB.Form FormFeedProperties
Caption = "Feed Properties"
ClientHeight = 5310
ClientLeft = 1740
ClientTop = 2160
ClientWidth = 6375
LinkTopic = "Form1"
PaletteMode = 1 'UseZOrder
ScaleHeight = 5310
ScaleWidth = 6375
Begin VB.CommandButton btnCancel
Caption = "Cancel"
Height = 495
Left = 3840
TabIndex = 39
Top = 4680
Width = 1455
End
Begin VB.CommandButton btnOk
Caption = "OK"
Height = 495
Left = 2160
TabIndex = 38
Top = 4680
Width = 1455
End
Begin VB.CommandButton btnDefault
Caption = "Default"
Height = 495
Left = 240
TabIndex = 37
Top = 4680
Width = 1455
End
Begin VB.Frame Frame2
Caption = "Feed Action"
Height = 1335
Left = 5040
TabIndex = 30
Top = 240
Width = 1215
Begin VB.OptionButton btnAccept
Caption = "Accept"
Height = 255
Left = 120
TabIndex = 36
Top = 960
Width = 855
End
Begin VB.OptionButton btnPush
Caption = "Push"
Height = 255
Left = 120
TabIndex = 35
Top = 600
Width = 855
End
Begin VB.OptionButton btnPull
Caption = "Pull"
Height = 255
Left = 120
TabIndex = 34
Top = 240
Value = -1 'True
Width = 975
End
End
Begin VB.Frame Frame1
Caption = "Feed Type"
Height = 1335
Left = 3600
TabIndex = 29
Top = 240
Width = 1215
Begin VB.OptionButton btnSlave
Caption = "Slave"
Height = 195
Left = 120
TabIndex = 33
Top = 960
Width = 975
End
Begin VB.OptionButton btnMaster
Caption = "Master"
Height = 255
Left = 120
TabIndex = 32
Top = 600
Width = 855
End
Begin VB.OptionButton btnPeer
Caption = "Peer"
Height = 255
Left = 120
TabIndex = 31
Top = 240
Value = -1 'True
Width = 975
End
End
Begin VB.TextBox txtMaxConnectAttempts
Height = 285
Left = 5160
TabIndex = 28
Text = "5"
Top = 2760
Width = 1095
End
Begin VB.TextBox txtPassword
Height = 285
Left = 4680
TabIndex = 27
Top = 2400
Width = 1575
End
Begin VB.TextBox txtAccount
Height = 285
Left = 4680
TabIndex = 26
Top = 2040
Width = 1575
End
Begin VB.TextBox txtSecurityType
Height = 285
Left = 4680
TabIndex = 25
Text = "0"
Top = 1680
Width = 1575
End
Begin VB.TextBox txtFeedServer
Height = 285
Left = 1320
TabIndex = 4
Top = 2040
Width = 1815
End
Begin VB.TextBox txtPullDate
Height = 285
Left = 1320
TabIndex = 24
Top = 2400
Width = 1815
End
Begin VB.TextBox txtStartTime
Height = 285
Left = 1320
TabIndex = 23
Top = 2760
Width = 1815
End
Begin VB.TextBox txtInterval
Height = 285
Left = 1320
TabIndex = 22
Text = "15"
Top = 3120
Width = 1815
End
Begin VB.TextBox txtDistributions
Height = 285
Left = 1320
TabIndex = 21
Text = "world;"
Top = 3960
Width = 1815
End
Begin VB.CheckBox chkAllowControlMsgs
Caption = "Allow Control Messages"
Height = 255
Left = 3360
TabIndex = 19
Top = 3120
Width = 2055
End
Begin VB.CheckBox chkEnabled
Caption = "Enabled"
Height = 255
Left = 3360
TabIndex = 14
Top = 3840
Width = 1095
End
Begin VB.CheckBox chkAutoCreate
Caption = "Auto Create"
Height = 255
Left = 3360
TabIndex = 13
Top = 3480
Width = 1215
End
Begin VB.TextBox txtId
Height = 285
Left = 1440
TabIndex = 3
Text = "1"
Top = 1080
Width = 1695
End
Begin VB.TextBox txtNewsgroups
Height = 285
Left = 1320
TabIndex = 2
Text = "*;"
Top = 3600
Width = 1815
End
Begin VB.TextBox txtServer
Height = 285
Left = 1440
TabIndex = 1
Top = 120
Width = 1695
End
Begin VB.TextBox txtInstance
Height = 285
Left = 1440
TabIndex = 0
Text = "1"
Top = 480
Width = 1695
End
Begin VB.Label Label13
Caption = "Distributions"
Height = 255
Left = 120
TabIndex = 20
Top = 3960
Width = 975
End
Begin VB.Label Label12
Caption = "Password"
Height = 255
Left = 3360
TabIndex = 18
Top = 2400
Width = 975
End
Begin VB.Label Label11
Caption = "Account Name"
Height = 255
Left = 3360
TabIndex = 17
Top = 2040
Width = 1215
End
Begin VB.Label Label10
Caption = "Security Type"
Height = 255
Left = 3360
TabIndex = 16
Top = 1680
Width = 1095
End
Begin VB.Label Label9
Caption = "Max Connect Attempts"
Height = 255
Left = 3360
TabIndex = 15
Top = 2760
Width = 1695
End
Begin VB.Label Label8
Caption = "Feed Interval"
Height = 255
Left = 120
TabIndex = 12
Top = 3120
Width = 1095
End
Begin VB.Label Label7
Caption = "Start Time"
Height = 255
Left = 120
TabIndex = 11
Top = 2760
Width = 855
End
Begin VB.Label Label3
Caption = "Pull Date"
Height = 255
Left = 120
TabIndex = 10
Top = 2400
Width = 735
End
Begin VB.Label Label2
Caption = "Remote Server"
Height = 255
Left = 120
TabIndex = 5
Top = 2040
Width = 1095
End
Begin VB.Label Label1
Caption = "ID"
Height = 255
Left = 120
TabIndex = 9
Top = 1080
Width = 735
End
Begin VB.Label Label4
Caption = "Newsgroups"
Height = 255
Left = 120
TabIndex = 8
Top = 3600
Width = 1095
End
Begin VB.Label Label5
Caption = "Server"
Height = 255
Left = 120
TabIndex = 7
Top = 120
Width = 1095
End
Begin VB.Label Label6
Caption = "Service Instance"
Height = 255
Left = 120
TabIndex = 6
Top = 480
Width = 1215
End
End
Attribute VB_Name = "FormFeedProperties"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public FeedObj As Object
Private Sub btnAdd_Click()
FeedObj.Server = txtServer
FeedObj.ServiceInstance = txtInstance
FeedObj.Default
If btnPeer.Value Then
FeedObj.FeedType = NNTP_FEED_TYPE_PEER
ElseIf btnMaster.Value Then
FeedObj.FeedType = NNTP_FEED_TYPE_MASTER
Else
FeedObj.FeedType = NNTP_FEED_TYPE_SLAVE
End If
If btnPull.Value Then
FeedObj.FeedAction = NNTP_FEED_ACTION_PULL
ElseIf btnPush.Value Then
FeedObj.FeedAction = NNTP_FEED_ACTION_PUSH
Else
FeedObj.FeedAction = NNTP_FEED_ACTION_ACCEPT
End If
FeedObj.FeedId = txtId
FeedObj.FeedServer = txtFeedServer
FeedObj.PullNewsDate = txtPullDate
FeedObj.StartTime = txtStartTime
FeedObj.FeedInterval = txtInterval
FeedObj.SecurityType = txtSecurityType
FeedObj.AccountName = txtAccount
FeedObj.Password = txtPassword
FeedObj.MaxConnectionAttempts = txtMaxConnectAttempts
FeedObj.AllowControlMessages = chkAllowControlMsgs
FeedObj.AutoCreate = chkAutoCreate
FeedObj.Enabled = chkEnabled
FeedObj.Distributions = FormMain.NewsgroupsToArray(txtDistributions)
FeedObj.Newsgroups = FormMain.NewsgroupsToArray(txtNewsgroups)
FeedObj.Add
End Sub
Private Sub btnCancel_Click()
FormFeedProperties.Hide
End Sub
Private Sub btnDefault_Click()
FeedObj.Default
txtId = FeedObj.FeedId
txtFeedServer = FeedObj.FeedServer
txtPullDate = FeedObj.PullNewsDate
txtStartTime = FeedObj.StartTime
txtInterval = FeedObj.FeedInterval
txtSecurityType = FeedObj.SecurityType
txtAccount = FeedObj.AccountName
txtPassword = FeedObj.Password
txtMaxConnectAttempts = FeedObj.MaxConnectionAttempts
chkAllowControlMsgs = FeedObj.AllowControlMessages
chkAutoCreate = FeedObj.AutoCreate
chkEnabled = FeedObj.Enabled
txtNewsgroups = FormMain.ArrayToNewsgroups(FeedObj.Newsgroups)
txtDistributions = FormMain.ArrayToNewsgroups(FeedObj.Distributions)
End Sub
Private Sub btnSet_Click()
FeedObj.Server = txtServer
FeedObj.ServiceInstance = txtInstance
If btnPeer.Value Then
FeedObj.FeedType = NNTP_FEED_TYPE_PEER
ElseIf btnMaster.Value Then
FeedObj.FeedType = NNTP_FEED_TYPE_MASTER
Else
FeedObj.FeedType = NNTP_FEED_TYPE_SLAVE
End If
If btnPull.Value Then
FeedObj.FeedAction = NNTP_FEED_ACTION_PULL
ElseIf btnPush.Value Then
FeedObj.FeedAction = NNTP_FEED_ACTION_PUSH
Else
FeedObj.FeedAction = NNTP_FEED_ACTION_ACCEPT
End If
FeedObj.FeedId = txtId
FeedObj.FeedServer = txtFeedServer
FeedObj.PullNewsDate = txtPullDate
FeedObj.StartTime = txtStartTime
FeedObj.FeedInterval = txtInterval
FeedObj.SecurityType = txtSecurityType
FeedObj.AccountName = txtAccount
FeedObj.Password = txtPassword
FeedObj.MaxConnectionAttempts = txtMaxConnectAttempts
FeedObj.AllowControlMessages = chkAllowControlMsgs
FeedObj.AutoCreate = chkAutoCreate
FeedObj.Enabled = chkEnabled
FeedObj.Distributions = FormMain.NewsgroupsToArray(txtDistributions)
FeedObj.Newsgroups = FormMain.NewsgroupsToArray(txtNewsgroups)
FeedObj.Set
txtId = FeedObj.FeedId
End Sub
Private Sub btnOk_Click()
If btnPeer.Value Then
FeedObj.FeedType = NNTP_FEED_TYPE_PEER
ElseIf btnMaster.Value Then
FeedObj.FeedType = NNTP_FEED_TYPE_MASTER
Else
FeedObj.FeedType = NNTP_FEED_TYPE_SLAVE
End If
If btnPull.Value Then
FeedObj.FeedAction = NNTP_FEED_ACTION_PULL
ElseIf btnPush.Value Then
FeedObj.FeedAction = NNTP_FEED_ACTION_PUSH
Else
FeedObj.FeedAction = NNTP_FEED_ACTION_ACCEPT
End If
Rem FeedObj.FeedId = txtId
Rem FeedObj.FeedServer = txtFeedServer
FeedObj.PullNewsDate = txtPullDate
FeedObj.StartTime = txtStartTime
FeedObj.FeedInterval = txtInterval
FeedObj.SecurityType = txtSecurityType
FeedObj.AccountName = txtAccount
FeedObj.Password = txtPassword
FeedObj.MaxConnectionAttempts = txtMaxConnectAttempts
FeedObj.AllowControlMessages = chkAllowControlMsgs
FeedObj.AutoCreate = chkAutoCreate
FeedObj.Enabled = chkEnabled
FeedObj.Distributions = FormMain.NewsgroupsToArray(txtDistributions)
FeedObj.Newsgroups = FormMain.NewsgroupsToArray(txtNewsgroups)
FormFeedProperties.Hide
End Sub
Private Sub Form_Load()
txtPullDate = Date
txtStartTime = Date
End Sub
Public Sub LoadProperties()
txtId = FeedObj.FeedId
txtFeedServer = FeedObj.RemoteServer
txtPullDate = FeedObj.PullNewsDate
txtStartTime = FeedObj.StartTime
txtInterval = FeedObj.FeedInterval
txtSecurityType = FeedObj.SecurityType
txtAccount = FeedObj.AccountName
txtPassword = FeedObj.Password
txtMaxConnectAttempts = FeedObj.MaxConnectionAttempts
chkAllowControlMsgs = FeedObj.AllowControlMessages
chkAutoCreate = FeedObj.AutoCreate
chkEnabled = FeedObj.Enabled
txtNewsgroups = FormMain.ArrayToNewsgroups(FeedObj.Newsgroups)
txtDistributions = FormMain.ArrayToNewsgroups(FeedObj.Distributions)
If txtNewsgroups = "" Then
txtNewsgroups = "*;"
End If
End Sub