السلام عليكم ورحمة الله وبركاته
هل هناك خطا ؟؟
عندما اشغل البرنامج يطلع انه خطا لا اعلم ما هو
طبعا
Public Declare Function copyme Lib "kernel32" Alias "copyfileA" (ByVal name As String, ByVal path As String, ByVal num As Long) As Long
المرفق موجود فيه كل شيء انتوا سوي make hs.exe
وشغلوا البرنامج
أهلا أخوي
لا أعرف عن هذه الدالة شي ولا أدري إذا كانت موجودة أصلا !
الذي أعرفه هو أنه يوجد دالة داخل الفجوال أسمه FileCopy وطريقة إستخدامها كالتالي :
FileCopy "C:\a.exe", "D:\a.exe"
البارمر الأول للملف المصدر البارمر الثاني لمكان النسخ
وإذا كنت تريد إستخدام دوال API فيوجد هذه الدالة
Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
تحياااااتي
تم تعديل هذه المشاركة بواسطة أبو فهيد في 5 أغسطس 2007 في 12:53
للصداقة البرمجية
الخطأ في إسم التابع copyfileA والمفروض أن يكون CopyFileA ...
اقتباساخ مبرمج مبتدا ما هذه الدالة التى اخترعتهاCopyMe انا لم اسمع عنها قبل ذلك
لم يخترع شئ ... بإمكانك إختيار الإسم الذي تريده بعد جلمة التصريح Declare Function ...
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
اخ مبرمج مبتدا ما هذه الدالة التى اخترعتها CopyMe انا لم اسمع عنها قبل ذلك
لقد استخدمت function اذا انا حر في اسم الدالة :D
مشكووور اخي cipher
لكن اليس الفجوال يميز الاحرف الكبيرة والصغيرة ؟؟!!!!
________________________________
الملف بعد التعديل
لا يا أخي الفجوال بيسك لا يميز الحروف الكبيره والصغيره
أما C++ فهو حساس من ناحية الأحرف الكبيرة والصغيره ويجب عليك حفظ الكلمات كما هي
تحيااااااتي
للصداقة البرمجية
اقتباسمشكووور اخي cipherلكن اليس الفجوال يميز الاحرف الكبيرة والصغيرة ؟؟!!!!
التابع السابق معرف في ملف الـ DLL بهذا الشكل CopyFileA , لذا يجب أن يكون الـ Alias مطابق تماماً
"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
بالنسبة App.EXEName فهو يرجع اسم الملف التشغيلي فقط بدون الامتداد وبدون المسار لذلك يجب ان يكون الامر :
l = copyme( App.Path & "\" & App.EXEName & ".exe", App.Path + "\h.exe", 1)
APP.PATH ترجع مسار البرنامج مثل c:\test
APP.EXENAME ترجع اسم البرنامج مثل project1
لذلك عند دمج يجب ان تكون
exe. + c:\test + \ + project1
حتى تحصل على النتيجة
c:\test\project1.exe
جرب اعمل msgbox حتى تحصل على مسار صحيح
msgbox APP.PATH & "\" & APP.EXENAME
مال الفرق بين + و & ؟
+ للعمليات الحسابية
& لجمع نصوص "a" +"b"
هذا الموضوع مغلق.
