Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Kliknite na tlačidlo Windows " Štart " a zadajte " Visual Basic 6 " do textového poľa vyhľadávania . Stlačte tlačidlo " Enter " pre otvorenie Visual Basic softvér .
2
Kliknite na " projekt " položku menu , a vyberte " Odkazy " . Zobrazí sa zoznam komponentov ActiveX môžete vložiť do svojho programu . Zaškrtnite políčko " ActiveSocket " a kliknite na " OK " a pridajte ju do svojho projektu .
3
pravým tlačidlom myši na súbor VB kód , ktorý chcete použiť na pripojenie na server služby Telnet . Kliknite na " Zobraziť kód . " Zadajte nasledujúci kód pre vytvorenie premenné triedy Telnet :
Public telnet Ako ASOCKETLib.Tcp
Set telnet = CreateObject ( " ActiveXperts.Tcp " )
4
vytvorenie pripojenia Telnet . Nasledujúci kód vytvorí pripojenie k serveru " tserver " na porte 23 , čo je port servera predvolené Telnet :
telnet.Connect " tserver " , 23
5
Odoslať príkaz na server . Môžete použiť funkciu " SendText " odoslať príkaz na server . Nasledujúci kód odošle " dir " príkaz , ktorý zobrazí zoznam súborov a adresárov na serveri :
telnet.SendString " dir "
6
Uzavrite pripojenie k serveru . Po dokončení odosielania príkazov na serveri , musíte ukončiť pripojenie pre dokončenie služby . Použite nasledujúci kód zatvorte pripojenie :
telnet.Disconnect