I'm currently attempting to use PLink (the console component of PUTTY - see
http://www.chiark.greenend.org.uk/~sgtatham/putty/) as a Telnet component as
I may in future need to change to using SSH and this seems an ideal solution.
I'm running it as a process and re-directing the standardinput/output/error
However, despite working through all the different variations of code I can
either think of or find I am unable to achieve true interactivity with the
program (which would be nice). I can happily pass commands to the program,
but once it has connected to the Telnet destination (i.e. Once I have passed
the password), I do not get any output returned to standardoutput until PLink
exits, at which point I get it all. I have tried reading the
standardoutput/error on different threads to see if they were blocking the
processing, but this did not seem to be the case, so I dropped back to the
simpler more hackable code you see below.
I have attached the main block below, it's not very neat due to being
reworked multiple times and may now contain some redundant bits so apologies
in advance. Hopefully however it may provide a basis for someone to point out
what I need to change to get this thing working.
Friend Shared TelnetProcess As System.diagnostics.Process = New
System.diagnostics.Process
Friend Shared TelnetStage As Integer = 0
Friend Shared TelnetBuffer As String = ""
Friend Shared TelnetBufferFull As String = ""
Friend Shared TelnetIn As StreamWriter
Friend Shared TelnetOut As StreamReader
Friend Shared TelnetErr As StreamReader
Friend WithEvents tmrProcessAIX As System.Timers.Timer = New
System.Timers.Timer
Friend WithEvents tmrProcessSwitch As System.Timers.Timer = New
System.Timers.Timer
Friend WithEvents objStdOutRead As clsStdOutRead = New clsStdOutRead
Friend WithEvents objStdErrRead As clsStdErrRead = New clsStdErrRead
Friend thrdProcessStdOutRead As Thread = New Thread(AddressOf
objStdOutRead.StdOutRead)
Friend thrdProcessStdErrRead As Thread = New Thread(AddressOf
objStdErrRead.StdErrRead)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TelnetStage = 0
TelnetBuffer = ""
TelnetBufferFull = ""
TelnetProcess.StartInfo.FileName = Application.StartupPath &
"\tools\" & "plink.exe"
TelnetProcess.StartInfo.Arguments = " -telnet 192.168.1.6 -l myid"
TelnetProcess.StartInfo.UseShellExecute = False
TelnetProcess.StartInfo.CreateNoWindow = True
TelnetProcess.StartInfo.RedirectStandardInput = True
TelnetProcess.StartInfo.RedirectStandardOutput = True
'TelnetProcess.StartInfo.RedirectStandardError = True
TelnetProcess.Start()
TelnetIn = TelnetProcess.StandardInput
TelnetOut = TelnetProcess.StandardOutput
TelnetErr = TelnetProcess.StandardOutput
TelnetProcess.StandardInput.AutoFlush = True
tmrProcess.Interval = 1000
tmrProcess.Enabled = True
End Sub
Sub tmrProcess_Elapsed(ByVal sender As Object, ByVal e As
System.Timers.ElapsedEventArgs) Handles tmrProcessAIX.Elapsed
Dim sOutBuffer As String = ""
Dim x As String
Dim iChar As Integer
Try
Select Case TelnetStage
Case 0
tmrProcessAIX.Enabled = False
Do While TelnetProcess.StandardOutput.Peek() >= 0
iChar = TelnetProcess.StandardOutput.Read()
TelnetBuffer = TelnetBuffer & (Convert.ToChar(iChar))
Console.WriteLine("TB >" & TelnetBuffer.ToString())
Loop
If (InStr(TelnetBuffer, "Password:") > 0) Then
TelnetProcess.StandardInput.Write("password" & vbCrLf)
TelnetBufferFull = TelnetBufferFull & TelnetBuffer &
"xxxxxxxx" & System.Environment.NewLine
TelnetBuffer = ""
TelnetStage = 1
End If
tmrProcessAIX.Enabled = True
Case 1
tmrProcessAIX.Enabled = False
Do While TelnetProcess.StandardOutput.Peek() >= 0
iChar = TelnetProcess.StandardOutput.Read()
TelnetBuffer = TelnetBuffer & (Convert.ToChar(iChar))
Console.WriteLine("TB >" & TelnetBuffer.ToString())
Loop
TelnetProcess.StandardInput.WriteLine("command" & vbCrLf)
TelnetBufferFull = TelnetBufferFull & TelnetBuffer
TelnetBuffer = ""
TelnetStage = 98
tmrProcessAIX.Enabled = True
Case 98
tmrProcessAIX.Enabled = False
Do While TelnetProcess.StandardOutput.Peek() >= 0
iChar = TelnetProcess.StandardOutput.Read()
TelnetBuffer = TelnetBuffer & (Convert.ToChar(iChar))
Console.WriteLine("TB >" & TelnetBuffer.ToString())
Loop
TelnetProcess.StandardInput.WriteLine("exit" & vbCrLf)
TelnetProcess.StandardInput.WriteLine("exit" & vbCrLf)
TelnetBufferFull = TelnetBufferFull & TelnetBuffer
TelnetBuffer = ""
TelnetStage = 99
Console.WriteLine("TBF>" & TelnetBufferFull)
tmrProcessAIX.Enabled = True
Case 99
tmrProcessAIX.Enabled = False
Do While TelnetProcess.StandardOutput.Peek() >= 0
iChar = TelnetProcess.StandardOutput.Read()
TelnetBuffer = TelnetBuffer & (Convert.ToChar(iChar))
Console.WriteLine("TB >" & TelnetBuffer.ToString())
Loop
TelnetBufferFull = TelnetBufferFull & TelnetBuffer
x = TelnetBufferFull &
TelnetProcess.StandardOutput.ReadToEnd
'MsgBox(x)
TextBox1.Text = x
TelnetProcess.Kill()
End Select
Catch ioe As InvalidOperationException
Catch ex As Exception
MsgBox(ex.ToString)
Finally
End Try
End Sub
--
Al
Systems Type
