Cara Buat Browser Sendiri

Pingin Buat Browser Sendiri??? Udah Lihat Postingan Sebelumnya??? Disini saya akan memberikan cara-cara bagaimana membuat browser sendiri.

Bahan-Bahan Yang Diperlukan:
1. Komputer/laptop
2. Software Yang sangat Beguna di seluruh dunia(lebay) yaitu Microsoft Visual Basic. Softwarenya bisa di download [DISINI]
3. Pemahaman Yang Cepat

Langsung aja mulai:

1. buka Microsoft Visual Basic. lalu pilih Standar EXE (gk usah pake gambar)
2. Lalu, Sebelum Menyentuh Form1. Tambahkan Component (Ctrl-T): Microsoft Html Object Library, Microsoft Internet Controls, Microsoft Windows Common Controls 5.0(SP2)/ Microsoft Windows Common Controls 6.0(SP6).



3. Lalu Pada Form Pasang 5 buah Command Button, 1 Web Browser, 1 Proggress bar. 1 Label dan 1 addresbar. (liat gambar)



disini saya meengganti Name & Captionnya menjadi( gk pake tanda kutip) :

Command1 yang diganti "Name= cmdback | Caption= Back"

Command2 yang di ganti "Name= cmdforward | Caption= Forward"

Command3 yang diganti "Name= cmdrefresh | Caption= Refresh"

Command4 yang diganti "Name= cmdstop | Caption= Stop"

Command5 yang diganti "Name= cmdgo | Caption= Go"

Label, yang diganti "Name= Label1 | Caption= (dikosongkan aja)"

ProgressBar ,yang diganti "Name= ProgressBar1"

4. Setelah ditata sesuka hati. Klik 2x pada back/yang lain
copy paste seluruh code-code berikut:


Private Sub cmdback_Click()
On Error Resume Next
WebBrowser.GoBack
End Sub

Private Sub cmdforward_Click()
On Error Resume Next
WebBrowser.GoForward
End Sub

Private Sub CmdGo_Click()
On Error Resume Next
WebBrowser.Navigate Text.Text
End Sub

Private Sub cmdrefresh_Click()
On Error Resume Next
WebBrowser.Refresh2
End Sub

Private Sub cmdstop_Click()
On Error Resume Next
WebBrowser.Stop
End Sub

Private Sub WebBrowser_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100
Label1.Caption = "Done"
ProgressBar1.Visible = False
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Visible = True
ProgressBar1.Value = Progress * 100 / ProgressMax
Label1.Caption = "Loading " & Int(Progress * 100 / ProgressMax) & "%"
End If
Exit Sub
End Sub




5. Nah Kalo Udah Selesai Pencet F5... Jeng, jeng jadi deh kyk gini:







KALO UDAH SEPERTI ITU. Tinggal kamu atur deh sesuka hati.

kalau udh selesai mengedit sesuai keinginan mu. LALU pilih Menu File, PILIH sub menu Make Project1.exe

Selesai Deh..