文本保存账号密码 可以每行保存一组~xxx,123 类似这样
用open "" for input as #1 打开文本 每行读取 将每行内容存在二维数组变量中如 dim a(100,1) 当然也可以用动态定义数组~账号密码中间有,号分隔可以用temp=split(字符串,",")将其分隔后存入a对应元素中已有的账号密码都存入变量中 a(0,0)=temp(0) a(0,1)=temp(1)
a(0,0)存第一组的账号 a(0,1)存密码 a(1,0)第二组账号。。类推~这样可以存101组
你在用for循环对比text在a中是否有此账号 假设a(2,0)中字符=text 就定义一个全局布尔变量~相等就赋值为真~点击登陆时 用if判断这个布尔变量真假~为真再去对比密码~就是a(2,1)这个元素是否与输入密码相同
这么明白应该会写了吧~