Mensajes

jjajaja
ok... sigo buscando  :'(
el problema es que la mayoria de las paginas tiene la misma info -.-
tengo que recurrir a las paginas en ingles q me tienen un tiempito hasta que entiendo algo xD

un salud0

G0nz4

gracias Numerin, pero no es tan facil de facil
eso solo esconde el programa de la lista de Aplicaciones, si te fijas en procesos aparece y se puede terminar la aplicacion

ah, otra cosa
buscando x g00gle encontre tmb que el RegisterServiceProcess cambio de nombre a "RegisterServiceSProcess" en WinXP y se situa en User32.dll
pero cuando intento llamar, me tira un error: 'BAD DLL CALLING'
el codigo que utilizo es el siguiente:

Código [Seleccionar] Expandir


RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE) 'pid es el ID del programa


algun aporte ??

NOTA: en vez de usar App.Title = "" se puede usar App.TaskVisible = 0

H0la
bueno, estoy intentando esconder un proceso del Administrador de Tareas, pero intento registrar el programa como un servicio (utilizando "RegisterServiceProcess") me dice que no encuentra esa sentencia en 'Kernel32'
uso Windows XP
esto es por la version del OS ??
mi Kernel esta dañoado ??

si alguien peude responderme estaria muy agradecido =)

Gracias de anteman0

G0nz4

Yo lo uso y el Norton 2004 no me lo detecta...

ak va el codigo para matar cualkier aplicacion:

Código [Seleccionar] Expandir


Private Sub Command1_Click()

KillProcess ("msnmsgr.exe") 'mata el proceso del MSN 6 en adelante, el 5 tiene otro nombre... msnmsgs.exe creo que es, fijate xD

End Sub


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


espero que te sirva

un salud0

si no keres usar API's podes usar este codigo

Código [Seleccionar] Expandir


Set Regedit = CreateObject("WScript.Shell")
Regedit.regDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\ClaveABorrar"


si vas a modificar mucho el registro es recomendable usar las API's, sino podes usar este code

jajaja xD

(che reydelmundo, el code ta diseñado para un troyano, pero SH !)  :Pç

q buen0 que les sirva 

Sorry, the page you requested was not found.

no es problema del servidor, el manual no se encuentra mas online
http://www.geocities.com/laser252003/ >> si se fijan solo hay un par de jpg's

GoodBbye si tenes la amabilidad de subir el archivo en otro servidor y postear... estaria agradecido xD
un salud0

G0nz4

GRACIAZ ^_^
peor no me respondiste

si es lo que me imagino, eso cambiaria la imagen rapidisimo, y no le daria efecto al gif ...
si estoy equivocado hacemelo saber

NOTA: no soy vago, jugando con la sentencia KILL elimine la ayuda del VB xDDD

Thx Again

G0nz4

Código [Seleccionar] Expandir


Private Sub Timer1_Timer()
    Static i
    i = i + 1: If i = Image1.Count Then i = 1
    Image1(0).Picture = Image1(i).Picture
End Sub


para que sirve "Static" ^^
pero si es lo que me imagino, eso cambiaria la imagen rapidisimo, y no le daria efecto al gif ...
si estoy equivocado hacemelo saber 

un abraz0

G0nz4