Merhaba bir oyun sitesi için otomatik gezinme ayarlamak istiyorum oyunun temel mantığı tavuklarımız var tavuklar saatte belirli bir yumurta üretiyor bende bu yumurtaları depom dolmadan satmak istiyorum.
Kullandığım kodlar aşağıda başarılı bir şekilde giriş sağlıyorum sonra yumurtaları satmak için buton 3 basıyorum yumurtaları satmış olduğum sayfada dahi yönlendiriyor fakat yumurta sayım eksilmiyor. Satmış görünüyor fakat satmamış nerede hata yapıyor yada düzeltmem
için ne yapamam gerekir
Public Class Form1
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Form1_Load_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://cilgintavuklar.com/giris.php")
WebBrowser1.ScriptErrorsSuppressed = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.Document.All.Item("kullanici_adi").InnerText = "Kullanıcıadım"
WebBrowser1.Document.All.Item("sifre").InnerText = "şifrem"
WebBrowser1.Document.GetElementById("login").InvokeMember("click")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
WebBrowser1.Navigate("http://cilgintavuklar.com/pazar.php")
For x = 1 To WebBrowser1.Document.All.Item
If WebBrowser1.Document.All.Item(x - 1).getattribute("value") = "16" Then
WebBrowser1.Document.All.Item(x - 1).invokemember("click")
End If
Next
End Sub
End Class
