Arkadaşlar bu projedeki txt1 ve text2 lerin surekli değişmesini nasıl sağlaya bilirim benim yazdığımda olur yada rasgele sacma sapan kelimelerde olur.. Proje aşağıda derleyip verebilen olursa teşekkur ederiz



text1 ve text2 deki yazılar değişecek sadece



Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Command1.Enabled = False
Label1.Caption = "Saldırı Başlatılmıştır"
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Timer2.Enabled = False
Text3.Text = "0"
Command1.Enabled = True
Label1.Caption = "Saldırı Durdurulmuştur"
End Sub

Private Sub Form_Load()
On Error Resume Next
WebBrowser1.Navigate "127.0.0.1/show/index.php?action=post;board=59.0"
Text3.Text = "0"
Text3.Enabled = False
Text3.Locked = True
Timer1.Enabled = False
Timer2.Enabled = False
End Sub



Private Sub Timer1_Timer()
On Error Resume Next
WebBrowser1.Document.All.Item("subject").Value = Text1.Text
WebBrowser1.Document.All.Item("message").Value = Text2.Text
WebBrowser1.Document.All.Item("post").Click
End Sub

Private Sub Timer2_Timer()
Text3.Text = Text3.Text + 1
On Error Resume Next
WebBrowser1.Navigate "127.0.0.1/show/index.php?action=post;board=59.0"
End Sub



Yardımlarınızı Bekliyorum

__________________