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