nadie ?
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úCita de: Alex@ShellRoot en 15 Abril 2010, 03:12 AM
:http://msdn.microsoft.com/es-es/library/bt3szac5(VS.80).aspx
Cita de: Alex@ShellRoot en 15 Abril 2010, 03:01 AM
, no entendí.
1. Con un inputbox, pides el nombre del archivo.
2. Tenes la función Replace()
3. ...
4. ...
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
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