wepbroser yapmak icin kodlar ALITIDIR..

26-09-2019, 04:14:33

#1
TRJotun

Açık Profil bilgileri

Özel Mesaj Gönder

TRJotun tarafından gönderilen tüm mesajları bul

TRJotun'ı arkadaş olarak ekle
Popup Pencere Acma

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm As Form1
Set frm = New Form1
Set ppDisp = frm.WebBrowser1.Object
frm.Show
End Sub

WebSayfasında Arama Yapma

Private Sub Command1_Click()
Dim strfindword As String
strfindword = InputBox("What are you looking for?", "Find", "") ’ what word to find?
If WebPageContains(strfindword) = True Then ’check if the word is in page
MsgBox "The webpage contains the text" ’string is in page
Else
MsgBox "The webpage doesn’t contains the text" ’string is not in page
End If
End Sub
Private Function WebPageContains(ByVal s As String) As Boolean
Dim i As Long, EHTML
For i = 1 To WebBrowser1.********.All.length
Set EHTML = _
WebBrowser1.********.All.Item(i)

If Not (EHTML Is Nothing) Then
If InStr(1, EHTML.innerHTML, _
s, vbTextCompare) > 0 Then
WebPageContains = True
Exit Function
End If
End If
Next i
End Function
Private Sub Form_Load()
WebBrowser1.Navigate2 "www.msn.com"
End Sub

Başlangıcta Sayfası Yapma

Private Sub Form_Load()
WebBrowser1.Navigate "about:blank"
End Sub

Private Sub Command1_Click()
Dim HTML As String
’----------The HTML CODE GOES FROM HERE AND DOWN----------
HTML = "" & _
"Page On Load" & _
"" & _
"" & _
"This is a " & _
"" & _
"" & _
"programmatically " & _
"" & _
"" & _
"made page" & _
"" & _
"" & _
""
’----------The HTML CODE GOES HERE AND ABOVE----------
WebBrowser1.********.Write HTML
End Sub

Klasik Browser Fonksiyonları

Private Sub Command1_Click(Index As Integer)
On Error Resume Next ’ just in case there is no page back or forward
’I showed how to disabel them if you scroll down more
Select Case Index
Case 0 ’Go Back Button
WebBrowser1.GoBack ’Go Back one Page
Case 1 ’Go Forward Button
WebBrowser1.GoForward ’Go Forward one Page
Case 2 ’Stop Button
WebBrowser1.Stop ’stop page
Case 3 ’******* Button
WebBrowser1.******* ’******* page
Case 4 ’Go Home Button
WebBrowser1.GoHome ’Go to home page
Case 5 ’Search Button
WebBrowser1.GoSearch ’Search
End Select
End Sub

Gelişmiş Tarayıcı Fonksiyonları
Private Sub Command1_Click() ’Print Button
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT ’Show Print Window
End Sub
Private Sub Command2_Click() ’Print Preview Button
WebBrowser1.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT ’Show Print Preview Window
End Sub
Private Sub Command3_Click() ’Page Setup Button
WebBrowser1.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT ’Show Page Setup Window
End Sub
Private Sub Command4_Click() ’Page Properties Button
WebBrowser1.ExecWB OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT ’Show Page Properties Window
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "www.google.com"
End Sub
Web Browser Font Size Değiştirme

Private Sub Command1_Click() ’ Smallest Button
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(0), vbNull
End Sub
Private Sub Command2_Click() ’Small Button
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(1), vbNull
End Sub
Private Sub Command3_Click() ’Medium Button
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(2), vbNull
End Sub
Private Sub Command4_Click() ’Large Button
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(3), vbNull
End Sub
Private Sub Command5_Click() ’Largest Button
On Error Resume Next
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(4), vbNull
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate2 "www.google.com"
End Sub

Web Browser Kullanımı 2

İleri ve Geri Butonlarının Aktif-Pasif Yapılması
Private Sub Command1_Click() ’Go Back Button
WebBrowser1.GoBack ’Go Back
End Sub
Private Sub Command2_Click() ’Go Forward Button
WebBrowser1.GoForward ’Go Forward
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "www.google.com"
End Sub
Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean)
Select Case Command
Case 1 ’Forward
Command2.Enabled = Enable
Case 2 ’Back
Command1.Enabled = Enable
End Select
End Sub
Yazdırma ile İlgili Butonların Aktif ve Pasif Yapılması

Private Sub Command1_Click() ’Print Button
WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT ’Show Print Window
End Sub
Private Sub Command2_Click() ’Print Preview Button
WebBrowser1.ExecWB OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT ’Show Print Preview Window
End Sub
Private Sub Command3_Click() ’Page Setup Button
WebBrowser1.ExecWB OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT ’Show Page Setup Window
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "www.google.com"
End Sub
Public Function Enable_or_Disable()
If WebBrowser1.QueryStatusWB(OLECMDID_PRINT) = 0 Then
Command1.Enabled = False
Else
Command1.Enabled = True
End If
If WebBrowser1.QueryStatusWB(OLECMDID_PRINTPREVIEW) = 0 Then
Command2.Enabled = False
Else
Command2.Enabled = True
End If

If WebBrowser1.QueryStatusWB(OLECMDID_PAGESETUP) = 0 Then
Command3.Enabled = False
Else
Command3.Enabled = True
End If
End Function
Private Sub WebBrowser1_BeforeNavigate2 _
(ByVal pDisp As Object, _
URL As Variant, _
Flags As Variant, _
TargetFrameName As Variant, _
PostData As Variant, _
Headers As Variant, _
Cancel As Boolean)
Enable_or_Disable
End Sub
Private Sub WebBrowser1_********Complete(ByVal pDisp As Object, URL As Variant)
Enable_or_Disable
End Sub
Sağ Tuşun İptal Edilmesi

Bu ozelliği kullanabilmemiz icin Linkleri sadece uyelerimiz gorebilir.Eğer uye değil iseniz buraya tıklayarak kayıt olabilirsiniz.
adresinden WBCustomizer.dll dosyasını indirip programımıza Referans olarak eklememiz gerekiyor
Option Explicit
Dim CustomWB As WBCustomizer ’Deceler the CustomWB
Private Sub Form_Load()
Set CustomWB = New WBCustomizer
With CustomWB
.EnableContextMenus = False ’Disable The Menu
.EnableAllAccelerators = True

Set .WebBrowser = WebBrowser1
End With
WebBrowser1.Navigate "www.google.com"
CustomWB.EnableContextMenus = False
End Sub
Sayfadaki Tum Linkleri Almak

Bu kodları calıştırabilmek icin "Microsoft HTML Object Library" referansını projemize eklemeliyiz
Option Explicit
Private Sub Form_Load()
WebBrowser1.Navigate "Linkleri sadece uyelerimiz gorebilir.Eğer uye değil iseniz buraya tıklayarak kayıt olabilirsiniz.
"
End Sub
Private Sub WebBrowser1_DownloadComplete()
’you must add the "Microsoft HTML Object Library"!!!!!!!!!
Dim HTMLdoc As HTML********
Dim HTMLlinks As HTMLAnchorElement
Dim STRtxt As String
’ List the links.
On Error Resume Next
Set HTMLdoc = WebBrowser1.********
For Each HTMLlinks In HTMLdoc.links
STRtxt = STRtxt & HTMLlinks.href & vbCrLf
Next HTMLlinks
Text1.Text = STRtxt
End Sub
Sayfayı Kaydetme

Option Explicit
Private Sub Command1_Click()
WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate2 "www.google.com"
End Sub
Dosyaları Kendi Programımızla Acmak

Option Explicit
Private Sub Command1_Click()
On Error Resume Next
With CommonDialog1
.DialogTitle = "Open File"
.Filter = "Web page (*.htm;*.html) | *.htm;*.html|" & _
"All Supported Picture formats|*.gif;*.tif;*.pcd;*.jpg;*.wmf;" & _
"*.tga;*.jpeg;*.ras;*.png;*.eps;*.bmp;*.pcx|" & _
"Text formats (*.txt;*.doc)|*.txt;*.doc|" & _
"All files (*.*)|*.*|"
.ShowOpen
.Flags = 5
WebBrowser1.Navigate2 .FileName
End With
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate2 "www.google.com"
End Sub
Otomatik Tıklama

Private Sub Command1_Click()
Dim strwebsite As String
Dim stremail As String
strwebsite = "http://www.mysite.com"
stremail = "[email protected]"
WebBrowser1.********.addurl.URL.Value = strwebsite
WebBrowser1.********.addurl.Email.Value = stremail
WebBrowser1.********.addurl.Submit
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.scrubtheweb.com/addurl.html"
End Sub
ProgressBar Kullanımı

Private Sub Form_Load()
WebBrowser1.Navigate "www.msn.com"
ProgressBar1.Appearance = ccFlat
ProgressBar1.Scrolling = ccScrollingSmooth
End Sub

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100
Me.Caption = "100%"
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Value = Progress * 100 / ProgressMax
Me.Caption = Int(Progress * 100 / ProgressMax) & "%"
End If
Exit Sub
End Sub

Web Browser Kullanımı 3

Bir Kontrole Odaklanma
WebBrowser1.********.getElementById("Object’s Name").Focus
Sayfa İcindeki CheckBox ın Kontrolu
Private Sub Form_Load()
WebBrowser1.Navigate "https://www.google.com/accounts/ManageAccount"
End Sub
Private Sub Check1_Click()
If Check1.Value = 0 Then
WebBrowser1.********.All.PersistentCookie.Checked = False ’unchecked
Else
WebBrowser1.********.All.PersistentCookie.Checked = True ’checked
End If
End Sub

veya aşağıdaki kod ile de yapılabilir
Private Sub Form_Load()
WebBrowser1.Navigate "https://www.google.com/accounts/ManageAccount"
End Sub
Private Sub Check1_Click()
If Check1.Value = 0 Then
WebBrowser1.********.getElementById("PersistentCoo kie").Checked = False ’unchecked
Else
WebBrowser1.********.getElementById("PersistentCoo kie").Checked = True ’checked
End If
End Sub
Ozel Sağ Menu Kullanımı

Bu kodu kullanmak icin "Microsoft HTML Object Library" referansı eklenmelidir
Option Explicit
Public WithEvents HTML As HTML********

Private Function HTML_oncontextmenu() As Boolean
HTML_oncontextmenu = False
PopupMenu mnu ’