Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Fix chequeo de multiples instancias #467

Merged
merged 1 commit into from
Feb 21, 2024
Merged

Fix chequeo de multiples instancias #467

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
14 changes: 7 additions & 7 deletions Codigo/General.bas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -547,7 +547,7 @@ Sub Main()

Call load_stats
' Me fijo si ya hay un proceso llamado server.exe abierto
100 If GetProcess(App.EXEName & ".exe") > 1 Then
100 If GetProcessCount(App.EXEName & ".exe") > 1 Then
' Si lo hay, pregunto si lo queremos cerrar.
102 If MsgBox("Se ha encontrado mas de 1 instancia abierta de esta aplicación, ¿Desea continuar?", vbYesNo) = vbNo Then
104 End
Expand Down Expand Up @@ -2349,8 +2349,8 @@ Public Function InsideRectangle(R As t_Rectangle, ByVal X As Integer, ByVal Y As
108 InsideRectangle = True
End Function

' Fuente: https://stackoverflow.com/questions/1378604/end-process-from-task-manager-using-vb-6-code (ultima respuesta)
Public Function GetProcess(ByVal processName As String) As Byte
' Based on: https://stackoverflow.com/questions/1378604/end-process-from-task-manager-using-vb-6-code (ultima respuesta)
Public Function GetProcessCount(ByVal processName As String) As Byte

Dim oService As Object
Dim servicename As String
Expand All @@ -2361,20 +2361,20 @@ Public Function GetProcess(ByVal processName As String) As Byte

104 For Each oService In oServices

106 servicename = LCase$(Trim$(CStr(oService.Name)))
106 servicename = CStr(oService.name)

108 If InStrB(1, servicename, LCase$(processName), vbBinaryCompare) > 0 Then
108 If StrComp(servicename, processName, vbTextCompare) = 0 Then

' Para matar un proceso adentro de este loop usar.
'oService.Terminate
' oService.Terminate

110 processCount = processCount + 1

End If

Next

112 GetProcess = processCount
112 GetProcessCount = processCount

End Function

Expand Down