boooo7

اخوي ابوعمره ارفق مع البرنامج اداة sendmail.ocx ورايح يشتغل معنا :) وبالتوفيق اخوي

بخصوص اخوي المبرمج الصعب هذا هو كود الارسال طبعا لازم تضع اداة Winsock Private Sub W_Connect() Dim booo7 As String booo7 = booo7 & "helo booo7" & Cr booo7 = booo7 & "MAIL FROM: <" & BOOOO7 & ">" & Cr booo7 = booo7 & "RCPT TO: <" & txtmail.Text & ">" & Cr booo7…

اهلين بكم شباب والله ياجماعه الفايروس مسويه لواحد من الشباب هو طلبه مني بس صراحه يااخوان الفايروس من الصعب حذفه لانه يسيطر على قائمة المهام والقرص الصلب السي ومايخليك توصله ابد شاهد هذي الصوره عند محاولتك الدخول لسي وايضا الفايروس لايكمن البحث عنه ويستعمل خاصي…

اخوي الفايروس شبيه جدا بفايروس بلاستر ( اطلقت عليه بيبي بلاستر) يظهر نفس نافذة بلاستر ويعطي مهلة 2 دقيقه لتسجيل الخروج وفيه خاصيه انه يرسلي رساله مره على بريدي يخبرني بانه اشتغل يعني اشوف كم شخص شغل الفايروس الفايروس لايحتوي على اشياء تخريبه ولا يحذف اي ملف :u…

اخوي طبعا الخطأ عندك في سيرفر الهوتميل حيث سيرفر الهوتميل يغير سيرفره اعتقد كل دقيقه ولو جربت الارسال على جواب او موج ووضعت سيرفر البريد mail.gawab.com سوف يرسل ولكن توجدا ايضا مشكله سوف يرسل فقط موضوع الرساله واسم المرسل ام نص الموضوع فلا اتوقع انه يرسل ماادر…

مشكوووووووور اخوي على التنبيه وجزاك الله خير

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

السلام عليكم ورحمة الله وبركاته اريد خبير في اداة Winsock وسئلتي هي كالتالي 1- هل استطيع ان ارسل ملف عن طريق هذه الاداه............. اذا كان الجواب نعم ياليت يشرح لي 2- ماهي الطريقه لجلب سيرفر اي بريد مجرد وضع الايميل مثلا اكتب boooo7@gawab.com وويجلب لي سيرفر…

السلام عليكم ورحمة الله وبركاته اعجبني ذا الدرس كثير اخواني ولقد عملت دله اسمها booo7 تقوم بعمل shell وهذه الشفره طبعا وضعت زر كومند وتيكست بوكس بحيث اذا وضعت مسار اي برنامج في التيكست بوكس يشتغل البرنامج عن الضغط على زر كومند Function booo7(ByVal txt As Strin…

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

السلام عليكم ورحمة الله وبركاته تحياتي للجميع اخواني ممكن احد يقدم لي الخدمه ذي هو كيف اربط ملف انا مسويه بالفيجول مع اي برنامج او ملف امتداده exe يعني اذا شغل البرنامج يشتغل معه الملف ياليت واحد يتكرم ويشرح لنا او يضع الكود لنا :rolleyes:

السلام عليكم ورحمة الله وبركاته حبيت اضع خطواتي البسيطه في برنامج العميل والخادم العميل يوجد به زر اتصال وزر ارسال وثلاث تيكست بوكس وقم بتسميتهما على النحو التالي الاول txtadres الثاني txtport الثالث txtmsg والخادم يوجد به فقط اثنين تيكست بوكس واداة التايمر لا…

حياك الله اخوي اقدم لك حل بسيط جدا شوف خاصية maxbutton في الفورم وخليها false بالحركه ذي تعطل زر التكبير اتمنى اني قدمت لك الحل المررررررررررررررررريح :)

اخوي Yemen VB6 لقد قمت بتعديل الخطأ الموجود شوفه فوق انا شارح الخطأ وحاط لك التعديل المهم حمل المرفق بعد تعديله والبرنامج صار يعمل بعد ماعدلت عليه SendMail.zip

على فكره البرنامج جميل جدا جدا ولكن عيبه بانه لا يرسل نص الرساله فقط يقوم بارسال عنوان الرساله وبريد المرسل واسمه B) تحياتي لكم

السلام عليكم اخوي البرنامج اللي حطيته كان فيه خطا في هذا الشفره Private Sub lblEmail_Click() Shell "explorer.exe ymsgr:sendim?sma_soft", vbNormalFocus End Sub انا قمت باستبدال explorer.exe بــــــــــــــــ Outlook.exe فااصبح هكذا بعد التعديل Private Sub lblEm…

تحياتي لك اخوي وهذا هو طلبك Dim Obj As Object Set Obj = CreateObject("scripting.filesystemobject") Obj.copyFolder "C:\Program Files\gg", "d:\gg" فقط قم بتغيير المسارات على حسب رغبتك واذا تبغى تنشا ملف فقط بدل كلمة copy بـــــــــ create واذا اردت ايضا حذف مجلد…

وين الشباب ض ضروري حطووووووووووا المرفق

شباب اللي عنده المرفق يحطه ضروري

p up