Originally posted by electronixtar at 2006-7-1 20:42:
给大家两个线索:
http://www.cn-dos.net/forum/viewthread.php?tid=9682&fpage=1&highlight=&page=1
http://www.cn-dos.net/forum/viewthread.php?tid=9732&fpag ... 你好厉害,都查到人家老底了! 楼主只是一种玩法而已,大家干嘛都责怪他,只好留一个迷了!
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
Originally posted by electronixtar at 2006-7-1 20:42:
给大家两个线索:
http://www.cn-dos.net/forum/viewthread.php?tid=9682&fpage=1&highlight=&page=1
http://www.cn-dos.net/forum/viewthread.php?tid=9732&fpag ... 你好厉害,都查到人家老底了! 楼主只是一种玩法而已,大家干嘛都责怪他,只好留一个迷了!
Originally posted by zjnbwdj at 2006-7-2 17:21:
呵,应该算是大侦探的作风,还是归为狗仔队的行列呢?



Originally posted by lisa888 at 2006-10-13 21:28:
EXE文件在其内部是有一个参数可以算到自身的长度的,在《DOS编程参考》中说明,根据文件的长度,然后分开就可以了,我想大家写一个软件应该是沠...
'QuickBASIC Program
DIM I,J$,K,L
PRINT "Spilt from copied file ";COMMAND$;"?"
OPEN LTRIM$(RTRIM$(COMMAND$)) FOR BINARY AS #1
DO UNTIL EOF(1)
GET 1,,I
GET 1,,L
I=I+L*256
INPUT "File Name:",J$
OPEN LTRIM$(RTRIM$(J$)) FOR BINARY AS #2
FOR K=1 TO I
GET 1,,I
PUT 2,,I
NEXT
CLOSE #2
LOOP
CLOSE #1
PRINT "DONE."
END
'QuickBASIC Program
DIM SIZES,C
TRIMCMD$=LTRIM$(RTRIM$(COMMAND$))
OPEN TRIMCMD$ FOR BINARY AS #1
SIZES=LOF(1)
CLOSE
OPEN LEFT$(TRIMCMD$,LEN(TRIMCMD$)-3) FOR BINARY AS #1
C=SIZES AND 255
PUT 1,,C
C=(SIZES AND 65280)\256
PUT 1,,C
CLOSE
END