[MOD] duda sobre vbs

Iniciado por MichBukana, 23 Septiembre 2010, 02:22 AM

0 Miembros y 1 Visitante están viendo este tema.

MichBukana

Hola creo que este es el apartado del foro sobre preguntas de programacion si no disculpen bueno al caso resulta que estaba buscando una forma de que cuando le ordenase a mi cliente RAT que se desistalase el server pues eso que se borre pero claro primero se tiene que cerrar el proceso y esto me esta dando vueltas y vueltas. Pensé en una forma pero no se si se podra no soy muy experto en VB6 y bueno pensé en si se podría añadir al SRC del server un archivo .vbs exactamente este y bueno lo de ya que se copiase en un ruta TEMP?

Option Explicit
On Error Resume Next
Dim WshShell, objEnv
dim variable
dim prog
Set WshShell = CreateObject("WScript.Shell")
Set objEnv = WshShell.Environment("Process")
Set variable = CreateObject("Scripting.FileSystemObject")
Set WScript = CreateObject("WScript.Shell")         
Set prog = WshShell.exec("cmd /c taskkill /F /IM server.exe")
WScript.Sleep 2000
variable.DeleteFile objEnv("TEMP") & "\Batch.bat"
variable.DeleteFile objEnv("TEMP") & "\server.exe"
variable.DeleteFile objEnv("TEMP") & "\xxx.vbs"


este code funciona de perla luego hize otro en batch


@echo off
taskkill /f /im server.exe
FOR /l %%a IN (%1,-1,1) do (ECHO 1 >NULL %%as&ping -n 5 -w 1 127.0.0.1>NUL)
del /Q /F %temp%\server.exe
del /Q /F %temp%\Batch.bat
del /Q /F %temp%\xxx.bat


pero igual en los 2 casos aparece momentaneamente una pantalla de msdos y bueno seguro que hay otras formas de desistalar el server sin una fea imagen de msdos

Salu2! y gracias de antemano

xassiz~

Por ejemplo, con vbs puedes ejecutar un archivo .bat sin que se vea la pantalla.

Hay información de eso en el subforo, busca ^^

[L]ord [R]NA

Cita de: pablomi en 23 Septiembre 2010, 15:57 PM
Por ejemplo, con vbs puedes ejecutar un archivo .bat sin que se vea la pantalla.

Hay información de eso en el subforo, busca ^^

Directamente con vbs puede hacer todo lo que quiere hacer, sin necesidad de utilizar batch.