NameSilo

VB connect to telnet

Namecheap AuctionsNamecheap Auctions
SpaceshipSpaceship
SpaceshipSpaceship
Watch

mattonline

Established Member
Impact
2
i'm new to VB but learning, and for a small project of mine i want to open telnet and preform an operation, i want to open telnet and use the text in a input form i would create in VB. I want to run telnet once i click the submit button.

So

I would have a basic layout, with a Input form where i can put a domain in
e.g. Internet.co.uk
Then i would click submit

then i want the program to connect to telnet then connect to

dac.nic.uk 2043

and input the domain in i typed before into telnet

what code will i need to connect to telnet?

what would be the fastest program to execute this, is it best to program it all in a batch program?
 
0
Close
The views expressed on this page by users and staff are their own, not those of NamePros.
GoDaddyGoDaddy
Insert a winsock control.
Code:
Private Sub Form_Load()
     dim ip as string
     dim port as long

     ip = inputbox("Please enter the IP")
     port = inputbox("Please enter the port")

     winsock1.connect ip, port
End Sub
That will connect you to a server.
 
0
Close
thanks for the fast reply, what winstock control will i need? is there a special one for telnet access,
 
0
Close
BTW are you coding VB6 or VB.net ?
 
0
Close
well what would be fastest for this type of application,
 
0
Close
Been researching this and found this code to conenct to telnet, i tried it but doesn't work, how can i mod this code to use

domaininput (this would be the text box where i would input the domain into)
CMDSend (command button to run the application and open telnet.


Private Sub Form_Load()
telnet.RemoteHost = "dac.nic.uk"
telnet.RemotePort = 2043
End Sub

Private Sub cmdConnect_Click()
telnet.Connect
cmdConnect.Enabled = False
End Sub

Private Sub telnet_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
telnet.GetData strData
txtOutput.Text = txtOutput.Text & strData
End Sub

Private Sub cmdSendData_Click()
If telnet.State = sckConnected Then
telnet.SendData txtSend.Text
End If
End Sub

Private Sub cmdEnd_Click()
telnet.Close
End
End Sub
 
0
Close
DomainEasy: white label portfolios are live. Enable yours.

We're social

Escrow.com
Spaceship
Domain Recover
CryptoExchange.com

NamePros updates

Switch between accounts
You can now stay logged in to more than one NamePros account in the same browser. Click your avatar, then "Accounts in this browser", to...
AIVikings
Catchy
  • The sidebar remains visible by scrolling at a speed relative to the page’s height.
Back