Jump to content

Welcome to MSFN Forum
Register now to gain access to all of our features. Once registered and logged in, you will be able to create topics, post replies to existing threads, give reputation to your fellow members, get your own private messenger, post status updates, manage your profile and so much more. This message will be removed once you have signed in.
Login to Account Create an Account


Photo

CDShell PROBLEM!

- - - - -

  • Please log in to reply
1 reply to this topic

#1
Macho

Macho
  • Member
  • 3 posts
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 = 6

cls
print "Pritisni tipko za zagon s CDja"

# Cakanje na tipko ali pa boot z diska
boot:

set counter = $counter - 1
print "."
if $counter == 0; Then goto noboot
getkey 1 goto boot

# Klic okvirja
noboot:

# Nastavitev glavnega menija
# Tukaj se lahko nastavi potrebne parametre

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]

set Selected	= 1
set menu	= 0

script script/okvir.cds

# script script/menu.ini

end

# script/okvir.cds
# startup

font fonts/cp852.f16

set monthCheck	= $dateMonth
set lastkey=key[y]

set verzija="Ver. 1.01"
set datum="5.4.2007"
set avtor="Bostjan Bele, TK Celje"

set menuCursorBegin = 7
set opisCursorBegin = 22
set helloCursorBegin = 3

set 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 menija
set lines=25

okvir:

# Izpis naslova
title:
set textCursorY = 1
set textColor=$normalColor
print c "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"
set textColor = $titleColor
print c " $title $verzija "

# Nastavitev kurzorja in barve za komande
set textCursorY = $opisCursorBegin-2
set textCursorX = 0
set textColor = $normalColor
print c "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"

# Izpis avtorske vrstice;)
set textCursorY = $opisCursorBegin-2
set textCursorX = 0
print c "[$copyright]"

# Nekje mora prit se opis (na dnu;))
set textCursorY=$lines
set textCursorX = 0
set textColor=$normalColor
print c "ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"
print c "[$opis]"

# Treba se je odlocit kateri meni naj nalozimo;)
if ($menu == 0); then script script/menu0.cds
if ($menu == 1); then script script/menu1.cds

goto okvir

# script/menu0.cds
# prvi meni

set comms	= 4			# Nastavimo stevilo komand

set 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 vrstice
set textCursorY = $helloCursorBegin
set textColor = $helloColor
print c "$katmenu"

set textColor = $menuColor
set textCursorY = $menuCursorBegin-1

# Tukaj se pa zacnejo komande
commz:

set textCursorY=$textCursorY+1
print c "	$comm1	"

set textCursorY=$textCursorY+2
print c "	$comm2	"

set textCursorY=$textCursorY+1
print c "	$comm3	"

set textCursorY=$textCursorY+1
print c "	$comm4	"

# Oznacitev
selectedComm:
set textColor=$opisColor
set textCursorY=$opisCursorBegin
call clean
print c "$(opis$Selected)"
set textCursorY=$menuCursorBegin-1+$Selected
if ($Selected > 1); then set textCursorY = $textCursorY+1
set textColor=$selColor
print c "-=[ $(comm$Selected) ]=-"

# Izpis casa
set textColor= $clockColor

ura:

# Function to display date
date:
if ($dateMonth != $monthCheck); Then script script\okvir.cds	# Pri spremembi meseca moramo povozit tekst z okvirjem

set 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= 0
set textCursorY= 0
print l " $dateDay\. $month $dateYear"
print r "$timeHour:$timeMinute:$timeSecond "
getkey 1 goto ura

# Cakamo na pritisnjeno tipko
tipka:
if ($lastkey == key[down]); then goto down
if ($lastkey == key[up]); then goto up
if ($lastkey == key[enter]); then goto SelEnter
if ($lastkey == key[f1]); then goto f1
if ($lastkey == key[f2]); then goto f2
if ($lastkey == key[esc]); then reboot

# if ($lastkey == key[space]); then exit

