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