WinSock - První aplikace

Tento seriál není úplně o všem, co lze pomocí komponenty WinSock dělat, ale naučíte se, jak zasílat zprávy z počítače A na počítač B - a to Vám dá náhled, jak WinSock pracuje.

Takže: spusťte Visual Basic, do projektu přidejte komponentu Microsoft WinSock Control a natáhněte ji na formulář. Od této chvíle se tento prvek stává klíčovým, neboť umožňuje jednoduše komunikovat po síti.

Na formulář přidejte TextBox, pojmenujte je txtAddress a druhý TextBox, který pojmenujte txtMessage. První TextBox bude pro zadání "adresy" počítače, na který budete chtít zaslat zprávu. Druhý TextBox je pro vlastní text zprávy. Tato zpráva bude odesílána pomocí komponenty WinSock. Na formulář ještě přidejte tlačítko a na jeho událost Click:

Winsock1.RemoteHost = txtAddress.Text
Winsock1.RemotePort = 1000

Winsock1.Connect

Do Until Winsock1.State = sckConnected
DoEvents: DoEvents: DoEvents: DoEvents
Loop

Winsock1.SendData (txtMessage.Text)

Winsock1.Close

První řádka říká komponentě WinSock, na který počítač se má "připojit". RemoteHost může být buď jméno počítače, nebo IP adresa.

TIP: IP adresa je sérií čtyř čísel, oddělených tečkami, jako například 10.240.24.38. Je to číselná adresa, která jednoznačně identifikuje Váš počítač. Každý v síti má unikátní IP adresu, a pokaždé, když se připojíte na Internet, je Vašemu počítači automaticky přiřazena unikátní IP adresa - a nikdo jiný na Netu nebude mít tu samou adresu jako Vy. Abyste zjistili Vaší IP adresu, klikněte na Start -> Programy -> Příkazový řádek MS-DOS, napište IPCONFIG a stiskněte Enter.

Druhá řádka kódu nastavuje RemotePort. Může to být jakékoliv číslo a můžete si jej představit něco jako frekvenci při vysílání rádia. Zde jsme nastavili ladící frekvenci na 1000 FM pro jiný počítač a připravili se k vysílání.

Winsock1.Connect
Do Until Winsock1.State = sckConnected
   DoEvents: DoEvents: DoEvents: DoEvents
Loop

Tato část kódu se pokouší připojit na vzdálený počítač a probíhá v cyklu, dokud je připojení k dispozici.

TIP: Tato procedurka běží neustále dokola, i když je vzdálený počítač například vypnut. Pokud se objeví chyba, WinSock přechází do stavu sckError (9) - čili zde můžete přidat kód, který si tento stav ošetří.

Winsock1.SendData (txtMessage.Text)

Konečně, poslední řádka odesílá Vaše data do sítě.

Můžeme tedy říci, že program pro odesílání zpráv - klient, je hotov. Nyní se podíváme jak vybudovat příjemce.

 Další