Telnet in VB - ASP Free

ASP Free Forums Sponsor:

October 10th, 2005, 08:17 PM

Paidblow

Contributing User

Join Date: Jan 2005

Posts: 37

Time spent in forums: 13 h 4 m 3 sec
Reputation Power: 4

Telnet in VB

Hi there.

I'm working on an application that has to execute a scripted secuence of commands in telnet, i've been using tst10 to enable the connection and execute the script here's my code:

Code:

Private Function Conecta(Frase As String, archivo As String) As String
Dim NextBucle As Double
    Dim PID As Double
    Dim comando As String
    
    comando = App.Path & "\tst10.exe /r:script.txt /o:output.txt"
    PID = Shell(comando)
    Do
    'Delay (1)
    NextBucle = VerificaProceso(PID)
    Loop Until NextBucle = 0
    PID = NextBucle

End Function

But everytime i run it on vb it opens the tst10 help file!

if I run that very same command line on the dos prompt it runs flawlessly but not on the vb shell, why?

Could someone please tell me why the shell is failing or where i could get another free scripting application for telnet?

Please help me.

thanks

October 10th, 2005, 11:03 PM

Doug G

Grumpier Old Moderator

ASP Free God 11th Plane (10000 - 10499 posts)

Join Date: Sep 2003

Posts: 10,143

Time spent in forums: 3 Weeks 4 Days 23 h 19 m 36 sec
Reputation Power: 181

Possibly because the switches to your command are using relative paths and who knows where your current directory is pointing? Just guessing.

Comments on this post

Paidblow agrees!

__________________
======
Doug G
======
I didn't attend the funeral, but I sent a nice letter saying I approved of it. --Mark Twain

October 10th, 2005, 11:16 PM

lewy

Alter Ego Wizard

Join Date: Jun 2004

Location: Edinburg Tx

Posts: 4,381

Folding Points: 1009 Folding Title: Novice Folder

Time spent in forums: 1 Month 1 Week 1 Day 23 h 7 m 43 sec
Reputation Power: 1488

Telnet ActiveX component

Comments on this post

Paidblow agrees: Thanks but the Dart software aint free...

__________________
................... ASCII and ye shall receive ..................
Knowledge is the only resource on earth that multiplies when shared

Support the Shemzilla Project
Powered by C#

October 13th, 2005, 02:15 PM

Paidblow

Contributing User

Join Date: Jan 2005

Posts: 37

Time spent in forums: 13 h 4 m 3 sec
Reputation Power: 4

Thanks everyone for your help, the program is now working.

Someone told me that i could program the entire telnet sequence using Winsock, i've been doing some research about winsock and i have managed to make this:

Code:

Private Sub Command1_Click()
TCPClient.RemoteHost = "10.103.8.15"
    TCPClient.RemotePort = 23
    TCPClient.Connect
    TCPClient.GetData strData
TCPClient.SendData "root" & vbCrLf

But when i come to the part when i try to run either GetData or SendData i get the error WSAEWOULDBLOCK.

Could somebody help me? I'm new to Sockets.

Thanks

October 14th, 2005, 04:06 PM

Alias-Zero

Contributing User

Join Date: Sep 2005

Location: localhost

Posts: 40

Time spent in forums: 14 h 44 m 12 sec
Reputation Power: 4

Quote:

Originally Posted by Paidblow

Thanks everyone for your help, the program is now working.

Someone told me that i could program the entire telnet sequence using Winsock, i've been doing some research about winsock and i have managed to make this:

Code:

Private Sub Command1_Click()
TCPClient.RemoteHost = "10.103.8.15"
    TCPClient.RemotePort = 23
    TCPClient.Connect
    TCPClient.GetData strData
TCPClient.SendData "root" & vbCrLf

But when i come to the part when i try to run either GetData or SendData i get the error WSAEWOULDBLOCK.

Could somebody help me? I'm new to Sockets.

Thanks

try placing your

TCPClient.GetData strData

in the data arrival declarations

ie.

Code:

Private Sub TCPClient_DataArrival(ByVal bytesTotal As Long)
TCPClient.GetData StrData, vbString
MsgBox StrData
End Sub

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread: