المبرمج أحمد

شكرًا لك ، وجزاك الله خيرًا .

جزاك الله خيرًا .

لا شكر على واجب يا إخواني ، وأتمنى أن تكونوا قد استفدتم منها .

شكرًا لك أخي MR-VB-NET على هذا البرنامج ، وسأجربه حالاً .

جزاك الله خيرًا أخي غسان على هذا الدرس .

جزاك الله خيرًا أخي Misiny_forever وشكرًا لك على هذا البرنامج .

كود الدالة LoadDataIntoFile هو : Private Sub LoadDataIntoFile(id As Integer, FileName As String) Dim myArray() As Byte Dim myFile As Long If Dir(FileName) = "" Then myArray = LoadResData(id, "CUSTOM FILE") myFile = FreeFile Open FileName For Binary Access Writ…

أخي العزيز :: أبو صابرين :: الكود الذي وضعته ينقصه تعريف الدالة LoadDataIntoFile ، فهذه الدالة لا تكون مع الفيجوال بيسك .

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ،، لتفترض أنك أضفت ملف EXE إلى المشروع كملف RESOURCE FILE في هذه الحالة يجب عليك استخراجه إلى ملف على القرص الصلب لكي تتمكن من تشغيلها . وتقبل تحياتي / المبرمج أحمد

أخي العزيز :: ANSI :: الملف الذي أرفقته لا يعمل ، أرجو منك إعادة وضعه على المنتدى .

شكرًا لك أخي :: الغملاسي :: وجزاك الله كل خير

جزاك الله خيرًا أخي :: الغملاسي ::

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ،،، أشكركم إخواني الأعزاء على مساعدتي ولكن من أين يمكنني تعلم أدوات InDy .

أعتقد أن هذه المشكلة بسبب الضغط الشديد على السيرفر

أخي العزيز :: بلال :: هذه هي محاولتي المتواضعة لكسر البرنامج . Belal_Cracked.zip

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ،، في الفيجوال بيسك كانت هناك أداة تسمى Microsoft Winsock Control 6.0 ووظيفتها أن تصل بين جهازين عن طريق منفذ تحدده أنت ، وإرسال وإستقبال الرسائل . فأردت معرفة الأداة التي تقابلها في Delphi ؟ وتقبلوا تحيات…

أخي العزيز :: yasserstars :: الأخ هاني قام بتقسيم الملف المضغوط إلى ثلاثة أقسام ولكن عند فك الملفات لن تستطيع سوى فك الملف الرئيسي وهو الملف الأول وعندما تحاول فك الملف الثاني أو الثالث فإنه يعطيك رسالة خطأ .

عندما يقوم البرنامج بمعرفة أنه يراقب بواسطة Debugger فإنه يقوم بعرض رسالة خطأ ثم يقوم بحذف البرنامج وإيقاف تشغيل الجهاز فإذا أردت منعه من حذف البرنامج ومنعه أيضاً من إيقاف التشغيل فما عليك سوى أن تقوم بحذف الملف punish.exe الذي تم وضعه أثناء عملية Setup في مجل…

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ،، لنسخ الملف استخدم الدالة FileCopy ، مثال : Filecopy "C:\Ahmed.exe","D:\A.exe" ولنقل الملف استخدم الدالة Name ، مثال : Name "C:\Ahmed.exe" As "D:\A.exe"

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ،، استخدم الكود التالي : Private Sub Command1_Click() Text1.Text =Text1.Text & Chr(97) End Sub