Genuine Key


Genuine Key


Moved to new forum, Click Here to register

تم الانتقال للمنتدى الجديد, اضغط هنا للتسجيل
برنامج داماس الثالث,,تنصيب البرامج ببرنامج جديد أفضل من الويبى,,أصنعه أنت بنفسكـ,,,

برنامج داماس الثالث,,تنصيب البرامج ببرنامج الويبى,,أصنعه بنفسكـ,,,


الأكواد حتى لايواجه أحد مشاكل,,,,,


كود تحديد الكل
كود:
 
 
On Error Resume Next
Check1.Value = Checked
Check2.Value = Checked
Check3.Value = Checked
Check4.Value = Checked
Check5.Value = Checked
Check6.Value = Checked
Check7.Value = Checked
Check8.Value = Checked
Check9.Value = Checked
Check10.Value = Checked
Check11.Value = Checked
Check12.Value = Checked
Check13.Value = Checked
Check14.Value = Checked
كود عدم تحديد الكل
كود:
 
 
Check1.Value = Unchecked
Check2.Value = Unchecked
Check3.Value = Unchecked
Check4.Value = Unchecked
Check5.Value = Unchecked
Check6.Value = Unchecked
Check7.Value = Unchecked
Check8.Value = Unchecked
Check9.Value = Unchecked
Check10.Value = Unchecked
Check11.Value = Unchecked
Check12.Value = Unchecked
Check13.Value = Unchecked
Check14.Value = Unchecked
Check15.Value = Unchecked
كود انستل(install)

كود:
 
On Error Resume Next
Dim X
X = ""
X = "cls" + vbCrLf + "@echo off" + vbCrLf
If Check1.Value = 1 Then
  X = X + "ECHO Installing khaled helalop" + vbCrLf
  X = X + "start /wait " + App.Path + "\programs\1.exe" + vbCrLf
End If
If Check4.Value = 1 Then
  X = X + "ECHO Installing khaled helal" + vbCrLf
  X = X + "start /wait " + App.Path + "\programs\2.exe" + vbCrLf
End If

If Check2.Value = 1 Then
  X = X + "ECHO Installing damas" + vbCrLf
  X = X + "start /wait " + App.Path + "\programs\3.exe" + vbCrLf
End If
If Check3.Value = 1 Then
  X = X + "ECHO Installing damasgated" + vbCrLf
  X = X + "start /wait " + App.Path + "\programs\4.exe" + vbCrLf
End If
X = X + "exit"
Open App.Path + "\patch.cmd" For Output As #1
Print #1, X
Close #1
  Shell "patch.cmd" & " " & App.Path & "\patch.cmd", vbNormalFocus
End Sub
أرفقت لكم برنامج شامل لكل شئ مفتوح خذ منه الفكرة أو عدل عليه,,,,,,
فى النهاية قم بفتح قائمة فايل وأختار MAKE PROGRAM exe
خذ هذا الملف وضعه بجانب فولدر البرامج وبكده بقى جاهز للنشر أدمجهم بأى طريقة ياغالى,,,,,

المواضيع المشابهه

لاول مرة في داماس : شرح تنصيب البرامج او صنع CD برامج بإستخدام برنامج WIHU

كيف اجعل البرامج التى يتم تنصيبها بواسطة برنامج الويبى

مشكلة فى تنصيب برنامج Windows Media Player11 عند تنصيبه ببرنامج الويبى

بعد انا اضيف البرامج واجرب الاسطوانة يقوم برنامج الويبى بالعمل ولكن البرامج لا يتم تسطيبها


ربنا يخليك على الشرح الممتاز اخوى خالد هلال ولله فنان رائع


فعلا فعلا مبدع ورائع

و كلمة سر بيني و بينك " وهو المطلوب اثباته بالفعل "

علي بركة الله يجري اعتماده رسميا للبروجيكت القادم

خالص تحياتي و شكري


بارك الله فيك على هذا الابداع

ننتظر المزيد

شكرا لك


تسلم الأيادي أخي العزيز خالد على البرمجيات الراااائعة ... في انتظار جديدك دائما ...
دمت بألف خير عزيزي ...


بارك الله فيك مبدعنا الحبيب خالد هلال
شرح رائع من إنسان أروع
وبانتظار المزيد من ابداعاتك وبرامجك يالغالى


ربنا يخليك على الشرح الممتاز اخوى خالد هلال ولله فنان رائع
ربنا يعزكـ يارب,,,,,تحياتى اليكـ ياغالى,,,


ياهلا بالزيبق الحبيب نتمنى أن ينال رضاكم,,,,,تحياتى اليكـ


شكرا لك أخى الكريم لكن ممكن شرح أ,ضح


بارك الله فيك على هذا الابداع

ننتظر المزيد

شكرا لك
اللهم أمين,,,,,وفقكـ الله ياحبيب,,,


أدوات الموضوع

الانتقال السريع

منتديات داماس

DamasGate