VB6.0 :: Windows Sockoet (Winsock) dan Contoh Pemrogaman Menggunakan Visual Basic 6.0 (TCP/IP)

Windows Socket (Winsock)

     Socket merupakan inti dari pemrograman jaringan. Winsock merupakan standar API jaringan pada semua varian dari sistem operasi Microsoft Windows. Sampai saat artikel ini ditulis, Winsockmencapai versi 2.2 yang merupakan penyempurnaan dari versi 2.1. Inti rutin Winsock berada pada file WS2_32.DLL. Untuk memudahkan pemrograman dengan kontrol ActiveX, Microsoft telah membuat kontrol Winsock yang diimplementasikan pada file MSWINSCK.OCX. Untuk mempermudah pengertian dan pembahasan, contoh-contoh program pada modul ini akan menggunakan kontrol Winsock yang diimplementasikan pada bahasa pemrograman Microsoft Visual Basic versi 6.0.

Cara Kerja Winsock

      Misalnya terdapat dua buah komputer: client dan server yang ingin berhubungan. Langkah-langkah untuk mengadakan koneksi, mengirim data sampai pemutusan koneksi dapat digambarkan sebagai berikut.

1. Mula-mula server akan mendengarkan (listen) permintaan koneksi pada nomor port tertentu. Nomor port digunakan untuk membedakan aplikasi pada sebuah sistem komputer.

2. Client yang ingin berhubungan meminta koneksi kepada server (connect).

3. Server menerima koneksi dari client (accept).

4. Selanjutnya baik client atau server dapat saling berkirim (senddata) dan menerima data (getdata).

5. Client menutup koneksinya.

Pemrogaman Menggunakan Visual Basic 6.0 (TCP/IP)

         Untuk pemrograman aplikasi socket berbasis Windows, maka komponen API yang sering digunakan adalah Winsock (Win-dows Socket API) yang mendukung interface standar TCP/IP, yang merupakan protokol jaringan paling popular saat ini (contoh protokol jaringan yang lain adalah NetBIOS, IPX dari Novell, AppleTalk dari Apple, dan seterusnya).
Pengertian TCP/IP (TCP over IP) mungkin dapat menjadi sedikit rancu jika diartikan TCP/IP hanya mengizinkan pengiriman TCP (dan tidak UDP), padahal seperti yang telah kita bahas, pengiriman socket dapat melalui TCP maupun UDP. Pengertian TCP/IP di sini sebenarnya digunakan untuk menunjukkan teknologi jaringan/Internet, termasuk di dalamnya adalah UDP. Jika Anda menggunakan UDP, dapat juga disebut sebagai UDP/IP (UDP over IP), tetapi umumnya istilah ini jarang digunakan dan istilah TCP/IP telah mencakup, baik TCP maupun UDP.

Pada bahasa pemrograman visual seperti Visual Basic/Delphi, Anda dapat menggunakan control Winsock yang telah disediakan untuk mengembangkan aplikasi socket.Walaupun kita akan mencontohkan aplikasi socket dalam environment Windows, Anda tidak perlu khawatir jika aplikasi socket yang menggunakan Winsock tidak dapat berkomunikasi dengan aplikasi socket berbasis Unix/Linux, karena komunikasi tetap dapat terjadi selama aplikasi tersebut menggunakan protokol jaringan yang sama.

Kalau demikian, untuk mencoba aplikasi socket, apakah mutlak diperlukan setidaknya jaringan dengan minimal dua komputer yang saling terkoneksi? Bagi Anda yang terpaksa hanya menggunakan satu komputer, dapat memanfaatkan alamat localhost atau 127.0.0.1 yang mengizinkan dua aplikasi berjalan pada satu mesin komputer dan berkomunikasi satu sama lain.

Aplikasi Server

Pengertian socket adalah interface pada jaringan yang menjadi titik komunikasi antar mesin pada Internet Protocol, dan tentunya tanpa komunikasi ini, tidak akan ada pertukaran data dan informasi jaringan.

Socket terdiri dari elemen-elemen utama sebagai berikut:

1. Protokol.

2. Local IP.

3. Local Port.

4. Remote IP.

5. Remote Port.

Untuk membuat aplikasi socket yang sederhana, tidak diperlukan langkah-langkah yang rumit. Kita akan mencoba membuat dua buah aplikasi, yang pertama adalah aplikasi server yang akan menerima data, sedangkan aplikasi kedua adalah aplikasi client yang mengirimkan data pada server. Baik aplikasi server dan aplikasi client mendefi nisikan port yang sama sebagai jalur komunikasi.

Contoh program dibuat dengan menggunakan Visual Basic 6. Konsep pemrograman yang serupa juga dapat Anda implementasikan pada bahasa pemrograman lain seperti Visual Basic.NET, Delphi, dan lain sebagainya.

Kita akan memulainya dengan aplikasi server, tugas aplikasi server cukup sederhana, yaitu hanya siap sedia menerima data yang masuk pada sebuah port. Control yang Anda perlukan adalah control winsock bernama Winsock1 dan sebuah textbox bernama Text1. Pada event Form_Load, tuliskan kode program di bawah ini:

Private Sub Form_Load()
    With Winsock1
        .LocalPort = 1025
        .Listen
    End With
End Sub

       Kode program tersebut melakukan inisialisasi socket, socket memilih port 1025 pada komputer server dan menunggu data yang masuk melalui port tersebut dengan perintah Listen.
Selanjutnya pada event Winsock1_ConnectionRequest, ketikkan kode program berikut:

Private Sub Winsock1_ConnectionRequest(ByVal requestID AsLong)
  If Winsock1.State <> sckClosed Then Winsock1.Close
  Winsock1.Accept requestID
End Sub

      Kode program di atas berfungsi untuk menerima request koneksi. Selanjutnya pada event Winsock1_DataArrival, ketikkan kode program berikut:

Private Sub

Winsock1_DataArrival(ByValbytesTotal As Long)
        Dim strData As String
        Winsock1.GetData strData
        Text1.Text = Text1.Text & strData  
End Sub

Kode program di atas berfungsi untuk mengambil data yang diterima oleh socket dan menampilkannya pada Text1. Aplikasi server telah selesai!

Aplikasi Client

Seperti aplikasi server, Anda perlu menyiapkan control Winsock dan Text, ditambah sebuah control Command Button yang dapat Anda namakan cmdKirim yang berfungsi untuk mengirimkan data yang diketik pada Text1 ke aplikasi server.

Pada event Form_Load, ketikkan kode program di bawah:

Private Sub Form_Load()
With Winsock1
    .RemoteHost = “127.0.0.1”
    .RemotePort = 1025
    .Connect
End With
End Sub

       Kode program di atas berfungsi untuk melakukan inisialisasi, tentukan IP tujuan/server/remote dengan 127.0.0.1 seperti pada contoh jika Anda mencoba aplikasi ini dengan menggunakan satu mesin komputer.
Jika Anda mencobanya dengan menggunakan dua komputer dalam sebuah jaringan, isikan dengan IP komputer yang berfungsi sebagai server.
Selanjutnya pada cmdKirim, ketikkan kode program sebagai berikut:

Private Sub cmdKirim_Click()
If Winsock1.State = sckConnected Then
    Winsock1.SendData Text1.Text
End If
End Sub

      Kode program di atas akan mengirimkan pesan yang Anda ketik pada textbox Text1 pada aplikasi server. Selesailah sudah aplikasi server dan client. Cukup mudah, bukan? Anda dapat melakukan uji coba dengan menjalankan aplikasi server pada komputer yang berfungsi sebagai server (ataupun komputer yang sama dengan aplikasi client jika Anda menggunakan 127.0.0.1 sebagai remote IP).

Jalankan aplikasi client, dan ketik kata-kata yang Anda inginkan, lalu tekan Command Button cmdKirim, maka aplikasi server akan menampilkan pesan yang Anda ketikkan tersebut.

VB6.0 :: Windows Socket (Winsock) dan Contoh Program Visual Basic 6 (TCP server) dan Alamat IP (Local IP)

Windows Socket (Winsock)

Socket merupakan inti dari pemrograman jaringan. Winsock merupakan standar API jaringan pada semua varian dari sistem operasi Microsoft Windows. Sampai saat artikel ini ditulis, Winsock mencapai versi 2.2 yang merupakan penyempurnaan dari versi 2.1.

Inti rutin-rutin Winsock berada pada file WS2_32.DLL. Untuk memudahkan pemrograman dengan kontrol ActiveX, Microsoft telah membuat kontrol Winsock yang diimplementasikan pada file MSWINSCK.OCX. Untuk mempermudah pengertian dan pembahasan, contoh-contoh program pada modul ini akan menggunakan kontrol Winsock yang diimplementasikan pada bahasa pemrograman Microsoft Visual Basic versi 6.0.

Cara Kerja Winsock

Misalnya terdapat dua buah komputer: client dan server yang ingin berhubungan. Langkah-langkah untuk mengadakan koneksi, mengirim data sampai pemutusan koneksi dapat digambarkan sebagai berikut.

1. Mula-mula server akan mendengarkan (listen) permintaan koneksi pada nomor port tertentu. Nomor port digunakan untuk membedakan aplikasi pada sebuah sistem komputer.
2. Client yang ingin berhubungan meminta koneksi kepada server (connect).
3. Server menerima koneksi dari client (accept).
4. Selanjutnya baik client atau server dapat saling berkirim (senddata) dan menerima data (getdata).
5. Client menutup koneksinya.
6. Server mengetahui dan menutup koneksi terhadap client tersebut.

Membuat Program Chatting Menggunakan Visual Basic 6.0 

1. Buatlah sebuah proyek bernama TCPServer.vbp.

2. Tambahkan sebuah form bernama frmChat dengan tampilan sebagai berikut.

3. Set property Enabled pada cmdDisconnect menjadi False.

4. Set property Locked pada txtChat menjadi True.

5. Ketikkan kode berikut pada tempatnya yang sesuai.

Private Const PortNumber = 4000

Private Sub cmdClose_Click()
Unload Me
End Sub


Private Sub cmdDisconnect_Click()
sck.Close

cmdDisconnect.Enabled = False
cmdListen.Enabled = True
End Sub

Private Sub cmdListen_Click()
sck.LocalPort = PortNumber
sck.Listen

cmdListen.Enabled = False
cmdDisconnect.Enabled = True
txtMsg.SetFocus
End Sub

Private Sub cmdSend_Click()
sck.SendData txtMsg.Text
End Sub

Private Sub Form_Load()
Show
cmdListen.SetFocus
End Sub

Private Sub sck_Close()
sck.Close
End Sub

Private Sub sck_ConnectionRequest(ByVal requestID As Long)
If sck.State <> sckClosed Then
sck.Close
End If
sck.Accept requestID
End Sub

Private Sub sck_DataArrival(ByVal bytesTotal As Long)
Dim sData As String

sck.GetData sData
txtChat.Text = txtChat.Text & sData & vbCrLf
End Sub

Private Sub sck_SendComplete()
txtMsg.Text = ""
End Sub 

6. Bukalah jendela Microsoft Visual Basic yang baru, lalu buat sebuah proyek bernamaTCPClient.vbp.

7. Tambahkan sebuah form bernama frmChat dengan tampilan sebagai berikut.



8. Set property Enabled pada cmdDisconnect menjadi False.

9. Set property Locked pada txtChat menjadi True.

10. Ketikkan kode berikut pada tempatnya yang sesuai.

Private Const RemoteHost = "Masagus" 'Nama server chat
Private Const PortNumber = 4000

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub cmdConnect_Click()
sck.Connect RemoteHost, PortNumber
End Sub

Private Sub cmdDisconnect_Click()
sck.Close

cmdDisconnect.Enabled = False
cmdConnect.Enabled = True
End Sub

Private Sub cmdSend_Click()
sck.SendData txtMsg.Text
End Sub

Private Sub Form_Load()
Show
cmdConnect.SetFocus
End Sub

Private Sub sck_Close()
sck.Close
End Sub

Private Sub sck_Connect()
cmdConnect.Enabled = False
cmdDisconnect.Enabled = True
txtMsg.SetFocus
End Sub

Private Sub sck_DataArrival(ByVal bytesTotal As Long)
Dim sData As String

sck.GetData sData
txtChat.Text = txtChat.Text & sData & vbCrLf
End Sub

Private Sub sck_SendComplete()
txtMsg.Text = ""
End Sub

11. Jalankan TCPServer.vbp, kemudian tekan tombol Listen.

12. Jalankan TCPClient.vbp, kemudian tekan tombol Connect.

13. Cobalah untuk saling berkirim data.

Mendapatkan Nama dan Alamat IP Komputer (VB6)

1. Buatlah sebuah proyek dengan nama LocalIP.vbp.

2. Buat sebuah form bernama frmLocalIP dengan tampilan sebagai berikut. 

3. Set properties-nya menjadi sebagai berikut.

Obyek	Property	Nilai
txtHost	BackColor	&H00C0C0C0
txtHost	Locked	True
txtIP	BackColor	&H00C0C0C0
txtIP	Locked	True

4. Tambahkan kode seperti di bawah ini. 

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub cmdResolve_Click()
txtHost.Text = sck.LocalHostName
txtIP.Text = sck.LocalIP
End Sub

Private Sub Form_Load()
Show
cmdResolve.SetFocus
End Sub 

5. Jalankan program. Tekan tombol Resolve, maka nama komputer dan alamat IP-nya akan tertera. 


http://planetsourcecode.blogspot.com/

Search Engine Mozilla Firefox kini adalah Yahoo! ?

Tahukah Sobat jufrikablog? Sejak 10 tahun lalu Google dipilih Mozilla sebagai search engine default di browser Firefox. Mulai saat itu Firefox memperoleh pendapatan hingga 3.7 triyun rupiah per tahunnya dari bagi hasil pendapatan iklan yang tampil. Namun
kini setelah masa kerja sama itu habis, Mozilla ternyata enggan memperpanjang kontrak kerjasamanya. Mengapa?
Mozilla lebih memilih untuk beralih menggunakan Yahoo dan tidak lagi menggunakan Google.Padahal kita semua tau keakuratan search engine yahoo masih di bawah google ,Hal itu membuat banyak orang berpendapat bahwa kualitas pencarian di Firefox bakal turun jika pengguna
 tetap memilih menggunakan Yahoo.

di blog Mozilla, tidak ada penjelasan kenapa mereka enggan memperpanjang kerjasama dengan Google dan lebih memilih menjalin kerjasama baru dengan Yahoo. Mungkinkah hal ini dikarenakan tawaran besar pendapatan dari Yahoo lebih dibandingkan Google? Bisa jadi.
Namun  bisa jadi juga karena alasan persaingan, dimana Google memang sudah memiliki browser sendiri yaitu Google Chrome yang merupakan pesaing berat dari Firefox.

Beruntung Firefox masih memberikan opsi bagi penggunanya untuk mengganti Yahoo dengan search engine pilihan kita sendiri sob.

Jadi Apakah sobat senang dengan perubahan ini ??

Download Software Everything Search Engine

document search

Everything Search Engine , ya nama yang unik untuk sebuah software mungil yang sangat bermanfaat sobat . Software ini merupakan software pencari yang sangat efektif dalam membantu pencarian file yang kita inginkan contoh mp3 atau movie secara cepat , software ini sangat ringan , cepat dan mudah digunakan ,software ini bisa menjadi alternatif bagi sobat yang memilik masalah ngelang ketika membuka pencarian di eksplorer.

Kelebihan :
- File instalasi Kecil
- Antarmuka pengguna yang sederhana
- Pencarian file yang cepat
- Tidak memakan banyak RAM proses
- Real-time update , setiap file yang kita tambah akan secara otomatis melakukan update

bagi sobat yang ingin mencoba bisa langsung di download di link di bawah ini

 32 Bit  |Size : 463 Kb|
  64 Bit |Size : 546 Kb|

Tested on : Windows XP ,windows 7, windows 8.1

Versi Terakhir : 1.3.4.686
Developer : voidtools

Tahukah Penjualan Windows 8 Dihentikan Hari Ini?

