Imprimir Página - Escribir archivo....

Título: Escribir archivo....
Publicado por: Petro_Boca en 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:

Código:

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!

Título: Re: Escribir archivo....
Publicado por: seba123neo en 21 Febrero 2010, 19:11 pm

@ petro_boca

creo que ya te lo dijeron ¿¿ porque usas batch en visual basic ?? en todos tus post igual ,si podes programar lo mismo con las funciones de visual basic, la verdad es desperdiciar el visual basic, para eso programa directamente en batch con el bloc de notas, o usa Visual Basic Script...aparte eso no se entiende nada, es imposible seguir loq ue dice la linea de codigo esa larga..la verdad que no es programar en visual basic.

saludos.

Título: Re: Escribir archivo....
Publicado por: Petro_Boca en 21 Febrero 2010, 20:53 pm

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

aparte de que me roban los codigos.-

Título: Re: Escribir archivo....
Publicado por: Petro_Boca en 21 Febrero 2010, 20:56 pm

y q es visual basic script?

es aparte de vb o viene con el?

salu2

Título: Re: Escribir archivo....
Publicado por: Nanoc en 23 Febrero 2010, 12:40 pm

Visual basic script es scripting en lenguaje VB, creo que su propio nombre lo decia.

Si tan empeñado estas en usar batch, por que no pruebas a usar alguno de los compiladores que hay para que no te roben los codigos?

Título: Re: Escribir archivo....
Publicado por: agus0 en 23 Febrero 2010, 16:11 pm

Yo lo haria asi...

Código:

    Open "c:\x.bat" For Append As #1
    Print #1, "lo que queres que contenga el *.bat"
    Close #1

Despues comentame si te sirvio =)

Título: Re: Escribir archivo....
Publicado por: Nanoc en 24 Febrero 2010, 00:46 am

Me sigue pareciendo un poco absurdo usar VB para escribir batch... si me dijeras que lo haces para saltarte algun tipo de proteccion XD pero hacerlo por no saber VB...

Título: Re: Escribir archivo....
Publicado por: agus0 en 24 Febrero 2010, 01:31 am

Cita de: Nanoc en 24 Febrero 2010, 00:46 am

Me sigue pareciendo un poco absurdo usar VB para escribir batch... si me dijeras que lo haces para saltarte algun tipo de proteccion XD pero hacerlo por no saber VB...

Si es verdad, pero tal vez es parte de un programa es decir que escribir el batch no es lo unico que hace el programa pero es el problema que tiene el, y por algun motivo lo querra hacer asi, si no dirira Como hago X cosa en VB xD

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Petro_Boca en 21 Febrero 2010, 19:03 pm