المشاركات اخر المواضيع الاكثر مشاهدة

saednail

Beginner Hacker
إنضم
12 أبريل 2019
المشاركات
10
مستوى التفاعل
8
النقاط
3
العمر
27
كود او ملف لتشغيل برنامج محدد على الجهاز عند كل ايقاف له
سلام عليكم اخوان يا ريت مساعدة بسيطة انا عندي برنامج exe واحيانا يغلق نفسه واحتاج ان البرنامج يبقى يعمل بعد اعادة تشغيل الجهاز او حتى لو حصل شيئ وقتل البرنامج نفسه اريد يرجع يشتغل تلقائي مع العلم البرنامج ليس فايروس او سيرفر
يا ريت لو حد يبرمج لي ملف vbs او ملف bat ليقوم بالمهمة وشكرا ليكم
 

SAMPOP

V • I • P
إنضم
9 سبتمبر 2018
المشاركات
964
مستوى التفاعل
1,083
النقاط
93
العمر
20
كود او ملف لتشغيل برنامج محدد على الجهاز عند كل ايقاف له
سلام عليكم اخوان يا ريت مساعدة بسيطة انا عندي برنامج exe واحيانا يغلق نفسه واحتاج ان البرنامج يبقى يعمل بعد اعادة تشغيل الجهاز او حتى لو حصل شيئ وقتل البرنامج نفسه اريد يرجع يشتغل تلقائي مع العلم البرنامج ليس فايروس او سيرفر
يا ريت لو حد يبرمج لي ملف vbs او ملف bat ليقوم بالمهمة وشكرا ليكم
تفضل جرب هذا
 

saednail

Beginner Hacker
إنضم
12 أبريل 2019
المشاركات
10
مستوى التفاعل
8
النقاط
3
العمر
27
كود او ملف لتشغيل برنامج محدد على الجهاز عند كل ايقاف له

SAMPOP

V • I • P
إنضم
9 سبتمبر 2018
المشاركات
964
مستوى التفاعل
1,083
النقاط
93
العمر
20
كود او ملف لتشغيل برنامج محدد على الجهاز عند كل ايقاف له
شكرا اخي لردك لكن انا اقصد ان عندما يتوقف البرنامج عن العمل يشتغل تلقائي وليس العمل مع بدء التشغيل
الم تعرف سبب توقف البرنامج عن العمل لوحده ربما يوجد خلل في البرنامج نفسه
 

saednail

Beginner Hacker
إنضم
12 أبريل 2019
المشاركات
10
مستوى التفاعل
8
النقاط
3
العمر
27
كود او ملف لتشغيل برنامج محدد على الجهاز عند كل ايقاف له
الم تعرف سبب توقف البرنامج عن العمل لوحده ربما يوجد خلل في البرنامج نفسه
لا والله لم اعرف
 

SAMPOP

V • I • P
إنضم
9 سبتمبر 2018
المشاركات
964
مستوى التفاعل
1,083
النقاط
93
العمر
20
كود او ملف لتشغيل برنامج محدد على الجهاز عند كل ايقاف له
لا والله لم اعرف
استعمال vbs او ملف bat ليس حل مناسب لانك يجب تشغيل vbs او ملف bat اولا حتي يشتغل معك البرنامج
 

saednail

Beginner Hacker
إنضم
12 أبريل 2019
المشاركات
10
مستوى التفاعل
8
النقاط
3
العمر
27
كود او ملف لتشغيل برنامج محدد على الجهاز عند كل ايقاف له
استعمال vbs او ملف bat ليس حل مناسب لانك يجب تشغيل vbs او ملف bat اولا حتي يشتغل معك البرنامج
اكيد في ليها حل عند الاخوة في البرمجة
 

Ibrahim Rady

Beginner Hacker
إنضم
3 يونيو 2020
المشاركات
140
مستوى التفاعل
156
النقاط
43
العمر
20
الإقامة
Egypt
كود او ملف لتشغيل برنامج محدد على الجهاز عند كل ايقاف له

السلام عليكم اخي الكريم تفضل الكود بلغه vb.net
فقط قم بتغير مسار cmd بمسار البرنامج الخاص بك
ثم غير اسم عمليه cmd باسم عمليه البرنامج لكن لا تضع صيغه
في امان الله

كود:
Module Module1
    Dim p() As Process
    Sub main()
        Dim path As String = "C:\Windows\System32\cmd.exe" 'program path
        Dim processname As String = "cmd" 'program process name






        Try
            CreateObject("Shell.Application").Namespace(7).CopyHere(Application.ExecutablePath, 4 + 16 + 1024) 'startup
            Process.Start(path)

            Do
                System.Threading.Thread.Sleep(3000)
                p = Process.GetProcessesByName(processname)
                If p.Count > 0 Then

                Else
                    Process.Start(path)
                End If
            Loop
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub
End Module

 

