Tutorial Kali Ini Tentang Membuat Browser
Coding By : - Izal 06
- David Layardi
1 - Menambahkan komponen:
Pergi ke "Proyek" pada menu atas, dan pilih "Komponen" atau klik CTRL-T, kemudian memeriksa "perpustakaan Microsoft objek html" dan "Microsoft kontrol internet" dan "Microsoft Windows Kontrol umum 5,0".
Anda akan melihat bahwa benda-benda baru muncul di kotak kiri menu Anda, sekarang memilih ikon penjelajah web yang tampak seperti bumi dengan dan menambahkannya ke formulir Anda, dan membuat ukurannya yang Anda inginkan, (nama adalah WebBrowser1 dalam tutorial ini)
Juga klik pada komponen "Progress bar" dan menambahkannya ke formulir Anda.
2 - Menambahkan tombol dan objek:
Sekarang tambahkan "6" tombol perintah penting untuk membentuk Anda, dan nama mereka sebagai berikut: "Back", "Forward", "Stop", "Refresh", "Home" dan "GO", Sekarang tambahkan 1 kotak Combo box user akan memasukkan alamat web di atasnya.
3 - Coding aplikasi Anda:
Pertama klik pada tombol "GO dan menulis kode di dalamnya:
VB Code:
1.
WebBrowser1.Navigate Combo1
Tombol Back:
VB Code:
1.
On Error Resume Next
2.
WebBrowser1.GoBack
Tombol Forward:
VB Code:
1.
On Error Resume Next
2.
WebBrowser1.GoForward
Tombol Stop:
VB Code:
1.
On Error Resume Next
2.
WebBrowser1.Stop
Tombol Refresh:
VB Code:
1.
WebBrowser1.Refresh
Tombol Home:
VB Code:
1.
WebBrowser1.GoHome
4 - kode Lanjutan:
Anda dapat menambahkan kode berikut ke aplikasi Anda untuk membuatnya bekerja lebih baik, Hanya tempat kode ini di mana saja di jendela coding Anda.
* Add a progress bar
VB Code:
1.
'This to make the progress bar work and to show a status message, and an image.
2.
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
3.
On Error Resume Next
4.
If Progress = -1 Then ProgressBar1.Value = 100 'the name of the progress bar is "ProgressBar1".
5.
Label1.Caption = "Done"
6.
ProgressBar1.Visible = False 'This makes the progress bar disappear after the page is loaded.
7.
Image1.Visible = True
8.
If Progress > 0 And ProgressMax > 0 Then
9.
ProgressBar1.Visible = True
10.
Image1.Visible = False
11.
ProgressBar1.Value = Progress * 100 / ProgressMax
12.
Label1.Caption = Int(Progress * 100 / ProgressMax) & "%"
13.
End If
14.
Exit Sub
15.
End Sub
Tapi di sini Anda akan perlu untuk menambahkan label yang disebut "Label1" dan juga gambar kecil seperti senyum atau bumi atau apapun yang Anda inginkan dan nama adalah "image1"
* Open in new window
VB Code:
1.
'This to open a new window with our browser.
2.
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
3.
Dim frm As Form1
4.
Set frm = New Form1
5.
Set ppDisp = frm.WebBrowser1.Object
6.
frm.Show
7.
End Sub
Ini untuk membuka jendela baru dengan browser Anda.
* History and current visited site.
VB Code:
1.
'This keeps the visited sites history and also changes the title of the browser as the page title.
2.
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
3.
On Error Resume Next
4.
Dim i As Integer
5.
Dim bFound As Boolean
6.
Me.Caption = WebBrowser1.LocationName
7.
For i = 0 To Combo1.ListCount - 1
8.
If Combo1.List(i) = WebBrowser1.LocationURL Then
9.
bFound = True
10.
Exit For
11.
End If
12.
Next i
13.
mbDontNavigateNow = True
14.
If bFound Then
15.
Combo1.RemoveItem i
16.
End If
17.
Combo1.AddItem WebBrowser1.LocationURL, 0
18.
Combo1.ListIndex = 0
19.
mbDontNavigateNow = False
20.
End Sub
5 - Coding:
Anda dapat menambahkan tombol lebih ke browser Anda sebagai orang-orang:
* Cari jika sebuah kata di halaman (diambil dari tutorial pada Blog ini).
VB Code:
1.
'This to tell you if a word is in the page, Here we call the WebPageContains function.
2.
Private Sub Command7_Click()
3.
Dim strfindword As String
4.
strfindword = InputBox("What are you looking for?", "Find", "") ' what word to find?
5.
If WebPageContains(strfindword) = True Then 'check if the word is in page
6.
MsgBox "The webpage contains the text" 'string is in page
7.
Else
8.
MsgBox "The webpage doesn't contains the text" 'string is not in page
9.
End If
10.
End Sub
11.
12.
'This is the finding function.
13.
Private Function WebPageContains(ByVal s As String) As Boolean
14.
Dim i As Long, EHTML
15.
For i = 1 To WebBrowser1.Document.All.length
16.
Set EHTML = _
17.
WebBrowser1.Document.All.Item(i)
18.
19.
20.
If Not (EHTML Is Nothing) Then
21.
If InStr(1, EHTML.innerHTML, _
22.
s, vbTextCompare) > 0 Then
23.
WebPageContains = True
24.
Exit Function
25.
End If
26.
End If
27.
Next i
28.
End Function
* Page properties
VB Code:
1.
WebBrowser1.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT
ini akan menjalankan sifat halaman
* Print a page
VB Code:
1.
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT
* Save a page
VB Code:
1.
WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
* Delete cookies Dari Komputer Anda
VB Code:
1.
'This code is used to empty the cookies from the user's computer / We call function from here.
2.
Private Declare Function GetUserName _
3.
Lib "advapi32.dll" Alias "GetUserNameW" ( _
4.
ByVal lpBuffer As Long, _
5.
ByRef nSize As Long) As Long
6.
7.
Private Declare Function SHGetSpecialFolderPath _
8.
Lib "shell32.dll" Alias "SHGetSpecialFolderPathA" ( _
9.
ByVal hwnd As Long, _
10.
ByVal pszPath As String, _
11.
ByVal csidl As Long, _
12.
ByVal fCreate As Long) As Long
13.
14.
Private Const CSIDL_COOKIES As Long = &H21
15.
16.
'This calls the function that deletes the cookies.
17.
Public Sub Command1_Click()
18.
Dim sPath As String
19.
sPath = Space(260)
20.
Call SHGetSpecialFolderPath(0, sPath, CSIDL_COOKIES, False)
21.
sPath = Left$(sPath, InStr(sPath, vbNullChar) - 1) & "\*.txt*"
22.
On Error Resume Next
23.
Kill sPath
24.
25.
End Sub
* Tampilkan kode sumber halaman Web's:
VB Code:
1.
Private Sub Form_Load()
2.
Text1.Text = Form1.browser.Document.documentElement.innerHTML
3.
End Sub
6- Kode Penting:
* Popups Blocker
VB Code:
1.
Private Function IsPopupWindow() As Boolean
2.
On Error Resume Next
3.
If WebBrowser1.Document.activeElement.tagName = "BODY" Or WebBrowser1.Document.activeElement.tagName = "IFRAME" Then
4.
IsPopupWindow = True
5.
Else
6.
IsPopupWindow = False
7.
End If
8.
End Function
9.
10.
Private Sub webbrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
11.
Dim frm As Form1
12.
Cancel = IsPopupWindow
13.
If Cancel = False Then
14.
Set frm = New Form1
15.
Set ppDisp = frm.WebBrowser1.object
16.
frm.Show
17.
End If
18.
End Sub
Ini akan memblokir semua pop-up, tapi di saat yang sama akan membuka link di jendela baru seperti biasa.
* JavaScripts handeling
VB Code:
1.
WebBrowser1.Silent = True
Ini tidak akan menunjukkan kesalahan dari halaman saat Anda menggunakan browser web Anda, taruh dalam hal beban bentuk
* Ukuran browser dan kode scrollbars
VB Code:
1.
Private Sub Form_Resize()
2.
On Error Resume Next
3.
WebBrowser1.Width = Me.ScaleWidth
4.
WebBrowser1.Height = Me.ScaleHeight - 1680
5.
End Sub
