按大侠们的方法,脱壳反编译后,得主文件,打开如下:
with _screen
.caption = "XX软件,完美服务"
.backcolor = RGB(255,255,255)
.icon = "ty.ico"
.closable = .f.
windowstate = 2
endwith
set talk off
close all
set escape off
set optimize on
set safety off
set sysmenu off
set display to cga
set cursor off
set exact on
set help on
set default to \XTY04YB
do huifu
aa_1 = "0"
use begin
goto 1
if BEGIN = "0"
@ 10,5 say " 本程序已经运行,或上一次运行时中间不正常退出," font "宋体",10
@ 11,5 say " 如果已经运行请按'0'退出本次运行 否则按'1'继续运行" font "宋体",10 color rgb(255,0,0,),,, get aa_1
@ 12,5 say " 这个情况大部分是由于程序已经运行,您如果没法判断可以先退出试试" font "宋体",10
@ 14,5 say "***一般多次运行是由于操作过急,多次点图标,所以操作时双击图标后稍等一下***" font "宋体",10
read
if AA_1 = "0"
quit
endif
endif
goto 1
replace begin with "0"
if not FILE("CP.DBF")
use \XTY04YB\BACKFILE\CP.DBF
copy to \XTY04YB\CP.DBF
endif
if not FILE("MIMA.DBF")
use \XTY04YB\BACKFILE\MIMA.DBF
copy to \XTY04YB\MIMA.DBF
endif
if not FILE("PRINT.DBF")
use \XTY04YB\BACKFILE\PRINT.DBF
copy to \XTY04YB\PRINT.DBF
endif
if not FILE("MING2.DBF")
use \XTY04YB\BACKFILE\MING2.DBF
copy to \XTY04YB\MING2.DBF
endif
if not FILE("MING.DBF")
use \XTY04YB\BACKFILE\MING.DBF
copy to \XTY04YB\MING.DBF
endif
if not FILE("TITLE1.DBF")
use \XTY04YB\BACKFILE\TITLE1.DBF
copy to \XTY04YB\TITLE1.DBF
endif
select 1
use MIMA
goto 1
if MIMA = SPACE(8)
do form ZHU
endif
if MIMA <> SPACE(8)
set cursor on
do form JIN
endif
read events
set sysmenu to default
clear all
close all
close databases
use \XTY04YB\BAS1\CLD
recall all
use \XTY04YB\BAS2\CLD
recall all
close databases
_screen.closable = .t.
