【VB开源代码栏目提醒】：网学会员为需要VB开源代码的朋友们搜集整理了TELNET.FRM相关资料，希望对各位网友有所帮助!

    VERSION 5.00
    Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
    Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
    Begin VB.Form frmTelnet 
       BackColor       =   &H80000017&
       BorderStyle     =   3  'Fixed Dialog
       Caption         =   "Telnet Client"
       ClientHeight    =   5970
       ClientLeft      =   -225
       ClientTop       =   3000
       ClientWidth     =   8220
       FillColor       =   &H00800000&
       BeginProperty Font 
          Name            =   "Arial"
          Size            =   9
          Charset         =   0
          Weight          =   400
          Underline       =   0   'False
          Italic          =   0   'False
          Strikethrough   =   0   'False
       EndProperty
       ForeColor       =   &H0000FFFF&
       Icon            =   "telnet.frx":0000
       KeyPreview      =   -1  'True
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       PaletteMode     =   1  'UseZOrder
       ScaleHeight     =   5970
       ScaleWidth      =   8220
       ShowInTaskbar   =   0   'False
       StartUpPosition =   2  '屏幕中心
       Begin MSWinsockLib.Winsock WinsockClient 
          Left            =   6120
          Top             =   600
          _ExtentX        =   741
          _ExtentY        =   741
          _Version        =   393216
       End
       Begin VB.Timer cursor_timer 
          Enabled         =   0   'False
          Interval        =   300
          Left            =   6600
          Top             =   600
       End
       Begin ComctlLib.StatusBar stbStatusBar 
          Align           =   2  'Align Bottom
          Height          =   495
          Left            =   0
          TabIndex        =   0
          Top             =   5475
          Width           =   8220
          _ExtentX        =   14499
          _ExtentY        =   873
          Style           =   1
          SimpleText      =   "Welcome to Telnet Client"
          ShowTips        =   0   'False
          _Version        =   327682
          BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
             NumPanels       =   4
             BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
                Object.Width           =   2822
                MinWidth        =   2822
                Text            =   "No Connection"
                TextSave        =   "No Connection"
                Key             =   "Mode"
                Object.Tag             =   ""
                Object.ToolTipText     =   "Operating Mode"
             EndProperty
             BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
                Text            =   "None"
                TextSave        =   "None"
                Key             =   "Lip"
                Object.Tag             =   ""
                Object.ToolTipText     =   "Local IP"
             EndProperty
             BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
                Text            =   "None"
                TextSave        =   "None"
                Key             =   "Rip"
                Object.Tag             =   ""
                Object.ToolTipText     =   "Remote IP"
             EndProperty
             BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
                AutoSize        =   1
                Object.Width           =   6456
                Text            =   "Welcome to Ian's Telnet Client"
                TextSave        =   "Welcome to Ian's Telnet Client"
                Key             =   "Status"
                Object.Tag             =   ""
                Object.ToolTipText     =   "Last Status Message"
             EndProperty
          EndProperty
          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
             Name            =   "MS Sans Serif"
             Size            =   8.25
             Charset         =   0
             Weight          =   400
             Underline       =   0   'False
             Italic          =   0   'False
             Strikethrough   =   0   'False
          EndProperty
       End
       Begin VB.Menu mFile 
          Caption         =   "&File"
          Begin VB.Menu mExit 
             Caption         =   "E&xit"
          End
       End
       Begin VB.Menu mConnection 
          Caption         =   "Con&nection"
          Begin VB.Menu mSettings 
             Caption         =   "&Settings"
             Shortcut        =   ^S
          End
          Begin VB.Menu mOpen 
             Caption         =   "&Open"
             Shortcut        =   ^O
          End
          Begin VB.Menu mClose 
             Caption         =   "&Close"
             Shortcut        =   ^Q
          End
       End
    End
    Attribute VB_Name = "frmTelnet"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    
    Option Explicit
    
    Const GO_NORM = 0
    
    Const GO_ESC1 = 1
    Const GO_ESC2 = 2
    Const GO_ESC3 = 3
    Const GO_ESC4 = 4
    Const GO_ESC5 = 5
    
    Const GO_IAC1 = 6
    Const GO_IAC2 = 7
    Const GO_IAC3 = 8
    Const GO_IAC4 = 9
    Const GO_IAC5 = 10
    Const GO_IAC6 = 11
    
    
    Const SUSP = 237
    Const ABORT = 238      'Abort
    Const SE = 240         'End of Subnegotiation
    Const NOP = 241
    Const DM = 242         'Data Mark
    Const BREAK = 243      'BREAK
    Const IP = 244         'Interrupt Process
    Const AO = 245         'Abort Output
    Const AYT = 246        'Are you there
    Const EC = 247         'Erase character
    Const EL = 248         'Erase Line
    Const GOAHEAD = 249    'Go Ahead
    Const SB = 250         'What follows is subnegotiation
    Const WILLTEL = 251
    Const WONTTEL = 252
    Const DOTEL = 253
    Const DONTTEL = 254
    Const IAC = 255
    
    Const BINARY = 0
    Const ECHO = 1
    Const RECONNECT = 2
    Const SGA = 3
    Const AMSN = 4
    Const STATUS = 5
    Const TIMING = 6
    Const RCTAN = 7
    Const OLW = 8
    Const OPS = 9
    Const OCRD = 10
    Const OHTS = 11
    Const OHTD = 12
    Const OFFD = 13
    Const OVTS = 14
    Const OVTD = 15
    Const OLFD = 16
    Const XASCII = 17
    Const LOGOUT = 18
    Const BYTEM = 19
    Const DET = 20
    Const SUPDUP = 21
    Const SUPDUPOUT = 22
    Const SENDLOC = 23
    Const TERMTYPE = 24
    Const EOR = 25
    Const TACACSUID = 26
    Const OUTPUTMARK = 27
    Const TERMLOCNUM = 28
    Const REGIME3270 = 29
    Const X3PAD = 30
    Const NAWS = 31
    Const TERMSPEED = 32
    Const TFLOWCNTRL = 33
    Const LINEMODE = 34
    Const DISPLOC = 35
    Const ENVIRON = 36
    Const AUTHENTICATION = 37
    Const UNKNOWN39 = 39
    Const EXTENDED_OPTIONS_LIST = 255
    Const RANDOM_LOSE = 256
    
    
    
    
    '------------------------------------------------------------
    Private Operating       As Boolean
    Private Connected       As Boolean
    Public Receiving        As Boolean
    
    Private parsedata(10)   As Integer
    Private ppno            As Integer
    
    
    Private control_on      As Boolean
    
    
    Public RemoteIPAd  As String
    Public RemotePort  As Integer
    
    Public TraceTelnet As Boolean
    Public Tracevt100   As Boolean
    
    Priv