home *** CD-ROM | disk | FTP | other *** search
/ Chip Special: HTML & Java / Chip-Special_1997-01_HTML-a-Java.bin / chatsdk / chatsdk.exe / ENTEROPT.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-12-12  |  11.7 KB  |  350 lines
  1. VERSION 4.00
  2. Begin VB.Form EnterOptions 
  3.    BackColor       =   &H00C0FFC0&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Enter Room Options"
  6.    ClientHeight    =   5775
  7.    ClientLeft      =   1785
  8.    ClientTop       =   3300
  9.    ClientWidth     =   6870
  10.    Height          =   6180
  11.    Left            =   1725
  12.    LinkTopic       =   "EnterOptions"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   5775
  16.    ScaleWidth      =   6870
  17.    ShowInTaskbar   =   0   'False
  18.    Top             =   2955
  19.    Width           =   6990
  20.    Begin VB.CommandButton cmdOK 
  21.       Caption         =   "OK"
  22.       Default         =   -1  'True
  23.       Height          =   375
  24.       Left            =   4320
  25.       TabIndex        =   26
  26.       Top             =   5280
  27.       Width           =   1095
  28.    End
  29.    Begin VB.CommandButton cmdCancel 
  30.       Caption         =   "Cancel"
  31.       Height          =   375
  32.       Left            =   5640
  33.       TabIndex        =   25
  34.       Top             =   5280
  35.       Width           =   1095
  36.    End
  37.    Begin VB.ComboBox ComboSecPackages 
  38.       Height          =   315
  39.       Left            =   4800
  40.       TabIndex        =   24
  41.       Top             =   1200
  42.       Width           =   1935
  43.    End
  44.    Begin VB.Frame Frame2 
  45.       BackColor       =   &H00C0FFC0&
  46.       Height          =   2415
  47.       Left            =   120
  48.       TabIndex        =   11
  49.       Top             =   2640
  50.       Width           =   6615
  51.       Begin VB.CheckBox chkAuthTalk 
  52.          BackColor       =   &H00C0FFC0&
  53.          Caption         =   "Only Authenticated Members Can Talk?"
  54.          Height          =   195
  55.          Left            =   2880
  56.          TabIndex        =   23
  57.          Top             =   2040
  58.          Width           =   3615
  59.       End
  60.       Begin VB.CheckBox chkModerated 
  61.          BackColor       =   &H00C0FFC0&
  62.          Caption         =   "Moderated Room?"
  63.          Height          =   195
  64.          Left            =   2880
  65.          TabIndex        =   22
  66.          Top             =   1320
  67.          Width           =   3615
  68.       End
  69.       Begin VB.CheckBox chkAuthOnly 
  70.          BackColor       =   &H00C0FFC0&
  71.          Caption         =   "Accept Authenticated Members Only?"
  72.          Height          =   195
  73.          Left            =   2880
  74.          TabIndex        =   21
  75.          Top             =   1680
  76.          Width           =   3615
  77.       End
  78.       Begin VB.CheckBox chkAllowWhispers 
  79.          BackColor       =   &H00C0FFC0&
  80.          Caption         =   "Allow Whispers in Room?"
  81.          Height          =   195
  82.          Left            =   2880
  83.          TabIndex        =   20
  84.          Top             =   600
  85.          Value           =   1  'Checked
  86.          Width           =   3615
  87.       End
  88.       Begin VB.CheckBox chkTopicRO 
  89.          BackColor       =   &H00C0FFC0&
  90.          Caption         =   "Topic read only for non-hosts?"
  91.          Height          =   195
  92.          Left            =   120
  93.          TabIndex        =   19
  94.          Top             =   960
  95.          Width           =   2655
  96.       End
  97.       Begin VB.CheckBox chkLocal 
  98.          BackColor       =   &H00C0FFC0&
  99.          Caption         =   "Local Room?"
  100.          Height          =   195
  101.          Left            =   120
  102.          TabIndex        =   18
  103.          Top             =   1680
  104.          Width           =   2655
  105.       End
  106.       Begin VB.CheckBox chkNoRemote 
  107.          BackColor       =   &H00C0FFC0&
  108.          Caption         =   "NoRemote Room?"
  109.          Height          =   195
  110.          Left            =   120
  111.          TabIndex        =   17
  112.          Top             =   1320
  113.          Width           =   2655
  114.       End
  115.       Begin VB.CheckBox chkMicOnly 
  116.          BackColor       =   &H00C0FFC0&
  117.          Caption         =   "MIC Only Room?"
  118.          Height          =   195
  119.          Left            =   120
  120.          TabIndex        =   16
  121.          Top             =   240
  122.          Width           =   2655
  123.       End
  124.       Begin VB.CheckBox chkPublic 
  125.          BackColor       =   &H00C0FFC0&
  126.          Caption         =   "Public Room?"
  127.          Height          =   195
  128.          Left            =   120
  129.          TabIndex        =   15
  130.          Top             =   600
  131.          Width           =   2655
  132.       End
  133.       Begin VB.CheckBox chkFeed 
  134.          BackColor       =   &H00C0FFC0&
  135.          Caption         =   "Feed Room?"
  136.          Height          =   195
  137.          Left            =   120
  138.          TabIndex        =   14
  139.          Top             =   2040
  140.          Width           =   2655
  141.       End
  142.       Begin VB.CheckBox chkCreateJoin 
  143.          BackColor       =   &H00C0FFC0&
  144.          Caption         =   "Join if room exists?"
  145.          Height          =   195
  146.          Left            =   2880
  147.          TabIndex        =   13
  148.          Top             =   240
  149.          Value           =   1  'Checked
  150.          Width           =   3615
  151.       End
  152.       Begin VB.CheckBox chkAuditorium 
  153.          BackColor       =   &H00C0FFC0&
  154.          Caption         =   "Auditorium Room?"
  155.          Height          =   195
  156.          Left            =   2880
  157.          TabIndex        =   12
  158.          Top             =   960
  159.          Width           =   3615
  160.       End
  161.    End
  162.    Begin VB.TextBox txtTopic 
  163.       Height          =   285
  164.       Left            =   120
  165.       TabIndex        =   9
  166.       Top             =   2040
  167.       Width           =   3975
  168.    End
  169.    Begin VB.CommandButton cmdGetTopic 
  170.       Caption         =   "Get Topic"
  171.       Height          =   255
  172.       Left            =   2160
  173.       TabIndex        =   8
  174.       Top             =   1800
  175.       Width           =   975
  176.    End
  177.    Begin VB.CommandButton cmdSetTopic 
  178.       Caption         =   "Set Topic"
  179.       Height          =   255
  180.       Left            =   3120
  181.       TabIndex        =   7
  182.       Top             =   1800
  183.       Width           =   975
  184.    End
  185.    Begin VB.TextBox txtRoomPwd 
  186.       Height          =   285
  187.       Left            =   4800
  188.       TabIndex        =   2
  189.       Top             =   360
  190.       Width           =   1935
  191.    End
  192.    Begin VB.ComboBox ComboRoomPath 
  193.       Height          =   315
  194.       Left            =   120
  195.       TabIndex        =   1
  196.       Top             =   1200
  197.       Width           =   3975
  198.    End
  199.    Begin VB.ComboBox ComboAlias 
  200.       Height          =   315
  201.       Left            =   120
  202.       TabIndex        =   0
  203.       Top             =   360
  204.       Width           =   3975
  205.    End
  206.    Begin VB.Label Label13 
  207.       BackColor       =   &H00C0FFC0&
  208.       Caption         =   "Type the chat room topic:"
  209.       Height          =   255
  210.       Left            =   120
  211.       TabIndex        =   10
  212.       Top             =   1800
  213.       Width           =   2175
  214.    End
  215.    Begin VB.Label Label7 
  216.       BackColor       =   &H00C0FFC0&
  217.       Caption         =   "Select or type your Alias:"
  218.       Height          =   255
  219.       Left            =   120
  220.       TabIndex        =   6
  221.       Top             =   120
  222.       Width           =   3975
  223.    End
  224.    Begin VB.Label Label8 
  225.       BackColor       =   &H00C0FFC0&
  226.       Caption         =   "Select or type the chat room:"
  227.       Height          =   255
  228.       Left            =   120
  229.       TabIndex        =   5
  230.       Top             =   960
  231.       Width           =   3975
  232.    End
  233.    Begin VB.Label lblSecurityPackage 
  234.       BackColor       =   &H00C0FFC0&
  235.       Caption         =   "Select or type the security packages to use:"
  236.       Height          =   495
  237.       Left            =   4800
  238.       TabIndex        =   4
  239.       Top             =   800
  240.       Width           =   1935
  241.    End
  242.    Begin VB.Label lblRoomPwd 
  243.       BackColor       =   &H00C0FFC0&
  244.       Caption         =   "Type the optional host key:"
  245.       Height          =   255
  246.       Left            =   4800
  247.       TabIndex        =   3
  248.       Top             =   120
  249.       Width           =   1935
  250.    End
  251. Attribute VB_Name = "EnterOptions"
  252. Attribute VB_Creatable = False
  253. Attribute VB_Exposed = False
  254. Option Explicit
  255. ' Channel creation modes
  256. Const OCX_CHANNEL_CREATE_JOIN = 1
  257. Const OCX_CHANNEL_FLAG_LOCAL = 2     ' channel not exposed to other servers on net
  258. Const OCX_CHANNEL_FLAG_FEED = 4      ' news feeds, stock quotes..
  259. Const OCX_CHANNEL_FLAG_MICONLY = 8   ' NO IRC - NO NO NO IRC
  260. Const OCX_CHANNEL_FLAG_AUTHONLY = 16 ' permit authenticated members only
  261. Const OCX_CHANNEL_FLAG_AUTHTALK = 32 ' permit only authenticated members to talk
  262. Const OCX_CHANNEL_PUBLIC = 1         ' open to anybody and anything
  263. Const OCX_CHANNEL_TOPICOP = 2        ' topic can be changed only by Host
  264. Const OCX_CHANNEL_NOREMOTE = 4       ' only allow users who logged into THIS server..to enter chat
  265. Const OCX_CHANNEL_NOWHISPER = 8      ' no whispers or \msg allowed
  266. Const OCX_CHANNEL_AUDITORIUM = 16    ' auditorium chat room
  267. Const OCX_CHANNEL_MODERATED = 32     ' join as spectator by default
  268. Dim nFlags As Integer
  269. Dim nType As Integer
  270. Private Sub cmdCancel_Click()
  271.     Hide
  272. End Sub
  273. Private Sub cmdOK_Click()
  274.         
  275.     On Error Resume Next
  276.     SetFlagsAndType
  277.     cmdSetTopic_Click
  278.     Main.lblAlias.Caption = ComboAlias.Text
  279.     Main.lblRoomPath.Caption = ComboRoomPath.Text
  280.     Main.MSChat1.EnterRoom ComboRoomPath.Text, txtRoomPwd.Text, ComboAlias.Text, ComboSecPackages.Text, nFlags, nType
  281.     Hide
  282. End Sub
  283. Sub SetFlagsAndType()
  284.     nFlags = 0
  285.     nType = 0
  286.     If (chkCreateJoin.Value = 1) Then
  287.         nFlags = nFlags + OCX_CHANNEL_CREATE_JOIN
  288.     End If
  289.     If (chkLocal.Value = 1) Then
  290.         nFlags = nFlags + OCX_CHANNEL_FLAG_LOCAL
  291.     End If
  292.     If (chkFeed.Value = 1) Then
  293.         nFlags = nFlags + OCX_CHANNEL_FLAG_FEED
  294.     End If
  295.     If (chkMicOnly.Value = 1) Then
  296.         nFlags = nFlags + OCX_CHANNEL_FLAG_MICONLY
  297.     End If
  298.     If (chkAuthOnly.Value = 1) Then
  299.         nFlags = nFlags + OCX_CHANNEL_FLAG_AUTHONLY
  300.     End If
  301.     If (chkAuthTalk.Value = 1) Then
  302.         nFlags = nFlags + OCX_CHANNEL_FLAG_AUTHTALK
  303.     End If
  304.         
  305.     If (chkPublic.Value = 1) Then
  306.         nType = nType + OCX_CHANNEL_PUBLIC
  307.     End If
  308.     If (chkTopicRO.Value = 1) Then
  309.         nType = nType + OCX_CHANNEL_TOPICOP
  310.     End If
  311.     If (chkNoRemote.Value = 1) Then
  312.         nType = nType + OCX_CHANNEL_NOREMOTE
  313.     End If
  314.     If (chkAllowWhispers.Value = 0) Then
  315.         nType = nType + OCX_CHANNEL_NOWHISPER
  316.     End If
  317.     If (chkAuditorium.Value = 1) Then
  318.         nType = nType + OCX_CHANNEL_AUDITORIUM
  319.     End If
  320.     If (chkModerated.Value = 1) Then
  321.         nType = nType + OCX_CHANNEL_MODERATED
  322.     End If
  323. End Sub
  324. Private Sub cmdSetTopic_Click()
  325.     On Error Resume Next
  326.     Main.MSChat1.RoomTopic = txtTopic.Text
  327. End Sub
  328. Private Sub Form_Load()
  329.     ComboRoomPath.AddItem "//ComicSrv1.Microsoft.Com/#Comic_Chat"
  330.     ComboRoomPath.AddItem "//ComicSrv1.Microsoft.Com/#Francais"
  331.     ComboRoomPath.AddItem "//ComicSrv1.Microsoft.Com/#Newbies"
  332.     ComboRoomPath.AddItem "//ComicSrv1.Microsoft.Com/#Singles_Chat"
  333.     ComboRoomPath.AddItem "//irc.dal.net/#newbies"
  334.     ComboRoomPath.AddItem "//irc.mtv.com/#newbies"
  335.     ComboRoomPath.AddItem "//irc.eskimo.com/#newbies"
  336.     ComboRoomPath.AddItem "//irc.univ-lyon1.fr/#newbies"
  337.     ComboRoomPath.ListIndex = 0
  338.     ComboAlias.AddItem "Nickname1"
  339.     ComboAlias.AddItem "Nickname2"
  340.     ComboAlias.ListIndex = 0
  341.     ComboSecPackages.AddItem "ANON"
  342.     ComboSecPackages.AddItem "ALL"
  343.     ComboSecPackages.AddItem "MSN;DPA;NTLM;ANON"
  344.     ComboSecPackages.AddItem "MSN;DPA;ANON"
  345.     ComboSecPackages.AddItem "MSN;DPA"
  346.     ComboSecPackages.AddItem "NTLM;ANON"
  347.     ComboSecPackages.AddItem "NTLM"
  348.     ComboSecPackages.ListIndex = 0
  349. End Sub
  350.