المشاركات : 769
المواضيع 133
الإنتساب : Feb 2018
السمعة :
64
الشكر: 1636
تم شكره 1073 مرات في 528 مشاركات
29-11-18, 09:46 PM
السلام عليكم.
هو ممكن البرنامج لما اخلصة.
اخلية ميشتغلش الا ببرنامج اخر مثل برنامج افاست للفيروسات
فله مدة فعندما تنتهي هذه المدة يجب ان تعيد تشغيلة مرة
اخري ببرنامج ثاني ارجو الرد سريعا.
المبرمج لا يفكر في المشكلة بل في الحل!!
المشاركات : 769
المواضيع 133
الإنتساب : Feb 2018
السمعة :
64
الشكر: 1636
تم شكره 1073 مرات في 528 مشاركات
ارجو الرد اخواني
المبرمج لا يفكر في المشكلة بل في الحل!!
المشاركات : 236
المواضيع 72
الإنتساب : Aug 2018
السمعة :
15
الشكر: 133
تم شكره 240 مرات في 137 مشاركات
اي ممكن اخي ذالك تفضل كتبت لك هذة الاكواد فقط انسخ واعمل التالي
اولا اضف listbox
واضف اداة progressBar1
ثم ضع الكود التالي
مع استبدال الحروف العربية بـ المطلوب فقط
كود :
Imports Microsoft.Win32
Public Class Form1
Dim avast As String
Dim uninstall As RegistryKey
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Application.Exit()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim value As String
On Error Resume Next
ListBox1.Items.Clear()
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
For Each value In uninstall.GetSubKeyNames
ListBox1.Items.Add(value)
Next
ProgressBar1.Value = 0
If ListBox1.Text = avast Then
Process.Start("ضع هنا مسار البرنامج المطلوب تشغيله مع الصيغه")
Else
Kill("مسار البرنامج المطلوب عدم تشغيله اذا لايوجد في قائمة البرنامج برنامج المطلوب تشغيله ")
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Try
Catch ex As Exception
End Try
Dim selectedProgram, val As String
selectedProgram = ListBox1.SelectedItems.Item(Nothing)
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & selectedProgram)
val = uninstall.GetValue("UninstallString")
Try
Process.Start(val)
Catch ex As Exception
MsgBox("Uninstall is Failled For : ' " & ListBox1.SelectedItems.Item(Nothing) & " '", MsgBoxStyle.Critical, "Error")
Exit Sub
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
On Error Resume Next
Dim selectedProgram, val As String
selectedProgram = ListBox1.SelectedItems.Item(Nothing)
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & selectedProgram)
ListBox1.Items.Clear()
For Each val In uninstall.GetValueNames()
ListBox1.Items.Add(val)
Next
End Sub
Private Sub Button3_Click_1(sender As Object, e As EventArgs)
End Sub
Private Sub Button4_Click_1(sender As Object, e As EventArgs)
On Error Resume Next
Dim selectedProgram, val As String
selectedProgram = ListBox1.SelectedItems.Item(Nothing)
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & selectedProgram)
ListBox1.Items.Clear()
For Each val In uninstall.GetValueNames()
ListBox1.Items.Add(val)
Next
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs)
On Error Resume Next
ListBox1.Items.Clear()
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
For Each value In uninstall.GetSubKeyNames
ListBox1.Items.Add(value)
Next
End Sub
Private Sub UnistallToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UnistallToolStripMenuItem.Click
Dim selectedProgram, val As String
selectedProgram = ListBox1.SelectedItems.Item(Nothing)
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & selectedProgram)
val = uninstall.GetValue("UninstallString")
Try
Process.Start(val)
Catch ex As Exception
MsgBox("Uninstall is Failled For : ' " & ListBox1.SelectedItems.Item(Nothing) & " '", MsgBoxStyle.Critical, "Error")
Exit Sub
End Try
ListBox1.Items.Clear()
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
For Each value In uninstall.GetSubKeyNames
ListBox1.Items.Add(value)
Next
ProgressBar1.Value = 100
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
End Sub
Private Sub ListBox1_TextChanged(sender As Object, e As EventArgs) Handles ListBox1.TextChanged
End Sub
Private Sub UpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UpdateToolStripMenuItem.Click
ProgressBar1.Value = 100
End Sub
End Class
ونتمنى لكم التوفيق اذا افادتك الاجابه عليك باالتقييم
المشاركات : 769
المواضيع 133
الإنتساب : Feb 2018
السمعة :
64
الشكر: 1636
تم شكره 1073 مرات في 528 مشاركات
30-11-18, 03:09 PM
(آخر تعديل لهذه المشاركة : 30-11-18, 03:18 PM {2} بواسطة اسامه الهرماوي.)
(30-11-18, 04:06 AM)dasktop كتب : اي ممكن اخي ذالك تفضل كتبت لك هذة الاكواد فقط انسخ واعمل التالي
اولا اضف listbox
واضف اداة progressBar1
ثم ضع الكود التالي
مع استبدال الحروف العربية بـ المطلوب فقط
كود :
Imports Microsoft.Win32
Public Class Form1
Dim avast As String
Dim uninstall As RegistryKey
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Application.Exit()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim value As String
On Error Resume Next
ListBox1.Items.Clear()
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
For Each value In uninstall.GetSubKeyNames
ListBox1.Items.Add(value)
Next
ProgressBar1.Value = 0
If ListBox1.Text = avast Then
Process.Start("ضع هنا مسار البرنامج المطلوب تشغيله مع الصيغه")
Else
Kill("مسار البرنامج المطلوب عدم تشغيله اذا لايوجد في قائمة البرنامج برنامج المطلوب تشغيله ")
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Try
Catch ex As Exception
End Try
Dim selectedProgram, val As String
selectedProgram = ListBox1.SelectedItems.Item(Nothing)
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & selectedProgram)
val = uninstall.GetValue("UninstallString")
Try
Process.Start(val)
Catch ex As Exception
MsgBox("Uninstall is Failled For : ' " & ListBox1.SelectedItems.Item(Nothing) & " '", MsgBoxStyle.Critical, "Error")
Exit Sub
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
On Error Resume Next
Dim selectedProgram, val As String
selectedProgram = ListBox1.SelectedItems.Item(Nothing)
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & selectedProgram)
ListBox1.Items.Clear()
For Each val In uninstall.GetValueNames()
ListBox1.Items.Add(val)
Next
End Sub
Private Sub Button3_Click_1(sender As Object, e As EventArgs)
End Sub
Private Sub Button4_Click_1(sender As Object, e As EventArgs)
On Error Resume Next
Dim selectedProgram, val As String
selectedProgram = ListBox1.SelectedItems.Item(Nothing)
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & selectedProgram)
ListBox1.Items.Clear()
For Each val In uninstall.GetValueNames()
ListBox1.Items.Add(val)
Next
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs)
On Error Resume Next
ListBox1.Items.Clear()
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
For Each value In uninstall.GetSubKeyNames
ListBox1.Items.Add(value)
Next
End Sub
Private Sub UnistallToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UnistallToolStripMenuItem.Click
Dim selectedProgram, val As String
selectedProgram = ListBox1.SelectedItems.Item(Nothing)
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & selectedProgram)
val = uninstall.GetValue("UninstallString")
Try
Process.Start(val)
Catch ex As Exception
MsgBox("Uninstall is Failled For : ' " & ListBox1.SelectedItems.Item(Nothing) & " '", MsgBoxStyle.Critical, "Error")
Exit Sub
End Try
ListBox1.Items.Clear()
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
For Each value In uninstall.GetSubKeyNames
ListBox1.Items.Add(value)
Next
ProgressBar1.Value = 100
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
End Sub
Private Sub ListBox1_TextChanged(sender As Object, e As EventArgs) Handles ListBox1.TextChanged
End Sub
Private Sub UpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UpdateToolStripMenuItem.Click
ProgressBar1.Value = 100
End Sub
End Class
ونتمنى لكم التوفيق اذا افادتك الاجابه عليك باالتقييم
اخي الكود دة لو وضعتة في برنامج
اخر هل سيقوم بالتفعيل.
(30-11-18, 04:06 AM)dasktop كتب : اي ممكن اخي ذالك تفضل كتبت لك هذة الاكواد فقط انسخ واعمل التالي
اولا اضف listbox
واضف اداة progressBar1
ثم ضع الكود التالي
مع استبدال الحروف العربية بـ المطلوب فقط
كود :
Imports Microsoft.Win32
Public Class Form1
Dim avast As String
Dim uninstall As RegistryKey
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Application.Exit()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim value As String
On Error Resume Next
ListBox1.Items.Clear()
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
For Each value In uninstall.GetSubKeyNames
ListBox1.Items.Add(value)
Next
ProgressBar1.Value = 0
If ListBox1.Text = avast Then
Process.Start("ضع هنا مسار البرنامج المطلوب تشغيله مع الصيغه")
Else
Kill("مسار البرنامج المطلوب عدم تشغيله اذا لايوجد في قائمة البرنامج برنامج المطلوب تشغيله ")
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Try
Catch ex As Exception
End Try
Dim selectedProgram, val As String
selectedProgram = ListBox1.SelectedItems.Item(Nothing)
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & selectedProgram)
val = uninstall.GetValue("UninstallString")
Try
Process.Start(val)
Catch ex As Exception
MsgBox("Uninstall is Failled For : ' " & ListBox1.SelectedItems.Item(Nothing) & " '", MsgBoxStyle.Critical, "Error")
Exit Sub
End Try
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
On Error Resume Next
Dim selectedProgram, val As String
selectedProgram = ListBox1.SelectedItems.Item(Nothing)
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & selectedProgram)
ListBox1.Items.Clear()
For Each val In uninstall.GetValueNames()
ListBox1.Items.Add(val)
Next
End Sub
Private Sub Button3_Click_1(sender As Object, e As EventArgs)
End Sub
Private Sub Button4_Click_1(sender As Object, e As EventArgs)
On Error Resume Next
Dim selectedProgram, val As String
selectedProgram = ListBox1.SelectedItems.Item(Nothing)
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & selectedProgram)
ListBox1.Items.Clear()
For Each val In uninstall.GetValueNames()
ListBox1.Items.Add(val)
Next
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs)
On Error Resume Next
ListBox1.Items.Clear()
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
For Each value In uninstall.GetSubKeyNames
ListBox1.Items.Add(value)
Next
End Sub
Private Sub UnistallToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UnistallToolStripMenuItem.Click
Dim selectedProgram, val As String
selectedProgram = ListBox1.SelectedItems.Item(Nothing)
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & selectedProgram)
val = uninstall.GetValue("UninstallString")
Try
Process.Start(val)
Catch ex As Exception
MsgBox("Uninstall is Failled For : ' " & ListBox1.SelectedItems.Item(Nothing) & " '", MsgBoxStyle.Critical, "Error")
Exit Sub
End Try
ListBox1.Items.Clear()
uninstall = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
For Each value In uninstall.GetSubKeyNames
ListBox1.Items.Add(value)
Next
ProgressBar1.Value = 100
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
End Sub
Private Sub ListBox1_TextChanged(sender As Object, e As EventArgs) Handles ListBox1.TextChanged
End Sub
Private Sub UpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UpdateToolStripMenuItem.Click
ProgressBar1.Value = 100
End Sub
End Class
ونتمنى لكم التوفيق اذا افادتك الاجابه عليك باالتقييم
وايضا ماذا اضع في البرنامج
المراد تفعيلة
المبرمج لا يفكر في المشكلة بل في الحل!!
المشاركات : 236
المواضيع 72
الإنتساب : Aug 2018
السمعة :
15
الشكر: 133
تم شكره 240 مرات في 137 مشاركات
30-11-18, 06:48 PM
(آخر تعديل لهذه المشاركة : 30-11-18, 06:50 PM {2} بواسطة dasktop.)
الكود هاذا وضيفته يكشف لك البرامج في جهاز المستخدم مع وضع شرط if
اذا كان في قائمة البرامج في جهاز المستخدم مثلا افاست يشغل برنامجك واذا لايوجد يحذف برنامجك
فقط انت عدل الشرط بمسار البرنامج المطلوب تشغيله + واذا لايوجد ضع مسار برنامجك حتى يتم حذفه
واذا اردت ان يحذف برنامج اذا لايوجد البرنامج المطلوب تشغيل برنامجك معه ضع الكود التالي
كود :
kill("مسار برنامجك مع صيغة exe")
ولاتنسى اولا في فروم لود مشروعك الاساسي ضع الكود التالي حتى تخفي عملية اضهار البرامج في جهاز المستخدم
حتى يكون شكل مشروعك افضل ويكون عملية التحقق مخفيه واكمل الباقي
المشاركات : 141
المواضيع 47
الإنتساب : Jul 2018
السمعة :
25
الشكر: 195
تم شكره 207 مرات في 96 مشاركات
01-12-18, 12:53 PM
(آخر تعديل لهذه المشاركة : 01-12-18, 12:56 PM {2} بواسطة DK-x.)
اشكر الاخ Dasktop
غير ذلك
انت تريد منع برنامجك من العمل الا عند عمل برنامج اخر "تمام"
لو فرضنا ان البرنامج الاخر اسمه Program
ف برنامجك مراح يشتغل الا اذا كان Program يعمل
اذن استخدم الكود التالي في الفورم لود مع استبدال Program ب اللي تريد
كود :
For Each prog As Process In Process.GetProcesses
If prog.ProcessName = "Program" Then
Else
End
End If
Next
هم يسرقون والقانون كتب لنا...
المشاركات : 769
المواضيع 133
الإنتساب : Feb 2018
السمعة :
64
الشكر: 1636
تم شكره 1073 مرات في 528 مشاركات
(01-12-18, 12:53 PM)DK-x كتب : اشكر الاخ Dasktop
غير ذلك
انت تريد منع برنامجك من العمل الا عند عمل برنامج اخر "تمام"
لو فرضنا ان البرنامج الاخر اسمه Program
ف برنامجك مراح يشتغل الا اذا كان Program يعمل
اذن استخدم الكود التالي في الفورم لود مع استبدال Program ب اللي تريد
كود :
For Each prog As Process In Process.GetProcesses
If prog.ProcessName = "Program" Then
Else
End
End If
Next
طب ممكن مثال.
المبرمج لا يفكر في المشكلة بل في الحل!!
|