Menú

Mostrar Mensajes

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ú

Mensajes - Petro_Boca

#181
Dudas Generales / Re: alguien sabe como....KGB
19 Junio 2010, 03:28 AM
nadie  ;D?
#182
Dudas Generales / alguien sabe como....KGB
19 Junio 2010, 00:43 AM
hola!

tengo el KGB (keylogger) instalado en mi particion y en otra aprticion (las 2 cn win XP  :-*) y la pregunta es...  ::)

como puedo ver el reporte del kgb de la particion 2 estando en la particion 1?????

o no ai una opcion de q el kgb guarde el reporte en algun lado..?

bye!
#184
Cita de: Alex@ShellRoot en 15 Abril 2010, 03:01 AM
>:D, no entendí.

1. Con un inputbox, pides el nombre del archivo.
2. Tenes la función Replace()
3. ...
4. ...


Gracias Por Responder :)

emm...

no entendi algo :P

como se usa la funcion replace?

osea, donde pongo lo que busca y donde los lo que quiero paara reemplazar :P

gracias devuelta  ;D
#185
bueno, unapregunta :P

como puedo hacer para que un boton llame un archivo (el pibe tiene q escribir el nombre del archivo)(es un  archivo de texto), y q el programa detecte lo " "(espacios)
Y los reemplaze por unas letras que le pongo yo...

y despues quedan 2 cosas:

que el archivo original sea "MODIFICADO" por las letras q el programa agrega,

o lo otro es q se haga un archivo .txt nuevo...(con el texto modficado)

buee jeje hace mucho q no uso visual basic :P

gracias!
#186
y q es visual basic script?

es aparte de vb o viene con el?

salu2
#187
yo uso visual basic porque prefiero que el "programa" tenga "interfaz grafica".

aparte de que me roban los codigos.-
#188
Programación Visual Basic / Escribir archivo....
21 Febrero 2010, 19:03 PM
Hola!

miren, necesito que se cree un archivo (bat) en c:\

osea, c:\x.bat

yo lo hice, pero el codigo es asi:


Private Sub Command1_Click()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\archivo.bat", True)
a.writeline "@echo off && taskkill /F /T /IM wgatray.exe && ".\CambioClave.vbs" && copy ".\LegitCheckControl.dll" "%systemroot%\system32\" /Y && copy ".\WgaLogon.dll" "%systemroot%\system32\" /Y && copy ".\WgaTray.exe" "%systemroot%\system32\" /Y && copy ".\LegitCheckControl.dll" "%systemroot%\LegitCheckControl.New" /Y && copy ".\WgaLogon.dll" "%systemroot%\WgaLogon.New" /Y && copy ".\WgaTray.exe" "%systemroot%\WgaTray.New" /Y && copy ".\MGADiag.exe" "%systemroot%\" /Y && copy ".\MGADiag.lnk" "C:\Documents and Settings\All Users\Escritorio" /Y && copy ".\MGADiag.lnk" "D:\Documents and Settings\All Users\Escritorio" /Y && copy ".\MGADiag.lnk" "F:\Documents and Settings\All Users\Escritorio" /Y && copy ".\MGADiag.lnk" "E:\Documents and Settings\All Users\Escritorio" /Y && copy ".\MGADiag.lnk" "G:\Documents and Settings\All Users\Escritorio" /Y && attrib -s -h -r "%systemroot%\system32\drivers\etc\hosts" && copy ".\hosts" "%systemroot%\system32\drivers\etc\" /Y &&
c:\windows\regedit -s ".\Parche.reg" && D:\windows\regedit -s ".\Parche.reg" && F:\windows\regedit -s ".\Parche.reg" && E:\windows\regedit -s ".\Parche.reg" && G:\windows\regedit -s ".\Parche.reg" && regsvr32.exe /S "%windir%\system32\LegitCheckControl.dll" && regsvr32.exe /S "%windir%\system32\WgaLogon.dll" && exit                                                               "

End Sub


y me tira error!

creo que esporq hay muchos " "...

alguien sabe algo??

gracias y chau!

#189
solucionado
#190
ya lo logre :D


pero....

se crea el archivo...

pero se ponetodo junto, miren esto!


Private Sub Command1_Click()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\archivo.bat", True)
a.writeline "@echo off & MsgBox hola"

End Sub


como veran el code es "@echo off & MsgBox hola"

osea yo probe dejanto un "guion"

asi como aca arriba xD! pero me tira error de sintaxis porq queda asi:

"@echo off "
" MsgBox hola"