Unstoppable Domains

VB connect to telnet

Spaceship Spaceship
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
•••
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
•••
thanks for the fast reply, what winstock control will i need? is there a special one for telnet access,
 
0
•••
BTW are you coding VB6 or VB.net ?
 
0
•••
well what would be fastest for this type of application,
 
0
•••
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
•••
Dynadot — .com Registration $8.99Dynadot — .com Registration $8.99

We're social

Unstoppable Domains
Domain Recover
DomainEasy — Zero Commission
  • The sidebar remains visible by scrolling at a speed relative to the page’s height.
Back