Contoh Aplikasi Client server sederhana dengan winsock pada Visual Basic

Ini adalah contoh aplikasi client server dengan menggunakan winsock pada visual basic. Disini ada 2 program yaitu program client dan program server. Pada program server perlu disetting untuk koneksi database pada file path.txt . Kemudian program server dijalankan. Pada program server akan terlihat IP Address.
Kemudian pada program client perlu dikonfigurasi pada source program di bagian

Private Sub cmdConnect_Click()
Winsock1.RemoteHost = “192.168.1.2” ‘Change this to your host ip
Winsock1.RemotePort = 1007
Winsock1.Connect
shpGo.Visible = True
txtItem.SetFocus
End Sub

Sesuaikan dengan IP Server tadi. Kemudian coba jalankan . Klik connect untuk memulai koneksi ke server, kemudian masukan masukkan item number 1 dan klik lookup otomatis akan terlihat harganya. Coba lagi untuk item number yang lain ( 2, 3, 4, 5)
Ok Silahkan mencoba, kalau masih tidak berjalan silahkan isi comment

Thank To Allah SWT