home *** CD-ROM | disk | FTP | other *** search
/ Computer Panoráma / computer_panorama_1997-12-hibas.iso / SHARE / NET / TCPCHAT / TCPCHAT.ZIP / MainForm.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-09-05  |  11.8 KB  |  339 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
  3. Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
  4. Begin VB.Form frmMain 
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "TCP Chatter"
  7.    ClientHeight    =   5295
  8.    ClientLeft      =   150
  9.    ClientTop       =   435
  10.    ClientWidth     =   7410
  11.    Icon            =   "MainForm.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    ScaleHeight     =   5295
  15.    ScaleWidth      =   7410
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin ComctlLib.StatusBar oStatusBar 
  18.       Align           =   2  'Align Bottom
  19.       Height          =   300
  20.       Left            =   0
  21.       TabIndex        =   0
  22.       Top             =   4995
  23.       Width           =   7410
  24.       _ExtentX        =   13070
  25.       _ExtentY        =   529
  26.       SimpleText      =   ""
  27.       _Version        =   327682
  28.       BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
  29.          NumPanels       =   3
  30.          BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  31.             AutoSize        =   2
  32.             Text            =   "IP Address"
  33.             TextSave        =   "IP Address"
  34.             Key             =   ""
  35.             Object.Tag             =   ""
  36.             Object.ToolTipText     =   "This is YOUR IP address"
  37.          EndProperty
  38.          BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  39.             Text            =   "Local Port"
  40.             TextSave        =   "Local Port"
  41.             Key             =   ""
  42.             Object.Tag             =   ""
  43.             Object.ToolTipText     =   "Port on which your system listens for connections."
  44.          EndProperty
  45.          BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
  46.             AutoSize        =   1
  47.             Object.Width           =   7885
  48.             Text            =   "Status"
  49.             TextSave        =   "Status"
  50.             Key             =   ""
  51.             Object.Tag             =   ""
  52.             Object.ToolTipText     =   "Current connection status"
  53.          EndProperty
  54.       EndProperty
  55.    End
  56.    Begin VB.Frame Frame1 
  57.       Height          =   2535
  58.       Left            =   120
  59.       TabIndex        =   2
  60.       Top             =   2160
  61.       Width           =   7095
  62.       Begin VB.CommandButton Command1 
  63.          Caption         =   "&About "
  64.          Height          =   375
  65.          Left            =   1560
  66.          TabIndex        =   15
  67.          Top             =   2040
  68.          Width           =   1335
  69.       End
  70.       Begin VB.TextBox edInput 
  71.          Enabled         =   0   'False
  72.          Height          =   285
  73.          Left            =   120
  74.          TabIndex        =   14
  75.          TabStop         =   0   'False
  76.          Top             =   240
  77.          Width           =   5295
  78.       End
  79.       Begin VB.CommandButton btnSend 
  80.          Caption         =   "&Send"
  81.          Default         =   -1  'True
  82.          Enabled         =   0   'False
  83.          Height          =   375
  84.          Left            =   5640
  85.          TabIndex        =   13
  86.          Top             =   240
  87.          Width           =   1335
  88.       End
  89.       Begin VB.CommandButton btnListen 
  90.          Caption         =   "&Listen"
  91.          Height          =   375
  92.          Left            =   120
  93.          TabIndex        =   12
  94.          Top             =   1560
  95.          Width           =   1335
  96.       End
  97.       Begin VB.CommandButton btnDisconnect 
  98.          Caption         =   "&Disconnect"
  99.          Enabled         =   0   'False
  100.          Height          =   375
  101.          Left            =   120
  102.          TabIndex        =   11
  103.          Top             =   2040
  104.          Width           =   1335
  105.       End
  106.       Begin VB.Frame frMode 
  107.          Caption         =   "Mode"
  108.          Height          =   855
  109.          Left            =   120
  110.          TabIndex        =   8
  111.          Top             =   600
  112.          Width           =   1335
  113.          Begin VB.OptionButton opListener 
  114.             Caption         =   "L&istener"
  115.             Height          =   255
  116.             Left            =   120
  117.             TabIndex        =   10
  118.             Top             =   480
  119.             Value           =   -1  'True
  120.             Width           =   975
  121.          End
  122.          Begin VB.OptionButton opCaller 
  123.             Caption         =   "&Caller"
  124.             Height          =   255
  125.             Left            =   120
  126.             TabIndex        =   9
  127.             Top             =   240
  128.             Width           =   855
  129.          End
  130.       End
  131.       Begin VB.Frame frCaller 
  132.          Caption         =   "Caller Settings"
  133.          Height          =   1455
  134.          Left            =   4320
  135.          TabIndex        =   3
  136.          Top             =   960
  137.          Visible         =   0   'False
  138.          Width           =   2655
  139.          Begin VB.TextBox edPort 
  140.             Height          =   285
  141.             Left            =   840
  142.             TabIndex        =   5
  143.             Text            =   "2112"
  144.             Top             =   720
  145.             Width           =   615
  146.          End
  147.          Begin VB.TextBox edAddy 
  148.             Height          =   285
  149.             Left            =   840
  150.             TabIndex        =   4
  151.             Top             =   360
  152.             Width           =   1455
  153.          End
  154.          Begin VB.Label Label2 
  155.             Alignment       =   1  'Right Justify
  156.             Caption         =   "Port:"
  157.             Height          =   255
  158.             Left            =   360
  159.             TabIndex        =   7
  160.             Top             =   720
  161.             Width           =   375
  162.          End
  163.          Begin VB.Label Label1 
  164.             Alignment       =   1  'Right Justify
  165.             Caption         =   "Address:"
  166.             Height          =   255
  167.             Left            =   120
  168.             TabIndex        =   6
  169.             Top             =   360
  170.             Width           =   615
  171.          End
  172.       End
  173.       Begin MSWinsockLib.Winsock oWinSock 
  174.          Left            =   3600
  175.          Top             =   1920
  176.          _ExtentX        =   741
  177.          _ExtentY        =   741
  178.          _Version        =   327681
  179.          LocalPort       =   2112
  180.       End
  181.    End
  182.    Begin VB.TextBox edOutput 
  183.       Height          =   2055
  184.       Left            =   120
  185.       Locked          =   -1  'True
  186.       MultiLine       =   -1  'True
  187.       ScrollBars      =   2  'Vertical
  188.       TabIndex        =   1
  189.       TabStop         =   0   'False
  190.       Top             =   0
  191.       Width           =   7095
  192.    End
  193. Attribute VB_Name = "frmMain"
  194. Attribute VB_GlobalNameSpace = False
  195. Attribute VB_Creatable = False
  196. Attribute VB_PredeclaredId = True
  197. Attribute VB_Exposed = False
  198. ' TCP Chatter
  199. ' Copyright 1997 by Shawn Riggins
  200. ' Use this program at your own risk.
  201. ' This program is freeware and you are welcome to use the
  202. ' source code for whatever you want.  Just remember, anything
  203. ' you do with the source code is done at your OWN RISK
  204. Option Explicit
  205. Public Sub btnDisconnect_Click()
  206.     oWinSock.Close
  207.     oStatusBar.Panels.Item(3).Text = "Not Connected"
  208.     btnDisconnect.Enabled = False
  209.     btnListen.Enabled = True
  210.     btnSend.Enabled = False
  211.     edInput.Enabled = False
  212.     'Enable the mode group
  213.     frMode.Enabled = True
  214.     opCaller.Enabled = True
  215.     opListener.Enabled = True
  216.     'Enable caller group
  217.     frCaller.Enabled = True
  218.     edAddy.Enabled = True
  219.     edPort.Enabled = True
  220. End Sub
  221. Private Sub btnListen_Click()
  222.     'Clear the window
  223.     edOutput.Text = ""
  224.     'Make a connection or listen, based on the dialog values
  225.     On Error GoTo ErrorHandler
  226.         If opListener.Value = True Then
  227.             oWinSock.Listen
  228.             oStatusBar.Panels.Item(3).Text = "Listening..."
  229.         Else
  230.             oWinSock.RemotePort = edPort.Text
  231.             oWinSock.Connect (edAddy.Text)
  232.             oStatusBar.Panels.Item(3).Text = "Calling..."
  233.         End If
  234.     On Error GoTo 0
  235.             
  236.     'Enable / disable controls
  237.     btnDisconnect.Enabled = True
  238.     btnListen.Enabled = False
  239.     'Disable the mode group
  240.     frMode.Enabled = False
  241.     opCaller.Enabled = False
  242.     opListener.Enabled = False
  243.     'Disable caller group
  244.     frCaller.Enabled = False
  245.     edAddy.Enabled = False
  246.     edPort.Enabled = False
  247.     ' Error handling section
  248.     Exit Sub
  249. ErrorHandler:
  250.     If Err.Number = 10048 Then
  251.         edOutput.SelStart = Len(edOutput.Text)
  252.         edOutput.SelText = "Error:  Address already in use.  Basicaly this means that you have previously disconnected from a remote host, but the system thinks you are still connected."
  253.         Exit Sub
  254.     Else
  255.         edOutput.SelStart = Len(edOutput.Text)
  256.         edOutput.SelText = "Error: " & Val(Err.Number) & " " & Err.Description
  257.         Exit Sub
  258.     End If
  259.     Resume Next
  260. End Sub
  261. Private Sub btnSend_Click()
  262.     edOutput.SelStart = Len(edOutput.Text)
  263.     edOutput.SelText = "> " & edInput.Text & Chr(13) & Chr(10)
  264.     On Error GoTo ErrorHandler
  265.         oWinSock.SendData (edInput.Text & Chr(13) & Chr(10))
  266.         edInput.Text = ""
  267.     On Error GoTo 0
  268.     Exit Sub
  269. ErrorHandler:
  270.     If Err.Number = 40006 Then
  271.         edOutput.SelStart = Len(edOutput.Text)
  272.         edOutput.SelText = "It appears that you are no longer connected with the other party."
  273.         btnDisconnect_Click
  274.     Else
  275.         edOutput.SelStart = Len(edOutput.Text)
  276.         edOutput.SelText = "Error: " & Val(Err.Number) & " " & Err.Description
  277.     End If
  278.     Resume Next
  279. End Sub
  280. Private Sub Command1_Click()
  281.     frmAbout.Show
  282. End Sub
  283. Private Sub Form_Load()
  284.     'Set the status bar up with current IP configuration
  285.     oStatusBar.Panels.Item(1).Text = "Local IP: " & oWinSock.LocalIP & " "
  286.     oStatusBar.Panels.Item(2).Text = "Local Port: " & oWinSock.LocalPort & " "
  287.     oStatusBar.Panels.Item(3).Text = "Not Connected"
  288. End Sub
  289. Private Sub mnuAbout_Click()
  290.     frmAbout.Show
  291. End Sub
  292. Private Sub opCaller_Click()
  293.     frCaller.Visible = True
  294.     btnListen.Caption = "Ca&ll"
  295. End Sub
  296. Private Sub opListener_Click()
  297.     frCaller.Visible = False
  298.     btnListen.Caption = "&Listen"
  299. End Sub
  300. Private Sub oWinSock_Connect()
  301.     oStatusBar.Panels.Item(3).Text = "Connected"
  302.         
  303.     btnSend.Enabled = True
  304.     edInput.Enabled = True
  305.     edInput.SetFocus
  306. End Sub
  307. Private Sub oWinSock_ConnectionRequest(ByVal requestID As Long)
  308.     ' Close the connection if it is currently open
  309.     ' by testing the State property.
  310.     If oWinSock.State <> sckClosed Then oWinSock.Close
  311.     ' Pass the value of the requestID parameter to the
  312.     ' Accept method.
  313.     oWinSock.Accept requestID
  314.     oStatusBar.Panels.Item(3).Text = "Connected"
  315.         
  316.     btnSend.Enabled = True
  317.     edInput.Enabled = True
  318.     edInput.SetFocus
  319.     oWinSock.SendData ("Connection request accepted.  You are now chatting." & Chr(13) & Chr(10) & Chr(13) & Chr(10))
  320. End Sub
  321. Private Sub oWinSock_DataArrival(ByVal bytesTotal As Long)
  322.     'Post data to the output window
  323.     Dim strData As String
  324.     oWinSock.GetData strData, vbString
  325.     edOutput.SelStart = Len(edOutput.Text)
  326.     edOutput.SelText = strData
  327. End Sub
  328. Private Sub oWinSock_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
  329.     If Number = 10054 Then
  330.         edOutput.SelStart = Len(edOutput.Text)
  331.         edOutput.SelText = "The other party has closed the connection."
  332.         btnDisconnect_Click
  333.     Else
  334.         edOutput.SelStart = Len(edOutput.Text)
  335.         edOutput.SelText = "Error: " & Val(Number) & " " & Description
  336.         btnDisconnect_Click
  337.     End If
  338. End Sub
  339.