PowerTcp Telnet 사용하기

       Dim mstrRecvData As String    

      Dim 호스트ip As String = 서버아이피     

       Dim 호스트port As String = 서버포트    

       Dim 로그인Prompt As String = "login:" '로그인시 아이디를 입력할 시기를 알기 위해 아이디를 입력해야할 프롬프트 명을 입력    

       Dim 로그인ID As String = 아이디    

      Dim 비밀번호Prompt As String = "Password:" '로그인시 패스워드를 입력할 시기를 알기 위해 아이디를 입력해야할 프롬프트 명을 입력    

      Dim 비밀번호 As String = 패스워드    

     Dim strPrompt As String = 첫화면의 프롬프트(폴더명)    

Dim DBIO생성위치 As String = 프로그램(.SH)가 위치한 경로    

Dim GENSHELL_NAME As String = 프로그램명(.SH)    

Dim GEN종료 As String = 프로그램이 끝나고 마지막줄에 출력되는 값을 입력    

Private Sub DBIO_Creation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        

TelnetConnect.KeepAlive = True        

lstLog.Items.Clear()        

On Error GoTo OnError        

AddLog("Connection to " & 호스트ip & " ...." & vbCrLf)        

TelnetConnect.Connect(호스트ip, 호스트port, "", 0)        

AddLog("Connect : " + vbCrLf)        

mstrRecvData = ""        

TelnetConnect.Search(mstrRecvData, 로그인Prompt)        

AddLog(mstrRecvData)        

TelnetConnect.Send(로그인ID & vbCrLf)        

mstrRecvData = ""        

TelnetConnect.Search(mstrRecvData, 비밀번호Prompt)        

AddLog(mstrRecvData)        

TelnetConnect.Send(비밀번호 & vbCrLf)        

TelnetConnect.Send(vbCrLf)        

mstrRecvData = ""        

TelnetConnect.Search(mstrRecvData, strPrompt)        

AddLog(mstrRecvData)        

TelnetConnect.Send("cd " & DBIO생성위치 & vbCrLf & vbCrLf)        

mstrRecvData = ""        

TelnetConnect.Search(mstrRecvData, DBIO생성위치)        

AddLog(mstrRecvData)        

TelnetConnect.Send(GENSHELL_NAME & " " & UCase(TableName) & vbCrLf)        

mstrRecvData = ""        

TelnetConnect.Search(mstrRecvData, GEN종료)        

AddLog(mstrRecvData)        

txDBIO_st.Text = "정상"        

lstLog.SelectedIndex = lstLog.Items.Count - 1        

Exit SubOnError:        

' Display info about the error        

AddLog(vbCrLf & vbCrLf & "ERROR #" & CStr(Err.Number) & ": " & Err.Description)        

txLogin_st.Text = "오류"        txDBIO_st.Text = "오류"    End Sub    Private Sub AddLog(ByVal S As String)        Dim lines() As String = S.Split(vbCrLf & vbCrLf)        Dim i As Integer        For i = 0 To UBound(lines)            lines(i) = lines(i).Replace(vbLf, "")            If lines(i).Length > 0 Then                lstLog.Items.Add(lines(i))            End If        Next