12-11-16, 02:30 AM
(آخر تعديل لهذه المشاركة : 12-11-16, 02:51 AM {2} بواسطة 3asfa~mdmra.)
If Me.checkBox19.Checked Then
Dim strArray12 As String() = Me.richTextBox9.Text.Split(New Char() { "#"c })
Dim num10 As Integer = strArray12.GetLowerBound(0)
Do While (num10 <= strArray12.GetUpperBound(0))
If msg.Body.ToLower.Contains(strArray12(num10).ToString) Then 'هنا المشكلة بهذا لسطر
If Me.checkBox32.Checked Then
Form1.apple.Send(String.Concat(New String() { "<iq xmlns='jabber:client' to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='set' id='apple'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='outcast' jid='", msg.From.Resource.Trim, "@nimbuzz.com' /></query></iq>" }))
Form1.apple.Send(String.Concat(New String() { "<message to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='groupchat'><body>", msg.From.Resource.Trim, " : Khafe sho
</body></message>" }))
End If
If Me.checkBox25.Checked Then
Form1.apple.Send(String.Concat(New String() { "<message to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='groupchat'><body>/ban f ", msg.From.Resource.Trim, "</body></message>" }))
Form1.apple.Send(String.Concat(New String() { "<message to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='groupchat'><body>", msg.From.Resource.Trim, " : Boro Gom Sho Biron IP Ban Shod 
</body></message>" }))
End If
If Me.checkBox31.Checked Then
Form1.apple.Send(String.Concat(New String() { "<iq to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='set' id='itemmuc'><query xmlns='http://jabber.org/protocol/muc#admin'><item role='none' nick='", msg.From.Resource.Trim, "'><reason>: loopeto</reason></item></query></iq>" }))
Form1.apple.Send(String.Concat(New String() { "<message to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='groupchat'><body>", msg.From.Resource.Trim, " : Boro Birun ye Havayi Bokhor Biya
</body></message>" }))
End If
If Me.checkBox30.Checked Then
Form1.apple.Send(String.Concat(New String() { "<iq type='set' to='", Me.textBox6.Text, "@conference.nimbuzz.com' id='badbuzz'><query xmlns='http://jabber.org/protocol/muc#admin'><item nick='", msg.From.Resource.Trim, "' role='visitor' /></query></iq>" }))
Form1.apple.Send(String.Concat(New String() { "<message to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='groupchat'><body>", msg.From.Resource.Trim, " : Sedat Chera Dar nmiyad ?</body></message>" }))
End If
End If
num10 += 1
Loop
End If
المشروع هنا بشكل كامل كل وانا حطيت فيه الايميل والباسورد
كل ماعليك هو تسجيل دخول ومن ثم Join
وبضغط
ع Filter
لتفعيل الكود
تظهر المشكلة
رابط المشروع بالكامل وهو عبارة عن نموذج
http://up.top4top.net/downloadf-315foztt1-rar.html
Dim strArray12 As String() = Me.richTextBox9.Text.Split(New Char() { "#"c })
Dim num10 As Integer = strArray12.GetLowerBound(0)
Do While (num10 <= strArray12.GetUpperBound(0))
If msg.Body.ToLower.Contains(strArray12(num10).ToString) Then 'هنا المشكلة بهذا لسطر
If Me.checkBox32.Checked Then
Form1.apple.Send(String.Concat(New String() { "<iq xmlns='jabber:client' to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='set' id='apple'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='outcast' jid='", msg.From.Resource.Trim, "@nimbuzz.com' /></query></iq>" }))
Form1.apple.Send(String.Concat(New String() { "<message to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='groupchat'><body>", msg.From.Resource.Trim, " : Khafe sho
</body></message>" }))End If
If Me.checkBox25.Checked Then
Form1.apple.Send(String.Concat(New String() { "<message to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='groupchat'><body>/ban f ", msg.From.Resource.Trim, "</body></message>" }))
Form1.apple.Send(String.Concat(New String() { "<message to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='groupchat'><body>", msg.From.Resource.Trim, " : Boro Gom Sho Biron
IP Ban Shod </body></message>" }))End If
If Me.checkBox31.Checked Then
Form1.apple.Send(String.Concat(New String() { "<iq to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='set' id='itemmuc'><query xmlns='http://jabber.org/protocol/muc#admin'><item role='none' nick='", msg.From.Resource.Trim, "'><reason>: loopeto</reason></item></query></iq>" }))
Form1.apple.Send(String.Concat(New String() { "<message to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='groupchat'><body>", msg.From.Resource.Trim, " : Boro Birun ye Havayi Bokhor Biya
</body></message>" }))End If
If Me.checkBox30.Checked Then
Form1.apple.Send(String.Concat(New String() { "<iq type='set' to='", Me.textBox6.Text, "@conference.nimbuzz.com' id='badbuzz'><query xmlns='http://jabber.org/protocol/muc#admin'><item nick='", msg.From.Resource.Trim, "' role='visitor' /></query></iq>" }))
Form1.apple.Send(String.Concat(New String() { "<message to='", Me.textBox6.Text, "@conference.nimbuzz.com' type='groupchat'><body>", msg.From.Resource.Trim, " : Sedat Chera Dar nmiyad ?
</body></message>" }))End If
End If
num10 += 1
Loop
End If
المشروع هنا بشكل كامل كل وانا حطيت فيه الايميل والباسورد
كل ماعليك هو تسجيل دخول ومن ثم Join
وبضغط
ع Filter
لتفعيل الكود
تظهر المشكلة
رابط المشروع بالكامل وهو عبارة عن نموذج
http://up.top4top.net/downloadf-315foztt1-rar.html
