منع تشغيل البرنامج مرة اخرى على الجهاز

#110 سبتمبر 2008 في 12:35 صاحب الموضوع

في البرامج العادية استطيع منع تشغيل البرنامج مرة اخرى اذا كان مشغل بالاصل وهذا باستخدام الكود التالي

Public Function CheckApplicationRun() As Boolean
Dim Diag As New Diagnostics.Process
Dim Pr As Process
Dim MyDate As DateTime
Dim MyCount As Int32 = 0
Dim MyProcess() As Diagnostics.Process
Dim MyFile As IO.FileInfo
Dim Tbl As New DataTable("MyProcess")
Dim Rec As DataRow
Dim Col1 As New DataColumn("PrId")
Dim Col2 As New DataColumn("PrDate")
Dim i As Integer = 0

Col1.DataType = System.Type.GetType("System.Int32")
Tbl.Columns.Add(Col1)

Col2.DataType = System.Type.GetType("System.DateTime")
Tbl.Columns.Add(Col2)

'For Each Pr In Diag.GetProcesses
'MsgBox(Pr.ProcessName)
' If Pr.ProcessName.ToUpper() = My.Application.Info.ProductName.ToUpper() Then
' 'MsgBox(Pr.StartTime)
' 'Pr.StartInfo.WindowStyle = ProcessWindowStyle.Maximized
' Else

' End If
'Next
MyFile = New IO.FileInfo(Application.ExecutablePath)
Dim MyF As String
MyF = MyFile.Name.Replace(MyFile.Extension, "")
'MsgBox(MyFile.Name)
MyProcess = Diag.GetProcessesByName(MyF)
MyCount = MyProcess.Length
'MsgBox(MyCount.ToString())
MyCount = 0
For Each Pr In MyProcess
Rec = Tbl.NewRow
Rec("PrId") = Pr.Id
Rec("PrDate") = Pr.StartTime
Tbl.Rows.Add(Rec)

Next

Dim RRFound() As DataRow = Tbl.Select("1=1", "PrDate")
If RRFound.Length > 1 Then
Rec = RRFound(0)
Pr = Process.GetProcessById(Rec("PrId"))
Pr.StartInfo.WindowStyle = ProcessWindowStyle.Maximized
ShowMsg("النظام لايزال يعمل ....", 2, MessageBoxButtons.OK, MySounds.ApplicationStillWorking)
End If

For i = 1 To RRFound.Length - 1
Rec = RRFound(1)
Try
Pr = Process.GetProcessById(Rec("PrId"))
Pr.Kill()
Catch ex As Exception

End Try
Rec.Delete()
Next

If RRFound.Length > 0 Then
Rec = RRFound(0)
Pr = Process.GetProcessById(Rec("PrId"))
Pr.StartInfo.WindowStyle = ProcessWindowStyle.Maximized
End If
'If MyCount = 0 Then
' MyDate = Pr.StartTime
'Else
' If MyDate <= Pr.StartTime Then
' Pr.Kill()
' Else

' End If
'End If
'MyProcess(0).StartInfo.WindowStyle = ProcessWindowStyle.Normal
'MyProcess(0).StartInfo.WindowStyle = ProcessWindowStyle.Maximized
'MyProcess(0).Refresh()
'MyCount += 1
'Next

End Function

ولكن عندما نقلت الكود لبرنامج pc pocket

اعطى خطأ

الرجاء اعطائي الكود الصحيح لعمل هذه الدالة على جهاز PC pocket

#210 سبتمبر 2008 في 14:56

لاحظ هذه المشاركة:

هدف هذا الكود لمعرفة جميع الProcesses التي تعمل في الحاسوب الكف وقد إستعملته لأتأكد برمجيا ما إن كان هناك تواصل عبرActiveSync أم لا.

يمكنك ايضا عمل ذلك بوضع ملف ما عند تشغيل البرنامج و تحذفه عند الانهاء, و عند التشغيل تفحص وجوده فإذا كان موجود يعني أنّ البرنامج قد تم تشغيله من قبل, يمكنك استخدام الريجستري بدل الملف ايضا, اظن هذه الطريقة اسهل على البوكيت, لأن التعامل مع ال Proccess اصعب بسبب نقص التوابع في Compact Framework عن Framework الخاصة بال PC.

رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.

لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"

#311 سبتمبر 2008 في 12:47

مشكور الاخ المشرف على الاجابة والحمدلله قمت بتجربتها وتمت بشكل صحيح بحيث انني قمت في بداية البرنامج بفتح وانشاء ملف ولم اقم باغلاقه

الا عند كبسة الخروج وقمت بالتشييك في البداية ان افتح الملف او انشأه اذا لم يعطب خطأ ادخل للنظام وغير ذلك اخرج من النظام

#411 سبتمبر 2008 في 14:45

aymanmoftah كتب:
مشكور الاخ المشرف على الاجابة والحمدلله قمت بتجربتها وتمت بشكل صحيح بحيث انني قمت في بداية البرنامج بفتح وانشاء ملف ولم اقم باغلاقه
الا عند كبسة الخروج وقمت بالتشييك في البداية ان افتح الملف او انشأه اذا لم يعطب خطأ ادخل للنظام وغير ذلك اخرج من النظام

:S :S :S

Creating a Microsoft .NET Compact Framework-based Process Manager Application

Process Class

مدونتي

#516 سبتمبر 2008 في 15:20

بن العيد كتب:
:S :S :S
Creating a Microsoft .NET Compact Framework-based Process Manager Application
Process Class

اخي ابن العيد, المشكلة أنّ Compact Framework لا تدعم جميع الميزات التي في process class, و الميزات المدعومة على ال Pocket pc لا تمكنك من معرفة جميع ال Process التي تعمل على النظام, راجع الميزات المدعومة للتأكد بنفسك من الامر, لذلك يجب استخدام p/invoke لعمل هذه القصة و تصبح طويلة بعض الشيئ و تحتاج إلى الكثير من العمل, لذلك توجه السائل إلى الحل الاسهل صائب ولا أرى مشكلة فيه.

رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.

لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"

#616 سبتمبر 2008 في 18:30

اقتباس
اخي ابن العيد, المشكلة أنّ Compact Framework لا تدعم جميع الميزات التي في process class

صحيح مع ملاحظة بسيطة ربما تراها بديهية

في الصورة السابقة نميز ان كانت الدالة او الخاصية المعنية تخص فقط حاسوب المكتب او حاسوب الكف ايضا

و من بين الخاصيات المتوفرة هناك المعرف id و الذي يمكن ا عتماده لتحديد دون غيره

اقتباس
لذلك يجب استخدام p/invoke لعمل هذه القصة و تصبح طويلة بعض الشيئ و تحتاج إلى الكثير من العمل,

من الأفضل تجنب ال P/Invoke عندما تكون هناك إمكانية لكتابة الشفرة اللازمة بلغة الدوت نت.

ألا يمكن إستغلال كل هذا ؟

private const int TH32CS_SNAPPROCESS = 0x00000002;
[DllImport("toolhelp.dll")]
public static extern IntPtr CreateToolhelp32Snapshot(uint flags, uint processid);
[DllImport("toolhelp.dll")]
public static extern int CloseToolhelp32Snapshot(IntPtr handle);
[DllImport("toolhelp.dll")]
public static extern int Process32First(IntPtr handle, byte[] pe);
[DllImport("toolhelp.dll")]
public static extern int Process32Next(IntPtr handle, byte[] pe);
[DllImport("coredll.dll")]
private static extern IntPtr OpenProcess(int flags, bool fInherit, int PID);
private const int PROCESS_TERMINATE = 1;
[DllImport("coredll.dll")]
private static extern bool TerminateProcess(IntPtr hProcess, uint ExitCode);
[DllImport("coredll.dll")]
private static extern bool CloseHandle(IntPtr handle);
private const int INVALID_HANDLE_VALUE = -1;

اقتباس
لذلك توجه السائل إلى الحل الاسهل صائب ولا أرى مشكلة فيه

ليس هناك مشكلة و لكن الحل المطروح يسمى حل رعواني, و آمل أن لا يغضب هذا الوصف صاحب الحل. فطالما هناك دوال مطورة خصيصا لتتبع ملفات التشغيل النشطة و في بيئة الدوت نت فلماذا لا يتم إستغلالها.

</FONT>

تم تعديل هذه المشاركة بواسطة بن العيد في 16 سبتمبر 2008 في 19:30

مدونتي

#717 سبتمبر 2008 في 16:08

اقتباس
صحيح مع ملاحظة بسيطة ربما تراها بديهية

أخي ابن العيد, لا يمكن الحصول على قائمة بال Process التي تعمل في الجهاز باستخدام ال Process class الموجود في لغة الدوت نت,ففي الصورة التي وضعتها أنت تشير إلى ال ID, ماذا سوف يفيد؟

اقصد ما فائدة معرفة ال ID لل Process الحالي وكيف سوف نعرف أنه هناك Process أخر يعمل بنفس الاسم؟!

كل من الدوال:

GetProcesses
GetProcessesByName

غير مدعوما على الاجهزة الكفية و بالتالي لا يمكن معرفة إذا كان هناك Process أخر لنفس البرنامج يعمل باستخدام CF.

اقتباس
من الأفضل تجنب ال P/Invoke عندما تكون هناك إمكانية لكتابة الشفرة اللازمة بلغة الدوت نت.

نعم, معك في هذا, ولكن كما سبق و قلت ليس هناك إمكانية للمعرفة أنه هناك Process أخر بنفس الاسم يعمل في الجهاز باستخدام لغة الدوت نت.

اقتباس
ألا يمكن إستغلال كل هذا ؟

لم أفهم, قلت لا نريد استخدام P/Invoke ومن ثم تقول استغلال P/Invoke, أعرف تمام أنه يمكن عمل ما يريد السائل باستخدام P/Invoke ولكن سوف يصبح الامر اصعب.

اقتباس
ليس هناك مشكلة و لكن الحل المطروح يسمى حل رعواني, و آمل أن لا يغضب هذا الوصف صاحب الحل. فطالما هناك دوال مطورة خصيصا لتتبع ملفات التشغيل النشطة و في بيئة الدوت نت فلماذا لا يتم إستغلالها.

سوف أحاول عمل ما يريده السائل باستخدام P/Invoke إن شاء الله في الايام القادمة و أضعه هنا.

رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.

لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"

#823 سبتمبر 2008 في 19:06

السلام عليكم و رحمة الله و بركاته

اقتباس
لم أفهم, قلت لا نريد استخدام P/Invoke ومن ثم تقول استغلال P/Invoke, أعرف تمام أنه يمكن عمل ما يريد السائل باستخدام P/Invoke ولكن سوف يصبح الامر اصعب.

إنك على حق لقد ضننتك تعني إستغلال الشفرة سي التي أشرت لها في أول الموضوع في شكل مكتبة ربط ديناميكي

 

  public static Process[] GetProcesses()
		{

			string strContainer = string.Empty;

			Form1 f1;

			IntPtr handle = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

			if ((int)handle > 0)
			{
				try
				{
					PROCESSENTRY32 peCurrent;
					PROCESSENTRY32 pe32 = new PROCESSENTRY32();
					//Get byte array to pass to the API calls
					byte[] peBytes = pe32.ToByteArray();
					//Get the first process
					int retval = Process32First(handle, peBytes);

					while (retval == 1)
					{
						//Convert bytes to the class
						peCurrent = new PROCESSENTRY32(peBytes);
						//New instance
						//--Process proc = new Process(new IntPtr((int)peCurrent.PID), peCurrent.Name, (int)peCurrent.ThreadCount, (int)peCurrent.BaseAddress);

						strContainer+=peCurrent.Name+"\n";

						retval = Process32Next(handle, peBytes);
					}
				}
				catch (Exception ex)
				{
					throw new Exception("Exception: " + ex.Message);
				}

				//Close handle
				CloseToolhelp32Snapshot(handle);

			MessageBox.Show(strContainer);

			}
			else
			{  throw new Exception("Unable to create snapshot");		  }


			return null;
		}

 

	private void btn_ProcList_Click(object sender, EventArgs e)
		{
			GetProcesses();

		}

Form1.zip

مدونتي

#924 سبتمبر 2008 في 14:18

أخي أبن العيد لا أدري لماذا الكود في الاعلى مشوه, هل من الممكن أن تعيد ترتيبه.

رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.

لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"

#1024 سبتمبر 2008 في 15:35

قمت بالتعديل بسيط على الكود الذي اضافه الاخ ابن العيد, حيث اصبح لدينا الان تابعان, الاول GetProcesses يعيد مصفوفة من Arraylist و أيضا التابع ProcessFound والذي يعيد القيمة True فيما لوكان ال Process موجود.

انسخ الكود

private const int TH32CS_SNAPPROCESS = 0x00000002;
[DllImport("toolhelp.dll")]
public static extern IntPtr CreateToolhelp32Snapshot(uint flags, uint processid);
[DllImport("toolhelp.dll")]
public static extern int CloseToolhelp32Snapshot(IntPtr handle);
[DllImport("toolhelp.dll")]
public static extern int Process32First(IntPtr handle, byte[] pe);
[DllImport("toolhelp.dll")]
public static extern int Process32Next(IntPtr handle, byte[] pe);
[DllImport("coredll.dll")]
private static extern IntPtr OpenProcess(int flags, bool fInherit, int PID);
private const int PROCESS_TERMINATE = 1;
[DllImport("coredll.dll")]
private static extern bool TerminateProcess(IntPtr hProcess, uint ExitCode);
[DllImport("coredll.dll")]
private static extern bool CloseHandle(IntPtr handle);
private const int INVALID_HANDLE_VALUE = -1;
private class PROCESSENTRY32
{
// constants for structure definition
private const int SizeOffset = 0;
private const int UsageOffset = 4;
private const int ProcessIDOffset = 8;
private const int DefaultHeapIDOffset = 12;
private const int ModuleIDOffset = 16;
private const int ThreadsOffset = 20;
private const int ParentProcessIDOffset = 24;
private const int PriClassBaseOffset = 28;
private const int dwFlagsOffset = 32;
private const int ExeFileOffset = 36;
private const int MemoryBaseOffset = 556;
private const int AccessKeyOffset = 560;
private const int Size = 564;
private const int MAX_PATH = 260;
// data members
public uint dwSize;
public uint cntUsage;
public uint th32ProcessID;
public uint th32DefaultHeapID;
public uint th32ModuleID;
public uint cntThreads;
public uint th32ParentProcessID;
public long pcPriClassBase;
public uint dwFlags;
public string szExeFile;
public uint th32MemoryBase;
public uint th32AccessKey;
//Default constructor
public PROCESSENTRY32()
{
}
// create a PROCESSENTRY instance based on a byte array
public PROCESSENTRY32(byte[] aData)
{
dwSize = GetUInt(aData, SizeOffset);
cntUsage = GetUInt(aData, UsageOffset);
th32ProcessID = GetUInt(aData, ProcessIDOffset);
th32DefaultHeapID = GetUInt(aData, DefaultHeapIDOffset);
th32ModuleID = GetUInt(aData, ModuleIDOffset);
cntThreads = GetUInt(aData, ThreadsOffset);
th32ParentProcessID = GetUInt(aData, ParentProcessIDOffset);
pcPriClassBase = (long)GetUInt(aData, PriClassBaseOffset);
dwFlags = GetUInt(aData, dwFlagsOffset);
szExeFile = GetString(aData, ExeFileOffset, MAX_PATH);
th32MemoryBase = GetUInt(aData, MemoryBaseOffset);
th32AccessKey = GetUInt(aData, AccessKeyOffset);
}
#region Helper conversion functions
// utility: get a uint from the byte array
private static uint GetUInt(byte[] aData, int Offset)
{
return BitConverter.ToUInt32(aData, Offset);
}
// utility: set a uint int the byte array
private static void SetUInt(byte[] aData, int Offset, int Value)
{
byte[] buint = BitConverter.GetBytes(Value);
Buffer.BlockCopy(buint, 0, aData, Offset, buint.Length);
}
// utility: get a ushort from the byte array
private static ushort GetUShort(byte[] aData, int Offset)
{
return BitConverter.ToUInt16(aData, Offset);
}
// utility: set a ushort int the byte array
private static void SetUShort(byte[] aData, int Offset, int Value)
{
byte[] bushort = BitConverter.GetBytes((short)Value);
Buffer.BlockCopy(bushort, 0, aData, Offset, bushort.Length);
}
// utility: get a unicode string from the byte array
private static string GetString(byte[] aData, int Offset, int Length)
{
String sReturn = Encoding.Unicode.GetString(aData, Offset, Length);
return sReturn;
}
// utility: set a unicode string in the byte array
private static void SetString(byte[] aData, int Offset, string Value)
{
byte[] arr = Encoding.ASCII.GetBytes(Value);
Buffer.BlockCopy(arr, 0, aData, Offset, arr.Length);
}
#endregion
// create an initialized data array
public byte[] ToByteArray()
{
byte[] aData;
aData = new byte[Size];
//set the Size member
SetUInt(aData, SizeOffset, Size);
return aData;
}
public string Name
{
get
{
return szExeFile.Substring(0, szExeFile.IndexOf('\0'));
}
}
public ulong PID
{
get
{
return th32ProcessID;
}
}
public ulong BaseAddress
{
get
{
return th32MemoryBase;
}
}
public ulong ThreadCount
{
get
{
return cntThreads;
}
}
}
public static bool ProcessFound(string ProcessName)
{
IntPtr handle = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
bool flag = false;
if ((int)handle > 0)
{
try
{
PROCESSENTRY32 peCurrent;
PROCESSENTRY32 pe32 = new PROCESSENTRY32();
//Get byte array to pass to the API calls
byte[] peBytes = pe32.ToByteArray();
//Get the first process
int retval = Process32First(handle, peBytes);
while (retval == 1)
{
//Convert bytes to the class
peCurrent = new PROCESSENTRY32(peBytes);
if (ProcessName == peCurrent.Name)
{
flag = true;
}
retval = Process32Next(handle, peBytes);
}
}
catch (Exception ex)
{
flag = false;
throw new Exception("Exception: " + ex.Message);
}
CloseToolhelp32Snapshot(handle);
}
else
{
flag = false;
throw new Exception("Unable to create snapshot");
}
return flag;
}
public static ArrayList GetProcesses()
{
ArrayList arr = new ArrayList();
IntPtr handle = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if ((int)handle > 0)
{
try
{
PROCESSENTRY32 peCurrent;
PROCESSENTRY32 pe32 = new PROCESSENTRY32();
//Get byte array to pass to the API calls
byte[] peBytes = pe32.ToByteArray();
//Get the first process
int retval = Process32First(handle, peBytes);
while (retval == 1)
{
//Convert bytes to the class
peCurrent = new PROCESSENTRY32(peBytes);
arr.Add(peCurrent.Name);
retval = Process32Next(handle, peBytes);
}
}
catch (Exception ex)
{
throw new Exception("Exception: " + ex.Message);
}
//Close handle
CloseToolhelp32Snapshot(handle);
}
else
{ throw new Exception("Unable to create snapshot"); }
return arr;
}

الان لاستدعاء التابع الاول و تحميل اسماء ال Processes في ListBox نستخدم ما يلي:

انسخ الكود

private void btn_ProcList_Click(object sender, EventArgs e)
{
listBox1.Items.Clear();
ArrayList Processlst = GetProcesses();
for(int i =0;i < Processlst.Count;i++)
{
listBox1.Items.Add(Processlst[i]);
}
}

لمعرفة Process هل هو يعمل ام لا نستخدم

انسخ الكود

private void button1_Click(object sender, EventArgs e)
{
if (ProcessFound(textBox1.Text))
label1.Text = "Found";
else
label1.Text = "not found";
}

لتحميل التطبيق كاملا:

GetProcesses.rar

رب اجعلني مقيم الصلاة ومن ذريتي ربنا وتقبل دعاء.

لا تنسى: "العقل مثل العضلة كلما استخدمته أكثر كلما ازدادت قوته"

#1124 سبتمبر 2008 في 16:08

السلام عليكم و رحمة الله و بركاته

اقتباس
مشكور الاخ المشرف على الاجابة والحمدلله قمت بتجربتها وتمت بشكل صحيح بحيث انني قمت في بداية البرنامج بفتح وانشاء ملف ولم اقم باغلاقه
الا عند كبسة الخروج وقمت بالتشييك في البداية ان افتح الملف او انشأه اذا لم يعطب خطأ ادخل للنظام وغير ذلك اخرج من النظام

إقتنعت الآن أن هذا الحل رعواني أم لا؟ :)

مدونتي

منع تشغيل البرنامج مرة اخرى على الجهاز

مواضيع مشابهة