مشكلة في برنامجي للإختراق ارجوا من كل مبرمجي المنتدى الدخول

السلام عليكــم ورحمـة الله وبركاتــه

انا إخواني صممت برنامج إختراق متل برنامج البيفروست

و كانت عندي مشكلة في الأول هو انه برنامجي يستقبل إتصالا واحدا تم بحتت و وجدت ان الأمر

يتعلق بالمصفوفات حيت كل ضحية لازم ونسوك خاص بها فعدلت على الكود فوضعت في الإجراء

ConnectionRequest

الكود الأتي :

Dim i As Integer

For i = 1 To 10

If w.State = 7 Then

w.Accept requestID

Exit For

End If

Next

Form4.Show

ListView1.ListItems.Add = Form2.Text2.Text

ListView1.SelectedItem.SubItems(1) = w.RemoteHostIP

ListView1.SelectedItem.SubItems(3) = w.RemotePort

Form4.Label3.Caption = w.RemoteHostIP

Form4.Label4.Caption = Form2.Text2.Text

المهم طلعت لي مشكلة كبيييرة لا اعرف مادا ساقول لكم لكني صورتها من برنامجي :

حيت لدي تقريبا 10 ضحايا فيه

و يستمر

و يستمر و يستمر

لم افهم شيئا

ارجوا التوضيح إخواني مع تصحيح الكود جزاكم الله خيرا

سلام