질문: 아래 명령어를 초기화 명령어에 쓰고... 데모 프로그램으로 제한 하려고 했거든요...
그런데 문제가 사용 제한 있는 데모 사용 기간 이라고 나온후 프로그램 까진 제대로 동작하는데 프로그램 종료후
다시 실행 시키면 데모 사용 기간이 끝났다고 나옵니다. 왜그럴까요?
실수: 제한설정일,핸들1, 핸들2, 제한,제어일수,년도,월,일,실제년도,실제월뒤,실제월,실제일,수로년도,수로월,수로일,제한설정일나눈값,제한설정일나머지정리한값,제한설정일나머지값,기능설정;
문자: 파일, 실제,문실제년도,문실제월뒤,제한시작일,문실제월,문실제일,월뒤,수년도,수월,수일,시스템파일위치,제한지정일,설정년,설정월,설정일;
/////////////////////////////////////////////////////////////////////////
///////////////설정해주는곳
///////////////아래 기능설정은 1번은 프로그램실행후 데모 기능 적용이구요...
///////////////2번을 하시면 특정기간까지 데모 기능을 적용하게 됩니다.
기능설정:=1;//
제한설정일:=60;//여기에 프로그램실행후 데모 기간을 적으면 됩니다.그러면 모든 설정끝......
///////////////위는 10일 동안으로 설정된 겁니다.
///////////////
제한지정일:="00-00-00";//여기는 특정기간까지 데모 기능을 수행하게하는 설정입니다.
///////////////년-월-일로 써주세요.
설정년:="";//2000년은 00으로 넣어 주세요.....2001년은 01
설정월:="";//1월은 1, 2월은 2....
설정일:="";//1일은 1, 2일은 2.....
///////////////
시스템파일위치:="c:\mettok.sys";//여기는 생성될 시스템파일의 위치를 적어주세요.
///////////////이파일은 프로그램삭제시 함께 삭제 되도록 합시다. 사용자의 용량을 위해..
///////////////그래봤자 10byte입니다.푸하하하하
//////////////////////////////////////////////////////////////////////////////////////////
실제:= 날짜를문(현재시간);
//실제년월일 문자형으로나누기
문실제년도:=문자삭제(실제,3,6);
문실제월뒤:=문자삭제(실제,6,3);
문실제월:=문자삭제(문실제월뒤,1,3);
문실제일:=문자삭제(실제,1,6);
//실제년월일 실수형으로 변화시킴
실제년도:=문을수(문실제년도,100);
실제월뒤:=문을수(문실제월뒤,100);
실제월:=문을수(문실제월,100);
실제일:=문을수(문실제일,100);
//제한날자가 30일을 넘어갈 경우
만일(파일존재여부(시스템파일위치)=거짓){
만일(기능설정=1){
만일(제한설정일>30){
제한설정일나눈값:=제한설정일/30;
제한설정일나머지정리한값:=소반올림(제한설정일나눈값);
제한설정일나머지값:=제한설정일%30;
//제한날짜를 구한다.
만일((실제월 = 01) 또는(실제월 = 03) 또는(실제월 = 05) 또는(실제월 = 07) 또는(실제월 = 08) 또는(실제월 = 10) 또는(실제월 = 12)){//31일이 말일인경우
제어일수:=실제일+제한설정일나머지값;
만일(제어일수>=32){
만일(실제월=12){
년도:=실제년도+1;
월:=1+제한설정일나머지정리한값;
일:=제어일수-31;
}아니면{
년도:=실제년도;
월:=실제월+1+제한설정일나머지정리한값;
일:=제어일수-31;
}
}아니면{
년도:=실제년도;
월:=실제월+제한설정일나머지정리한값;
일:=실제일+제한설정일나머지값;
}
}
아니면 만일((실제월=04) 또는 (실제월=06) 또는(실제월=09) 또는(실제월=11)){//30일이 말일인경우
만일(제어일수>=31){
년도:=실제년도;
월:=실제월+1+제한설정일나머지정리한값;
일:=제어일수-30;
}아니면{
년도:=실제년도;
월:=실제월+제한설정일나머지정리한값;
일:=실제일+제한설정일나머지값;
}
}아니면{ //2월인경우
만일(실제년도%4=0){//윤년일 경우
만일(제어일수>=30){
년도:=실제년도;
월:=실제월+1+제한설정일나머지정리한값;
일:=제어일수-29;
}아니면{
년도:=실제년도;
월:=실제월+제한설정일나머지정리한값;
일:=실제일+제한설정일나머지값;
}
}아니면{//윤년이아닌경우
만일(제어일수>=29){
년도:=실제년도;
월:=실제월+1;
일:=제어일수-28;
}아니면{
년도:=실제년도;
월:=실제월+제한설정일나머지정리한값;
일:=실제일+제한설정일나머지값;
}
}
}
만일((년도>=10) 그리고 (월<10) 그리고 (일<10)){
제한시작일:=수를문(년도)+"-0"+수를문(월)+"-0"+수를문(일);
핸들1 := 파일만들어("c:\mettok.sys");
파일줄써(핸들1, 제한시작일);
파일닫아(핸들1);
}
아니면 만일((년도<10) 그리고 (월>=10) 그리고 (일<10)){
제한시작일:="0"+수를문(년도)+"-"+수를문(월)+"-0"+수를문(일);
핸들1 := 파일만들어("c:\mettok.sys");
파일줄써(핸들1, 제한시작일);
파일닫아(핸들1);
}
아니면 만일((년도<10) 그리고 (월<10) 그리고 (일>=10)){
제한시작일:="0"+수를문(년도)+"-0"+수를문(월)+"-"+수를문(일);
핸들1 := 파일만들어("c:\mettok.sys");
파일줄써(핸들1, 제한시작일);
파일닫아(핸들1);
} 아니면 만일((년도>=10) 그리고 (월>=10) 그리고 (일<10)){
제한시작일:=수를문(년도)+"-"+수를문(월)+"-0"+수를문(일);
핸들1 := 파일만들어("c:\mettok.sys");
파일줄써(핸들1, 제한시작일);
파일닫아(핸들1);
} 아니면 만일((년도<10) 그리고 (월>=10) 그리고 (일>=10)){
제한시작일:="0"+수를문(년도)+"-"+수를문(월)+"-"+수를문(일);
핸들1 := 파일만들어("c:\mettok.sys");
파일줄써(핸들1, 제한시작일);
파일닫아(핸들1);
} 아니면 만일((년도>=10) 그리고 (월>=10) 그리고 (일>=10)){
제한시작일:=수를문(년도)+"-"+수를문(월)+"-"+수를문(일);
핸들1 := 파일만들어("c:\mettok.sys");
파일줄써(핸들1, 제한시작일);
파일닫아(핸들1);
}
문자창보여("이 프로그램은 "+수를문(제한설정일)+ "일동안 사용하실수 있는 데모 버전입니다.");
}
아니면{
//제한날짜를 구한다.
만일((실제월 = 01) 또는(실제월 = 03) 또는(실제월 = 05) 또는(실제월 = 07) 또는(실제월 = 08) 또는(실제월 = 10) 또는(실제월 = 12)){//31일이 말일인경우
제어일수:=실제일+제한설정일;
만일(제어일수>=32){
만일(실제월=12){
년도:=실제년도+1;
월:=01;
일:=제어일수-31;
}아니면{
년도:=실제년도;
월:=실제월+1;
일:=제어일수-31;
}
}아니면{
년도:=실제년도;
월:=실제월;
일:=실제일+제한설정일;
}
}
아니면 만일((실제월=04) 또는 (실제월=06) 또는(실제월=09) 또는(실제월=11)){//30일이 말일인경우
만일(제어일수>=31){
년도:=실제년도;
월:=실제월+1;
일:=제어일수-30;
}아니면{
년도:=실제년도;
월:=실제월;
일:=실제일+제한설정일;
}
}아니면{ //2월인경우
만일(실제년도%4=0){//윤년일 경우
만일(제어일수>=30){
년도:=실제년도;
월:=실제월+1;
일:=제어일수-29;
}아니면{
년도:=실제년도;
월:=실제월;
일:=실제일+제한설정일;
}
}아니면{//윤년이아닌경우
만일(제어일수>=29){
년도:=실제년도;
월:=실제월+1;
일:=제어일수-28;
}아니면{
년도:=실제년도;
월:=실제월;
일:=실제일+제한설정일;
}
}
}
만일((년도>=10) 그리고 (월<10) 그리고 (일<10)){
제한시작일:=수를문(년도)+"-0"+수를문(월)+"-0"+수를문(일);
핸들1 := 파일만들어(시스템파일위치);
파일줄써(핸들1, 제한시작일);
파일닫아(핸들1);
}
아니면 만일((년도<10) 그리고 (월>=10) 그리고 (일<10)){
제한시작일:="0"+수를문(년도)+"-"+수를문(월)+"-0"+수를문(일);
핸들1 := 파일만들어(시스템파일위치);
파일줄써(핸들1, 제한시작일);
파일닫아(핸들1);
}
아니면 만일((년도<10) 그리고 (월<10) 그리고 (일>=10)){
제한시작일:="0"+수를문(년도)+"-0"+수를문(월)+"-"+수를문(일);
핸들1 := 파일만들어(시스템파일위치);
파일줄써(핸들1, 제한시작일);
파일닫아(핸들1);
} 아니면 만일((년도>=10) 그리고 (월>=10) 그리고 (일<10)){
제한시작일:=수를문(년도)+"-"+수를문(월)+"-0"+수를문(일);
핸들1 := 파일만들어(시스템파일위치);
파일줄써(핸들1, 제한시작일);
파일닫아(핸들1);
} 아니면 만일((년도<10) 그리고 (월>=10) 그리고 (일>=10)){
제한시작일:="0"+수를문(년도)+"-"+수를문(월)+"-"+수를문(일);
핸들1 := 파일만들어(시스템파일위치);
파일줄써(핸들1, 제한시작일);
파일닫아(핸들1);
} 아니면 만일((년도>=10) 그리고 (월>=10) 그리고 (일>=10)){
제한시작일:=수를문(년도)+"-"+수를문(월)+"-"+수를문(일);
핸들1 := 파일만들어(시스템파일위치);
파일줄써(핸들1, 제한시작일);
파일닫아(핸들1);
}
문자창보여("이 프로그램은 "+수를문(제한설정일)+ "일동안 사용하실수 있는 데모 버전입니다.");
}}
아니면{ 제한시작일:=제한지정일;
핸들1 := 파일만들어(시스템파일위치);
파일줄써(핸들1, 제한시작일);
파일닫아(핸들1);
문자창보여("이 프로그램은 20"+설정년+"년"+설정월+"월"+설정일+ "일까지 사용하실수 있는 데모 버전입니다.");
}
}아니면{
핸들2 := 파일열어(시스템파일위치, ㅍㅇ읽기 +ㅍㅇ쓰기금지);
파일:=파일읽어(핸들2, 10);
수년도:=문자삭제(파일, 3,6);
월뒤:=문자삭제(파일, 6,3);
수월:=문자삭제(월뒤,1,3);
수일:=문자삭제(파일,1,6);
문자:개행제거년,개행제거월,개행제거일;
개행제거년:=문자삭제(수년도, 3, 4);
개행제거월:=문자삭제(수월,3,4);
개행제거일:=문자삭제(수일,3,4);
수로년도:=문을수(개행제거년,100);
수로월:=문을수(개행제거월,100);
수로일:=문을수(개행제거일,100);
만일((수로년도<실제년도) 또는 (수로월<실제월) 또는 (수로일<실제일)){
문자창보여("데모 버전 사용 기간이 끝났습니다.");끝내;
}아니면{
만일(기능설정=1){
문자창보여("이 프로그램은 20"+수를문(제한설정일)+ "일동안 사용하실수 있는 데모 버전입니다.");
}아니면{문자창보여("이 프로그램은 "+설정년+"년"+설정월+"월"+설정일+ "일까지 사용하실수 있는 데모 버전입니다.");}
}
}
|
|
