Breaking

Tuesday, March 19, 2013

Membuat Simple Web Browser Dengan Visual Basic 6

Mylinekerr Fact - Hai gan! Kali ini ane akan menjelaskan cara membuat sebuah web browser sendiri menggunakan Visual Basic 6. Ini hanya simple ya, jangan berharap akan menjadi seperti google chrome dan mozilla :p ahaha. Oke kita mulai aja sekarang. 


Yang Kita Butuhkan:
Visual Basic 6
Cara Membuat:
1. Buka Visual Basic 6 nya. Trus pilih Standard EXE.
2. Klik Kanan Pada ToolBox, Kemudian pilih Components atau tekan  key Ctrl + T .
3. Kemudian Centang Microsoft html object library, Microsoft internet controls, Microsoft Windows common Controls 5.0 atau 6.0 sama saja.
4. Buat 5 Command Buton, 1 Text Box , 1Label, 1 Webbrowser , 1 Proggress Bar. Saran saya tata Seperti Gambar di bawah.
CommandButton Captionnya saya ganti dengan Back, Forward, Refresh, Stop dan Go.
Label caption saya ubah jadi done. Text box biarkan saja.

Sekarang Masukkan Kode berikut
Caranya: Double klik pada tool yang sudah kita buat

Back
On Error Resume Next WebBrowser1.GoBack

Forward
On Error Resume Next WebBrowser1.GoForward

Refresh
On Error Resume Next WebBrowser1.GoRefresh

Stop
On Error Resume Next WebBrowser1.GoStop

Go
On Error Resume Next WebBrowser1.Navigate Text1.Text

Progress Bar
Langsung copy ke Form Code
Private Sub WebBrowser1_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 Image1.Visible = False ProgressBar1.Value = Progress * 100 / ProgressMax Label1.Caption = "Loading " & Int(Progress * 100 / ProgressMax) & "%" End If Exit Sub End Sub

Resize Form
Langsung copy ke form code 
Private Sub Form_Resize() On Error Resume Next WebBrowser1.Width = Me.ScaleWidth WebBrowser1.Height = Me.ScaleHeight - 1680 End Sub

Pastikan
Pastikan sudah tak ada error :) alias di test / go

Compile
Tinggal di Compile deh :)

Jika ada yang ingin ditanyakan, lewat komentar ^^

3 comments:

  1. kami sekeluarga tak lupa mengucapkan puji syukur kepada ALLAH S,W,T
    dan terima kasih banyak kepada AKI atas nomor togel.nya yang AKI
    berikan 4 angka 3167 alhamdulillah ternyata itu benar2 tembus AKI.
    dan alhamdulillah sekarang saya bisa melunasi semua utan2 saya yang
    ada sama tetangga.dan juga BANK BRI dan bukan hanya itu AKI. insya
    allah saya akan coba untuk membuka usaha sendiri demi mencukupi
    kebutuhan keluarga saya sehari-hari itu semua berkat bantuan AKI..
    sekali lagi makasih banyak ya AKI… bagi saudara yang suka main togel
    yang ingin merubah nasib seperti saya silahkan hubungi AKI SOLEH,,di no (((082-313-336-747)))
    insya allah anda bisa seperti saya…menang togel 275
    juta, wassalam.


    dijamin 100% jebol saya sudah buktikan...sendiri....







    Apakah anda termasuk dalam kategori di bawah ini !!!!


    1"Dikejar-kejar hutang

    2"Selaluh kalah dalam bermain togel

    3"Barang berharga anda udah habis terjual Buat judi togel


    4"Anda udah kemana-mana tapi tidak menghasilkan solusi yg tepat


    5"Udah banyak Dukun togel yang kamu tempati minta angka jitunya
    tapi tidak ada satupun yang berhasil..







    Solusi yang tepat jangan anda putus asah....AKI SOLEH akan membantu
    anda semua dengan Angka ritwal/GHOIB:
    butuh angka togel 2D 3D 4D SGP / HKG / MALAYSIA / TOTO MAGNUM / dijamin
    100% jebol
    Apabila ada waktu
    silahkan Hub: AKI SOLEH DI NO: (((082-313-336-747)))




    atau klik langsung di KLIK DSINI BOCORAN TOGEL



    angka GHOIB: singapur 2D/3D/4D/



    angka GHOIB: hongkong 2D/3D/4D/



    angka GHOIB; malaysia



    angka GHOIB; toto magnum 4D/5D/6D/



    angka GHOIB; laos

    ReplyDelete
  2. This comment has been removed by the author.

    ReplyDelete
  3. Makasih Tutorialnya gan :D pngen belajar VB

    ReplyDelete