Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvorte nový projekt Visual Basic . Kliknite na " projekt " v ponuke a potom kliknite na tlačidlo " súčasti " . Prejdite nadol v dialógovom okne , kliknite na " Microsoft Winsock Control 6.0 " box dať šek v ňom , potom kliknite na tlačidlo " OK " tlačidlo . 
 2 
 Dvakrát kliknite na ovládací prvok Winsock v paneli nástrojov pridať do formulára . Tiež dvakrát kliknite na ovládací prvok CommandButton a ovládací prvok TextBox dvakrát pridať tieto tri ovládacie prvky do formulára . Kliknite na tlačidlo a pretiahnite je zabezpečiť im tak , ako by ste chceli . 
 3 
 Dvakrát kliknite na formulár otvoríte podprogram Form_Load . Zadajte nasledujúci kód : 
 
 WinSock1.LocalPort = portNumberWinSock1.Listen 
 
 server program beží , tento kód sa otvorí Winsock a čaká na pripojenie klienta na dodanom číslo portu . Buď použiť premennú nastaviť číslo portu alebo zadajte číslo priamo , ako portu 21 alebo 22 
 4 
 Otvorte podprogram WinSock1_ConnectionRequest a zadajte nasledujúci kód : . 
 
 Ak WinSock1 . Štátna < > sckClosed ThenWinSock1.CloseEnd IfWinSock1.Accept requestID 
 
 skontroluje , či ovládací prvok Winsock nadviazanie pripojenia , a ak áno , zavrie ju a potom prijíma požiadavky od klientov na vytvorenie nového pripojenia . 
 5 
 Otvorte podprogram WinSock1_DataArrival a zadajte nasledujúci kód : 
 
 Dim STRD Ako StringWinSock1.GetData medom, vbStringText1.Text = Text1.Text & medom 
 
prvý riadok vytvorí nový reťazec premennej získať prichádzajúce dáta od klienta . Druhý riadok smeruje ovládanie winsock ukladá dáta do premennej . Tretí riadok pripojí nové dáta do ľubovoľného existujúceho textu v prvom textovom poli