Macho Posted August 11, 2008 Share Posted August 11, 2008 Hello! I have a problem with CDShell... it will not boot on some computers... better... in som CD/DVD drives!here is my code... it could be in it? Oh... sorry... it's in slovene...# cdshell.cds# Nastavitev za cas pred zagonom z diska (v sekundah)set counter = 6clsprint "Pritisni tipko za zagon s CDja"# Cakanje na tipko ali pa boot z diskaboot:set counter = $counter - 1print "."if $counter == 0; Then goto nobootgetkey 1 goto boot# Klic okvirjanoboot:# Nastavitev glavnega menija# Tukaj se lahko nastavi potrebne parametreset textColor = color[brightgreen on black]set titleColor = color[yellow on blue]set helloColor = color[white on black]set opisColor = color[brightgreen on black]set menuColor = color[yellow on black]set normalColor = color[brightgrey on black]set clockColor = color[brightgrey on black]set selColor = color[brightred on black]set Selected = 1set menu = 0script script/okvir.cds# script script/menu.iniend# script/okvir.cds# startupfont fonts/cp852.f16set monthCheck = $dateMonthset lastkey=key[y]set verzija="Ver. 1.01"set datum="5.4.2007"set avtor="Bostjan Bele, TK Celje"set menuCursorBegin = 7set opisCursorBegin = 22set helloCursorBegin = 3set title="Multi CD Windows XP"set copyright="Multi CD je ustvaril $avtor dne $datum"set opis="Tipka <ESC> za restart, <> ali <> za premik in <ENTER> za izbiro"cls# Risanje menijaset lines=25okvir:# Izpis naslovatitle:set textCursorY = 1set textColor=$normalColorprint c "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"set textColor = $titleColorprint c " $title $verzija "# Nastavitev kurzorja in barve za komandeset textCursorY = $opisCursorBegin-2set textCursorX = 0set textColor = $normalColorprint c "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"# Izpis avtorske vrstice;)set textCursorY = $opisCursorBegin-2set textCursorX = 0print c "[$copyright]"# Nekje mora prit se opis (na dnu;))set textCursorY=$linesset textCursorX = 0set textColor=$normalColorprint c "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"print c "[$opis]"# Treba se je odlocit kateri meni naj nalozimo;)if ($menu == 0); then script script/menu0.cdsif ($menu == 1); then script script/menu1.cdsgoto okvir# script/menu0.cds# prvi meniset comms = 4 # Nastavimo stevilo komandset comm1 = "Nalozi Windows XP SP2"set opis1 = "Instalacija programa Windows XP SP2 z nekaterimi nujnimi programi."set comm2 = "Password cracker"set opis2 = "Ste pozabili vase geslo? Tale program vam pomaga nastaviti drugega!"set comm3 = "MemTest"set opis3 = "To je program Memtest86+ ver. 1.65, ki testira delovni spomin."set comm4 = "DocMemory"set opis4 = "To je program DocMemory ver. 3.1 beta, ki testira delovni spomin."set katmenu = "Glavni meni"menu:# Izpis pozdravne vrsticeset textCursorY = $helloCursorBeginset textColor = $helloColorprint c "$katmenu"set textColor = $menuColorset textCursorY = $menuCursorBegin-1# Tukaj se pa zacnejo komandecommz:set textCursorY=$textCursorY+1print c " $comm1 "set textCursorY=$textCursorY+2print c " $comm2 "set textCursorY=$textCursorY+1print c " $comm3 "set textCursorY=$textCursorY+1print c " $comm4 "# OznacitevselectedComm:set textColor=$opisColorset textCursorY=$opisCursorBegincall cleanprint c "$(opis$Selected)"set textCursorY=$menuCursorBegin-1+$Selectedif ($Selected > 1); then set textCursorY = $textCursorY+1set textColor=$selColorprint c "-=[ $(comm$Selected) ]=-"# Izpis casaset textColor= $clockColorura:# Function to display datedate:if ($dateMonth != $monthCheck); Then script script\okvir.cds # Pri spremembi meseca moramo povozit tekst z okvirjemset month = "$dateMonth\."if $dateMonth == 1; then set month = "Januar"if $dateMonth == 2; then set month = "Februar"if $dateMonth == 3; then set month = "Marec"if $dateMonth == 4; then set month = "April"if $dateMonth == 5; then set month = "Maj"if $dateMonth == 6; then set month = "Junij."if $dateMonth == 7; then set month = "Julij"if $dateMonth == 8; then set month = "Avgust"if $dateMonth == 9; then set month = "Septebmer"if $dateMonth == 10; then set month = "Oktober"if $dateMonth == 11; then set month = "November"if $dateMonth == 12; then set month = "December"set textCursorX= 0set textCursorY= 0print l " $dateDay\. $month $dateYear"print r "$timeHour:$timeMinute:$timeSecond "getkey 1 goto ura# Cakamo na pritisnjeno tipkotipka:if ($lastkey == key[down]); then goto downif ($lastkey == key[up]); then goto upif ($lastkey == key[enter]); then goto SelEnterif ($lastkey == key[f1]); then goto f1if ($lastkey == key[f2]); then goto f2if ($lastkey == key[esc]); then reboot# if ($lastkey == key[space]); then exitgoto menu# Tipka F1 (sprememba barv;))f1:set textColor = color[brightgreen on blue]set titleColor = color[yellow on red]set helloColor = color[white on blue]set opisColor = color[brightgreen on blue]set menuColor = color[yellow on blue]set normalColor = color[brightblue on blue]set clockColor = color[brightgrey on blue]set selColor = color[brightred on blue]script script/okvir.cds# Tipka F2 (druga barvna tema)f2:set textColor = color[brightgreen on black]set titleColor = color[yellow on blue]set helloColor = color[white on black]set opisColor = color[brightgreen on black]set menuColor = color[yellow on black]set normalColor = color[brightgrey on black]set clockColor = color[brightgrey on black]set selColor = color[brightred on black]script script/okvir.cds# Tipka doldown:set Selected=$Selected+1if ($Selected > $comms); then set Selected=1set lastkey=key[y]goto menu# Tipka gorup:set Selected=$Selected-1if ($Selected < 1); then set Selected=$commsset lastkey=key[y]goto menu# Koncno se nekaj zgodi ko stisnemo <ENTER>SelEnter:font defaultif ($Selected == 1); then goto menu1if ($Selected == 2); then diskemu bootz/passwdxp.isoif ($Selected == 3); then memtestif ($Selected == 4); then cls; then bcdw boot bootz\docmem.binset lastkey=key[y]goto menumenu1:set menu = 1set Selected = 1script script/okvir.cdsendclean:set textCursorX=0print c " "set textCursorY=$textCursorY-1returnscript/menu1.cds# Windows meniset comms = 3 # Nastavimo stevilo komandset comm1 = "Avtomatsko nalozi Windows"set opis1 = "Avtomatska instalacija Windows XP SP2 + Slo MUI + M$ Office 2003"set comm2 = "Normalno nalozi Windows"set opis2 = "Instalacija Windows XP SP2 na klasicen nacin."set comm3 = "NAZAJ"set opis3 = "Vrnitev v glavni meni"set katmenu = "Instalacija Windows XP meni"menu:# Izpis pozdravne vrsticeset textCursorY = $helloCursorBeginset textColor = $helloColorprint c "$katmenu"set textColor = $menuColorset textCursorY = $menuCursorBegin-1# Tukaj se pa zacnejo komandecommz:set textCursorY=$textCursorY+1print c " $comm1 "set textCursorY=$textCursorY+1print c " $comm2 "set textCursorY=$textCursorY+2print c " $comm3 "# OznacitevselectedComm:set textColor = $opisColorset textCursorY = $opisCursorBegincall cleanprint c "$(opis$Selected)"set textCursorY = $menuCursorBegin-1+$Selectedif ($Selected > 2) then set textCursorY = $textCursorY+1set textColor=$selColorprint c "-=[ $(comm$Selected) ]=-"# Izpis casaset textColor = $clockColorura:# Function to display datedate:if ($dateMonth != $monthCheck); Then script script\okvir.cds # Pri spremembi meseca moramo povozit tekst z okvirjemset month = "$dateMonth\."if $dateMonth == 1; then set month = "Januar"if $dateMonth == 2; then set month = "Februar"if $dateMonth == 3; then set month = "Marec"if $dateMonth == 4; then set month = "April"if $dateMonth == 5; then set month = "Maj"if $dateMonth == 6; then set month = "Junij."if $dateMonth == 7; then set month = "Julij"if $dateMonth == 8; then set month = "Avgust"if $dateMonth == 9; then set month = "Septebmer"if $dateMonth == 10; then set month = "Oktober"if $dateMonth == 11; then set month = "November"if $dateMonth == 12; then set month = "December"set textCursorX = 0set textCursorY = 0print l " $dateDay\. $month $dateYear"print r "$timeHour:$timeMinute:$timeSecond "getkey 1 goto ura# Cakamo na pritisnjeno tipkotipka:if ($lastkey == key[down]); then goto downif ($lastkey == key[up]); then goto upif ($lastkey == key[enter]); then goto SelEnterif ($lastkey == key[f1]); then goto f1if ($lastkey == key[f2]); then goto f2if ($lastkey == key[esc]); then reboot# if ($lastkey == key[space]); then exitgoto menu# Tipka F1 (sprememba barv;))f1:set textColor = color[brightgreen on blue]set titleColor = color[yellow on red]set helloColor = color[white on blue]set opisColor = color[brightgreen on blue]set menuColor = color[yellow on blue]set normalColor = color[brightblue on blue]set clockColor = color[brightgrey on blue]set selColor = color[brightred on blue]script script/okvir.cds# Tipka F2 (druga barvna tema)f2:set textColor = color[brightgreen on black]set titleColor = color[yellow on blue]set helloColor = color[white on black]set opisColor = color[brightgreen on black]set menuColor = color[yellow on black]set normalColor = color[brightgrey on black]set clockColor = color[brightgrey on black]set selColor = color[brightred on black]script script/okvir.cds# Tipka doldown:set Selected = $Selected+1if ($Selected > $comms) then set Selected = 1set lastkey = key[y] # Da ne pritiska vedno tipke DOLgoto menu# Tipka gorup:set Selected = $Selected-1if ($Selected < 1) then set Selected = $commsset lastkey = key[y] # Da ne pritiska vedno tipke GORgoto menu# Koncno se nekaj zgodi ko stisnemo <ENTER>SelEnter:font defaultif ($Selected == 1); then chain bootz\PRO1.DATif ($Selected == 2); then chain bootz\PRO2.DATif ($Selected == 3); then goto nazajset lastkey = key[y] # Da ne pritiska vedno tipke ENTERgoto menunazaj:set menu = 0set Selected = 1script script/okvir.cdsendclean:set textCursorX = 0print c " "set textCursorY = $textCursorY-1returnok... sorry again... it's in slovene... but i think it's understandable... a code is a code it runs in VM, Virtual PC and Vurtual box...PLEASE help...BB Link to comment Share on other sites More sharing options...
AIX Posted August 14, 2008 Share Posted August 14, 2008 That concretely does not work( what message is put to output )? understand? Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now