 |
|
ขอ Code VB 2008 ห้ามเปิดโปรแกรมทับ/ซ้อนกันหน่อยครับ |
|
 |
|
|
 |
 |
|
น่าจะประมาณนี้ครับ
Code (VB.NET)
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
For Each RunningProcess In Process.GetProcessesByName("ชื่อProcess")
Messageเตือน
Next
End Sub
|
 |
 |
 |
 |
Date :
2011-01-17 22:13:33 |
By :
EucifeR |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
เอานี้ไปเลย Win.App นะครับ
ส่วน test คือชื่อ Process ไม่ต้อง .exe นะครับ
Code (VB.NET)
Dim chk As String = Process.GetProcessesByName("test").Count.ToString
If CDbl(chk) > 1 Then
MessageBox.Show("", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.Close()
End If
|
ประวัติการแก้ไข 2011-01-17 23:35:01
 |
 |
 |
 |
Date :
2011-01-17 23:25:16 |
By :
EucifeR |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
เหมือนสามารถกำหนดได้ที่หน้า Property แท็บใดแท็บหนึ่งใน Project นะครับ
ไม่แน่ใจ เดี๋ยวต้องกลับบ้านไปดูก่อน
|
 |
 |
 |
 |
Date :
2011-01-18 17:48:48 |
By :
หางอึ่ง |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
อยากดักตัวไหนก็ใส่ตัวนั้นไปนะครับไม่น่าจะมีปัญหานิครับ 
|
 |
 |
 |
 |
Date :
2011-01-19 00:36:18 |
By :
EucifeR |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
คือโปรแกรมของเราเองเลยอ่ะครับ ไม่ใช่โปรแกรมอื่น
คือโปรแกรมของผมมันเปิดได้มากกว่า 1 อันอ่ะครับ
|
ประวัติการแก้ไข 2011-01-19 00:38:19
 |
 |
 |
 |
Date :
2011-01-19 00:37:40 |
By :
nutzkung69 |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ก็ใส่ชื่อ Process ของโปรแกรมของเราลงไปได้เลยนะครับ
|
 |
 |
 |
 |
Date :
2011-01-19 00:38:43 |
By :
EucifeR |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ถ้างั้นก็เพิ่ม testb.exe เข้าไปอีกชุดคำสั่งนะครับ
Code (VB.NET)
Dim chk As String = Process.GetProcessesByName("test").Count.ToString
If CDbl(chk) > 1 Then
MessageBox.Show("", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.Close()
End If
Dim chk_b As String = Process.GetProcessesByName("testb").Count.ToString
If CDbl(chk_b) > 1 Then
MessageBox.Show("", "", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.Close()
End If
|
 |
 |
 |
 |
Date :
2011-01-19 00:42:09 |
By :
EucifeR |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
งั้น ตามนี้ครับ

เลือก Make single instance application
จะทำให้เปิดได้อันเดียว เปลี่ยนชื่อก็ไม่ได้ครับ
|
 |
 |
 |
 |
Date :
2011-01-19 00:51:16 |
By :
EucifeR |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
Code (VB.NET)
Imports System
Imports System.Diagnostics
Imports System.ComponentModel
Namespace MyProcessSample
_
'/ <summary>
'/ Shell for the sample.
'/ </summary>
Class MyProcess
Sub BindToRunningProcesses()
' Get the current process.
Dim currentProcess As Process = Process.GetCurrentProcess()
' Get all instances of Notepad running on the local
' computer.
Dim localByName As Process() = Process.GetProcessesByName("notepad")
' Get all instances of Notepad running on the specifiec
' computer.
' 1. Using the computer alias (do not precede with "\\").
Dim remoteByName As Process() = Process.GetProcessesByName("notepad", "myComputer")
' 2. Using an IP address to specify the machineName parameter.
Dim ipByName As Process() = Process.GetProcessesByName("notepad", "169.0.0.0")
' Get all processes running on the local computer.
Dim localAll As Process() = Process.GetProcesses()
' Get all processes running on the remote computer.
Dim remoteAll As Process() = Process.GetProcesses("myComputer")
' Get a process on the local computer, using the process id.
Dim localById As Process = Process.GetProcessById(1234)
' Get a process on a remote computer, using the process id.
Dim remoteById As Process = Process.GetProcessById(2345, "myComputer")
End Sub 'BindToRunningProcesses
Shared Sub Main()
Dim myProcess As New MyProcess()
myProcess.BindToRunningProcesses()
End Sub 'Main
End Class 'MyProcess
End Namespace 'MyProcessSample
|
 |
 |
 |
 |
Date :
2011-01-19 01:03:34 |
By :
... |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
สุดยอดเลยพี่
|
 |
 |
 |
 |
Date :
2011-01-19 11:02:28 |
By :
Doremon316 |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ถูกใจก็ กดส่งคำขอบคุณก็ได้นะครับ อิอิ 
|
 |
 |
 |
 |
Date :
2011-01-19 11:52:52 |
By :
EucifeR |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|
|