Telnet is een netwerk protocol dat wordt gebruikt over het internet dat de communicatie tussen computers mogelijk maakt . Telnet biedt toegang tot een commando -interface en wordt vaak gebruikt om opdrachten uit te voeren en te beheren computers op afstand . Visual Basic 6 of VB6 is een programmeertaal ontwikkeld door Microsoft die kan worden gebruikt voor het maken en communiceren met Telnet . Het maken van een programma dat het gebruik van Telnet in VB6 maakt vereist een begrip van Telnet en VB6 programmeren . Instructies
1 Open Visual Basic 6 . Kopen van 2 Selecteer " Standard EXE " uit het nieuwe project lijst . Je moet een standaard hoofdformulier op je scherm moeten beginnen met het toevoegen van uw controles .
Klik op " Project , en klik vervolgens op " 3 Referenties . " Scroll naar beneden en selecteer de " ActiveSocket 3.1 " controle uit de lijst .
4 Dubbelklik op de belangrijkste vorm te krijgen in haar Form_Load evenement .
Kopieer 5 en plak de volgende code blok in de code van de Form module : Option Explicit Dim objSocket
Zoals ASOCKETLib.Tcp
Private Sub BTN_Connect_Click ( ) objSocket.Connect TXT_Host
, 23
TXT_Result = " CONNECT : " & objSocket.LastError & " ( " & objSocket.GetErrorDescription ( objSocket.LastError ) & " ) " End Sub
Private Sub BTN_Disconnect_Click ( ) op Twitter objSocket.Disconnect TXT_Result = " DISCONNECT : "
& objSocket.LastError & " ( " & objSocket.GetErrorDescription ( objSocket.LastError ) & " ) " End of Sub
Private Sub BTN_Submit_Click ( ) objSocket.SendString TXT_Command TXT_Result
= " SEND : " & objSocket.LastError & " ( " & objSocket.GetErrorDescription ( objSocket.LastError ) & " ) " End Sub Private Sub Form_Load
( ) op Stel objSocket = CreateObject ( " ActiveXperts.Tcp " ) objSocket.Protocol = objSocket.asPROTOCOL_TELNET
TXT_Result = " N /A "
TXT_Received = " " End Sub Private Sub Timer_Timer
( ) op
Terwijl objSocket . HasData TXT_Received.Text
= TXT_Received & objSocket.ReceiveString
Wend
End Sub
|
