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

Windows 10 adalah versi windows terakir

Windows IT Pro. Dilaporkan Microsoft Bahwa Windows 10 adalah versi windows terakir , Dan Hanya akan membawa fitur baru dengan cara update saja.


Windows 10 adalah versi OS terakhir dari Microsoft, setelah ini perusahaan secara rutin akan merilis update untuk fitur baru. Debut sistem update cepat akan dimulai di Windows 10 dan update pilihan akan hadir untuk kalangan bisnis, ini dikarenakan takutnya kerusakan kompabilitas dengan software.

Dua model update untuk Windows 10 ini akan bernama opt-in dan lock-down. Seperti namanya, update opt-in adalah mode yang dapat digunakan user untuk mendapatkan berbagai fitur baru, perbaikan dan update keamanan jika mereka memilihnya. Sedangkan update lock-down akan memungkinkan user kalangan bisnis untuk menerima update keamanan saja untuk mencegah software yang tidak kompatibel.

Pengguna Windows 8 dan Windows 8.1 kabarnya juga akan mendapatkan kesempatan update gratis ke Windows 10. Hal ini akan menjadi menarik, apakah Microsoft juga akan melakukan hal yang sama untuk smartphone Windows? Bagaimana dengan spesifikasi hardwarenya?