20-05-17, 11:09 AM
سلام عليكم
مصيبة عند تشغيل جميع التايمرات لاتعمل فما الحل؟
الاكواد
كود :
Dim timercount As Integer = 10
Dim timercount2 As Integer = 11
Dim timercount3 As Integer = 12
Dim timercount4 As Integer = 13
Dim timercount5 As Integer = 14
Dim timercount6 As Integer = 15PHP كود :
Private Sub jo1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jo1.Tick
Dim Rm As Resources.ResourceManager
Rm = New Resources.ResourceManager("Wolf_flooder_V3._8._0.Resources", System.Reflection.Assembly.GetExecutingAssembly)
Me.P1.Image = Rm.GetObject("www")
T1.Text = timercount.ToString()
If timercount = 0 Then
jo1.Enabled = False
timercount = 10
T1.Text = ""
Me.emad1.Send(String.Concat(New String() {"<presence to='", Me.room.Text, "@conference.nimbuzz.com/", Me.gaza1, "'></presence>"}))
Else
timercount -= 1
End If
End Sub
Private Sub jo2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jo2.Tick
Dim Rm As Resources.ResourceManager
Rm = New Resources.ResourceManager("Wolf_flooder_V3._8._0.Resources", System.Reflection.Assembly.GetExecutingAssembly)
Me.P2.Image = Rm.GetObject("www")
T2.Text = timercount2.ToString()
If timercount2 = 0 Then
jo2.Enabled = False
timercount2 = 11
T2.Text = ""
Me.emad2.Send(String.Concat(New String() {"<presence to='", Me.room.Text, "@conference.nimbuzz.com/", Me.gaza2, "'></presence>"}))
Else
timercount2 -= 1
End If
End Sub
Private Sub jo3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jo3.Tick
Dim Rm As Resources.ResourceManager
Rm = New Resources.ResourceManager("Wolf_flooder_V3._8._0.Resources", System.Reflection.Assembly.GetExecutingAssembly)
Me.P3.Image = Rm.GetObject("www")
T3.Text = timercount3.ToString()
If timercount3 = 0 Then
jo3.Enabled = False
timercount3 = 12
T3.Text = ""
Me.emad3.Send(String.Concat(New String() {"<presence to='", Me.room.Text, "@conference.nimbuzz.com/", Me.gaza3, "'></presence>"}))
Else
timercount3 -= 1
End If
End Sub
Private Sub jo4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jo4.Tick
Dim Rm As Resources.ResourceManager
Rm = New Resources.ResourceManager("Wolf_flooder_V3._8._0.Resources", System.Reflection.Assembly.GetExecutingAssembly)
Me.P4.Image = Rm.GetObject("www")
T4.Text = timercount4.ToString()
If timercount4 = 0 Then
jo1.Enabled = False
timercount4 = 13
T4.Text = ""
Me.emad4.Send(String.Concat(New String() {"<presence to='", Me.room.Text, "@conference.nimbuzz.com/", Me.gaza4, "'></presence>"}))
Else
timercount4 -= 1
End If
End Sub
Private Sub jo5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jo5.Tick
Dim Rm As Resources.ResourceManager
Rm = New Resources.ResourceManager("Wolf_flooder_V3._8._0.Resources", System.Reflection.Assembly.GetExecutingAssembly)
Me.P5.Image = Rm.GetObject("www")
T5.Text = timercount5.ToString()
If timercount5 = 0 Then
jo5.Enabled = False
timercount5 = 14
T5.Text = ""
Me.emad5.Send(String.Concat(New String() {"<presence to='", Me.room.Text, "@conference.nimbuzz.com/", Me.gaza5, "'></presence>"}))
Else
timercount5 -= 1
End If
End Sub
PHP كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
jo1.Enabled = True
jo2.Enabled = True
jo3.Enabled = True
jo4.Enabled = True
jo5.Enabled = True
jo6.Enabled = True
End Sub