|  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur Interface Telnet med VB6

    Telnet är ett nätverksprotokoll som används på Internet som möjliggör kommunikation mellan datorer . Telnet ger tillgång till ett kommando -gränssnitt och används ofta för att utföra kommandon och hantera fjärrdatorer . Visual Basic 6 , eller VB6 , är ett programmeringsspråk utvecklat av Microsoft som kan användas för att skapa och gränssnitt med Telnet . Skapa ett program som använder Telnet i VB6 kräver en förståelse för Telnet och VB6 programmering . Instruktioner
    1

    Öppna Visual Basic 6 .
    2

    Välj " Standard EXE " från det nya projektet listan . Du bör ha en standard main formulär på skärmen för att börja lägga dina kontroller .
    3

    Klicka på " Project , och klicka sedan på " Referenser . " Rulla ner och välj " ActiveSocket 3.1 " kontroll från listan .
    4

    Dubbelklicka på den viktigaste formen för att komma in i sin Form_Load händelsen .
    5

    Kopiera och klistra in följande kodblock i formulärets kod modul :

    Option Explicit

    Dim objSocket Som ASOCKETLib.Tcp

    Private Sub BTN_Connect_Click ( ) katalog

    objSocket.Connect TXT_Host , 23
    < p > TXT_Result = " CONNECT : " & objSocket.LastError & " ( " & objSocket.GetErrorDescription ( objSocket.LastError ) & " ) "

    End Sub

    Private Sub BTN_Disconnect_Click ( ) katalog

    objSocket.Disconnect

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

    End Sub

    Private Sub BTN_Submit_Click ( ) katalog

    objSocket.SendString TXT_Command

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

    End Sub

    Private Sub Form_Load ( ) katalog

    Set objSocket = CreateObject ( " ActiveXperts.Tcp " ) katalog

    objSocket.Protocol = objSocket.asPROTOCOL_TELNET

    TXT_Result = "N /A "

    TXT_Received = " "

    End Sub

    Private Sub Timer_Timer ( ) katalog

    objSocket . HasData

    TXT_Received.Text = TXT_Received & objSocket.ReceiveString

    Wend

    End Sub

    Tidigare:

    nästa:
    relaterade artiklar
    ·Lägga till en MSG Blockera
    ·Hur konvertera Unicode för ANSI Vb
    ·Hur du formaterar den TimeSpan Fastighetsförmedling i …
    ·Hur man skapar ett Visual Basic program med Om Else & F…
    ·Komma åt VBA Datatyper
    ·Hur man skriver manus med Notepad
    ·Hur man gör en sökning Formulär för ett Visual Basi…
    ·Hur Ping med Visual Basic
    ·Visual Basic : Hur att välja en bild Array till en bil…
    ·Hur man bygger en XML -fil med Visual Basic Net Använd…
    Utvalda artiklarna
    ·Hur man installerar en Java Applet Program
    ·Hur man skapar en pulsbreddsmodulering (PWM ) i en Veri…
    ·Hur man Bestäm minsta positiva flyttal
    ·Swish PHP klass hittades inte
    ·Jämförelse av Java & Net Platforms
    ·Hur man skriver en rekursiv funktion Index Max
    ·Hur Abort VB.NET
    ·Hur läsa filen innehåll PHP
    ·Hur man skapar ett formulär listruta för datum kredit…
    ·MySQL PHP Query Tutorial
    Copyright © Dator Kunskap http://www.dator.xyz