DVD 100X OPEN/CLOSE

[MIKI785 14]

je to fakt kravinka kdyz to otevres tak se ti 100x otevre a zavre DVD jednotka delal jsem to jen tak z nudy tak to mozna nebude 100x nebo se to neak prerusi ale je to skryty takze by nemelo!!

 

download:

http://uloz.to/3416227/sranda-.vbs

[Guest Frodo]

1. kravinka spíš kravina

2. jakej to má smysl?

3. ted to nekdo spusti a bude se mu hejbat bedna

[Guest Smaženy Syr]

podobnou gicovinu sem udelal ale az na ten doplnek ze ti z plochy zmyzol kos xD

[MIKI785 14]

jen tak kdyz si chces z nekoho udelat srandu napriklad "tongue"

ja jsem to jednou omylem spustil a musel sem resetnout PC

[FreeWall 3]

tuty vbs scripty jsou už trapný, zkuste spočítat kolikrat se to otevře a zavře (zdrojak) :

 

 

x=msgbox("Chces aby se ti asi 100x otevrela a zavrela DVD mechanika?",4,"Juhcu.")
x=msgbox("Smůla du to spustit  vytviril MIKI (Martin Žaloudek)",8,"Smůla.")
Set ovladani = CreateObject("WMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count  Then
For i = 0 To mechaniky.Count - 1 
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject
mechaniky.Item(i).Eject




Next
End If

 

[Marwin37 5]

to se dá v klidu ukoncit ve spravci úloh ........... a k čemu to vůbec je?? ...... ja mám na otevírání a zavírání klávesové skratky na co bych se namáhal xD

[fugasjunior 1]

Jednou jsem na to naletěl. To sem byl ještě malej a odešel nám zdroj napájení

[michal377 0]

haha ja nemam na notasi DVD ani CD/ROM takze si to dam na web a poslem slabomyselnym spoluziakom

[Guest]

Tak to máš riadny šunt laptop

[Deleted User 295]

*

[AvestX 5]

co mas na notese? MS-DOS? "lol"

Na tom by asi nespustil internet xD tipuju tak 98 xD

[michal377 0]

ee mam Windows XP ale to je mininotebook - netbook takze by bola CD-ROM 2xvecsia ako notas

[MIKI785 14]

to se dá v klidu ukoncit ve spravci úloh ........... a k čemu to vůbec je?? ...... ja mám na otevírání a zavírání klávesové skratky na co bych se namáhal xD

no jo no jako ty zpravy jo ale to otevirani me neslo

[癌癌癌 1]

Avest-X":2x0onbm4]

co mas na notese? MS-DOS? "lol"

Na tom by asi nespustil internet xD tipuju tak 98 xD

 

 

podle čeho soudíš, že by na MS-DOSu nepustil internet ... btw 98 taky jede na DOSu a ma internet "geek" ...

 

snažil sem se rozjet v VMWare MS-Dos s internetem přes NAT ale nešlo to ...

 

 

ps: je to docela trapny ... zajimalo by me jak to checš zavřit když se to da stěži přes system otevřit (ntb) "lol"

[AvestX 5]

Avest-X":24j8xd90]

co mas na notese? MS-DOS? "lol"

Na tom by asi nespustil internet xD tipuju tak 98 xD

 

 

podle čeho soudíš, že by na MS-DOSu nepustil internet ... btw 98 taky jede na DOSu a ma internet "geek" ...

 

snažil sem se rozjet v VMWare MS-Dos s internetem přes NAT ale nešlo to ...

 

 

ps: je to docela trapny ... zajimalo by me jak to checš zavřit když se to da stěži přes system otevřit (ntb) "lol"

Dos sem měl v první třídě asi rok ale nevim jestli je nějákej program v dosu kterym bych se dostal do netu

[癌癌癌 1]

Avest-X":2dgd0erd]

Dos sem měl v první třídě asi rok ale nevim jestli je nějákej program v dosu kterym bych se dostal do netu

 

Sry za OT... http://osdos.net/download/sitwww.php

 

(Ps: když sem byl v prvni třidě už jsme měli XPčka na PC co tu ještě je ... 512MB RAM 1,2Ghz procesor)