kane1998 Odesláno Květen 8, 2009 Nahlásit Odesláno Květen 8, 2009 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
0 407sw Odesláno Květen 8, 2009 Nahlásit Odesláno Květen 8, 2009 co jsem videl na netu tak to nebyl program ale script
0 Dutch Odesláno Květen 8, 2009 Nahlásit Odesláno Květen 8, 2009 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:
0 KubaCZ912 Odesláno Květen 8, 2009 Nahlásit Odesláno Květen 8, 2009 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...
0 AlexXx Odesláno Květen 8, 2009 Nahlásit Odesláno Květen 8, 2009 joo pořádně to nejdřív otestuj ! Jn a místo toho x dej tak 100:lol:.
0 kane1998 Odesláno Květen 8, 2009 Autor Nahlásit Odesláno Květen 8, 2009 buď sem debil nebo newim nemohl by mně někdo dát přesnej návod za to můžu nabidnout THX
0 Dutch Odesláno Květen 8, 2009 Nahlásit Odesláno Květen 8, 2009 vezmeš ten text. Dáš ho do texťáku, ale neuložíš ho jako .TXT ale jako .VBS
0 kane1998 Odesláno Květen 8, 2009 Autor Nahlásit Odesláno Květen 8, 2009 hmm tak já tam nic tokovýho nemam
0 Dutch Odesláno Květen 8, 2009 Nahlásit Odesláno Květen 8, 2009 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 :/
0 sasán Odesláno Květen 8, 2009 Nahlásit Odesláno Květen 8, 2009 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 ?
0 En3mY Odesláno Květen 8, 2009 Nahlásit Odesláno Květen 8, 2009 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:
0 Dutch Odesláno Květen 8, 2009 Nahlásit Odesláno Květen 8, 2009 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. :)
0 sasán Odesláno Květen 8, 2009 Nahlásit Odesláno Květen 8, 2009 dutch dík moc :) nasral sem tak pulku tridy :D fakt mazec
0 †mefistos† Odesláno Květen 8, 2009 Nahlásit Odesláno Květen 8, 2009 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
0 Dutch Odesláno Květen 8, 2009 Nahlásit Odesláno Květen 8, 2009 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.
0 †mefistos† Odesláno Květen 8, 2009 Nahlásit Odesláno Květen 8, 2009 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
0 kane1998 Odesláno Květen 9, 2009 Autor Nahlásit Odesláno Květen 9, 2009 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
0 vojta69 Odesláno Květen 9, 2009 Nahlásit Odesláno Květen 9, 2009 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š?
0 VojtiQ Odesláno Květen 9, 2009 Nahlásit Odesláno Květen 9, 2009 Ja mam script i na restartovani a vypnuti pocitace:D:D:D:D:D
0 †mefistos† Odesláno Květen 9, 2009 Nahlásit Odesláno Květen 9, 2009 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
0 kgsws Odesláno Květen 9, 2009 Nahlásit Odesláno Květen 9, 2009 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)
Otázka
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
22 odpovědí na tuto otázku
Recommended Posts