Tahukah sobat bahwa hari ini terakhir Windows 8 dijual secara retail? YA mulai 31 Oktober 2014 Microsoft akan menghentikan penjualan Windows 8, dan hal ini bisa dilihat melalui lifecyle Windows di situs official Microsoft.




Dihentikannya penjualan Windows 8 ini karena OS tersebut sudah digantikan oleh Windows 8.1 yang dirilis tepat setahun sesudah perilisannya.

Meskipun masih termasuk dalam keluarga Windows 8, Windows 8.1 memiliki banyak kelebihan dibandingkan dengan pendahulunya itu. Beberapa fitur seperti Start Button, Boot to Desktop, Close Bar Modern App, dan beberapa fitur baru menarik yang hanya ada di Windows 8.1.

Walau Begitu Microsoft hanya menghentikan penjualan Windows 8 secara retail saja, sedangkan penjualan lisensinya kepada OEM masih bakal terus berlangsung. Ini artinya sobat masih bisa membeli PC / laptop Windows 8 hingga beberapa waktu kedepan. hehehe...

Wow Office 16 Review Segera Rilis !

Ya seperti biasa Microsoft Office Yang Rilis setiap 3 tahun sekali memberikan versi betanya akan memberikan rilis public previewnya :D dan ada kabar baik bahwa Versi selanjutnya dari Microsoft Office yang seringkali disebut sebagai Office 16 kabarnya bakal segera dirilis. Perilisan ini akan dilakukan dalam beberapa minggu kedepan.

Bagi Sobat yang penasaran dengan seperti apa tampilannya dan apa saja fitur barunya, berikut ini yang diketahui

Tell Me

Masihkah sobat ingat engan Clippy? Dia adalah sosok animasi yang membantu sobat untuk mengenal dan menggunakan berbagai macam fitur di Microsoft Office. Clippy sudah lama hilang, tetapi kini muncul lagi fitur serupa: Tell Me.

Tell Me bukanlah tokoh animasi seperti Clippy, dia hanyalah form yang berisi teks “Tell me what you want to do”. Dengan mengisikan disitu apa hal yang ingin sobat lakukan, maka panduan dokumentasi akan muncul. Misalkan saja sobat mengisikan “how do I resize images?” di form Tell Me, maka panduan cara memperbesar / memperkecil gambar akan terbuka.

Tampilan Versi Gelap

Office 2010 memiliki tampilan versi gelap dan tampilan ini dihilangkan di Office 2013. Namun nampaknya tampilan versi gelap ini menjadi fitur yang paling banyak direquest oleh pengguna Office sehingga Microsoft mengembalikannya di Office 16 nanti.

Auto Rotasi Gambar

Office 16 akan dilengkapi dengan algoritma khusus yang bisa mendeteksi metadata gambar dan memutarnya dengan posisi yang benar di dokumen Office. Hal ini ditujukan untuk mempercepat pengguna yang banyak memasukkan gambar dan seringkali gambarnya terbalik sehingga harus merotasikannya secara manual. Dengan Office 16 sobat tidak perlu melakukannya lagi, semua akan berjalan secara otomatis.

Opsi Sinkronisasi Outlook Lebih Fleksibel

Saat ini Outlook Client hanya menyediakan batasan minimal download email adalah 1 bulan terakhir. Hal ini membuat space cukup penuh dengan email-email “tua” yang sudah tidak diperlukan lagi. Untuk itu di Office 16, Outlook Client ditambahkan opsi untuk mendownload email 1 hari, 2 hari, 7 hari, atau 14 hari terakhir. Ini sangat penting terutama untuk tablet Windows agar space storage yang terbatas tidak habis hanya untuk menyimpan data email yang tidak perlu.
Itulah beberapa fitur baru yang bakal hadir di Office 16 dan bisa sobat  coba langsung ketika versi Public Preview nya dirilis nanti. Apakah sobat tertarik untuk menginstallnya? :D atau tetap bertahan dengan Office yang terinstall di PC sobat? :D

Sumber :

