SET TALK OFF
SET SAFETY OFF
SET DATE ANSI
SET CENTURY ON
CLEAR
_SCREEN.visible = .F.
PUBLIC handle
DECLARE INTEGER CreateFileMapping IN kernel32.DLL INTEGER, INTEGER, INTEGER, INTEGER, INTEGER, STRING
DECLARE INTEGER GetLastError IN kernel32.DLL
DECLARE INTEGER CloseHandle IN kernel32.DLL INTEGER
szname = "czgl"
handle = CREATEFILEMAPPING(4294967295,0,4,0,128,SZNAME)
IF HANDLE = 0
WAIT WINDOW "CreateFileMapping 失败 - LastError: "+LTRIM(STR(getlasterror()))
RETURN
ENDIF
IF HANDLE = 0
MESSAGEBOX("创建内存映谢文件失败！",0,"错误")
RETURN .F.
ELSE
IF getlasterror() = 183
QUIT
ENDIF
ENDIF
SELECT 1
USE 考题1
PACK
REPLACE 题号 WITH ALLTRIM(STR(RECNO())) ALL
SELECT 1
PUBLIC cx, lb, xlh, xlh1, xlh2, jt, jl, fm2, ctcd, dd, dc, lxc, lxc2, lxc3, lxc4, nanswer, dtfs, jqm, jlbj
PUBLIC ksbh, ksxm, ksxb, kslx, pxdw, yzm, zxlx
cx = ""
lb = ""
xlh = "653567"
xlh1 = "fghj"
xlh2 = "kjgf"
jt = ""
jl = 0
fm2 = ""
ctcd = .F.
dd = 0
dc = 0
nanswer = 0
dtfs = 1
jqm = ""
jlbj = "1"
zxlx = 0
RESTORE FROM xlh1 ADDITIVE
RESTORE FROM dtfs ADDITIVE
RESTORE FROM lxc ADDITIVE
RESTORE FROM lxc2 ADDITIVE
RESTORE FROM lxc3 ADDITIVE
RESTORE FROM lxc4 ADDITIVE
REPLACE 答对 WITH 0 ALL
REPLACE 答错 WITH 0 ALL
REPLACE 实选答案 WITH "" ALL
GOTO TOP
SET SYSMENU OFF
SET STATUS BAR OFF
DO FORM 主菜单
READ EVENTS
SET SYSMENU TO DEFAULT
CLOSE ALL
RETURN
[/ATTACH][/ATTACH]
..用FoxTools反编译失败
