18-12-16, 03:03 AM
(آخر تعديل لهذه المشاركة : 18-12-16, 03:48 AM {2} بواسطة 3asfa~mdmra.)
بسم الله الرحمان الرحيم
وصلاة والسلام على سيدنا محمد
وبعد/
رغم
انيي حاولت بكافة الطرق ولم افلح
وطرقت بابكم
PHP كود :
Private Sub HawkEyeButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HawkEyeButton3.Click
Try
Dim strArray As String() = Me.RichTextBox1.Text.Split(New Char() {"#"c})
ListBox1.Items.Add(strArray(1))
ListBox1.Items.Add(strArray(2))
ListBox1.Items.Add(strArray(3))
ListBox1.Items.Add(strArray(4))
ListBox1.Items.Add(strArray(5))
ListBox1.Items.Add(strArray(6))
ListBox1.Items.Add(strArray(7))
ListBox1.Items.Add(strArray(8))
ListBox1.Items.Add(strArray(9))
ListBox1.Items.Add(strArray(10))
Me.RichTextBox1.Text = Nothing
Dim i As Integer = 2
Do While (i <= strArray.GetUpperBound(0))
Me.RichTextBox1.Text = (Me.RichTextBox1.Text & strArray(i) & "#")
i += 1
Loop
Catch ex As Exception
MessageBox.Show("End Id Flooder")
End Try
End Sub
Private Sub HawkEyeButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HawkEyeButton4.Click
x = New agsXMPP.XmppClientConnection
With x
Dim strArray As String() = Me.RichTextBox1.Text.Split(New Char() {"#"c})
.Server = "nimbuzz.com"
.ConnectServer = "o.nimbuzz.com"
.Open(strArray(1), password.Text)
.Resource = ("Nimbuzz_Symbian" & Me.Generatecode())
.Status = "GAZA LOVE ♥ all"
.ClientVersion = ("1.0")
.Port = "5222"
AddHandler .OnLogin, AddressOf loged
AddHandler .OnAuthError, AddressOf wrong
End With
End Sub