3 Mart 2018 Cumartesi

VB.Net Mybb Konu Botu [Kaynak kod ve Proje!]

Posted by Karolinax on 06:50 dersler , konu botu , mybb , mybb konu botu , vb.net 1 yorum

Merhaba arkadaşlar bugün sizlere Mybb'de nasıl konu botu yapılır ondan bahsedicem.

İlk olarak kendinize bir proje açın.
Projenize altta bulunanları ekleyin;
Textbox1.Text [Konu başlık burada olucak]
Textbox2.Text [Konu içerik burada olucak]
Textbox3.Text [Konu açılacak link Örnek : http://localhost/mybb/newthread.php?fid=2]
Button 1 [Konu içerik ve başlık rasgele sayı kasımı başlat]
Button 2 [Botu Başlat]
Button 3 [Konuya git]
Timer 1 [İçerik kasılacak yer]
Timer 2 [Konu kasılacak yer]
Timer 3 [Konu linkine tekrar gidicek yer]
WebBrowser1 [Konu kasımı için] ve WebBrowser1'de ScriptErrorsSuppressed = True yapalım.
Şimdi ise kodları yazın.

Button 1 ;
timer1.start()
Button 3;
WebBrowser1.Navigate(TextBox3.Text)
Button 2;
Timer2.Start()
Timer1 ;
Dim i As Integer
i = Int(Rnd(1) * (100000000))
Dim i2 As Integer
i2 = Int(Rnd(1) * (100000000))
TextBox1.Text = i
TextBox2.Text = i2
timer2 [Interval = 600];
Try
WebBrowser1.Document.GetElementById("subject").SetAttribute("value", TextBox2.Text)
WebBrowser1.Document.GetElementById("message").InnerText = TextBox1.Text
WebBrowser1.Document.GetElementById("submit").InvokeMember("click")
Timer3.Start()
Catch ex As Exception
End Try
Timer3 [Interval = 800];
WebBrowser1.Navigate(TextBox3.Text)

İşlemimiz bitmiştir. Şimdi konu kasmaya başlayabilirsiniz.
İstek video isterseniz YouTube veya bu konu altına yorum olarak belirtirseniz elimden geldiğince yardımcı olacağım.
İyi günler...