|
網路會員
|
38..大大..你就別推了.傳一份上去別忘了把店名去掉..大家有福疼享.. |
網路會員
|
To ablam 大大
你傳來的壓縮檔其中
PHO.EXE檔案損壞
無法解壓縮是不是檢查一下呢,謝謝
|
網路會員
| |
網路會員
|
破解版.. |
網路會員
|
破解版.. |
新進會員
|
@@ 素喔!!明早傳給你 ...
各位大大加油喔 ... 多多支持喔 !! |
網路會員
|
嘗試使用windows下的DOS模擬或FREEDOS以便避開DOS及倚天中文版權問題
|
論壇版主
|
540928..老大
您是說您的破解版嗎?? |
網路會員
|
Vancouver 大大, 已傳過去了, 您試試
有需要何事情, 都歡迎, 只要我做得到的 ^^ ......
|
網路會員
|
^^* 在網上問了一下, COPY 或破解 KEYPRO 一個要3~5萬 ......
媽媽咪呀 ... 還不如買正版的 ...
Vancouver 大大, 我們的菩薩, 救苦救難 ...
大家艱苦的日子裡, 你是我們的希望 ... |
網路會員
|
努力嘗試中 |
網路會員
| |
網路會員
|
^^* 這個古董 DOS 有點頭痛...只好組一台電腦來試試...
回來台灣了嗎? 如果我搞不定, 考慮寄給你試試 ... |
網路會員
|
這是主程式的部分原始碼
_wEek = DOW(DATE())
toDay = STRTRAN(STR(YEAR(DATE())-1911, 2)+STR(MONTH(DATE()), 2)+ ;
STR(DAY(DATE()), 2), " ", "0")
IF PARAMETERS()<>0
STORE inItvar TO phOpara
ENDIF
IF SYS(2001, "EXCL")="ON"
kkEypro = IIF(EMPTY(keYpro()), .F., .T.)
ELSE
IF FILE("HASPSERV.BIN")
LOAD HASPSERV
kkEypro = IIF(neTlog("IN"), .T., .F.)
ELSE
kkEypro = .F.
ENDIF
ENDIF
SET LIBRARY TO Tfont25
= foNtasc()
SET LIBRARY TO
SET PROCEDURE TO TOOLS
IF phOpara=="SET" .OR. phOpara=="set"
DO paSsys WITH .T.
IF kkEypro
= neTlog("OFF")
ENDIF
CLEAR ALL
RETURN
ENDIF
IF .NOT. FILE("SETTING.SET") .OR. .NOT. FILE("SETPASS.MEM")
DO paSsys WITH .F.
IF kkEypro
= neTlog("OFF")
ENDIF
CLEAR ALL
RETURN
ELSE
RESTORE FROM SETTING.SET ADDITIVE
RESTORE FROM SETPASS ADDITIVE
IF FILE("SETTIME.MEM")
RESTORE FROM SETTIME ADDITIVE
ENDIF
ENDIF
IF .NOT. kkEypro
haNdle = FOPEN("C:\IDING.", 0)
IF haNdle<0
?? CHR(7)+CHR(7)
chKsys = .F.
ELSE
= FSEEK(haNdle, 0)
IF FREAD(haNdle, 7)<>ciTyserino
?? CHR(7)+CHR(7)
chKsys = .F.
ENDIF
ENDIF
= FCLOSE(haNdle)
haNdle = FOPEN(ciTypath+"DOSHELP.HLP", 0)
IF haNdle<0
?? CHR(7)+CHR(7)
chKsys = .F.
ELSE
= FSEEK(haNdle, -4, 2)
IF FREAD(haNdle, 1)<>CHR(255)
?? CHR(7)+CHR(7)
chKsys = .F.
ENDIF
ENDIF
= FCLOSE(haNdle)
|
網路會員
|
ENDIF
CLEAR TYPEAHEAD
ciTytitle = enCrypt(ciTytitle)
ciTyshop = enCrypt(ciTyshop)
ciTymach = enCrypt(ciTymach)
ciTyexe = enCrypt(ciTyexe)
ciTyaddr = enCrypt(ciTyaddr)
ciTyidno = enCrypt(ciTyidno)
ciTyname = enCrypt(ciTyname)
ciTytaxno = enCrypt(ciTytaxno)
SET LIBRARY TO GRAPH25
_eTwidth = geT_width()
_eThigh = geT_leng()
_eT24vga = IIF(geT_width()>640, .T., .F.)
STORE .T. TO prOflag
DO CASE
CASE phOpara="NONO" .OR. phOpara="nono"
CASE LEFT(phOpara, 4)="CMD:" .OR. LEFT(phOpara, 4)="cmd:"
keYbuf = SUBSTR(phOpara, 5, LEN(phOpara)-5)
keYbuf = STRTRAN(keYbuf, "^", CHR(13))
keYbuf = STRTRAN(keYbuf, "|", CHR(27))
KEYBOARD keYbuf
OTHERWISE
= clS(0)
= ttY(CHR(27)+"Im;")
DO neWgraph
= clS(1)
= ttY(CHR(27)+"Im;")
ENDCASE
IF M.seTscr
= ttY(CHR(27)+"ST3,9,3;")
ENDIF
SET LIBRARY TO
FOR i = 1 TO 10
SET FUNCTION i TO
ENDFOR
CLEAR
SET COLOR TO
SET HOURS TO 24
SET CLOCK TO 0, 71
SET CLOCK ON
@ 19, 1 TO 19, 78 COLOR G+/B
@ 20, 0 TO 22, 0 COLOR G+/B
@ 19, 0 SAY "? SIZE 1, 1, 0 COLOR G+/B
@ 19, 79 SAY "? SIZE 1, 1, 0 COLOR G/B
@ 23, 0 SAY "? SIZE 1, 1, 0 COLOR G+/B
@ 23, 1 TO 23, 78 DOUBLE COLOR G/B
@ 20, 79 TO 22, 79 DOUBLE COLOR G/B
@ 23, 79 SAY "? SIZE 1, 1, 0 COLOR G/B
@ 18, 46 SAY "團" COLOR W+/R
@ 18, 48 SAY "結" COLOR W+/RB
@ 18, 50 SAY "快速沖印管理系統 [ ]" COLOR G+/B
IF SYS(2001, "EXCL")="ON"
@ 18, 68 SAY "專業版 9.11" COLOR W+/G
ELSE
@ 18, 68 SAY "網路版 9.11" COLOR W+/GR
ENDIF
IF .NOT. kkEypro .AND. .NOT. chKsys
@ 18, 68 SAY "試用版 9.11" COLOR R+/B
ENDIF
@ 20, 1 SAY ;
"( )銷售 ( )報表 ( )進貨 ( )庫存 ( )應收 ( )資料 ( )維護 ( )發票 " ;
COLOR BG+/B
@ 21, 1 SAY ;
" 系統提供: XXXXXXXXXXX TEL:(02)XXXX-XXXX FAX:(02)XXXX-XXXX " ;
COLOR GR+/B
@ 22, 1 SAY ;
" 本產品智慧財產權屬於XXXXXXXX所有,請尊重維護著作權。『請一機一套』 " ;
COLOR GR+/B
scOl1 = (80-LEN(ciTytitle)-(LEN(ciTytitle)/2-2))/2
FOR i = 1 TO LEN(ciTytitle)/2
@ 1, scOl1+(i-1)*3 SAY SUBSTR(ciTytitle, (i-1)*2+1, 2) |
網路會員
|
ENDFOR
@ 3, 1 TO 17, 78 "? COLOR B+/B
@ 7, 6 SAY "(1) 銷售系統" SIZE 1, 12, 0 COLOR BG+/B
@ 7, 24 SAY "(2) 報表管理" SIZE 1, 12, 0 COLOR BG+/B
@ 7, 43 SAY "(3) 進貨系統" SIZE 1, 12, 0 COLOR BG+/B
@ 7, 61 SAY "(4) 庫存系統" SIZE 1, 12, 0 COLOR BG+/B
@ 13, 6 SAY "(5) 應收帳款" SIZE 1, 12, 0 COLOR BG+/B
@ 13, 24 SAY " 基本資料" SIZE 1, 12, 0 COLOR BG+/B
@ 13, 43 SAY "(7) 資料維護" SIZE 1, 12, 0 COLOR BG+/B
@ 13, 61 SAY " 發票系統" SIZE 1, 12, 0 COLOR BG+/B
@ 5, 5 TO 5, 19 "? COLOR N+/R
@ 9, 4 TO 9, 20 "? COLOR N+/R
@ 5, 4 TO 8, 4 "? COLOR R/R
@ 5, 20 TO 8, 20 "? COLOR R/R
@ 5, 23 TO 5, 37 "? COLOR N+/BG
@ 9, 22 TO 9, 38 "? COLOR N+/BG
@ 5, 22 TO 8, 22 "? COLOR BG/BG
@ 5, 38 TO 8, 38 "? COLOR BG/BG
@ 5, 42 TO 5, 56 "? COLOR N+/G
@ 9, 41 TO 9, 57 "? COLOR N+/G
@ 5, 41 TO 8, 41 "? COLOR G/G
@ 5, 57 TO 8, 57 "? COLOR G/G
@ 5, 60 TO 5, 74 "? COLOR N+/W
@ 9, 59 TO 9, 75 "? COLOR N+/W
@ 5, 59 TO 8, 59 "? COLOR W/W
@ 5, 75 TO 8, 75 "? COLOR W/W
@ 11, 5 TO 11, 19 "? COLOR N+/GR
@ 11, 4 TO 14, 4 "? COLOR GR/GR
@ 15, 4 TO 15, 20 "? COLOR N+/GR
@ 11, 20 TO 14, 20 "? COLOR GR/GR
@ 11, 23 TO 11, 37 "? COLOR N+/RB
@ 11, 22 TO 14, 22 "? COLOR RB/RB
@ 15, 22 TO 15, 38 "? COLOR N+/RB
@ 11, 38 TO 14, 38 "? COLOR RB/RB
@ 11, 42 TO 11, 56 "? COLOR N+/R
@ 15, 41 TO 15, 57 "? COLOR N+/R
@ 11, 41 TO 14, 41 "? COLOR R/R
@ 11, 57 TO 14, 57 "? COLOR R/R
@ 11, 60 TO 11, 74 "? COLOR N+/BG
@ 15, 59 TO 15, 75 "? COLOR N+/BG
@ 11, 59 TO 14, 59 "? COLOR BG/BG
@ 11, 75 TO 14, 75 "? COLOR BG/BG
= NUMLOCK(.T.)
= CAPSLOCK(.T.)
= auTo()
= opEnclass()
|
網路會員
|
DO sq WITH .F.
@ 6, 5 GET opTion1 DEFAULT 0 SIZE 3, 15, 1 PICTURE "@*IVN " VALID ;
suBprg(_CUROBJ) COLOR SCHEME 14
@ 6, 23 GET opTion2 DEFAULT 0 SIZE 3, 15, 1 PICTURE "@*IVN " VALID ;
suBprg(_CUROBJ) COLOR SCHEME 14
@ 6, 42 GET opTion3 DEFAULT 0 SIZE 3, 15, 1 PICTURE "@*IVN " VALID ;
suBprg(_CUROBJ) COLOR SCHEME 14
@ 6, 60 GET opTion4 DEFAULT 0 SIZE 3, 15, 1 PICTURE "@*IVN " VALID ;
suBprg(_CUROBJ) COLOR SCHEME 14
@ 12, 5 GET opTion5 DEFAULT 0 SIZE 3, 15, 1 PICTURE "@*IVN " VALID ;
suBprg(_CUROBJ) COLOR SCHEME 14
@ 12, 23 GET opTion6 DEFAULT 0 SIZE 3, 15, 1 PICTURE "@*IVN " VALID ;
suBprg(_CUROBJ) COLOR SCHEME 14
@ 12, 42 GET opTion7 DEFAULT 0 SIZE 3, 15, 1 PICTURE "@*IVN " VALID ;
suBprg(_CUROBJ) COLOR SCHEME 14
@ 12, 60 GET opTion8 DEFAULT 0 SIZE 3, 15, 1 PICTURE "@*IVN " VALID ;
suBprg(_CUROBJ) COLOR SCHEME 14
ON KEY LABEL F1 DO ShowDoc1
ON KEY LABEL F2 DO ShowSys
ON KEY LABEL F3 DO ShowInit
ON KEY LABEL F4 DO ShowCal
ON KEY LABEL F5 DO ShowTime
ON KEY LABEL F6 DO OpenClass
IF _eT24vga
ON KEY LABEL F7 DO CHGFONT
ENDIF
ON KEY LABEL "V" DO CA12A0
ON KEY LABEL "v" DO CA12A0
ON KEY LABEL "D" DO RUNDOS
ON KEY LABEL "d" DO RUNDOS
ON KEY LABEL "T" DO TRANDBF
ON KEY LABEL F10 DO FoxCOM
ON KEY LABEL 1 DO SUBPRG WITH 1
ON KEY LABEL 2 DO SUBPRG WITH 2
ON KEY LABEL 3 DO SUBPRG WITH 3
ON KEY LABEL 4 DO SUBPRG WITH 4
ON KEY LABEL 5 DO SUBPRG WITH 5
ON KEY LABEL 6 DO SUBPRG WITH 6
ON KEY LABEL 7 DO SUBPRG WITH 7
ON KEY LABEL 8 DO SUBPRG WITH 8
ON KEY LABEL ESC DO SUBPRG WITH 9
READ VALID slEep() TIMEOUT 180 CYCLE |
網路會員
|
因為發文空格限制,將他拆成四篇
寫太詳細可能被封殺 |
網路會員
|
@@ Vancouver大大, 你解出來了喔 ?!
加油!加油!
|
網路會員
|
呵~加油 |
|
|