Perkembangan teknologi begitu cepat. Belum juga puas menikmati fitur terbaru dari versi sebelumnya, muncul lagi versi yang lebih baru. Terkadang hal ini membingungkan pengguna, tetapi itulah yang terjadi di dunia teknologi saat ini. Tidak hanya di hardware, tetapi juga di software.

Versi selanjutnya dari Microsoft Office yang seringkali disebut sebagai Office 16 kabarnya bakal segera dirilis public preview nya. Kelihatannya perilisan ini akan dilakukan dalam beberapa minggu kedepan.

Bagi sobat yang penasaran dengan seperti apa tampilannya dan apa saja fitur barunya, berikut ini adalah beberapa diantaranya:

Tell Me

Masihkah sobat ingat engan Clippy? Dia adalah sosok animasi yang membantu sobat  untuk mengenal dan menggunakan berbagai macam fitur di Microsoft Office. Clippy sudah lama hilang, tetapi kini muncul lagi fitur serupa: Tell Me.

Tell Me bukanlah tokoh animasi seperti Clippy, dia hanyalah form yang berisi teks “Tell me what you want to do”. Dengan mengisikan disitu apa hal yang ingin sobat lakukan, maka panduan dokumentasi akan muncul. Misalkan saja sobat mengisikan “how do I resize images?” di form Tell Me, maka panduan cara memperbesar / memperkecil gambar akan terbuka.

Menarik sekali bukan?

Tampilan Versi Gelap

Office 2010 memiliki tampilan versi gelap dan tampilan ini dihilangkan di Office 2013. Namun nampaknya tampilan versi gelap ini menjadi fitur yang paling banyak direquest oleh pengguna Office sehingga Microsoft mengembalikannya di Office 16 nanti.

Rotasi Gambar Otomatis

Office 16 akan dilengkapi dengan algoritma khusus yang bisa mendeteksi metadata gambar dan memutarnya dengan posisi yang benar di dokumen Office. Hal ini ditujukan untuk mempercepat pengguna yang banyak memasukkan gambar dan seringkali gambarnya terbalik sehingga harus merotasikannya secara manual. Dengan Office 16 sobat tidak perlu melakukannya lagi, semua akan berjalan secara otomatis.

Opsi Sinkronisasi Outlook Lebih Fleksibel

Saat ini Outlook Client hanya menyediakan batasan minimal download email adalah 1 bulan terakhir. Hal ini membuat space cukup penuh dengan email-email “tua” yang sudah tidak diperlukan lagi. Untuk itu di Office 16, Outlook Client ditambahkan opsi untuk mendownload email 1 hari, 2 hari, 7 hari, atau 14 hari terakhir. Ini sangat penting terutama untuk tablet Windows agar space storage yang terbatas tidak habis hanya untuk menyimpan data email yang tidak perlu.
Itulah beberapa fitur baru yang bakal hadir di Office 16 dan bisa sobat coba langsung ketika versi Public Preview nya dirilis nanti. Apakah sobat tertarik untuk menginstallnya?

Sumber : Zdnet

Ayo Update Firefox kamu ke FireFox 33 Final

Hai Sobat jufrikablog kali ini jufrikablog akan mengajak sobat pengguna firefox :D untuk mengupdate firefox nya ke firefox 33 final , emang ada? ya ada namun tidak secara auto update karena fitur auto update tidak di berikan firefox di versi ke 33 nya ini , lalu bagaimana saya mengupdatenya?
Sobat bisa mengupdatenya melaui link di bawah ini

DOWNLOAD | 34,7 MB

bagaimana dengan semua settingan dan history saya jka saya melakukan update melalui instaleer ini apakah hilang?

tentu tidak sobat. emang apa saja fitur terbarunya?

menurut jufrikablog yaitu :

lebih responsif ditandai dengan browser tetap berjalan responsif meskipun ada code javascript yang butuh waktu lama untuk di loading,

pencarian lebih cepat, sobat bisa gooling secara langsung melalui Location Bar Firefox. Tdi Firefox 33 ini fitur tersebut telah dirombak hingga proses pencarian bisa berlangsung 5 detik.

lebih hemat memory, dan lainya

ayo sobat segera update firefox kamu :D