بسم الله الرحمن الرحيم
السلام عليكم
احبتى اعضاء ومشرفين منتدى الفريق العربى للبرمجه
تحيه طيبه وبعد
كنت اتجول فى احدى المواقع الاجنبيه الخاصه للبرمجه ولكن وجدت شئ رائع وهو سورس كود لبرنامج انتى فايرس جااااامد اوى
فقلت لا ابخل به على هذا المنتدى الرائع الذى تعلمت منه الكثير
البرنامج عباره عن سورس كود انتى فايرس يقوم بمسح شامل للهارد ديسك بما فيه الرجيستير
بجد برنامج رااااااااااااائع واكثر من رااااااائع
البرنامج فى المرفقات
-----------------------------------------------------
لى عندكم طلب ارجوا ان لا تبخلوا عليا به
انا صممت برنامج يقوم بفتح الموقع عده مرات ولكن اريد ان اضع تيكس بوكس يعرض فيه عدد المواقع التى فتحت وعدد المواقع التى لم تفتح ومجموع عدد المواقع التى فتحت والتى لم تفتح
بمعنى عند الاتصال بالموقع المكتوب فى text 1 ويكون الموقع يعمل يقول التايمر بعرض رقم فى واحد مثلا فى text 2 ويقوم الرقم بالزياده بعدد فتح الموقع على سبيل انه يعمل
وtext 3 يقوم بعد المواقع التى لم تستجيب للفتح
وكنت اتجول فى بعض المنتديات وسألت هذا السؤال وكان هذا هو الرد
شوف يا اخي انا ما اعرف هذا الكود لكن ألفتلك واحد من دماغي
اتفضل و طوره انت وعدل عليه
فيه تايمر خلي بالك
ترجمه هذا الكود في حاله انشغال النت كنترول
تعطي القيمه واحد وهذا يدل علي ان الموقع استقبل الدخول
else الوصول خاطء
تعني ان النت كنترول لن تستقبل الموقع ولذا قيمتها 0
تحياتي يا بطل
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.google.com"
End Sub
Private Sub Timer1_Timer()
If WebBrowser1.Busy Then
Text1.Text = "1"
Else
Text1.Text = "0"
End If
End Sub
وكانت الاجابه الاخرى
الكود الي فات برده هيحتاج منك تعديل كبير وتطوير
قولت لنفسي نجرب الكود بدل التايمر خليه في المتغيرات احسن ةنحجز مكان في الذاكره
جرب هذا الكود وهو حجز اماكن بالذاكره واستخدامها في التيكست بوكس
Private Sub Form_Load()
Dim x As Integer
x = 0
Dim z As Integer
z = 1
If WebBrowser1.Busy Then
Text1.Text = x
Else
Text1.Text = z
End If
WebBrowser1.Navigate "http://www.google.com"
انا اريد عند الاتصال بالموقع يقوم بعمل عداد بعدد استعراض الموقع وعداد اخر يقوم بعرض عدد فتح الموقع الذى لم يستجيب
ولكم جزيل الشكر