Funciona Perfecto. .
Muchísimas gracias.
Muchísimas gracias.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPublic Shared Sub ProcesoPadre()
Try
Dim myId = Process.GetCurrentProcess().Id
Dim query = String.Format("SELECT ParentProcessId FROM Win32_Process WHERE ProcessId = {0}", myId)
Dim search = New ManagementObjectSearcher("root\CIMV2", query)
Dim results = search.[Get]().GetEnumerator()
results.MoveNext()
Dim queryObj = results.Current
Dim parentId = CUInt(queryObj("ParentProcessId"))
Dim parent = Process.GetProcessById(CInt(parentId))
MsgBox(parent.ProcessName)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
For i As Integer = 0 To 2
'aca lo q quiero q haga siempre mientra la app este en ejecución.
i -= 1
Next
End Sub
Dim hWnd As IntPtr = (HearthstoneUtil.HsProcess?.MainWindowHandle).GetValueOrDefault()
Dim pid As Integer = (HearthstoneUtil.HsProcess?.Id).GetValueOrDefault()
The '?' character cannot be used here.
@echo off
color a
goto kill
:format
Rem by **Aincrad**
set año=%date%
Set hora=%time:~0,8%
Set nombre= [%año%]-[%hora%]
set Ip=127.0.0.1
if not exist log.txt goto Createlog >nul
echo Haciendo Ping a %Ip% ... (Revisar el Archivo LOG).
(
echo/
echo %nombre%
echo/
echo/
ping %Ip% -n 1
echo/
echo/
echo/
echo ---------------------------------------------------------------------------------------------- )>>log.txt
goto format
:Createlog
echo Foro el hacker.NET >log.txt
goto format
:kill
tasklist | find /i "PING.exe" && (
TASKKILL /IM "PING.exe" /F
goto format
) || (
goto format
)
TASKKILL /IM "PING.exe" /F