利用硬盘驱动器号制作防扩散FOXPRO程序
11-08 12:39:07软件技巧
浏览次数:886次
标签:软件技巧大全,http://www.duosi8.com
利用硬盘驱动器号制作防扩散FOXPRO程序,
程序分2个部份:
一、设置合法使用者硬盘驱动器程序SET.PRG
二、检测运行程序的当前硬盘驱动器号TEST.PRG
***SET.PRG***
SET TALK OFF
!DIR >N.TXT
USE DRIVE.DBF
ZAPAPPE FROM N.TXT SDF
DELE FILE N.TXT
***TEST.PRG***
SET TALK OFF
USE DRIVE
COPY TO DRIVTTMP
GO 3
A=RIGH(ALLT(DRIVE),LEN(ALLT(DRIVE))-24)
USE DRIVETMP
ZAP
!DIR >N.TXT
APPE FROM N.TXT SDF
GO 3
B=RIGH((ALLT(DRIVE),LEN(ALLT(DRIVE)-24)
DELE FILE N.TXT
DELE FILE DRIVETMP.DBF
IF A=B
SET COLOR TO /N
@10,36 CLEAR TO 13,54
SET COLOR TO +G/GB
@11,38 CLEAR TO 14,56
@12,40 SAY `您为合法用户,'
@13,40 SAY `按任意键继续……'
S=INKEY(0)
DO MAIN
ELSE
SET COLOR TO /N
@10,36 CLEAR TO 13,54
SET COLOR TO +G/R
@11,38 CLEAR TO 14,56
@12,40 SAY `您为非法用户,'
@13,40 SAY `按任意键继续……'
S=INKEY(0)
QUIT
ENDIF
备注:1.程序中涉及的数据库DRIVE.DBF与DRIVETMP.DBF结构为‘DRIVE.C 50'DRIVETMP.DBF为过渡数据库,DRIVE.DBF为存放硬盘驱动信息的数据库。2.程序设MAIN.PRG为用户的主程序。
程序分2个部份:
一、设置合法使用者硬盘驱动器程序SET.PRG
二、检测运行程序的当前硬盘驱动器号TEST.PRG
***SET.PRG***
SET TALK OFF
!DIR >N.TXT
USE DRIVE.DBF
ZAPAPPE FROM N.TXT SDF
DELE FILE N.TXT
***TEST.PRG***
SET TALK OFF
USE DRIVE
COPY TO DRIVTTMP
GO 3
A=RIGH(ALLT(DRIVE),LEN(ALLT(DRIVE))-24)
USE DRIVETMP
ZAP
!DIR >N.TXT
APPE FROM N.TXT SDF
GO 3
B=RIGH((ALLT(DRIVE),LEN(ALLT(DRIVE)-24)
DELE FILE N.TXT
DELE FILE DRIVETMP.DBF
IF A=B
SET COLOR TO /N
@10,36 CLEAR TO 13,54
SET COLOR TO +G/GB
@11,38 CLEAR TO 14,56
@12,40 SAY `您为合法用户,'
@13,40 SAY `按任意键继续……'
S=INKEY(0)
DO MAIN
ELSE
SET COLOR TO /N
@10,36 CLEAR TO 13,54
SET COLOR TO +G/R
@11,38 CLEAR TO 14,56
@12,40 SAY `您为非法用户,'
@13,40 SAY `按任意键继续……'
S=INKEY(0)
QUIT
ENDIF
备注:1.程序中涉及的数据库DRIVE.DBF与DRIVETMP.DBF结构为‘DRIVE.C 50'DRIVETMP.DBF为过渡数据库,DRIVE.DBF为存放硬盘驱动信息的数据库。2.程序设MAIN.PRG为用户的主程序。
,利用硬盘驱动器号制作防扩散FOXPRO程序
- ·上一篇:网站在百度谷歌中找不到
- ·下一篇:多媒体升级时常见故障的处理
热门推荐
- · 为何QQ总弹出安全登录验证2则
- · 多媒体升级时常见故障的处理
- · 利用硬盘驱动器号制作防扩散FOXPRO程序
- · 高速视频转换借力CUDA
- · 在KMPlayer中手动切换解码器
- · 如何突破IP加MAC绑定
- · 如何让ACDSee成为默认的图片浏览器
- · SnagIt连续抓以多个窗口
- · SnagIt直接截取灰度图片
- · Nero快速制作精美的光盘封面
- · 完美卸载XP快速卸载顽固软件
- · VoptXP测试驱动器性能
- · VirturlDriver让虚拟光驱开机时自动加载
- · 通过递归调用来搜索文件
- · AutoCAD复制粘贴图纸导致死机
- · 监控软件导致QQ无法登录
- · 提高WindowsXP启动速度的方法
- · Office 2007无法正常卸载怎么办
- · 如何用批处理一次建立或删除多个目录
- · 教你Windows百毒不侵的13个妙招
- · ATI显卡在线看电影时花屏应该如何解决