Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Empedocles en 27 Septiembre 2005, 21:25 pm



Título: duda con VB
Publicado por: Empedocles en 27 Septiembre 2005, 21:25 pm
hola soy nuevo en esto y necesito que me ayuden con este tema. yo quiero borrar una carpeta que esta en archivos de programa. ya probe asi

set ema = createobject ("stri..........")
ema.deletefolder "C:/Archivos de programa/Ematy"

pero no puedo, por que me dijieron que  primero tengo que matar la aplicacion que esta corriendo y despues y despues borrarla, y para matar la aplicacion q esta corriendo son 7 u 8 lineas pero no las puedo encontrar por ningun lado, me gustaria que me digan como son esas lineas gracia !


Título: Re: duda con VB
Publicado por: NYlOn en 27 Septiembre 2005, 23:41 pm
Buscar n0 esta de + ...
para matar una aplicacion:
CLICK ACA (http://foro.elhacker.net/index.php/topic,84182.msg389365.html#msg389365)

(segun me dijieron el ejemplo sirve solo para Win XP)

y no c que estas usando para borrar la carpeta pero tenes un error: los directorios no se marcan "/", se marcan con la barra invertida "\"
y podes usar esta funcion:
Código:
RmDir "C:\Archivos de programa\Ematy"

esper0 q te sirva

salu2

G0nz4


Título: Re: duda con VB
Publicado por: Empedocles en 29 Septiembre 2005, 01:30 am
muchas gracias por la info me re sirvio, pero el
RmDir "C:\Archivos de Programa\Ematy" me da error por que dice que no lo encuentra.
y mi duda es esta, la aplicacion que esta corrindo se mata asi:

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
 bueno en vez de ser KillProcess ("msnmsgr.exe") me gustaria que sea ("FrzState") ya lo cambie pero no me mata la aplicacion ¿sera por que deje los -Dim- como estaban con el ("msnmsgr.exe"). espero que me puedan contestar


Título: Re: duda con VB
Publicado por: NYlOn en 29 Septiembre 2005, 01:48 am
no te lo mata pq te estas olvidando un pekeño detalle  8)
la extensión ;D

si el programa q keres matar se llama "FrzState" tenes que poner:
Código:
Private Sub Command1_Click()

KillProcess ("FrzState.exe")

End Sub

solo tenias q poner el .exe

un salud0 ;)

PD: acordate de usar las etiquetas correspodientes para ingresar un codigo.. hace todo mucho mas legible y ordenado ;)

-------------
Para ingresar un codigo:
Click en la imagen (http://foro.elhacker.net/Themes/default/images/bbc/code.gif)
O
[Code ]
'Tu codigo
[/Code ]
(sin los espacios finales)
-------------


Título: Re: duda con VB
Publicado por: Empedocles en 29 Septiembre 2005, 01:56 am
muchas gracias por tu ayuda
y supestamente una vez q mate la aplicacion ya puedo borrar la carpeta no ??


Título: Re: duda con VB
Publicado por: NYlOn en 29 Septiembre 2005, 02:05 am
mmm sip... si se termino el proceso ya podes borrar la carpeta :)

de nada ;)

Salu2


G0nz4


Título: Re: duda con VB
Publicado por: my_sistemas en 29 Septiembre 2005, 04:15 am
bueno crero q quieres desactivar el deep freeze sin saber el pass.... bueno el deep freeze no se puede desactivar asi... yo hice un archivo .com para q lo puedas eliminar si es eso lo q quieres me pasas la voz.... solo funciona en windows 98 si lo quieres hacer en windows XP esperate q ya estoy trabajando en eso ;) :P


Título: Re: duda con VB
Publicado por: NYlOn en 29 Septiembre 2005, 04:28 am
que es lo q hacias para eliminar el Deep Freeze en Win 98 ??

Me gustaria ayudarte a adaptarlo a Win XP...

Un salud0


Título: Re: duda con VB
Publicado por: my_sistemas en 29 Septiembre 2005, 22:32 pm
jajaja pues simplemente creaba un archivo bat q eliminaba un archivo de System..... el cual necesitaba el DF para activarse.... lo tenias q ejecutar desde un Disco de Inicio...... pero con el programa BAT2COM lo paso a .com ;) jejeje pero para XP noc cual se tiene q eliminar... ahora ya ay softwares para descativarlo sin necesidad de disco de inicio aca los tengo son para la version de XP por eso es q no saque para esa version pero para 98 solo hay el q hice ;)


Título: Re: duda con VB
Publicado por: NYlOn en 29 Septiembre 2005, 22:38 pm
jajaj ok

thx ;)


Título: Re: duda con VB
Publicado por: Slasher-K en 30 Septiembre 2005, 00:18 am
Hay un bug del Deep Freeze que te permite desactivarlo modificando unos offsets en un archivo del programa. Está explicado en el foro y es sencillo de implementar en cualquier lenguaje.

Saludos.


Título: Re: duda con VB
Publicado por: NYlOn en 30 Septiembre 2005, 00:23 am
Ahora me pongo a buscar
Muchas gracias Polux ;)


Título: Re: duda con VB
Publicado por: Empedocles en 30 Septiembre 2005, 18:35 pm
me gustaria que me digan donde esta el bug ese del deep frezee por q no lo encuentro

PD: suponiendo que la persona a la quiero sacarle el deep freeeze no lo tienen, para que no salga un error de que no lo puede encontrar que iria
   on error resume next ?


Título: Re: duda con VB
Publicado por: NYlOn en 30 Septiembre 2005, 19:39 pm
Citar
me gustaria que me digan donde esta el bug ese del deep frezee por q no lo encuentro

"El que busca encuentra, el que no, se jode"

Google (http://www.google.com)
Salu2


Título: Re: duda con VB
Publicado por: Empedocles en 30 Septiembre 2005, 22:59 pm
lo busque pero no lo encontre necesito el favor ese, tengo 6 o 7 mensajes asi q mucho no se  :(
y necesito q me enseñen por que en google no lo encontre y si alguno me quiere decir donde lo encontro me gustaraia que me lo diga gracias