Telnet客户端

开发平台：

Visual Basic

deleteme.frm：源码内容

							VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   735
      Left            =   1260
      TabIndex        =   0
      Top             =   720
      Width           =   1635
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim SearchP
Dim i
Dim TempTrigger
Dim vals(9) ' $1 to $10
'For i = 0 To Trigger.ListCount - 1
    'templist=triggerlist(i)
    'trigtxt = triggertxt(i)
    If InStr(templist, "*") Then
incoming = UCase(incoming) 'input
templist = "* testing * for *" 'trigger
triggtxt = "Value1 = $0, value2 =$1, value3= $2." 'output
        
        TempTrigger = UCase(templist)
        
        If incoming Like TempTrigger Then
            SearchP = 1
            On Error Resume Next
            For i = 0 To 9
                incoming = Mid(incoming, InStr(TempTrigger, "*"))
                TempTrigger = Mid(TempTrigger, InStr(TempTrigger, "*") + 1)
                If Err Then Exit For
                Do
                    vals(i) = vals(i) + Left(incoming, 1)
                    incoming = Mid(incoming, 2)
                Loop Until incoming Like TempTrigger
            Next i
        
        For i = 0 To 9
            If InStr(triggtxt, "$" + Trim(Str(i))) Then
                tmpfront = InStr(triggtxt, "$" + Trim(Str(i))) - 1
                tmpback = tmpfront + 3
                triggtxt = Left(triggtxt, tmpfront) + vals(i) + Mid(triggtxt, tmpback)
                End If
        Next i
        MsgBox triggtxt
        End
        TempTrigger = triggtxt
        'TempTrigger = Triggertxt(i)
        Else
            SearchP = 0
        End If
    End If
    
    If SearchP > 0 Then
        MsgBox "Found: output = " + TempTrigger
 '       Socket1.Write Triggertxt(i), Len(Triggertxt(i))
    End If
    
'Next i
End Sub

						