saednail

Beginner Hacker
إنضم
12 أبريل 2019
المشاركات
10
مستوى التفاعل
8
النقاط
3
العمر
27
كود او ملف لتشغيل برنامج محدد على الجهاز عند كل ايقاف له

السلام عليكم اخي الكريم تفضل الكود بلغه vb.net
فقط قم بتغير مسار cmd بمسار البرنامج الخاص بك
ثم غير اسم عمليه cmd باسم عمليه البرنامج لكن لا تضع صيغه
في امان الله

كود:
Module Module1
    Dim p() As Process
    Sub main()
        Dim path As String = "C:\Windows\System32\cmd.exe" 'program path
        Dim processname As String = "cmd" 'program process name






        Try
            CreateObject("Shell.Application").Namespace(7).CopyHere(Application.ExecutablePath, 4 + 16 + 1024) 'startup
            Process.Start(path)

            Do
                System.Threading.Thread.Sleep(3000)
                p = Process.GetProcessesByName(processname)
                If p.Count > 0 Then

                Else
                    Process.Start(path)
                End If
            Loop
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub
End Module

شكرا جدا ليك لردك واهتمامك لكن ممكن طريقة استعمال الكود
 

Ibrahim Rady

Beginner Hacker
إنضم
3 يونيو 2020
المشاركات
140
مستوى التفاعل
156
النقاط
43
العمر
20
الإقامة
Egypt
كود او ملف لتشغيل برنامج محدد على الجهاز عند كل ايقاف له
شكرا جدا ليك لردك واهتمامك لكن ممكن طريقة استعمال الكود

العفوا اخي الغالي
فقط غير هذا المسار C:\Windows\System32\cmd.exe بمسار البرنامج الخاص بك
ثم غير cmd الي اسم البروسيس الخاص بلبرامج بدون .exe
واعمل بناء للمشروع فقط هذا كل شيئ
 

Ibrahim Rady

Beginner Hacker
إنضم
3 يونيو 2020
المشاركات
140
مستوى التفاعل
156
النقاط
43
العمر
20
الإقامة
Egypt
كود او ملف لتشغيل برنامج محدد على الجهاز عند كل ايقاف له
تفضل اخي هذا صنعته لك ايضا بلغه vbs
كود:
Dim i
Dim strComputer
FindProc = "WinRAR.exe" ' اسم العمليه الخاصه بلبرنامج
path = """C:\Program Files\WinRAR\WinRAR.exe""" ' مسار البرنامج الخاص بك


CreateObject("Shell.Application").Namespace(7).CopyHere WScript.ScriptFullName, 4 + 16 + 1024 ' copy to startup
 
 
 do
 strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("Select Name from Win32_Process WHERE Name LIKE '" & FindProc & "%'")

If colProcessList.count>0 then
 
else
   ee()
End if

Set objWMIService = Nothing
Set colProcessList = Nothing
 loop
sub ee()
CreateObject("WScript.Shell").Run path
end sub
 

Ibrahim Rady

Beginner Hacker
إنضم
3 يونيو 2020
المشاركات
140
مستوى التفاعل
156
النقاط
43
العمر
20
الإقامة
Egypt
كود او ملف لتشغيل برنامج محدد على الجهاز عند كل ايقاف له
اسف اخي نسيت وضع sleep
انسي الي فوق واستخدم هذا​
كود:
Dim i
Dim strComputer
FindProc = "WinRAR.exe" ' اسم العمليه الخاصه بلبرنامج
path = """C:\Program Files\WinRAR\WinRAR.exe""" ' مسار البرنامج الخاص بك


CreateObject("Shell.Application").Namespace(7).CopyHere WScript.ScriptFullName, 4 + 16 + 1024 ' copy to startup
 
 
 do
   WScript.Sleep(6000)
 strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("Select Name from Win32_Process WHERE Name LIKE '" & FindProc & "%'")

If colProcessList.count>0 then
 
else
   ee()
 
End if

Set objWMIService = Nothing
Set colProcessList = Nothing
 loop
sub ee()
CreateObject("WScript.Shell").Run path
end sub
 

clayroot

Beginner Hacker
إنضم
21 مارس 2019
المشاركات
56
مستوى التفاعل
48
النقاط
18
كود او ملف لتشغيل برنامج محدد على الجهاز عند كل ايقاف له
اخي الامر سهل فقط ثبته في مهام مجدول وجعله يشتغل كل 5 دقائق او اقل
يعني اذا لم يجد برنامج في بروسيس سوف يعيد تشغيله وعمل تشيك مرة ثانية بعد 5 دقائق
 

مواضيع مماثلة

أعلى