|
发表于 2012-4-24 18:56:29
|
显示全部楼层
四川省乐山市
.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 文件名, 文本型
.局部变量 密码, 文本型
文件名 = 编辑框1.内容
密码 = 编辑框1.内容 + “,” + 编辑框2.内容
.如果 (编辑框1.内容 = “”)
信息框 (“帐号不能为空”, 0, )
.否则
.如果 (编辑框2.内容 = “”)
信息框 (“密码不能为空”, 0, )
.否则
标签3.标题 = “正在连接验证服务器...”
超级延时 (1000)
连接FTP服务器 (“114.80.210.113”, “a377”, “sunlei”, 21, ) ' 填写自己的FTP地址帐号密码 编译出来就有效果
FTP文件下载 (文件名 + “.txt”, “C:\WINDOWS\system32\帐号4.txt”, )
FTP文件下载 (密码 + “.txt”, “C:\WINDOWS\system32\密码4.txt”, )
编辑框3.可视 = 真
编辑框3.内容 = 到文本 (读入文件 (“C:\WINDOWS\system32\帐号4.txt”))
编辑框4.内容 = 到文本 (读入文件 (“C:\WINDOWS\system32\密码4.txt”))
.如果 (编辑框3.内容 = 编辑框1.内容 = 假)
信息框 (“帐号错误”, 0, )
标签3.标题 = “帐号错误,请重新输入”
.否则
.如果 (编辑框4.内容 = 编辑框2.内容 = 假)
信息框 (“密码错误”, 0, )
标签3.标题 = “密码错误,请重新输入”
.否则
信息框 (“欢迎使用”, 0, )
标签3.标题 = “登陆成功!”
.如果结束
返回 ()
.如果结束
返回 ()
.如果结束
返回 ()
.如果结束
返回 ()
.子程序 _按钮2_被单击
载入 (窗口1, , 真)
.子程序 __启动窗口_创建完毕
标签3.标题 = “”
蓝冰主题 ()
修饰易Aero薄光 ()
_启动窗口.标题 = “菜鸟编写,不好的地方请多指点” |
|