anti turbinas

Estado
Cerrado para nuevas respuestas.

Dr. Miqueas150

The Prophet
Ex-Staff
quisiera saver si sirve

Código:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    Private Const SW_SHOWNORMAL = 1
    
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Sub KillProcess(ByVal processName As String)
On Error GoTo ErrHandler
Dim oWMI
Dim ret
Dim sService
Dim oWMIServices
Dim oWMIService
Dim oServices
Dim oService
Dim servicename
Set oWMI = GetObject("winmgmts:")
Set oServices = oWMI.InstancesOf("win32_process")
For Each oService In oServices
 
 
servicename = LCase(Trim(CStr(oService.Name) & ""))
 
If InStr(1, servicename, LCase(processName), vbTextCompare) > 0 Then
ret = oService.Terminate
End If
 
Next
 
Set oServices = Nothing
Set oWMI = Nothing
 
ErrHandler:
Err.Clear
End Sub

lo tengo puesto con un timer con un intervalo de 7000
codigo del timer
Código:
On Error Resume Next
Call KillProcess("VolkS TurbinaS.exe")
pero lo que quiero saver si es que si le cambian el nombre no me cierra ese proceso??
 

Mafia

Juree!
Igualmente, podes limitar las conecciones y punto. O verificar si la ip que se conecto ya esta conectada más de 3 veces y le cerras la coneccion
 

Franeg95

CARP
Ex-Staff
Esto en realidad no bloquea el uso de turbinas ya que pueden atacarte sin conectarse desde el ao.

Lo que a vos te tira el juego es que aunque el paquete sea incorrecto el socket lo recibe igual por lo tanto la coneccionn existe.
 
Estado
Cerrado para nuevas respuestas.
Arriba