goto 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 dol
down:
set Selected=$Selected+1
if ($Selected > $comms); then set Selected=1
set lastkey=key[y]
goto menu

# Tipka gor
up:
set Selected=$Selected-1
if ($Selected < 1); then set Selected=$comms
set lastkey=key[y]
goto menu

# Koncno se nekaj zgodi ko stisnemo <ENTER>
SelEnter:
font default
if ($Selected == 1);	then goto menu1
if ($Selected == 2);	then diskemu bootz/passwdxp.iso
if ($Selected == 3);	then memtest
if ($Selected == 4);	then cls;	then bcdw boot bootz\docmem.bin

set lastkey=key[y]
goto menu

menu1:

set menu	= 1
set Selected	= 1
script script/okvir.cds

end

clean:
set textCursorX=0
print c "																				"
set textCursorY=$textCursorY-1
return

script/menu1.cds
# Windows meni

set comms	= 3			# Nastavimo stevilo komand

set 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 vrstice
set textCursorY = $helloCursorBegin
set textColor = $helloColor
print c "$katmenu"

set textColor	= $menuColor
set textCursorY	= $menuCursorBegin-1

# Tukaj se pa zacnejo komande
commz:

set textCursorY=$textCursorY+1
print c "	$comm1	"

set textCursorY=$textCursorY+1
print c "	$comm2	"

set textCursorY=$textCursorY+2
print c "	$comm3	"

# Oznacitev
selectedComm:
set textColor	= $opisColor
set textCursorY	= $opisCursorBegin
call clean

print c "$(opis$Selected)"
set textCursorY	= $menuCursorBegin-1+$Selected
if ($Selected > 2)
	then set textCursorY	= $textCursorY+1
set textColor=$selColor
print c "-=[ $(comm$Selected) ]=-"

# Izpis casa
set textColor	= $clockColor

ura:

# Function to display date
date:
if ($dateMonth != $monthCheck); Then script script\okvir.cds	# Pri spremembi meseca moramo povozit tekst z okvirjem

set 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	= 0
set textCursorY	= 0
print l " $dateDay\. $month $dateYear"
print r "$timeHour:$timeMinute:$timeSecond "

getkey 1 goto ura

# Cakamo na pritisnjeno tipko
tipka:
if ($lastkey == key[down]); then goto down
if ($lastkey == key[up]); then goto up
if ($lastkey == key[enter]); then goto SelEnter
if ($lastkey == key[f1]); then goto f1
if ($lastkey == key[f2]); then goto f2
if ($lastkey == key[esc]); then reboot

# if ($lastkey == key[space]); then exit

goto 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 dol
down:
set Selected	= $Selected+1
if ($Selected > $comms)
	then set Selected	= 1
set lastkey	= key[y]				# Da ne pritiska vedno tipke DOL
goto menu

# Tipka gor
up:
set Selected	= $Selected-1
if ($Selected < 1)
	then set Selected	= $comms
set lastkey	= key[y]				# Da ne pritiska vedno tipke GOR
goto menu

# Koncno se nekaj zgodi ko stisnemo <ENTER>
SelEnter:
font default
if ($Selected == 1); then chain bootz\PRO1.DAT
if ($Selected == 2); then chain bootz\PRO2.DAT
if ($Selected == 3); then goto nazaj

set lastkey	= key[y]				# Da ne pritiska vedno tipke ENTER
goto menu

nazaj:
set menu	= 0
set Selected	= 1
script script/okvir.cds

end

clean:
set textCursorX	= 0
print c "																				"
set textCursorY	= $textCursorY-1
return

ok... sorry again... it's in slovene... but i think it's understandable... a code is a code :D

it runs in VM, Virtual PC and Vurtual box...

PLEASE help...

BB


How to remove advertisement from MSFN

#2
AIX

AIX
  • Member
  • 4 posts
That concretely does not work( what message is put to output )? understand?

:)




0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users



How to remove advertisement from MSFN