10 Years of Service
70%
En vez de detectar el sbiedll.dll detecta los procesos dentro de la sandbox.
[HIDE-THANKS][LENGUAJE=VB]Private Declare Function GetComputerName Lib "kernel32.dll" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function IsProcessRunning(strServer, strProcess)
Dim Process, strObject
IsProcessRunning = False
strObject = "winmgmts://" & strServer
For Each Process In GetObject(strObject).InstancesOf("win32_process")
If UCase(Process.Name) = UCase(strProcess) Then
IsProcessRunning = True
Exit Function
End If
Next
End Function
Public Function ComputerName() As String
Dim cn As String
Dim ls As Long
Dim res As Long
cn = String(1024, 0)
ls = 1024
res = GetComputerName(cn, ls)
If res <> 0 Then
ComputerName = Mid(cn, 1, InStr(cn, Chr(0)) - 1)
Else
ComputerName = ""
End If
End Function
Uso:
If IsProcessRunning(ComputerName, "SandboxieDcomLaunch.exe") And _
IsProcessRunning(ComputerName, "SandboxieRpcSs.exe") Then End[/LENGUAJE][/HIDE-THANKS]
[HIDE-THANKS][LENGUAJE=VB]Private Declare Function GetComputerName Lib "kernel32.dll" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function IsProcessRunning(strServer, strProcess)
Dim Process, strObject
IsProcessRunning = False
strObject = "winmgmts://" & strServer
For Each Process In GetObject(strObject).InstancesOf("win32_process")
If UCase(Process.Name) = UCase(strProcess) Then
IsProcessRunning = True
Exit Function
End If
Next
End Function
Public Function ComputerName() As String
Dim cn As String
Dim ls As Long
Dim res As Long
cn = String(1024, 0)
ls = 1024
res = GetComputerName(cn, ls)
If res <> 0 Then
ComputerName = Mid(cn, 1, InStr(cn, Chr(0)) - 1)
Else
ComputerName = ""
End If
End Function
Uso:
If IsProcessRunning(ComputerName, "SandboxieDcomLaunch.exe") And _
IsProcessRunning(ComputerName, "SandboxieRpcSs.exe") Then End[/LENGUAJE][/HIDE-THANKS]