تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تشغيل البرنامج ببرنامج
#1
Rainbow 
السلام عليكم.
هو ممكن البرنامج لما اخلصة.
اخلية ميشتغلش الا ببرنامج اخر مثل برنامج افاست للفيروسات
فله مدة فعندما تنتهي هذه المدة يجب ان تعيد تشغيلة مرة
اخري ببرنامج ثاني ارجو الرد سريعا.
الرد
تم الشكر بواسطة:
#2
ارجو الرد اخواني Angel Angel
الرد
تم الشكر بواسطة:
#3
اي ممكن اخي ذالك تفضل كتبت لك هذة الاكواد فقط انسخ واعمل التالي


اولا اضف 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



ونتمنى لكم التوفيق اذا افادتك الاجابه عليك باالتقييم
الرد
#4
(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



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

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

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

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


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


كود :
kill("مسار برنامجك مع صيغة exe")
ولاتنسى اولا في فروم لود مشروعك الاساسي ضع الكود التالي حتى تخفي عملية اضهار البرامج في جهاز المستخدم 

كود :
listbox1.hide

حتى يكون شكل مشروعك افضل ويكون عملية التحقق مخفيه واكمل الباقي
الرد
تم الشكر بواسطة: DK-x , اسامه الهرماوي
#6
اشكر الاخ Dasktop
غير ذلك
انت تريد منع برنامجك من العمل الا عند عمل برنامج اخر "تمام"
لو فرضنا ان البرنامج الاخر اسمه Program
ف برنامجك مراح يشتغل الا اذا كان Program يعمل
اذن استخدم الكود التالي في الفورم لود مع استبدال Program ب اللي تريد

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

هم يسرقون والقانون كتب لنا...
بعض اسهاماتي

الرد
تم الشكر بواسطة: اسامه الهرماوي
#7
(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

طب ممكن مثال.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ربط البرنامج بأكثر من جهاز اسامه الهرماوي 4 166 منذ 4 ساعة مضت
آخر رد: sendbad100
  [VB.NET] ما يخص البرنامج في ملف تثبيت exe اسامه الهرماوي 5 166 19-05-19, 12:59 AM
آخر رد: عبد العزيز البسكري
  البرنامج لايعمل علي جهاز العميل makky 3 92 19-05-19, 12:53 AM
آخر رد: elgokr
  مشكله في تغيير مقاسات البرنامج عند نقله علي اللاب توب Emam emam 6 158 19-05-19, 12:10 AM
آخر رد: elgokr
  منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله معاذ_ابراهيم 4 118 18-05-19, 11:53 PM
آخر رد: elgokr
  مشكلة توقف البرنامج محمد ابوخليل 4 116 16-05-19, 01:50 PM
آخر رد: elgokr
  كيفية تشغيل برنامج exe باستخدام الفيجوال Emam emam 5 187 29-04-19, 03:04 PM
آخر رد: alsouf
  تشغيل ازاز لوحة المفاتيح في الالة الحاسبة atefkhalf2004 11 167 24-04-19, 02:01 PM
آخر رد: elgokr
Exclamation مطلوب هذا البرنامج من فضلكم kador 7 171 21-04-19, 11:42 PM
آخر رد: elgokr
  [VB.NET] تشغيل السكانر من داخل فيجوال بيسك khairallah 5 199 20-04-19, 07:35 AM
آخر رد: elgokr

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم