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!!