مساعدة في البحث ارجوكم

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

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

......السلام عليكم.......

انا اسف مرة اخرة ياجماعة لان جهازي مليان فيروسات عندما انزيل مضاد

الفيروسات يعثر على كثيرمن الفيروسات وبعد الانتهاءمن الفحص تضهر

رسالة هل تريد حذفها اضغط نعم فيتم حذف الملفات عنها يعلق الجهاز

اعيد التشغيل عندالاقلاع يخبرني ان الاكسبلولر قد ضرب واعيد التنصيب

الويندوز وهكذا...........

فارجوكم سامحوني على هذا الخطأ....

سأقوم بشرح الفقرة ارجو الاجابة:

طبعاً باستخدام الفجول بيزك

1- ننشئ form1

2- نضع اداة text1 عدد 1

3- نضع زر command1 عدد 1

3- نضغط على مفتاح ctrl+t فتظهر نافذة نفعل الخيار Microsoft RichTextBox control

ثم موافق تضهر لنا الاداة الجديدة نضعها على النموذج نحددها ونختار

من الخصائص هذه الاداة خاصية text ونضع النص فيها من اجل البحث

انسخ النص التالي للسرعةفي الاداة RichTextBox في الخاصية text : وتذكر

ان مربع النص من اجل كتابة الكلمة المراد البحث واداة RichTextBox

مكتوب بها النص مفهوم

هذا هو النص......

مقارنة :

باستخدام منفذ الوصل التسلسلي نقوم بنقل و استقبال المعلومات

بت بت بينما باستخدام منفذ الوصل التفرعي نقوم بنقل و استقبال

المعلومات كل 8 بت معاً .

بالنسبة لسرعة نقل المعلومات :

فإن منفذ USB(12 Mbpsأو 480 Mbps) يأتي أولاً ثم

منفذ الوصل التفرعي (1200 Kbps) ثم منفذ الوصل التسلسلي (28400 bps) .

بالنسبة للتغذية الكهربائية :

الأجهزة الموصولة بالمنفذ التسلسلي أو المنفذ

التفرعي بحاجة تغذية كهر بائية بينما الأجهزة

الموصولة بمنفذ USB غير بحاجة تغذية كهر بائية

لأنها تقوم بأخذ تغذيتها الكهربائية من المنفذ نفسه .

نستطيع ربط أكثر من جهاز واحد مع منفذ USB واحد

بينما لا نستطيع ذلك بالنسبة للمنافذ التسلسلية و التفرعية .

بعد نسخه النص افتح نافذة الشيفرة الخاصة بازر الامر

واكتب الشفرة التالية:

Private Sub Command1_Click()

Dim FoundPos As Integer

Dim FoundLine As Integer

' Find the text specified in the TextBox control.

FoundPos = RichTextBox1.Find(text1.Text, , , rtfWholeWord)

' Show message based on whether the text was found or not.

If FoundPos <> -1 Then

' Returns number of line containing found text.

FoundLine = RichTextBox1.GetLineFromChar(FoundPos)

MsgBox "Word found on line " & CStr(FoundLine)

Else

MsgBox "Word not found."

End If

End Sub

هذه الشيفرة تقوم بالبحث عن كلمة التي تكتبها في مربع النص وعند الضغط

على زر الامر يبحث عن الكلمة ويضهر رسالة انه عثر او لم يعثر

ولكن هذا البرنامج يبحث عن الكلمة الاولى فقط

مثل اكتب كلمة usb فهي مكررة

يبحث عن الكلمة الاولى فقط ولا يتابع الى الكلمة الثانية

على فرض ان

الكلمة مكررة اكثر من مرة

طيب ماشي وصلت الفكرة

كيف اضع زر ثاني يقوم بابحث عن الكلمة التالية

يعني يبحت عن usb في سطر جديد

ماهي الشيفرة من اجل ذلك

واكرر اعتذاري مرة اخرة ياجماعة

ارجو الرد.............................

السلام عليكم

الأخ "ab12oode" الله يعطيك العافية

لابد من إيجاد طريقة ما لنظافة جهازك من الفيروسات

اتمني ان لا تكون مضطر لاعادة تهئة الجهاز اذا لم تجد

إصدارة جديدة من مضادات الفيروسات

و هذا النوع من الفيروسات كان معي في احدي الاجهزة. النورتن كفيل به باذن الله اذا عملت له update.

:)

هذا الملف للفيجول لقد حذفت الفيروس كله والحمد لله

كيف يمكن عمل زر التالي فيه ارجو ردكم

الملف المرفق

fined.rar

وينكم يا شباب