برنامج داماس الثالث,,تنصيب البرامج ببرنامج جديد أفضل من الويبى,,أصنعه أنت بنفسكـ,,,
الأكواد حتى لايواجه أحد مشاكل,,,,,
كود تحديد الكل
كود:
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
خذ هذا الملف وضعه بجانب فولدر البرامج وبكده بقى جاهز للنشر أدمجهم بأى طريقة ياغالى,,,,,
20-08-2008, 08:04 PM
مواضيع مشابهة
النمط الخطي
