PowerTcp Telnet 사용하기

      

      

      

    
    

      <code />
    
       Dim mstrRecvData As String    

      

      

      

    
    

      <code />
    
      Dim 호스트ip As String = 서버아이피     

      

      

      

    
    

      <code />
    
       Dim 호스트port As String = 서버포트    

      

      

      

    
    

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

      

      

      

    
    

      <code />
    
       Dim 로그인ID As String = 아이디    

      

      

      

    
    

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

      

      

      

    
    

      <code />
    
      Dim 비밀번호 As String = 패스워드    

      

      

      

    
    

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

      

      

      

    
    

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

      

      

      

    
    

      <code />
    
Dim GENSHELL_NAME As String = 프로그램명(.SH)    

      

      

      

    
    

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

      

      

      

    
    

      <code />
    
 

      

      

      

    
    

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

      

      

      

    
    

      <code />
    
TelnetConnect.KeepAlive = True        

      

      

      

    
    

      <code />
    
lstLog.Items.Clear()        

      

      

      

    
    

      <code />
    
On Error GoTo OnError        

      

      

      

    
    

      <code />
    
AddLog("Connection to " & 호스트ip & " ...." & vbCrLf)        

      

      

      

    
    

      <code />
    
TelnetConnect.Connect(호스트ip, 호스트port, "", 0)        

      

      

      

    
    

      <code />
    
AddLog("Connect : " + vbCrLf)        

      

      

      

    
    

      <code />
    
mstrRecvData = ""        

      

      

      

    
    

      <code />
    
TelnetConnect.Search(mstrRecvData, 로그인Prompt)        

      

      

      

    
    

      <code />
    
AddLog(mstrRecvData)        

      

      

      

    
    

      <code />
    
TelnetConnect.Send(로그인ID & vbCrLf)        

      

      

      

    
    

      <code />
    
mstrRecvData = ""        

      

      

      

    
    

      <code />
    
TelnetConnect.Search(mstrRecvData, 비밀번호Prompt)        

      

      

      

    
    

      <code />
    
AddLog(mstrRecvData)        

      

      

      

    
    

      <code />
    
TelnetConnect.Send(비밀번호 & vbCrLf)        

      

      

      

    
    

      <code />
    
TelnetConnect.Send(vbCrLf)        

      

      

      

    
    

      <code />
    
mstrRecvData = ""        

      

      

      

    
    

      <code />
    
TelnetConnect.Search(mstrRecvData, strPrompt)        

      

      

      

    
    

      <code />
    
AddLog(mstrRecvData)        

      

      

      

    
    

      <code />
    
    

      

      

      

    
    

      <code />
    
TelnetConnect.Send("cd " & DBIO생성위치 & vbCrLf & vbCrLf)        

      

      

      

    
    

      <code />
    
mstrRecvData = ""        

      

      

      

    
    

      <code />
    
TelnetConnect.Search(mstrRecvData, DBIO생성위치)        

      

      

      

    
    

      <code />
    
AddLog(mstrRecvData)        

      

      

      

    
    

      <code />
    
TelnetConnect.Send(GENSHELL_NAME & " " & UCase(TableName) & vbCrLf)        

      

      

      

    
    

      <code />
    
mstrRecvData = ""        

      

      

      

    
    

      <code />
    
TelnetConnect.Search(mstrRecvData, GEN종료)        

      

      

      

    
    

      <code />
    
AddLog(mstrRecvData)        

      

      

      

    
    

      <code />
    
txDBIO_st.Text = "정상"        

      

      

      

    
    

      <code />
    
lstLog.SelectedIndex = lstLog.Items.Count - 1        

      

      

      

    
    

      <code />
    
Exit SubOnError:        

      

      

      

    
    

      <code />
    
' Display info about the error        

      

      

      

    
    

      <code />
    
AddLog(vbCrLf & vbCrLf & "ERROR #" & CStr(Err.Number) & ": " & Err.Description)        

      

      

      

    
    

      <code />
    
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