[اسامه الهرماوي]

السلام عليكم.
هو ممكن البرنامج لما اخلصة.
اخلية ميشتغلش الا ببرنامج اخر مثل برنامج افاست للفيروسات
فله مدة فعندما تنتهي هذه المدة يجب ان تعيد تشغيلة مرة
اخري ببرنامج ثاني ارجو الرد سريعا.

[اسامه الهرماوي]

ارجو الرد اخواني

[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

ونتمنى لكم التوفيق اذا افادتك الاجابه عليك باالتقييم

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

---

(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

ونتمنى لكم التوفيق اذا افادتك الاجابه عليك باالتقييم

وايضا ماذا اضع في البرنامج
المراد تفعيلة

[dasktop]

الكود هاذا وضيفته يكشف لك البرامج في جهاز المستخدم مع وضع شرط if

اذا كان في قائمة البرامج في جهاز المستخدم مثلا افاست يشغل برنامجك واذا لايوجد يحذف برنامجك

فقط انت عدل الشرط بمسار البرنامج المطلوب تشغيله + واذا لايوجد ضع مسار برنامجك حتى يتم حذفه


واذا اردت ان يحذف برنامج اذا لايوجد البرنامج المطلوب تشغيل برنامجك معه ضع الكود التالي

كود :

kill("مسار برنامجك مع صيغة exe")

ولاتنسى اولا في فروم لود مشروعك الاساسي ضع الكود التالي حتى تخفي عملية اضهار البرامج في جهاز المستخدم 

كود :

listbox1.hide

حتى يكون شكل مشروعك افضل ويكون عملية التحقق مخفيه واكمل الباقي

[DK-x]

اشكر الاخ Dasktop
غير ذلك
انت تريد منع برنامجك من العمل الا عند عمل برنامج اخر "تمام"
لو فرضنا ان البرنامج الاخر اسمه Program
ف برنامجك مراح يشتغل الا اذا كان Program يعمل
اذن استخدم الكود التالي في الفورم لود مع استبدال Program ب اللي تريد

كود :

For Each prog As Process In Process.GetProcesses
           If prog.ProcessName = "Program" Then
           Else
               End
           End If
       Next

[اسامه الهرماوي]

(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

طب ممكن مثال.