تقييم الموضوع :
  • 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] كيف أجعل البرنامج يطبع Necro PC 4 139 22-11-20, 12:09 PM
آخر رد: Necro PC
  [VB.NET] اخطاء اثناء تشغيل البرنامج acc.ahmedyounis 5 233 21-11-20, 12:05 AM
آخر رد: اسامه الهرماوي
  [VB.NET] كيف أجعل البرنامج يقبل عمليات حسابية بأعداد عشرية و غير عشرية Necro PC 7 221 20-11-20, 12:43 AM
آخر رد: Necro PC
  [VB.NET] كيف أجعل البرنامج يقبل عمليات حسابية بأعداد عشرية Necro PC 7 227 20-11-20, 12:43 AM
آخر رد: Necro PC
  نقل مجموعة ملفات من مجلد الى مجلد البرنامج aftfm 1 95 15-11-20, 09:04 PM
آخر رد: aftfm
  [VB.NET] فك ضغط ملف rar بجانب البرنامج ميدو الفنان 2 110 12-11-20, 01:56 AM
آخر رد: ميدو الفنان
  مشكلة عند تنصيب البرنامج للعميل تظهر الرسالة هده Alanwalker 9 464 22-10-20, 11:20 PM
آخر رد: kiki
  [سؤال] عند تشغيل برنامج في ريسورس فيجوال بسك بظهر خطا jam3h 0 182 17-10-20, 11:35 PM
آخر رد: jam3h
  [سؤال] ممكن كود فيجوال بيسك عند تشغيل ملف دفعي bat عند انتهاء من الامر jam3h 0 174 17-10-20, 04:37 PM
آخر رد: jam3h
  طريقة تشغيل الكريستال ريبورت على جهاز العميل ! ZaerAllail 6 453 12-10-20, 04:02 AM
آخر رد: ZaerAllail

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


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