el3asher

أخي هوب لم أفهم الكود الذي كتبته Private Sub Form_Load() Dim lRegKey As Long Dim sApp As String sApp = App.Path + IIf(Right(App.Path, 1) <> "\", "\", "") + App.EXEName + ".exe" If RegOpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run\",…

أحاول كتابة برنامج تنبيه لاوقات الصلاة ويجب ان يعمل البرنامج بشكل اوتوماتيكي فور تشغيل الجهاز أرجوا كتابة الكود مع الشرح وأتمني أن لا يرفق أحد مثال لأني حاليا أدخل نت من سيبر وليس به برنامج الفيجوال كي اري المثال عليه فقط اريد شرح الطريقة والكود وشكرا للأفادة

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

أشكرك اختي بنت اليمن علي التوضيح ولكن كيف يمكنني الاستفادة من هذا الكود؟؟

في بعض الشروحات والاكواد التي قرأتها في المنتدي هنا وجدت كود لم افهمه ولم اجد له شرحًا private sub cmd1_click(A as Integer) انا اعرف انني أعلن عن المتغير بالكلمة الدليلية Dim Dim A as Integer ما الفرق بين هذا وذاك؟؟؟ ربما كان السؤال غبي نوعًا ولكن أتمني أن أفه…

اشكرك أخي رومانتيك بوي علي إضافتك :D أريد أن أضيف أيضا أنه حين تستغني عن الوسيطةBottonClicked فإن الاقواس تحيط بالوسيطة الاولي للرسالة فقط MsgBox("your message here") , VBOkOnly , " the tittle here" نلاحظ ان الاقواس تحيط فقط بالوسيطة الاولي ("your message here…

التركيب النحوي للاداة MsgBox BottonClicked=MsgBox(messageِ NumberOfBottonِ tittle) حيث الوسيطةBottonClicked هي الحدث الذي سيظهر عنده الرسالة والوسيطة message هي نص الرسالة التي ستظهر للمستخدم والوسيطة NumberOfBotton هو نوع نمط الازرار الذي سيظهر في الرسالة وال…

اخي خالد الصالح ارجوا ان تعيد شرح استخدام برنامجOllydbg لان اللينك الذي وضعته يبدوا انه تغير فهو غير متاح وشكرا للافادة

هذه الطريقة لم أجربها فلو كانت خاطئة أرجو منك العذر dim b as integer b=hour(now) لو كانت الساعة الان مثلا 5 مساء سيحولها الكود لـ 17

سؤال حيرني كثيرا اتمني ان نجد له اجابه

أخي عبد الله أشكرك علي الكتاب وعلي مجهودك الجميل

Xacker إن هذا يكفيني فأنا أعلم انيي لن أجد الكود بنفس اللغة ولو كان كذلك لكان أصعب romantic_boy أبحث بالضبط عن ما بحثت عنه في بداية تعليمك حسنًا سأسلك الطريق الأطول لبلوتو ربما فاتني الافطار ولكني سأجد العشاء معدًا :D abu sabreen انا لم أكن أبحث عن برنامج يفتح…

السلام عليكم ورحمة اله وبركاته أتمني أن أجد لديكم الأجابة علي سؤالي أنا مهتم ببرمجة الفيجوال بيسيك ولكن هناك سؤال يحيرني بشدة هل يمكنني الأطلاع علي الكود البرمجي لبرنامج كتبته بالفيجوال بيسك ثم أعطيته الامتداد (exe) لو هذا ممكن فأتمني أن أجد الحل لديكم لأن ذلك…

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

آسف أخي أني لم أفهم ما قصدك

لو كنت تسأل عن كود يعطي الجذر التربيعي فهاك الكود private sub command1_click() dim A% A=Sqr(Val(text1.text)) label1.cabtion=str(A) End sub السطر الأول يحدد الاجراء الحدثي عند الضغط علي الزرcommand1 إنتبه فالاسم command1 هو المستخدم في الشيفرة وليس اللذي يظهر ل…

أما عن الكود الأول فأظني غير قادر علي افادتك وأما عن الثاني فربما أستطيع لو أن التكست اسمه text1 ستقوم بكتابة هذا الكود في Module وتعرف المتغير علي أنه public Dim A as string A=Val(text1.text) وحين تريد استدعاء المتغير سيكون ذلك بسيطًا في اي اجراء حدثي أتمني أ…