Vb.NET Adım Adım Web Browser Yapımı Dersleri

• 16 Şub 2011

• #61

bjlkl

Aileden

Aktiflik

K.Tarihi

15 Ocak 2011

Mesajlar

215

Puanı

14

Konum

İstanbul

demekki o yüzden yasaklı site url si yazınca girdi. ok saol
bu aralar oyun yapımıyla meşgul olduğumdan browsera pek önem vermedim
oyun spr oluo ama online deil prodil bile ekleyemedim.programa üyelik ekleme(online değil) e bir şey yazdım bakar mısın Cottonmouth ? yardımını bekliyorum

----------

olmadı yine, yasaklı site adresini http ile de ekledim girdim olmadı

 

• 16 Şub 2011

• #62

Cottonmouth

form2 listbox1 de site url leri olduğuna emin misin. ?

 

• 16 Şub 2011

• #63

bjlkl

Aileden

Aktiflik

K.Tarihi

15 Ocak 2011

Mesajlar

215

Puanı

14

Konum

İstanbul

evt elle eklem yaptım. ztn otomatik kaydedio programı kapasamda listbox son halinde kalıyo

 

• 17 Şub 2011

• #64

Cottonmouth

O zman git butonuna yazıyorsun ya kodları. Orda yanlış yere yazıyorsun .

 

• 17 Şub 2011

• #65

bjlkl

Aileden

Aktiflik

K.Tarihi

15 Ocak 2011

Mesajlar

215

Puanı

14

Konum

İstanbul

Private Sub git_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles git.Click
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(adrescubugu.Text)
For i = 0 To Form2.ListBox1.Items.Count - 1
If adrescubugu.Text = Form2.ListBox1.Items(i).ToString Then
MsgBox("yasaklı")
Else

End If
Next

End Sub

 

• 17 Şub 2011

• #66

Cottonmouth

For i = 0 To Form2.ListBox1.Items.Count - 1
If adrescubugu.Text = Form2.ListBox1.Items(i).ToString Then
MsgBox("yasaklı")

Else
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(adrescubugu.Text)
End If

Next

Sen başta yönlendirme yapmışsın. İf'in içinde yapmak daha doğru.

 

• 17 Şub 2011

• #67

bjlkl

Aileden

Aktiflik

K.Tarihi

15 Ocak 2011

Mesajlar

215

Puanı

14

Konum

İstanbul

sonucu 1-2 gün sonra söylerim. benim browsera bir şey oldu. çok kasmaya başladı browser

----------

browserı yeniden yaptım. ve maalesef işe yaramıyor ve daha doğrusu adres çubuğuna yazdığımız siteye gitmeye de çalışmıyor browser. ve pc kasıyor.

----------

başka bir yol bulmamız lzm. msgbox bile görünmüyor ve uzun zaman sonra da sayfa görüntülenemiyor diyor. yani kod işe yaramadı

 

• 17 Şub 2011

• #68

Cottonmouth

listedeki yasaklı adres ile adres çubuğuna girilen adresin tamamen aynı olduğuna emin misin ?

 

• 18 Şub 2011

• #69

bjlkl

Aileden

Aktiflik

K.Tarihi

15 Ocak 2011

Mesajlar

215

Puanı

14

Konum

İstanbul

evt doğru giriyorum. ve şu an yasaklama koduınu sildim. adresçubuğundan arama yapamıyodum resmen. progressbar çıkmıyodu bile

 

• 18 Şub 2011

• #70

Cottonmouth

Karışmış kodlar bence. Baştan yvaş yavaş yap.

 

• 20 Şub 2011

• #71

bjlkl

Aileden

Aktiflik

K.Tarihi

15 Ocak 2011

Mesajlar

215

Puanı

14

Konum

İstanbul

yeniden yaptım sonuç aynı

 

• 20 Şub 2011

• #72

Cottonmouth

if sorgusundan önce herhangi bir yönlendirme olmadığından emin misin ? Sonuçta ben dersdeki kodları ona göre yazmadım yani onu eklemeye çalışınca mantıksızlık olabilir. Ona dikkat et sen .

 

• 21 Şub 2011

• #73

bjlkl

Aileden

Aktiflik

K.Tarihi

15 Ocak 2011

Mesajlar

215

Puanı

14

Konum

İstanbul

aslında ifli kısımda else e gelmeedn önce anasayfaya yönlendirme yazalım. sonra else end if yazıp git butonunun normal kodunu yazalım

 

• 21 Şub 2011

• #74

Cottonmouth

yine normal kodlara gider ifden çıkınca .
ama anasayfaya gittikten sonra exit sub yazabilirsin. Devam etmek direk subdan çıkar

 

• 21 Şub 2011

• #75

bjlkl

Aileden

Aktiflik

K.Tarihi

15 Ocak 2011

Mesajlar

215

Puanı

14

Konum

İstanbul

Dim yasak As String
Dim yasak1, yasak2, yasak3, yasak4, yasak5, yasak6, yasak7 As Integer

yasak = ComboBox1.Text
yasak1 = yasak.IndexOf("f", 0, yasak.Length)
yasak2 = yasak.IndexOf("e", 0, yasak.Length)
yasak3 = yasak.IndexOf("d", 0, yasak.Length)
yasak4 = yasak.IndexOf("c", 0, yasak.Length)
yasak5 = yasak.IndexOf("bb", 0, yasak.Length)
yasak6 = yasak.IndexOf("aaa", 0, yasak.Length)
yasak7 = yasak.IndexOf(".....", 0, yasak.Length)

If RadioButton2.Checked = True Then
If yasak1 <> -1 Or yasak2 <> -1 Or yasak3 <> -1 Or yasak4 <> -1 Or yasak5 <> -1 Or yasak6 <> -1 Or yasak7 <> -1 Then
MsgBox("Bu site açılmaya uygun değildir.")
Browser1.GoHome()
Exit Sub

End If
End If

Browser1.Navigate(ComboBox1.Text)

bn sekmesiz kurduğumda yasakları böyle yapmıştım. git butonunun komuto böyleydi.radiobuttona göre arama yapıyodu. bunun gibi bi şey olucak

 

• 21 Şub 2011

• #76

Cottonmouth

Tamam var elinde kodlar yap işte

 

• 21 Şub 2011

• #77

bjlkl

Aileden

Aktiflik

K.Tarihi

15 Ocak 2011

Mesajlar

215

Puanı

14

Konum

İstanbul

For i = 0 To Form2.ListBox1.Items.Count - 1
If adrescubugu.Text = Form2.ListBox1.Items(i).ToString Then
MsgBox("yasaklı")
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
Exit Sub
Else

End If
Next
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(adrescubugu.Text)

yazdım olmadı

 

• 21 Şub 2011

• #78

Cottonmouth

For i = 0 To Form2.ListBox1.Items.Count - 1
If adrescubugu.Text = "www.google.com" Then
MsgBox("yasaklı")
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(My.Settings.Anasayfa)
Exit Sub
Else

End If
Next
CType(sekme.SelectedTab.Controls.Item(0), WebBrowser).Navigate(adrescubugu.Text)

yazıp www.google.com'a girmeyi denesene bi.

 

• 21 Şub 2011

• #79

bjlkl

Aileden

Aktiflik

K.Tarihi

15 Ocak 2011

Mesajlar

215

Puanı

14

Konum

İstanbul

olmadı gene
ve de browserı yavaşlatıyor baya

 

• 21 Şub 2011

• #80

Cottonmouth

Öylede olmadıysa başka bir yerde problem var.