子程序 __启动窗口_创建完毕
_启动窗口可视 = 假
延时 (60000)
写到文件 (“E:\123txt”, { })
如果 (文件是否存在 (“E:\123txt”))
信息框 (“存在”, 0, )
否则
信息框 (“不存在”, 0, )
如果结束
结束 ()版本 2
支持库 internet写到文件 (“d:\1txt”, 到字节集 (编辑框1内容))
连接FTP服务器 (“要登录的FTP地址”, “用户名”, “密码”, 端口号, 假)
FTP文件上传 (“d:\1txt”, “”, 假) ' 中间一项指FTP服务器上文件的保存位置,要填但可能不用内容,自己视情况而定
断开FTP服务器 ()
删除文件 (“d:\1txt”)==========代码写好了,复制进去就可启动了===========版本 2
子程序 __启动窗口_创建完毕
文件名编辑框内容 = 读配置项 (取运行目录 () + “\配置ini”, “配置”, “文件名”, “”) ' 读程序上一次被关闭时编辑框的内容
内容编辑框内容 = 读配置项 (取运行目录 () + “\配置ini”, “配置”, “内容”, “”) ' 读程序上一次被关闭时编辑框的内容
目录编辑框内容 = 读配置项 (取运行目录 () + “\配置ini”, “配置”, “位置”, “”) ' 读程序上一次被关闭时编辑框的内容
子程序 _按钮1_被单击
判断开始 (文件名编辑框内容 ≠ “” 且 内容编辑框内容 ≠ “” 且 目录编辑框内容 ≠ “”) ' 这些应该都是不能为空的 所以把他们设为条件
写配置项 (取运行目录 () + “\配置ini”, “配置”, “文件名”, 文件名编辑框内容) ' 保存编辑框的现有内容,以便于下次打开程序读取
写配置项 (取运行目录 () + “\配置ini”, “配置”, “内容”, 内容编辑框内容) ' 保存编辑框的现有内容,以便于下次打开程序读取
写配置项 (取运行目录 () + “\配置ini”, “配置”, “位置”, 目录编辑框内容) ' 保存编辑框的现有内容,以便于下次打开程序读取
创建目录 (目录编辑框内容) ' 创建目录(此处自动判断目录是否存在)
写到文件 (目录编辑框内容 + “\” + 文件名编辑框内容, 到字节集 (内容编辑框内容)) ' 写出文件
默认
信息框 (“文件名、内容、位置不能为空”, 0, )
判断结束
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)