自动随机更改文件名和窗口标题

易语言 2020-07-06 16:21:43

新文件名 = 到文本 (字符 (取随机数 (65, 90))) + 到文本 (字符 (取随机数 (65, 90))) + 到文本 (字符 (取随机数 (65, 90))) + 到文本 (字符 (取随机数 (65, 90))) + 到文本 (字符 (取随机数 (65, 90))) ' 文件自动更名
.如果 (文件是否存在 (“D:\000.BAT”) = 真)
终止进程 (读配置项 (“D:\001.ini”, “原程序名”, “名称”, ))
删除文件 (“D:\000.BAT”)
.否则
i = 分割文本 (取运行目录 (), “ ”, )
.如果 (取数组成员数 (i) > 0)
写到文件 (“D:\000.BAT”, 到字节集 (“ren ” + 取执行文件名 () + “ ” + 新文件名 + “.exe” + #换行符 + “start ” + #引号 + #引号 + “ ” + #引号 + 取运行目录 () + “\” + 新文件名 + “.exe” + #引号))
.否则
写到文件 (“D:\000.BAT”, 到字节集 (“ren ” + 取执行文件名 () + “ ” + 新文件名 + “.exe” + #换行符 + “start ” + 取运行目录 () + “\” + 新文件名 + “.exe”))
.如果结束
写配置项 (“D:\001.ini”, “原程序名”, “名称”, 取执行文件名 ())
运行 (“D:\000.BAT”, 假, 1)
.如果结束
标题 = 到文本 (字符 (取随机数 (65, 90))) + 到文本 (字符 (取随机数 (65, 90))) + 到文本 (字符 (取随机数 (65, 90))) + 到文本 (字符 (取随机数 (65, 90))) + 到文本 (字符 (取随机数 (65, 90)))