Vb Net Dongulerdekı Hata

22/Ara/16 10:17

Kısayol

Şikayet

Özel Mesaj

lazz

Kayıt Tarihi: 15/Ekim/2007

Dim client = New WebClient
            client.Encoding = System.Text.Encoding.UTF8
            Dim document = New HtmlAgilityPack.HtmlDocument()
            'Dim SayfaSayisi = InputBox("Markada Kac Sayfa Var", "Kac Sayfa").ToString
            '\\\İçerik Cekmeye Başlıyok///
            For i = 1 To 60
                '\\\İlgili Sayfaya Gidiyoruz///
                document.LoadHtml(client.DownloadString("https://www.*****.com.tr" & DirectCast(ComboBox3.SelectedItem, KeyValuePair(Of String, String)).Key & "?page=" & i))
                Dim UrunlerSayfasi = document.DocumentNode.SelectNodes("//div[@class='searchResults']")
                '\\\Urunler Sayfasını Aldık///
                For Each title As HtmlNode In UrunlerSayfasi
                    '\\\Sayfadan Urune Gidiyoruz///
                    document.LoadHtml(client.DownloadString("https://www.*****.com.tr" & title.SelectSingleNode(".//li[@class='indirim']//a").GetAttributeValue("href", String.Empty)))
                    '\\\Ürün Sayfasını Okuyoruz///
                    Dim UrunSayfasi = document.DocumentNode.SelectNodes("//div[@class='deContainer']")
                    For Each urun As HtmlNode In UrunSayfasi
                        '\\\Okuduk Bakalım///
                        SimpleButton1.Enabled = False
                        getMoreData = False
                        '\\\Gec Butonunu Kapattık Ve For Dongusunu Durdurduk///
                        Label7.Text = urun.SelectSingleNode(".//div[@class='tabeDetay tab_1 activeTab']/ul").InnerText
                        Label5.Text = urun.SelectSingleNode(".//div[@class='tabeDetay tab_1 activeTab']/p/span").InnerText.Replace("Ürün Kodu: ", "")
                        Label6.Text = urun.SelectSingleNode(".//div[@class='deRight']/h1").InnerText
                        PictureBox1.ImageLocation = "http://www.*****.com.tr" & urun.SelectSingleNode(".//div[@class='deLeft']//img").GetAttributeValue("src", String.Empty)
                        SimpleButton1.Enabled = True
                        While getMoreData = False
                            ' process messages from UI
                            Application.DoEvents()
                        End While
                    Next


                Next
            Next

evet murıtler kodumda bır seteye gıdıp sayfaları alıyorum daha sonra safdakı urunlerı alıyorum daha sonrada urunun ozellıklerını alıyorum

ılk for sayfaları gezıyor

ıkıncı for each saydakaı urunlerı

3 for each de urunun sayfasına gıdıp urunun ozellıklerını alıyor

sıkıntım ıse su

her sayfada ılk urunu alıyor daha sonra dıger sayfaya gecıyor.her sayfadan bır urun alıyor

Alıntı yap

23/Ara/16 08:35

Kısayol

Şikayet

Özel Mesaj

lazz

Kayıt Tarihi: 15/Ekim/2007

bir kez daha up olsun

Alıntı yap

23/Ara/16 08:45

Kısayol

Şikayet

Özel Mesaj

camarade
ontedi

Kayıt Tarihi: 04/Eylül/2005

Hocam breakpoint atıp denedin mi?

Ayrıca o sitede bir güvenlik önlemi olmuş olabilir. Bot olduğunu anlamıştır belki de. User Agent değerlerini yollamayı deneyebilir misin?

Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.

Alıntı yap

23/Ara/16 09:51

Kısayol

Şikayet

Özel Mesaj

lazz

Kayıt Tarihi: 15/Ekim/2007

onuda denedım sıtede koruma yok

sıkıntım en son yaptıgım for each ılk verıyı okuyor sonra for i ye işlem yapılıyor

aldıgım verıler dogru hersey dogru ama sayfada baska urunler varken her sayfadan bır urun alıp dıger sayfaya gecıyor

Alıntı yap

23/Ara/16 10:21

Kısayol

Şikayet

Özel Mesaj

biri

Kayıt Tarihi: 03/Ocak/2009

Forlari ic içe degil de for içerisinde linkleri bir yere kaydet. For döngüsü tamamlanınca linkleri ziyaret et. Çünkü for döngüsünde linkleri almadan sen ilk linkten sonra ürüne geçiyor.

¯\(ツ)/¯ ฏ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎

Alıntı yap

23/Ara/16 10:46

Kısayol

Şikayet

Özel Mesaj

Tayga

Kayıt Tarihi: 21/Haziran/2015

SimpleButton1.Enabled = False

                        getMoreData = False

                        '\\\Gec Butonunu Kapattık Ve For Dongusunu Durdurduk///

While getMoreData = False
                            ' process messages from UI
                            Application.DoEvents()
                        End  
 
Burda işlem bekliyor hocam sürekli False dönüyor.Bi daha kontrol et istersen.

Tayga tarafından 23/Ara/16 10:48 tarihinde düzenlenmiştir

Alıntı yap

23/Ara/16 11:03

Kısayol

Şikayet

Özel Mesaj

lazz

Kayıt Tarihi: 15/Ekim/2007

Tayga bunu yazdı

SimpleButton1.Enabled = False
                        getMoreData = False
                        '\\\Gec Butonunu Kapattık Ve For Dongusunu Durdurduk///
 
 
While getMoreData = False
                            ' process messages from UI
                            Application.DoEvents()
                        End  
 
Burda işlem bekliyor hocam sürekli False dönüyor.Bi daha kontrol et istersen.
 

ordakı amac ben bekletırıyorum daha sonra bır butunla devam ettırıyorum.bilinçli bir haereket

Alıntı yap

23/Ara/16 11:05

Kısayol

Şikayet

Özel Mesaj

lazz

Kayıt Tarihi: 15/Ekim/2007

tolgasen bunu yazdı

Forlari ic içe degil de for içerisinde linkleri bir yere kaydet. For döngüsü tamamlanınca linkleri ziyaret et. Çünkü for döngüsünde linkleri almadan sen ilk linkten sonra ürüne geçiyor.

pekı bunu bu sekılde halletmemın bır yolu yokmu ıllakı for ları tek tekmı yapayım

Alıntı yap