Ako na rozhranie Telnet s VB6

Telnet je sieťový protokol používaný na Internete , ktorý umožňuje komunikáciu medzi počítačmi . Telnet poskytuje prístup k príkazové rozhranie a je často používaný na vykonávanie príkazov a správu vzdialených počítačov . Visual Basic 6 , alebo VB6 , je programovací jazyk vyvinutý spoločnosťou Microsoft , ktoré možno použiť na vytvorenie a rozhrania s Telnet . Vytvorenie program , ktorý umožňuje použitie aplikácie Telnet vo VB6 vyžaduje pochopenie Telnet a VB6 programovanie . Pokyny dovolená 1

Otvorte Visual Basic 6.
2

zvoľte " Štandardné EXE " z nového zoznamu projektov . Mali by ste mať predvolený hlavného formulára na obrazovke a začať pridávať ovládacie prvky .
3

Kliknite na " projektu , a potom kliknite na tlačidlo " Odkazy " . Prejdite nadol a vyberte " ActiveSocket 3.1 " kontrola zo zoznamu .
4

Dvakrát kliknite v hlavnom formulári sa dostať do jeho Form_Load udalosti .
5

skopírujte a vložte nasledujúci blok kódu do kódu formulára modul :

Option Explicit Dim

objSocket Ako ASOCKETLib.Tcp

Private Sub BTN_Connect_Click ( )

objSocket.Connect TXT_Host , 23

TXT_Result = " CONNECT " a objSocket.LastError & " ( " & objSocket.GetErrorDescription ( objSocket.LastError ) & " ) "

End Sub

Private Sub BTN_Disconnect_Click ( )

objSocket.Disconnect

TXT_Result = " Disconnect " a objSocket.LastError & " ( " & objSocket.GetErrorDescription ( objSocket.LastError ) & " ) "

End Sub

Private Sub BTN_Submit_Click ( )

objSocket.SendString TXT_Command

TXT_Result = " SEND " a objSocket.LastError & " ( " & objSocket.GetErrorDescription ( objSocket.LastError ) & " ) "

End Sub

Private Sub Form_Load ( )

Set objSocket = CreateObject ( " ActiveXperts.Tcp " )

objSocket.Protocol = objSocket.asPROTOCOL_TELNET

TXT_Result = " N /A "

TXT_Received = " "

End Sub

Private Sub Timer_Timer ( )

Kým objSocket . HasData

TXT_Received.Text = TXT_Received & objSocket.ReceiveString

Wend

End Sub

• Predchádzajúca strana: Ako môžem prenášať dáta medzi viacerými foriem vo VB.NET 
• Ďalšia strana: Ako zastaviť riadenie , v VB6.0