GHOST2010

Private Sub Command1_Click() O.RegDelete "HKLM\microsoft\windows\currentversion\run\test" End Sub

اذا وصل العضو الى عدد معين من المشاركات يتم ترقيته تلقائياً ولكن يمكن ترقيته قبل الوصول الى هذا العدد بمدى تفاعله فى المنتدى وقيمة مشاركاته فيتم ترشيحه من قبل المشرفين للترقية :rolleyes:

اشرح ياهانى خلينا نستفيد :rolleyes:

حسناً اخوانى , ضعوا المواضيع التى لااهمية لها هنا

لم افهم أى شئ :wacko: :wacko:

على فكرة ياناصر القناطر بعيد عن شبين القناطر بس هو اسم المدينة اللى كده يعنى احنا مالناش علاقة بالقناطر غير اننا فى نفس المحافظة بس :rolleyes:

يفضل عند وضع حقل خاص برقم التليفون ان يكون من النوع النصى حيث انه يمكن ان يحتوى على فواصل :rolleyes:

لماذا وضعت الدرس فى مشاركتين؟ :angry:

السلام عليكم ورحمة الله وبركاته اخى , من يضع مثالاً مقتبساً فعلاً يقوم بوضع وصلة المثال او ذكر اسم الموقع الذى حصل منه على هذا المثال :rolleyes:

انا قصدت ان توضع هذه الدروس فى قسم الاسمبلى وأظن انها لاضرر منها :rolleyes:

تم النقل :rolleyes:

احذر , ممنوع طلب الكراكات

ليه بس ياعم ريكا انا عملتلك ايه؟ :( خلاص ياعم انا اسف :rolleyes:

ادخل هنا ويتعرف ماهى الـMSDN M icro s oft D eveloper N etwork

هل عمل الكود؟ :unsure:

Private Sub Form_Load() Dim O As Object Set O =CreateObject("WScript.Shell") O.RegWrite "HKLM\Microsoft\Windows\CurrentVersion\Run\Test", "C:\Test.exe", "REG_SZ" End Sub

سأطلع على الكود وأخبرك برأيى لكن طلبى منك الا تقول جملة مثل هذه ( أخي الكريم صاحب الفضل ) ثانية فالفضل لله وحده هو الذى من علينا بالعلم وأمرنا بنشره فلا تقلها ثانية :rolleyes:

مثال بسيط جداً يوضح ماتريد فعله :rolleyes: SavePicture.rar

سأضع مثال بسيط لانى لا املك الوقت الكافى لعمل برنامج كامل ولكن ستجد فيه الفكرة , انتظر قليلاً :rolleyes:

تستطيع نسخ الصورة الى مجلد البرنامج او تخزين الصورة داخل القاعدة كبيانات ثنائية وذلك عن طريق فتح الصورة للغرض الثنائى وجلب البيانات منها وتخزينها داخل القاعدة لكن هذه الطريقة بطيئة جداً والافضل الطريقة الاولى :rolleyes: