อยากเขียนโปรเจกต์เล็กๆ แต่ยังติดอยู่นิดหน่อยครับ
อยากเขียนโปรเจกต์เล็กๆ แต่ยังติดอยู่นิดหน่อยครับ
ความต้องการคือ จะทำการตรวจสอบ ใน Processว่า มี่ไฟล์ DRAGONICA.exe รันอยู่ใหม -ถ้าไม่มี Process ชื่อ DRAGONICA.exe รันอยู่ MsgBox ขึ้นเตือนว่า "กรุณาเปิดโปรแกรม" -ถ้ามี Process ชื่อ DRAGONICA.exe รันอยู่ ก็ทำการวนลูป รอการตรวจสอบการเช็ค Process DRAGONICA.exe ทุก15นาที
ผมใช้VB2008น่ะครับ
Code ตัวอย่างที่ได้มา ไม่รุต้องใช้อย่างไง
ผมใช้ Timer เป็นตัวกำหนดเวลานะคับ
------------------------------------------------------------------
Dim objWMIService, objProcess, colProcess Dim strComputer Dim strList As String strComputer = "." objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") colProcess = objWMIService.ExecQuery("Select * from Win32_Process") strList = "" For Each objProcess In colProcess strList = strList & vbLf & objProcess.Name Next Dim i As Integer = strList.IndexOf("DRAGONICA.exe") If i = -1 Then MsgBox("กรุณาเข้าเกมก่อน มิฉะนั้นอาจจะทำให้คุณใช้โปรแกรมผิดพลาด", MsgBoxStyle.Exclamation, "คำเตือน") End If End Sub
---------------------------------------------------------
ถูกหรือไม่ถูก ช่วยแก้ไขให้ทีนะคับ
|