تقييم الموضوع :
  • 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

هم يسرقون والقانون كتب لنا...
بعض اسهاماتي
 DarkUpload - ArabLike 
الرد
تم الشكر بواسطة: اسامه الهرماوي
#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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  يجبرني البرنامج على حفظ صورة الموظف!! أبووسم 3 108 10-12-18, 11:49 PM
آخر رد: ahmadpal
  [سؤال] واجهات البرنامج تظهر في الاجهزة الاخرى بحجم كبير yassbazz1987 3 75 07-12-18, 05:07 PM
آخر رد: ahmadpal
  [سؤال] توقف البرنامج عن العمل allo5_800 7 132 05-12-18, 08:25 PM
آخر رد: ابو روضة
  بعد تثبيت البرنامج عند العميل Emam emam 10 207 02-12-18, 03:31 PM
آخر رد: Emam emam
  البرنامج لا يعمل الا بعد عمل ريسترت makky 4 89 02-12-18, 10:29 AM
آخر رد: makky
  ربطت مشروع على قاعدة بيانات mysql على استضافتي لكن البرنامج بطيء جدا essawq 17 561 02-12-18, 12:13 AM
آخر رد: أبوبكر سويدان
  خطأ في كود اظهار الصورة من مجلد بداخل البرنامج aftfm 6 126 01-12-18, 09:15 PM
آخر رد: aftfm
  محتاج مساعدة فى تفعيل لى البرنامج Mohamed Magdy 8 190 27-11-18, 09:27 PM
آخر رد: Mohamed Magdy
  [VB.NET] بعد برمجة البرنامج البحث بيت تاريخين يعمل علي جهازي ولا يعمل عند العميل shoma79 3 117 27-11-18, 05:25 AM
آخر رد: shoma79
  [سؤال] تنصيب البرنامج اسامه الهرماوي 2 72 26-11-18, 02:03 AM
آخر رد: اسامه الهرماوي

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


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