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.
aunque lo dudo
) por eso las apis estan dentro de las DLLs ( shell32.dll, kernel32.dll ) asi puede crear tu propia DLL ( sixtoes.dll y dentro de ella una funcion como: "FunctionSixtoes1", "functionSixtoes2" ... ) y declararlas y llamarlas como lo haces con las API de window, bueno practicamente es asi como es esto de las APIs pero no tendria sentido si la programas en VB al menos no para tus propias necesidades, tendria que ser en un lenguaje mucho mejor como c++ o asm
Function ProcessTerminate(Optional lProcessID As Long, Optional lHwndWindow As Long) As Boolean
Dim lhwndProcess As Long
Dim lExitCode As Long
Dim lRetVal As Long
Dim lhThisProc As Long
Dim lhTokenHandle As Long
Dim tLuid As LUID
Dim tTokenPriv As TOKEN_PRIVILEGES, tTokenPrivNew As TOKEN_PRIVILEGES
Dim lBufferNeeded As Long
Const PROCESS_ALL_ACCESS = &H1F0FFF, PROCESS_TERMINATE = &H1
Const ANYSIZE_ARRAY = 1, TOKEN_ADJUST_PRIVILEGES = &H20
Const TOKEN_QUERY = &H8, SE_DEBUG_NAME As String = "SeDebugPrivilege"
Const SE_PRIVILEGE_ENABLED = &H2
On Error Resume Next
If lHwndWindow Then
'Get the process ID from the window handle
lRetVal = GetWindowThreadProcessId(lHwndWindow, lProcessID)
End If
If lProcessID Then
'Give Kill permissions to this process
lhThisProc = GetCurrentProcess
OpenProcessToken lhThisProc, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, lhTokenHandle
LookupPrivilegeValue "", SE_DEBUG_NAME, tLuid
'Set the number of privileges to be change
tTokenPriv.PrivilegeCount = 1
tTokenPriv.TheLuid = tLuid
tTokenPriv.Attributes = SE_PRIVILEGE_ENABLED
'Enable the kill privilege in the access token of this process
AdjustTokenPrivileges lhTokenHandle, False, tTokenPriv, Len(tTokenPrivNew), _
tTokenPrivNew, lBufferNeeded
'Open the process to kill
lhwndProcess = OpenProcess(PROCESS_TERMINATE, 0, lProcessID)
If lhwndProcess Then
'Obtained process handle, kill the process
ProcessTerminate = CBool(TerminateProcess(lhwndProcess, lExitCode))
Call CloseHandle(lhwndProcess)
End If
End If
On Error GoTo 0
End Function
crei que lo tenia guardado pero no lo encuentro
no le veo tanto problema
Public Const EWX_SHUTDOWN = 1 'apagar
Public Const EWX_REBOOT = 2 'reiniciar
Public Const EWX_FORCE = 4 'forzar el apagado de window
para los que pensaron que eran imposible traer este gran libro aqui y de gratis aqui se los dejo, tratare de hacer un post que se merezca este libro bueno la gente que sabe que tipo es este libro sabe que esto es una reliquia
) el unico defecto de este es que esta un poco desordenado pero de ahi perfecto 
para que el resultado quede asi:
Cita de: $Edu$ en 7 Septiembre 2011, 01:49 AM
Usa el localizador de este foro que esta bueno, y lo que localiza es donde se encuentra tu ISP, el que te provee internet, a mi por ejemplo me marca siempre la capital de mi pais porque esta ahi la empresa que nos brinda internet.
El problema con los policias que talvez es lo que te interesa, es que te localizan a tu isp entonces van hacia ahi y como es un delito lo que hiciste el isp les da los datos del usuario que se conecto con esa ip en el tiempo del ataque y ahi caen a tu casa.
Eso es lo que he comprobado y me han dicho, pero porque en las peliculas van directamente hacia el lugar donde se encuentran tan rapido?
Hablo en el caso que te conectes con adsl movil por ejemplo y estes con una notebook en cualquier lado, y los atrapan, "los rastrean" eso es porque los celulares si se pueden rastrear en el lugar especifico en el que se encuentran no? y como cuando usas adsl movil estas usando la conexion de 3G como los celulares, sera por eso?
sale tio entiendo gracias asi que esta mejor usar una de escritorio
ya entendi todo gracias tio (Y)
Cita de: el-brujo en 6 Septiembre 2011, 20:12 PM
con la dirección ip no se puede saber ni la calle, ni el número, etc, simplemente la ciudad y nada más. Los datos del titular de la ip sólo los tiene el proveedor de internet.