虚心请教,想做下个DOS下的密码验证工具,让大家放在启动盘里用,但是做不出来,源码在下面,变量为PASSWORD$ ,求怎么与输入的字符对比,已经定义了一个隐藏的按钮,热键为Enter,事件不知道怎么写,好像还有一种写法, Msgbox KB$, "`请输入登录密码:", PW$,我试了根本就没有输入框,就放弃了,求解,高手在吗,
搞定了我就把字体合并,单独一个文件发出来给大家用,QB做的很多机都用不了,花屏,所以想做一个小的单独用,大家应该也有要的吧
'定义及初始化用户变量区域 ----------------------------
ON ERROR RESUME NEXT
PASSWORD$ = "123"
DO
'桌面定义
'格式: DrawDesktop 提示行开关,桌面颜色,提示行字体颜色,背景色,提示文字$
GetKey -2
IF ExitWin < 2 THEN DrawDesktop 2, 0, 0, 7, "让科技融入生活 用创新点缀人生"
'各表单控件读入区域, 读入各种控件之间用 [=] 表示该种控件读完
SELECT CASE Wins
'22.QWF
CASE 0:
'格式: LoadWindow X,Y,W,H,Font,BC,Box,TC,Caption
LoadWindow 260,121,120,60,10,7,1,1,"请输入管理密码"
RESTORE WIN00
WIN00:
'热键值: Alt+ F1=360 1=376 Q=272 A=286 Z=300
'LoadMenu '读入菜单
'格式: DATA [-,Hotkey,] Enabled,Value,Caption []里的参数为分组用
'DATA -,289,1,0,文件(F)
'DATA 1,0,Menu(1)
'DATA =
'格式: DATA X,Y,W,H,FC,FM,BC,Mode,Caption
LoadFrame 0 '读入框架 是否读入到变量
DATA 0,0,111,32,0,0,4,9,""
DATA =
'格式: DATA X,Y,BW,FW,FH,FC,BC,FM,Style,Caption
LoadLabel 0, 0 '读入标签 是否读入到变量, 背景框
DATA 3,10,0,11,13,0,-1,0,0,"Password:"
DATA =
'格式: DATA X,Y,BW,Enabled,FC,Password,MaxLen,Hotkey,3D
LoadText '读入文本框
DATA 48,6,8,-1,0,-1,50,-1,-2
DATA =
'格式: DATA X,Y,W,H,Enabled,FC,FW,FH,Hotkey,Caption
LoadButton 0 '读入命令按钮 背景框
DATA 0,-3,0,0,-1,0,0,12,13,""
DATA =
END SELECT
IF ExitWin = 0 THEN ProcessLoop '过程循环处理
LOOP
SUB C.ButtonClick (NWin, Inx)
Sel = NWin * 100 + Inx
SELECT CASE Sel
CASE 1: |