Cara Melihat IP Address Dengan VB.NET

Bagaimanakah cara melihat IP Adress dengan VB.NET ? Didalam program VB.NET semua fungsi dan kemampuan dalam melihat system komputer sudah terintegrasi. Sehingga dengan sedikit coding sederhana, kita bisa melihat apa saja yang ada didalam sebuah system komputer. Termasuk cara melihat IP Address yang sedang kita pakai. Ini merupakan salah satu kemampuan dari library System. NET. Sebelum masuk ke pembahasan cara melihat IP Address dengan VB.NET maka akan saya jelaskan terlebih dahulu tentang IP Address.

Didalam komputer kita memiliki 2 mode IP Address. Yaitu IP Address Internal atau lebih tepatnya disebut IP Private dan IP Address Eksternal atau disebut dengan IP Public. Beberapa provider internet terkadang mempunyai IP Internal dan Eksternal yang sama. Dan ada pula beberapa provider yang memiliki IP Address Internal dan Eksternal yang berbeda. Misal, jika sobat memakai provider Smart untuk koneksi internet, maka IP Address Internal sobat adalah 10.248.xxx.xxx dan IP Address Eksternalnya adalah 114.79.xxx.xxx.

Jika sobat browsing di internet mayoritas situs yang sobat kunjungi akan mengenal IP Address Eksternal sobat. Tapi ada beberapa situs yang juga mengenali IP Address Internal sobat. Keduanya tidak ada perbedaan. Tergantung penggunaan dan kebutuhan masing - masing situs.

Nah, script berikut ini adalah untuk melihat IP Address Internal sobat. Bagaimanakah caranya?

1. Buka Visual Basic .NET sobat dan buat sebuah project baru
2. Buat sebuah Textbox dan Button
3. Lalu import terlebih dahulu Namespace Imports System.Net
4. Lalu buatlah Private Sub seperti coding berikut

Private Sub GetIPAddress()
        Dim sHostName As String
        sHostName = Dns.GetHostName()
        Dim ipE As IPHostEntry = Dns.GetHostEntry(sHostName)
        Dim IpA() As IPAddress = ipE.AddressList
        TextBox1.Text = (IpA(1).ToString)
End Sub

5. Dalam Event Klik Mouse masukkan coding berikut

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GetIPAddress()
End Sub

6. Maka coding seluruhnya akan menjadi seperti gambar berikut

Jika sobat benar maka hasilnya akan seperti gambar berikut

Nah,mudah bukan melihat ip adress dengan vb.net. Silakan sobat kembangkan kreasi agar bisa maksimal sesuai dengan kebutuhan. Selamat berkreasi,sob

08.06 | 0 komentar | Read More

Cara Membuat Sendiri Browser Gecko / Mozilla 11 Dalam VB.NET

Software House Production - Dalam postingan saya sebelumnya di Foxware Browser - Browser Dengan Kemampuan Powerfull saya share sebuah brower Foxware buatan saya yang dibangun dengan engine Gecko / Mozilla 11. Program untuk membuatnya bisa memakai VB.NET maupun C#. Sebab engine gecko berjalan multi platform. Nah kali ini saya ingin membagi tutorial bagaimana cara membuat sendiri browser mozilla memakai VB.NET

Untuk membuat sendiri browser mozilla sobat harus mempunyai control bernama geckofx-11.dll dan file pendukung bernama xulrunner. Tanpa kedua file tersebut, tidak mungkin akan tercipta sebuah browser. Untuk file geckofx-11.dll bisa sobat download disini. Dan untuk file xulrunner 11 bisa sobat download disini. Setelah sobat mendownload kedua file tersebut silakan ikuti langkah - langkah mengintegrasikannya dengan VB.NET

1. Buat project baru di VB.NET sobat

2. Lalu drag toolbox / componen ToolStrip untuk membuat tombol navigasi. Silakan atur sesuka hati

3. Lalu tambahkan control geckofx-11 dengan memilih pada salah satu toolbox componen. Lalu klik kanan > Choose Items

4. Dalam Tab .NET Framework Componen silakan tekan Browse. Lalu cari file geckofx-11.dll yang sudah sobat download tadi. Maka componen GeckoWebBrowser akan ditambahkan. Akhiri dengan menekan tombol OK

5. Lalu drag componen GeckoWebBrowser yang sudah ditambahkan tadi ke dalam project sobat. Selanjutnya dalam Poperties GeckoWebBrowser, atur Dock menjadi Fill

6. Lalu pada Solution Explorer tekan double klik pada My Project. Lalu tekan tombol View Application Events

7. Lalu masukkan coding sebagai berikut :

Imports System.IO
Imports Gecko
Namespace My
    Partial Friend Class MyApplication

        Protected Overrides Function OnStartup(ByVal eventArgs As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) As Boolean

            Dim FoxwarePath As String = System.Reflection.Assembly.GetExecutingAssembly.Location
            Dim ProfileDirectory As String = FoxwarePath.Substring(0, FoxwarePath.LastIndexOf("\") + 1) & "\FoxwareCache\xulrunner\DefaultProfile"


            If Not Directory.Exists(ProfileDirectory) Then
                Directory.CreateDirectory(ProfileDirectory)
            End If
            Xpcom.ProfileDirectory = ProfileDirectory

            Dim xrPath As String = System.Reflection.Assembly.GetExecutingAssembly.Location
            xrPath = xrPath.Substring(0, xrPath.LastIndexOf("\") + 1) & "\xulrunner"
            Xpcom.Initialize(xrPath)

            Return True
        End Function
    End Class
End Namespace

Lalu lanjutkan dengan menyimpan project sobat

8. Lalu tinggal sobat explorer file xulrunner sdk yang sudah sobat download tadi. Ambil folder bin lalu ganti nama menjadi xulrunner. Lalu copykan satu folder xulrunner tadi ke bin\debug pada project sobat

Welldone...kini sobat sudah bisa mengintegrasikan browser Mozilla pada VB.NET. Selanjutnya tinggal tambahkan coding - coding yang diperlukan agar dapat menjadi suatu browser yang utuh. Next tutorial akan dibahas cara menambahkan coding - coding lainnya biar makin keren. OK, sob Selamat Belajar!!

06.39 | 0 komentar | Read More