vb.net > listbox ile atlama yapmadan butona bastırma

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb vb.net > listbox ile atlama yapmadan butona bastırma

Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı

2
Cevap 1453
Tıklama 0
Öne Çıkarma

1. sayfa

vb.net > listbox ile atlama yapmadan butona bastırma

Cevap Yaz

name9

13 yıl

Çavuş

Konu Sahibi

Öncelikle Merhaba, konuya gireyim
listbox ta a,b,c var misal listbox tan a seçildiğinde webbrowser misal facebook.com/a ya gidecek ve abone ol a tıklayacak
b ve c böyle uzun bir liste ben bunu başlarda timer la yaptım ama timer1 listbox taki değer açılana kadar timer2 listbox u kaydırıyordu timerla anlamsız sonra timersız denedim ve bir sonuca ulaşamadım kodların son hali şöyle

Dim sitesayisi As Integer 
      Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
          sitesayisi = 0 
      End Sub

 Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click 
          Me.WebBrowser2.Navigate("facebook.com/" & Convert.ToString(ListBox1.Items.Item(sitesayisi))) 
          Button2.Enabled = False 
          Button3.Enabled = True 
          Button1.Enabled = False 
   
      End Sub

 Private Sub WebBrowser2_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser2.DocumentCompleted 
          Dim allelements As HtmlElementCollection = WebBrowser2.Document.All 
          For Each webpageelement As HtmlElement In allelements 
              If WebBrowser2.Url.ToString = ("facebook.com/" & Convert.ToString(ListBox1.Items.Item(sitesayisi))) Then 
                  If webpageelement.GetAttribute("alt") = "Bu üyeyi beğenmek için tıkla." Then 
                  Else 
                      webpageelement.InvokeMember("click") 
                  End If 
              End If 
              sitesayisi = sitesayisi + 1 
          Next 
      End Sub

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.