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

En çok mesaj

saednail

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

SAMPOP

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

saednail

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

SAMPOP

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

saednail

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

SAMPOP

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

saednail

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

Evil Coder

Beginner Hacker
إنضم
3 يونيو 2020
المشاركات
198
مستوى التفاعل
233
النقاط
43
نظام التشغيل
windows_10
كود او ملف لتشغيل برنامج محدد على الجهاز عند كل ايقاف له

السلام عليكم اخي الكريم تفضل الكود بلغه 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
المشاركات
11
مستوى التفاعل
8
النقاط
3
العمر
28
كود او ملف لتشغيل برنامج محدد على الجهاز عند كل ايقاف له

السلام عليكم اخي الكريم تفضل الكود بلغه 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

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

Evil Coder

Beginner Hacker
إنضم
3 يونيو 2020
المشاركات
198
مستوى التفاعل
233
النقاط
43
نظام التشغيل
windows_10
كود او ملف لتشغيل برنامج محدد على الجهاز عند كل ايقاف له
شكرا جدا ليك لردك واهتمامك لكن ممكن طريقة استعمال الكود

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

Evil Coder

Beginner Hacker
إنضم
3 يونيو 2020
المشاركات
198
مستوى التفاعل
233
النقاط
43
نظام التشغيل
windows_10
كود او ملف لتشغيل برنامج محدد على الجهاز عند كل ايقاف له
تفضل اخي هذا صنعته لك ايضا بلغه 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
 

Evil Coder

Beginner Hacker
إنضم
3 يونيو 2020
المشاركات
198
مستوى التفاعل
233
النقاط
43
نظام التشغيل
windows_10
كود او ملف لتشغيل برنامج محدد على الجهاز عند كل ايقاف له
اسف اخي نسيت وضع 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
المشاركات
59
مستوى التفاعل
52
النقاط
18
كود او ملف لتشغيل برنامج محدد على الجهاز عند كل ايقاف له
اخي الامر سهل فقط ثبته في مهام مجدول وجعله يشتغل كل 5 دقائق او اقل
يعني اذا لم يجد برنامج في بروسيس سوف يعيد تشغيله وعمل تشيك مرة ثانية بعد 5 دقائق
 

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

أعلى